src/game/g_main.pas

   1 unit g_main;
   2
   3 interface
   4
   5 procedure Main();
   6 procedure Init();
   7 procedure Release();
   8 procedure Update();
   9 procedure Draw();
  10 procedure KeyPress(K: Word);
  11 procedure CharPress(C: Char);
  12
  13 var
  14   GameDir: string;
  15   DataDir: string;
  16   MapsDir: string;
  17   ModelsDir: string;
  18   GameWAD: string;
  19
  20 implementation
  21
  22 uses
  23   SDL2, GL, GLExt, WADEDITOR, e_log, g_window,
  24   e_graphics, e_input, g_game, g_console, g_gui,
  25   e_sound, g_options, g_sound, g_player,
  26   g_weapons, SysUtils, g_triggers, MAPDEF, g_map,
  27   MAPSTRUCT, g_menu, g_language, g_net;
  28
  29 var
  30   charbuff: Array [0..15] of Char;
  31
  32 procedure Main();
  33 begin
  34   GetDir(0, GameDir);
  35   MapsDir := GameDir + '/maps/';
  36   DataDir := GameDir + '/data/';
  37   ModelsDir := DataDir + 'models/';
  38   GameWAD := DataDir + 'Game.wad';
  39
  40   e_InitLog(GameDir + '/' + LOG_FILENAME, WM_NEWFILE);
  41
  42   e_WriteLog('Read config file', MSG_NOTIFY);
  43   g_Options_Read(GameDir + '/' + CONFIG_FILENAME);
  44
  45   //GetSystemDefaultLCID()
  46
  47   //e_WriteLog('Read language file', MSG_NOTIFY);
  48   //g_Language_Load(DataDir + gLanguage + '.txt');
  49   e_WriteLog(gLanguage, MSG_NOTIFY);
  50   g_Language_Set(gLanguage);
  51
  52 {$IFDEF USE_SDLMIXER}
  53   if SDL_Init({SDL_INIT_JOYSTICK or SDL_INIT_TIMER or SDL_INIT_VIDEO or SDL_INIT_AUDIO}SDL_INIT_EVERYTHING) < 0 then
  54 {$ELSE}
  55   if SDL_Init(SDL_INIT_JOYSTICK or SDL_INIT_TIMER or SDL_INIT_VIDEO) < 0 then
  56 {$ENDIF}
  57     raise Exception.Create('SDL: Init failed: ' + SDL_GetError());
  58
  59   SDL_StartTextInput();
  60
  61   e_WriteLog('Entering SDLMain', MSG_NOTIFY);
  62
  63   {$WARNINGS OFF}
  64   SDLMain();
  65   {$WARNINGS ON}
  66
  67   SDL_StopTextInput();
  68
  69   e_WriteLog('Releasing SDL', MSG_NOTIFY);
  70   SDL_Quit();
  71 end;
  72
  73 procedure Init();
  74 var
  75   a: Integer;
  76 begin
  77   Randomize;
  78
  79   e_WriteLog('Init Input', MSG_NOTIFY);
  80   e_InitInput();
  81
  82   if (e_JoysticksAvailable > 0) then
  83     e_WriteLog('Input: Joysticks available.', MSG_NOTIFY)
  84   else
  85     e_WriteLog('Input: No Joysticks.', MSG_NOTIFY);
  86
  87   if not gNoSound then
  88   begin
  89     e_WriteLog('Initializing sound system', MSG_NOTIFY);
  90     e_InitSoundSystem();
  91   end;
  92
  93   e_WriteLog('Init game', MSG_NOTIFY);
  94   g_Game_Init();
  95
  96   for a := 0 to 15 do charbuff[a] := ' ';
  97 end;
  98
  99 procedure Release();
 100 begin
 101   e_WriteLog('Releasing engine', MSG_NOTIFY);
 102   e_ReleaseEngine();
 103
 104   e_WriteLog('Releasing Input', MSG_NOTIFY);
 105   e_ReleaseInput();
 106
 107   if not gNoSound then
 108   begin
 109     e_WriteLog('Releasing FMOD', MSG_NOTIFY);
 110     e_ReleaseSoundSystem();
 111   end;
 112 end;
 113
 114 procedure Update();
 115 begin
 116   g_Game_Update();
 117 end;
 118
 119 procedure Draw();
 120 begin
 121   g_Game_Draw();
 122 end;
 123
 124 function Translit(S: String): String;
 125 var
 126   i: Integer;
 127 begin
 128   Result := S;
 129   for i := 1 to Length(Result) do
 130     case Result[i] of
 131       'É': Result[i] := 'Q';
 132       'Ö': Result[i] := 'W';
 133       'Ó': Result[i] := 'E';
 134       'Ê': Result[i] := 'R';
 135       'Å': Result[i] := 'T';
 136       'Í': Result[i] := 'Y';
 137       'Ã': Result[i] := 'U';
 138       'Ø': Result[i] := 'I';
 139       'Ù': Result[i] := 'O';
 140       'Ç': Result[i] := 'P';
 141       'Õ': Result[i] := Chr(219);
 142       'Ú': Result[i] := Chr(221);
 143       'Ô': Result[i] := 'A';
 144       'Û': Result[i] := 'S';
 145       'Â': Result[i] := 'D';
 146       'À': Result[i] := 'F';
 147       'Ï': Result[i] := 'G';
 148       'Ð': Result[i] := 'H';
 149       'Î': Result[i] := 'J';
 150       'Ë': Result[i] := 'K';
 151       'Ä': Result[i] := 'L';
 152       'Æ': Result[i] := Chr(186);
 153       'Ý': Result[i] := Chr(222);
 154       'ß': Result[i] := 'Z';
 155       '×': Result[i] := 'X';
 156       'Ñ': Result[i] := 'C';
 157       'Ì': Result[i] := 'V';
 158       'È': Result[i] := 'B';
 159       'Ò': Result[i] := 'N';
 160       'Ü': Result[i] := 'M';
 161       'Á': Result[i] := Chr(188);
 162       'Þ': Result[i] := Chr(190);
 163     end;
 164 end;
 165
 166 procedure Cheat();
 167 const
 168   CHEAT_DAMAGE = 500;
 169 label
 170   Cheated;
 171 var
 172   s, s2, ls1, ls2: string;
 173   c: Char16;
 174   a: Integer;
 175 begin
 176   if (not gGameOn) or (not gCheats) or ((gGameSettings.GameType <> GT_SINGLE) and
 177     (gGameSettings.GameMode <> GM_COOP) and (not gDebugMode))
 178     or g_Game_IsNet then Exit;
 179
 180   s := 'SOUND_GAME_RADIO';
 181
 182   //
 183   ls1 :=          CheatEng[I_GAME_CHEAT_GODMODE];
 184   ls2 := Translit(CheatRus[I_GAME_CHEAT_GODMODE]);
 185   if (Copy(charbuff, 17 - Length(ls1), Length(ls1)) = ls1) or
 186      (Copy(charbuff, 17 - Length(ls2), Length(ls2)) = ls2) then
 187   begin
 188     if gPlayer1 <> nil then gPlayer1.GodMode := not gPlayer1.GodMode;
 189     if gPlayer2 <> nil then gPlayer2.GodMode := not gPlayer2.GodMode;
 190     goto Cheated;
 191   end;
 192   // RAMBO
 193   ls1 :=          CheatEng[I_GAME_CHEAT_WEAPONS];
 194   ls2 := Translit(CheatRus[I_GAME_CHEAT_WEAPONS]);
 195   if (Copy(charbuff, 17 - Length(ls1), Length(ls1)) = ls1) or
 196      (Copy(charbuff, 17 - Length(ls2), Length(ls2)) = ls2) then
 197   begin
 198     if gPlayer1 <> nil then gPlayer1.AllRulez(False);
 199     if gPlayer2 <> nil then gPlayer2.AllRulez(False);
 200     goto Cheated;
 201   end;
 202   // TANK
 203   ls1 :=          CheatEng[I_GAME_CHEAT_HEALTH];
 204   ls2 := Translit(CheatRus[I_GAME_CHEAT_HEALTH]);
 205   if (Copy(charbuff, 17 - Length(ls1), Length(ls1)) = ls1) or
 206      (Copy(charbuff, 17 - Length(ls2), Length(ls2)) = ls2) then
 207   begin
 208     if gPlayer1 <> nil then gPlayer1.AllRulez(True);
 209     if gPlayer2 <> nil then gPlayer2.AllRulez(True);
 210     goto Cheated;
 211   end;
 212   // IDDQD
 213   ls1 :=          CheatEng[I_GAME_CHEAT_DEATH];
 214   ls2 := Translit(CheatRus[I_GAME_CHEAT_DEATH]);
 215   if (Copy(charbuff, 17 - Length(ls1), Length(ls1)) = ls1) or
 216      (Copy(charbuff, 17 - Length(ls2), Length(ls2)) = ls2) then
 217   begin
 218     if gPlayer1 <> nil then gPlayer1.Damage(CHEAT_DAMAGE, 0, 0, 0, HIT_TRAP);
 219     if gPlayer2 <> nil then gPlayer2.Damage(CHEAT_DAMAGE, 0, 0, 0, HIT_TRAP);
 220     s := 'SOUND_MONSTER_HAHA';
 221     goto Cheated;
 222   end;
 223   //
 224   ls1 :=          CheatEng[I_GAME_CHEAT_DOORS];
 225   ls2 := Translit(CheatRus[I_GAME_CHEAT_DOORS]);
 226   if (Copy(charbuff, 17 - Length(ls1), Length(ls1)) = ls1) or
 227      (Copy(charbuff, 17 - Length(ls2), Length(ls2)) = ls2) then
 228   begin
 229     g_Triggers_OpenAll();
 230     goto Cheated;
 231   end;
 232   // GOODBYE
 233   ls1 :=          CheatEng[I_GAME_CHEAT_NEXTMAP];
 234   ls2 := Translit(CheatRus[I_GAME_CHEAT_NEXTMAP]);
 235   if (Copy(charbuff, 17 - Length(ls1), Length(ls1)) = ls1) or
 236      (Copy(charbuff, 17 - Length(ls2), Length(ls2)) = ls2) then
 237   begin
 238     if gTriggers <> nil then
 239       for a := 0 to High(gTriggers) do
 240         if gTriggers[a].TriggerType = TRIGGER_EXIT then
 241         begin
 242           gExitByTrigger := True;
 243           g_Game_ExitLevel(gTriggers[a].Data.MapName);
 244           Break;
 245         end;
 246     goto Cheated;
 247   end;
 248   //
 249   ls1 :=          CheatEng[I_GAME_CHEAT_CHANGEMAP];
 250   ls2 := Translit(CheatRus[I_GAME_CHEAT_CHANGEMAP]);
 251   s2 := Copy(charbuff, 15, 2);
 252   if ((Copy(charbuff, 15 - Length(ls1), Length(ls1)) = ls1) or
 253       (Copy(charbuff, 15 - Length(ls2), Length(ls2)) = ls2))
 254      and (s2[1] >= '0') and (s2[1] <= '9')
 255      and (s2[2] >= '0') and (s2[2] <= '9') then
 256   begin
 257     if g_Map_Exist(MapsDir+gGameSettings.WAD+':\MAP'+s2) then
 258     begin
 259       c := 'MAP00';
 260       c[3] := s2[1];
 261       c[4] := s2[2];
 262       g_Game_ExitLevel(c);
 263     end;
 264     goto Cheated;
 265   end;
 266   //
 267   ls1 :=          CheatEng[I_GAME_CHEAT_FLY];
 268   ls2 := Translit(CheatRus[I_GAME_CHEAT_FLY]);
 269   if (Copy(charbuff, 17 - Length(ls1), Length(ls1)) = ls1) or
 270      (Copy(charbuff, 17 - Length(ls2), Length(ls2)) = ls2) then
 271   begin
 272     gFly := not gFly;
 273     goto Cheated;
 274   end;
 275   // BULLFROG
 276   ls1 :=          CheatEng[I_GAME_CHEAT_JUMPS];
 277   ls2 := Translit(CheatRus[I_GAME_CHEAT_JUMPS]);
 278   if (Copy(charbuff, 17 - Length(ls1), Length(ls1)) = ls1) or
 279      (Copy(charbuff, 17 - Length(ls2), Length(ls2)) = ls2) then
 280   begin
 281     VEL_JUMP := 30-VEL_JUMP;
 282     goto Cheated;
 283   end;
 284   // FORMULA1
 285   ls1 :=          CheatEng[I_GAME_CHEAT_SPEED];
 286   ls2 := Translit(CheatRus[I_GAME_CHEAT_SPEED]);
 287   if (Copy(charbuff, 17 - Length(ls1), Length(ls1)) = ls1) or
 288      (Copy(charbuff, 17 - Length(ls2), Length(ls2)) = ls2) then
 289   begin
 290     MAX_RUNVEL := 32-MAX_RUNVEL;
 291     goto Cheated;
 292   end;
 293   // CONDOM
 294   ls1 :=          CheatEng[I_GAME_CHEAT_SUIT];
 295   ls2 := Translit(CheatRus[I_GAME_CHEAT_SUIT]);
 296   if (Copy(charbuff, 17 - Length(ls1), Length(ls1)) = ls1) or
 297      (Copy(charbuff, 17 - Length(ls2), Length(ls2)) = ls2) then
 298   begin
 299     if gPlayer1 <> nil then gPlayer1.GiveItem(ITEM_SUIT);
 300     if gPlayer2 <> nil then gPlayer2.GiveItem(ITEM_SUIT);
 301     goto Cheated;
 302   end;
 303   //
 304   ls1 :=          CheatEng[I_GAME_CHEAT_AIR];
 305   ls2 := Translit(CheatRus[I_GAME_CHEAT_AIR]);
 306   if (Copy(charbuff, 17 - Length(ls1), Length(ls1)) = ls1) or
 307      (Copy(charbuff, 17 - Length(ls2), Length(ls2)) = ls2) then
 308   begin
 309     if gPlayer1 <> nil then gPlayer1.GiveItem(ITEM_OXYGEN);
 310     if gPlayer2 <> nil then gPlayer2.GiveItem(ITEM_OXYGEN);
 311     goto Cheated;
 312   end;
 313   // PURELOVE
 314   ls1 :=          CheatEng[I_GAME_CHEAT_BERSERK];
 315   ls2 := Translit(CheatRus[I_GAME_CHEAT_BERSERK]);
 316   if (Copy(charbuff, 17 - Length(ls1), Length(ls1)) = ls1) or
 317      (Copy(charbuff, 17 - Length(ls2), Length(ls2)) = ls2) then
 318   begin
 319     if gPlayer1 <> nil then gPlayer1.GiveItem(ITEM_MEDKIT_BLACK);
 320     if gPlayer2 <> nil then gPlayer2.GiveItem(ITEM_MEDKIT_BLACK);
 321     goto Cheated;
 322   end;
 323   //
 324   ls1 :=          CheatEng[I_GAME_CHEAT_JETPACK];
 325   ls2 := Translit(CheatRus[I_GAME_CHEAT_JETPACK]);
 326   if (Copy(charbuff, 17 - Length(ls1), Length(ls1)) = ls1) or
 327      (Copy(charbuff, 17 - Length(ls2), Length(ls2)) = ls2) then
 328   begin
 329     if gPlayer1 <> nil then gPlayer1.GiveItem(ITEM_JETPACK);
 330     if gPlayer2 <> nil then gPlayer2.GiveItem(ITEM_JETPACK);
 331     goto Cheated;
 332   end;
 333   // CASPER
 334   ls1 :=          CheatEng[I_GAME_CHEAT_NOCLIP];
 335   ls2 := Translit(CheatRus[I_GAME_CHEAT_NOCLIP]);
 336   if (Copy(charbuff, 17 - Length(ls1), Length(ls1)) = ls1) or
 337      (Copy(charbuff, 17 - Length(ls2), Length(ls2)) = ls2) then
 338   begin
 339     if gPlayer1 <> nil then gPlayer1.SwitchNoClip;
 340     if gPlayer2 <> nil then gPlayer2.SwitchNoClip;
 341     goto Cheated;
 342   end;
 343   //
 344   ls1 :=          CheatEng[I_GAME_CHEAT_NOTARGET];
 345   ls2 := Translit(CheatRus[I_GAME_CHEAT_NOTARGET]);
 346   if (Copy(charbuff, 17 - Length(ls1), Length(ls1)) = ls1) or
 347      (Copy(charbuff, 17 - Length(ls2), Length(ls2)) = ls2) then
 348   begin
 349     if gPlayer1 <> nil then gPlayer1.NoTarget := not gPlayer1.NoTarget;
 350     if gPlayer2 <> nil then gPlayer2.NoTarget := not gPlayer2.NoTarget;
 351     goto Cheated;
 352   end;
 353   // INFERNO
 354   ls1 :=          CheatEng[I_GAME_CHEAT_NORELOAD];
 355   ls2 := Translit(CheatRus[I_GAME_CHEAT_NORELOAD]);
 356   if (Copy(charbuff, 17 - Length(ls1), Length(ls1)) = ls1) or
 357      (Copy(charbuff, 17 - Length(ls2), Length(ls2)) = ls2) then
 358   begin
 359     if gPlayer1 <> nil then gPlayer1.NoReload := not gPlayer1.NoReload;
 360     if gPlayer2 <> nil then gPlayer2.NoReload := not gPlayer2.NoReload;
 361     goto Cheated;
 362   end;
 363   ls1 :=          CheatEng[I_GAME_CHEAT_AIMLINE];
 364   ls2 := Translit(CheatRus[I_GAME_CHEAT_AIMLINE]);
 365   if (Copy(charbuff, 17 - Length(ls1), Length(ls1)) = ls1) or
 366      (Copy(charbuff, 17 - Length(ls2), Length(ls2)) = ls2) then
 367   begin
 368     gAimLine := not gAimLine;
 369     goto Cheated;
 370   end;
 371   ls1 :=          CheatEng[I_GAME_CHEAT_AUTOMAP];
 372   ls2 := Translit(CheatRus[I_GAME_CHEAT_AUTOMAP]);
 373   if (Copy(charbuff, 17 - Length(ls1), Length(ls1)) = ls1) or
 374      (Copy(charbuff, 17 - Length(ls2), Length(ls2)) = ls2) then
 375   begin
 376     gShowMap := not gShowMap;
 377     goto Cheated;
 378   end;
 379   Exit;
 380
 381 Cheated:
 382   g_Sound_PlayEx(s);
 383 end;
 384
 385 procedure KeyPress(K: Word);
 386 var
 387   Msg: g_gui.TMessage;
 388 begin
 389   case K of
 390     IK_PAUSE: // <Pause/Break>:
 391       begin
 392         if (g_ActiveWindow = nil) then
 393           g_Game_Pause(not gPause);
 394       end;
 395
 396     IK_BACKQUOTE: // <`/~/¨/¸>:
 397       begin
 398         g_Console_Switch();
 399       end;
 400
 401     IK_ESCAPE: // <Esc>:
 402       begin
 403         if gChatShow then
 404         begin
 405           g_Console_Chat_Switch();
 406           Exit;
 407         end;
 408
 409         if gConsoleShow then
 410           g_Console_Switch()
 411         else
 412           if g_ActiveWindow <> nil then
 413             begin
 414               Msg.Msg := WM_KEYDOWN;
 415               Msg.WParam := IK_ESCAPE;
 416               g_ActiveWindow.OnMessage(Msg);
 417             end
 418           else
 419             if gState <> STATE_FOLD then
 420               if gGameOn
 421               or (gState = STATE_INTERSINGLE)
 422               or (gState = STATE_INTERCUSTOM)
 423               then
 424                 g_Game_InGameMenu(True)
 425               else
 426                 if (gExit = 0) and (gState <> STATE_SLIST) then
 427                   begin
 428                     if gState <> STATE_MENU then
 429                       if NetMode <> NET_NONE then
 430                       begin
 431                         g_Game_StopAllSounds(True);
 432                         g_Game_Free;
 433                         gState := STATE_MENU;
 434                         Exit;
 435                       end;
 436
 437                     g_GUI_ShowWindow('MainMenu');
 438                     g_Sound_PlayEx('MENU_OPEN');
 439                   end;
 440       end;
 441
 442     IK_F2, IK_F3, IK_F4, IK_F5, IK_F6, IK_F7, IK_F10:
 443       begin // <F2> .. <F6> � <F12>
 444         if gGameOn and (not gConsoleShow) and (not gChatShow) then
 445         begin
 446           while g_ActiveWindow <> nil do
 447             g_GUI_HideWindow(False);
 448
 449           if (not g_Game_IsNet) then
 450             g_Game_Pause(True);
 451
 452           case K of
 453             IK_F2:
 454               g_Menu_Show_SaveMenu();
 455             IK_F3:
 456               g_Menu_Show_LoadMenu();
 457             IK_F4:
 458               g_Menu_Show_GameSetGame();
 459             IK_F5:
 460               g_Menu_Show_OptionsVideo();
 461             IK_F6:
 462               g_Menu_Show_OptionsSound();
 463             IK_F7:
 464               g_Menu_Show_EndGameMenu();
 465             IK_F10:
 466               g_Menu_Show_QuitGameMenu();
 467           end;
 468         end;
 469       end;
 470
 471     else
 472       begin
 473         gJustChatted := False;
 474         if gConsoleShow or gChatShow then
 475           g_Console_Control(K)
 476         else
 477           if g_ActiveWindow <> nil then
 478           begin
 479             Msg.Msg := WM_KEYDOWN;
 480             Msg.WParam := K;
 481             g_ActiveWindow.OnMessage(Msg);
 482           end
 483           else
 484           begin
 485             if (gState = STATE_MENU) then
 486             begin
 487               g_GUI_ShowWindow('MainMenu');
 488               g_Sound_PlayEx('MENU_OPEN');
 489             end;
 490           end;
 491       end;
 492   end;
 493 end;
 494
 495 procedure CharPress(C: Char);
 496 var
 497   Msg: g_gui.TMessage;
 498   a: Integer;
 499 begin
 500   if (not gChatShow) and ((C = '`') or (C = '~') or (C = '¸') or (C = '¨')) then
 501     Exit;
 502
 503   if gConsoleShow or gChatShow then
 504     g_Console_Char(C)
 505   else
 506     if g_ActiveWindow <> nil then
 507     begin
 508       Msg.Msg := WM_CHAR;
 509       Msg.WParam := Ord(C);
 510       g_ActiveWindow.OnMessage(Msg);
 511     end
 512     else
 513     begin
 514       for a := 0 to 14 do
 515         charbuff[a] := charbuff[a+1];
 516       charbuff[15] := UpCase(C);
 517       Cheat();
 518     end;
 519 end;
 520
 521 end.