src/game/g_main.pas

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