unit u_const;

interface

uses zglHeader;

const
  TEX_STRICT = TEX_CLAMP or TEX_FILTER_NEAREST or TEX_CONVERT_TO_POT or TEX_CALCULATE_ALPHA;
  GRAVITATION = 0.001;
  PHYS_GRAVITATION = 0.02;

  ctBlock = 1;
  ctBullet = 2;
  ctPlayer = 3;
  ctPortal = 4;
  ctPorter = 5;

  BLOCKSIZE = 16;
  PLAYER_MASS = 0.0005;
  CUBE_MASS = 0.00025;
  PLAYER_SPEED = 0.000005;
  CUBE_SPEED = 0.00001;
  PLAYER_JUMP = 0.01;

  PREDRAW_SIZE = 128;

  V_MIN = 0.05;
  V_MAX = 1 - V_MIN;

  PLAYER_WIDTH = 1;
  PLAYER_HEIGHT = 1;

  CUBE_WIDTH = 0.75;
  CUBE_HEIGHT = 0.75;

  PLAYER_UPDATES = 16;

  BULLET_SPEED = 0.05;
  ENBALL_SPEED = 0.0025;
  SPEED_DUMPINGX = 1.0008;
  SPEED_DUMPINGY = 1.0001;
  MAX_SPEED = 0.05;

  BLOCK_TIME = 400;

  DOOR_HEIGHT = 3;

type
  TGameState = (gsMainMenu, gsSelectStage, gsGame, gsLevelDone);

var
  sX, sY, cnt_: integer;
  GameState: TGameState = gsMainMenu;

implementation

end.
