TGameHandler

type TGameHandler = class

protected

  procedure ResetTick;

public

  FrameSkips: Integer;

  Initialized: Boolean;

  isMouseCentered: Boolean;

  FMouseInitialized: Boolean;

  keys: array [0..255] of Boolean;

  mb: array [1..5] of Boolean;

  modPath: string;

  progDir: string;

  mpt: single;

  mouseXSpeed: single;

  mouseYSpeed: single;

  mp: TVector2f;

  mDelta: TVector2f;

  ShiftState: TShiftState;

  t: Cardinal;

  constructor Create;

  destructor Destroy; override;

  procedure CenterMouse();

  function GetCursorPos;

  function GetPath();

  procedure Idle;

  procedure KeyDown();

  procedure KeyUp();

  procedure MouseDown();

  procedure MouseMove();

  procedure MouseUp();

  procedure SetCursorPos();

  procedure SetFrameInterval();

  procedure SetMaxTick();

  procedure SetFrameSkipping();

  procedure Draw; virtual; abstract;

  procedure GameLoop; virtual; abstract;

end;

TGameHandler

TObject