unit u_const;

interface

uses zglHeader;

const
  // GAMESTATE
  gs_game = 0;
  gs_choose = 1;
  gs_die = 2;


  sX = 640;
  sY = 480;

  bt_none = 0;
  bt_wall = 1;
  bt_badwall = 2;
  bt_eat = 3;
  bt_wizard = 4;
  bt_sleepwall = 5;
  bt_enetgizer = 6;

  item_size = 16;

  player_lives = 5;
  player_speed = 0.004;
  ghost_speed = 0.004;

  portal_none = 0;
  portal_opened = 1;

  portal_counter = 800;
  portal_speed = 0.02;
  portals_count = 6;

  say_time = 1000;
  scare_time = 8000;
  test_time = 200;
  out_time = 2000;

  message_time = 2200;

  wzrds_count = 16;

  ghosts_count = 4;

  die_count = 2;

  gss_go = 0;
  gss_eaten = 1;
  gss_back = 2;

  pid_blinky = 1;
  pid_speedy = 2;
  pid_bashful = 3;
  pid_pokey = 4;

  playspeed_max = 0.10;
  playspeed_inc = 0.01;


var
   Diffs:array[1..3] of Single = (0.5, 0.7, 0.8); 
   DiffNames:array[1..3] of string =('Легко','Норма','Тяжело');
   PortSay:array[0..1] of string = ('Прыжок!', 'Wee~');
   Wizards:array[1..wzrds_count] of record Text:string; Times:Integer; CallId:boolean; snd:zglPsound; end = (
      (Text:'Добро пожаловать в центр исследования порталов!';Times:2),
      (Text:'Перед вами открыт зелёный портал';Times:1;CallId:true),
      (Text:'Войдя в него, вы выйдете с противоположного конца';Times:2;CallId:true),
      (Text:'Вы не можете управлять зелёными порталами';Times:2;CallId:true),
      (Text:'Пройдите через портал';Times:1),
      (Text:'Хорошо! Как видите, это не сложно!';Times:2;CallId:true),
      (Text:'Порталы можно создавать только на определённых типах стен';Times:2;CallId:true),
      (Text:'Проходя через порталы, которые расположены перпендикулярно, карта переворачивается';Times:3;CallId:true),
      (Text:'Это сделано для того, чтобы вы не потеряли ориентацию в пространстве';Times:2;CallId:true),
      (Text:'В ваших руках - устройство для создания порталов';Times:2;CallId:true),
      (Text:'С его помощью можно открывать порталы: Синий и Оранжевый';Times:2;CallId:true),
      (Text:'Пройдя через Синий портал, вы окажитесь у выхода в Оранжевом портале и наоборот';Times:3;CallId:true),
      (Text:'Выстрелите Синим порталом в верхнюю часть комнаты (Левая кнопка мыши)';Times:3;CallId:true),
      (Text:'А Оранжевым выстрелите в каридор справа (Правая кнопка мыши)';Times:3;CallId:true),
      (Text:'Затем пройдите через порталы';Times:1),
      (Text:'Замечательно!';Times:2)
    );
    WizardId:integer=0;

    DieTime:array[0..die_count-1] of Integer = (
      2000,2000
    );

implementation

end.
