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, sfs;
  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] := #39; //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
 167 function CheckCheat (ct: TStrings_Locale; eofs: Integer=0): Boolean;
 168 var
 169   ls1, ls2: string;
 170 begin
 171   ls1 :=          CheatEng[ct];
 172   ls2 := Translit(CheatRus[ct]);
 173   if length(ls1) = 0 then ls1 := '~';
 174   if length(ls2) = 0 then ls2 := '~';
 175   result :=
 176     (Copy(charbuff, 17-Length(ls1)-eofs, Length(ls1)) = ls1) or
 177     (Translit(Copy(charbuff, 17-Length(ls1)-eofs, Length(ls1))) = ls1) or
 178     (Copy(charbuff, 17-Length(ls2)-eofs, Length(ls2)) = ls2) or
 179     (Translit(Copy(charbuff, 17-Length(ls2)-eofs, Length(ls2))) = ls2);
 180   {
 181   if ct = I_GAME_CHEAT_JETPACK then
 182   begin
 183     e_WriteLog('ls1: ['+ls1+']', MSG_NOTIFY);
 184     e_WriteLog('ls2: ['+ls2+']', MSG_NOTIFY);
 185     e_WriteLog('bf0: ['+Copy(charbuff, 17-Length(ls1)-eofs, Length(ls1))+']', MSG_NOTIFY);
 186     e_WriteLog('bf1: ['+Translit(Copy(charbuff, 17-Length(ls1)-eofs, Length(ls1)))+']', MSG_NOTIFY);
 187     e_WriteLog('bf2: ['+Copy(charbuff, 17-Length(ls2)-eofs, Length(ls2))+']', MSG_NOTIFY);
 188     e_WriteLog('bf3: ['+Translit(Copy(charbuff, 17-Length(ls2)-eofs, Length(ls2)))+']', MSG_NOTIFY);
 189   end;
 190   }
 191 end;
 192
 193
 194 procedure Cheat();
 195 const
 196   CHEAT_DAMAGE = 500;
 197 label
 198   Cheated;
 199 var
 200   s, s2: string;
 201   c: Char16;
 202   a: Integer;
 203 begin
 204   if (not gGameOn) or (not gCheats) or ((gGameSettings.GameType <> GT_SINGLE) and
 205     (gGameSettings.GameMode <> GM_COOP) and (not gDebugMode))
 206     or g_Game_IsNet then Exit;
 207
 208   s := 'SOUND_GAME_RADIO';
 209
 210   //
 211   if CheckCheat(I_GAME_CHEAT_GODMODE) then
 212   begin
 213     if gPlayer1 <> nil then gPlayer1.GodMode := not gPlayer1.GodMode;
 214     if gPlayer2 <> nil then gPlayer2.GodMode := not gPlayer2.GodMode;
 215     goto Cheated;
 216   end;
 217   // RAMBO
 218   if CheckCheat(I_GAME_CHEAT_WEAPONS) then
 219   begin
 220     if gPlayer1 <> nil then gPlayer1.AllRulez(False);
 221     if gPlayer2 <> nil then gPlayer2.AllRulez(False);
 222     goto Cheated;
 223   end;
 224   // TANK
 225   if CheckCheat(I_GAME_CHEAT_HEALTH) then
 226   begin
 227     if gPlayer1 <> nil then gPlayer1.AllRulez(True);
 228     if gPlayer2 <> nil then gPlayer2.AllRulez(True);
 229     goto Cheated;
 230   end;
 231   // IDDQD
 232   if CheckCheat(I_GAME_CHEAT_DEATH) then
 233   begin
 234     if gPlayer1 <> nil then gPlayer1.Damage(CHEAT_DAMAGE, 0, 0, 0, HIT_TRAP);
 235     if gPlayer2 <> nil then gPlayer2.Damage(CHEAT_DAMAGE, 0, 0, 0, HIT_TRAP);
 236     s := 'SOUND_MONSTER_HAHA';
 237     goto Cheated;
 238   end;
 239   //
 240   if CheckCheat(I_GAME_CHEAT_DOORS) then
 241   begin
 242     g_Triggers_OpenAll();
 243     goto Cheated;
 244   end;
 245   // GOODBYE
 246   if CheckCheat(I_GAME_CHEAT_NEXTMAP) then
 247   begin
 248     if gTriggers <> nil then
 249       for a := 0 to High(gTriggers) do
 250         if gTriggers[a].TriggerType = TRIGGER_EXIT then
 251         begin
 252           gExitByTrigger := True;
 253           g_Game_ExitLevel(gTriggers[a].Data.MapName);
 254           Break;
 255         end;
 256     goto Cheated;
 257   end;
 258   //
 259   s2 := Copy(charbuff, 15, 2);
 260   if CheckCheat(I_GAME_CHEAT_CHANGEMAP, 2) and (s2[1] >= '0') and (s2[1] <= '9') and (s2[2] >= '0') and (s2[2] <= '9') then
 261   begin
 262     if g_Map_Exist(MapsDir+gGameSettings.WAD+':\MAP'+s2) then
 263     begin
 264       c := 'MAP00';
 265       c[3] := s2[1];
 266       c[4] := s2[2];
 267       g_Game_ExitLevel(c);
 268     end;
 269     goto Cheated;
 270   end;
 271   //
 272   if CheckCheat(I_GAME_CHEAT_FLY) then
 273   begin
 274     gFly := not gFly;
 275     goto Cheated;
 276   end;
 277   // BULLFROG
 278   if CheckCheat(I_GAME_CHEAT_JUMPS) then
 279   begin
 280     VEL_JUMP := 30-VEL_JUMP;
 281     goto Cheated;
 282   end;
 283   // FORMULA1
 284   if CheckCheat(I_GAME_CHEAT_SPEED) then
 285   begin
 286     MAX_RUNVEL := 32-MAX_RUNVEL;
 287     goto Cheated;
 288   end;
 289   // CONDOM
 290   if CheckCheat(I_GAME_CHEAT_SUIT) then
 291   begin
 292     if gPlayer1 <> nil then gPlayer1.GiveItem(ITEM_SUIT);
 293     if gPlayer2 <> nil then gPlayer2.GiveItem(ITEM_SUIT);
 294     goto Cheated;
 295   end;
 296   //
 297   if CheckCheat(I_GAME_CHEAT_AIR) then
 298   begin
 299     if gPlayer1 <> nil then gPlayer1.GiveItem(ITEM_OXYGEN);
 300     if gPlayer2 <> nil then gPlayer2.GiveItem(ITEM_OXYGEN);
 301     goto Cheated;
 302   end;
 303   // PURELOVE
 304   if CheckCheat(I_GAME_CHEAT_BERSERK) then
 305   begin
 306     if gPlayer1 <> nil then gPlayer1.GiveItem(ITEM_MEDKIT_BLACK);
 307     if gPlayer2 <> nil then gPlayer2.GiveItem(ITEM_MEDKIT_BLACK);
 308     goto Cheated;
 309   end;
 310   //
 311   if CheckCheat(I_GAME_CHEAT_JETPACK) then
 312   begin
 313     if gPlayer1 <> nil then gPlayer1.GiveItem(ITEM_JETPACK);
 314     if gPlayer2 <> nil then gPlayer2.GiveItem(ITEM_JETPACK);
 315     goto Cheated;
 316   end;
 317   // CASPER
 318   if CheckCheat(I_GAME_CHEAT_NOCLIP) then
 319   begin
 320     if gPlayer1 <> nil then gPlayer1.SwitchNoClip;
 321     if gPlayer2 <> nil then gPlayer2.SwitchNoClip;
 322     goto Cheated;
 323   end;
 324   //
 325   if CheckCheat(I_GAME_CHEAT_NOTARGET) then
 326   begin
 327     if gPlayer1 <> nil then gPlayer1.NoTarget := not gPlayer1.NoTarget;
 328     if gPlayer2 <> nil then gPlayer2.NoTarget := not gPlayer2.NoTarget;
 329     goto Cheated;
 330   end;
 331   // INFERNO
 332   if CheckCheat(I_GAME_CHEAT_NORELOAD) then
 333   begin
 334     if gPlayer1 <> nil then gPlayer1.NoReload := not gPlayer1.NoReload;
 335     if gPlayer2 <> nil then gPlayer2.NoReload := not gPlayer2.NoReload;
 336     goto Cheated;
 337   end;
 338   if CheckCheat(I_GAME_CHEAT_AIMLINE) then
 339   begin
 340     gAimLine := not gAimLine;
 341     goto Cheated;
 342   end;
 343   if CheckCheat(I_GAME_CHEAT_AUTOMAP) then
 344   begin
 345     gShowMap := not gShowMap;
 346     goto Cheated;
 347   end;
 348   Exit;
 349
 350 Cheated:
 351   g_Sound_PlayEx(s);
 352 end;
 353
 354 procedure KeyPress(K: Word);
 355 var
 356   Msg: g_gui.TMessage;
 357 begin
 358   case K of
 359     IK_PAUSE: // <Pause/Break>:
 360       begin
 361         if (g_ActiveWindow = nil) then
 362           g_Game_Pause(not gPause);
 363       end;
 364
 365     IK_BACKQUOTE: // <`/~/¨/¸>:
 366       begin
 367         g_Console_Switch();
 368       end;
 369
 370     IK_ESCAPE: // <Esc>:
 371       begin
 372         if gChatShow then
 373         begin
 374           g_Console_Chat_Switch();
 375           Exit;
 376         end;
 377
 378         if gConsoleShow then
 379           g_Console_Switch()
 380         else
 381           if g_ActiveWindow <> nil then
 382             begin
 383               Msg.Msg := WM_KEYDOWN;
 384               Msg.WParam := IK_ESCAPE;
 385               g_ActiveWindow.OnMessage(Msg);
 386             end
 387           else
 388             if gState <> STATE_FOLD then
 389               if gGameOn
 390               or (gState = STATE_INTERSINGLE)
 391               or (gState = STATE_INTERCUSTOM)
 392               then
 393                 g_Game_InGameMenu(True)
 394               else
 395                 if (gExit = 0) and (gState <> STATE_SLIST) then
 396                   begin
 397                     if gState <> STATE_MENU then
 398                       if NetMode <> NET_NONE then
 399                       begin
 400                         g_Game_StopAllSounds(True);
 401                         g_Game_Free;
 402                         gState := STATE_MENU;
 403                         Exit;
 404                       end;
 405
 406                     g_GUI_ShowWindow('MainMenu');
 407                     g_Sound_PlayEx('MENU_OPEN');
 408                   end;
 409       end;
 410
 411     IK_F2, IK_F3, IK_F4, IK_F5, IK_F6, IK_F7, IK_F10:
 412       begin // <F2> .. <F6> � <F12>
 413         if gGameOn and (not gConsoleShow) and (not gChatShow) then
 414         begin
 415           while g_ActiveWindow <> nil do
 416             g_GUI_HideWindow(False);
 417
 418           if (not g_Game_IsNet) then
 419             g_Game_Pause(True);
 420
 421           case K of
 422             IK_F2:
 423               g_Menu_Show_SaveMenu();
 424             IK_F3:
 425               g_Menu_Show_LoadMenu();
 426             IK_F4:
 427               g_Menu_Show_GameSetGame();
 428             IK_F5:
 429               g_Menu_Show_OptionsVideo();
 430             IK_F6:
 431               g_Menu_Show_OptionsSound();
 432             IK_F7:
 433               g_Menu_Show_EndGameMenu();
 434             IK_F10:
 435               g_Menu_Show_QuitGameMenu();
 436           end;
 437         end;
 438       end;
 439
 440     else
 441       begin
 442         gJustChatted := False;
 443         if gConsoleShow or gChatShow then
 444           g_Console_Control(K)
 445         else
 446           if g_ActiveWindow <> nil then
 447           begin
 448             Msg.Msg := WM_KEYDOWN;
 449             Msg.WParam := K;
 450             g_ActiveWindow.OnMessage(Msg);
 451           end
 452           else
 453           begin
 454             if (gState = STATE_MENU) then
 455             begin
 456               g_GUI_ShowWindow('MainMenu');
 457               g_Sound_PlayEx('MENU_OPEN');
 458             end;
 459           end;
 460       end;
 461   end;
 462 end;
 463
 464 procedure CharPress(C: Char);
 465 var
 466   Msg: g_gui.TMessage;
 467   a: Integer;
 468 begin
 469   if (not gChatShow) and ((C = '`') or (C = '~') or (C = '¸') or (C = '¨')) then
 470     Exit;
 471
 472   if gConsoleShow or gChatShow then
 473     g_Console_Char(C)
 474   else
 475     if g_ActiveWindow <> nil then
 476     begin
 477       Msg.Msg := WM_CHAR;
 478       Msg.WParam := Ord(C);
 479       g_ActiveWindow.OnMessage(Msg);
 480     end
 481     else
 482     begin
 483       for a := 0 to 14 do charbuff[a] := charbuff[a+1];
 484       charbuff[15] := SFSUpCase(C);
 485       Cheat();
 486     end;
 487 end;
 488
 489 end.