src/game/g_main.pas

   1 (* Copyright (C)  Doom 2D: Forever Developers
   2  *
   3  * This program is free software: you can redistribute it and/or modify
   4  * it under the terms of the GNU General Public License as published by
   5  * the Free Software Foundation, either version 3 of the License, or
   6  * (at your option) any later version.
   7  *
   8  * This program is distributed in the hope that it will be useful,
   9  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11  * GNU General Public License for more details.
  12  *
  13  * You should have received a copy of the GNU General Public License
  14  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  15  *)
  16 {$INCLUDE ../shared/a_modes.inc}
  17 unit g_main;
  18
  19 interface
  20
  21 procedure Main ();
  22 procedure Init ();
  23 procedure Release ();
  24 procedure Update ();
  25 procedure Draw ();
  26 procedure KeyPress (K: Word);
  27 procedure CharPress (C: AnsiChar);
  28
  29 var
  30   GameDir: string;
  31   DataDir: string;
  32   MapsDir: string;
  33   ModelsDir: string;
  34   GameWAD: string;
  35
  36
  37 implementation
  38
  39 uses
  40 {$IFDEF USE_NANOGL}
  41   nanoGL,
  42 {$ELSE}
  43   GL, GLExt,
  44 {$ENDIF}
  45 {$IFDEF ENABLE_HOLMES}
  46   g_holmes, fui_wadread, fui_style, fui_gfx_gl,
  47 {$ENDIF}
  48   SDL2, wadreader, e_log, g_window,
  49   e_graphics, e_input, g_game, g_console, g_gui,
  50   e_sound, g_options, g_sound, g_player, g_basic,
  51   g_weapons, SysUtils, g_triggers, MAPDEF, g_map,
  52   g_menu, g_language, g_net, g_touch,
  53   utils, conbuf, envvars,
  54   xparser;
  55
  56
  57 var
  58   charbuff: packed array [0..15] of AnsiChar;
  59
  60 procedure Main();
  61 var
  62   sdlflags: LongWord;
  63 {$IFNDEF HEADLESS}
  64   flexloaded: Boolean;
  65 {$ENDIF}
  66 begin
  67   e_InitWritelnDriver();
  68
  69   GetDir(0, GameDir);
  70   MapsDir := GameDir + '/maps/';
  71   DataDir := GameDir + '/data/';
  72   ModelsDir := DataDir + 'models/';
  73   GameWAD := DataDir + 'Game.wad';
  74
  75   e_InitLog(GameDir + '/' + LOG_FILENAME, TWriteMode.WM_NEWFILE);
  76
  77   e_WriteLog(
  78     'Doom 2D: Forever version ' + GAME_VERSION +
  79     ' proto ' + IntToStr(NET_PROTOCOL_VER),
  80     TMsgType.Notify
  81   );
  82   e_WriteLog(
  83     'Build date: ' + GAME_BUILDDATE + ' ' + GAME_BUILDTIME,
  84     TMsgType.Notify
  85   );
  86
  87   e_WriteLog('Read config file', TMsgType.Notify);
  88   g_Options_Read(GameDir + '/' + CONFIG_FILENAME);
  89
  90 {$IFDEF HEADLESS}
  91   conbufDumpToStdOut := true;
  92 {$ENDIF}
  93   e_WriteToStdOut := False; //{$IFDEF HEADLESS}True;{$ELSE}False;{$ENDIF}
  94
  95   //GetSystemDefaultLCID()
  96
  97   //e_WriteLog('Read language file', MSG_NOTIFY);
  98   //g_Language_Load(DataDir + gLanguage + '.txt');
  99   e_WriteLog(gLanguage, TMsgType.Notify);
 100   g_Language_Set(gLanguage);
 101
 102 {$IFDEF HEADLESS}
 103  {$IFDEF USE_SDLMIXER}
 104   sdlflags := SDL_INIT_TIMER or SDL_INIT_AUDIO or $00004000;
 105   // HACK: shit this into env and hope for the best
 106   SetEnvVar('SDL_AUDIODRIVER', 'dummy');
 107  {$ELSE}
 108   sdlflags := SDL_INIT_TIMER or $00004000;
 109  {$ENDIF}
 110 {$ELSE}
 111  {$IFDEF USE_SDLMIXER}
 112   {*sdlflags := SDL_INIT_EVERYTHING;*}
 113   sdlflags := SDL_INIT_JOYSTICK or SDL_INIT_TIMER or SDL_INIT_VIDEO;
 114  {$ELSE}
 115   sdlflags := SDL_INIT_JOYSTICK or SDL_INIT_TIMER or SDL_INIT_VIDEO;
 116  {$ENDIF}
 117 {$ENDIF}
 118
 119   SDL_SetHint(SDL_HINT_ACCELEROMETER_AS_JOYSTICK, '0');
 120
 121   if SDL_Init(sdlflags) < 0 then
 122     raise Exception.Create('SDL: Init failed: ' + SDL_GetError());
 123
 124 {$IFNDEF HEADLESS}
 125 {$IFNDEF ANDROID}
 126   SDL_StartTextInput();
 127 {$ENDIF}
 128 {$ENDIF}
 129
 130 {$IF not DEFINED(HEADLESS) and DEFINED(ENABLE_HOLMES)}
 131   flexloaded := true;
 132   if not fuiAddWad('flexui.wad') then
 133   begin
 134     if not fuiAddWad('./data/flexui.wad') then fuiAddWad('./flexui.wad');
 135   end;
 136   try
 137     fuiGfxLoadFont('win8', 'flexui/fonts/win8.fuifont');
 138     fuiGfxLoadFont('win14', 'flexui/fonts/win14.fuifont');
 139     fuiGfxLoadFont('win16', 'flexui/fonts/win16.fuifont');
 140     fuiGfxLoadFont('dos8', 'flexui/fonts/dos8.fuifont');
 141     fuiGfxLoadFont('msx6', 'flexui/fonts/msx6.fuifont');
 142   except on e: Exception do
 143     begin
 144       writeln('ERROR loading FlexUI fonts');
 145       flexloaded := false;
 146       //raise;
 147     end;
 148   else
 149     begin
 150       flexloaded := false;
 151       //raise;
 152     end;
 153   end;
 154   if (flexloaded) then
 155   begin
 156     try
 157       e_LogWriteln('FlexUI: loading stylesheet...');
 158       uiLoadStyles('flexui/widgets.wgs');
 159     except on e: TParserException do
 160       begin
 161         writeln('ERROR at (', e.tokLine, ',', e.tokCol, '): ', e.message);
 162         //raise;
 163         flexloaded := false;
 164       end;
 165     else
 166       begin
 167         //raise;
 168         flexloaded := false;
 169       end;
 170     end;
 171   end;
 172   g_holmes_imfunctional := not flexloaded;
 173 {$ENDIF}
 174
 175   e_WriteLog('Entering SDLMain', TMsgType.Notify);
 176
 177 {$WARNINGS OFF}
 178   SDLMain();
 179 {$WARNINGS ON}
 180
 181 {$IFNDEF HEADLESS}
 182   SDL_StopTextInput();
 183 {$ENDIF}
 184
 185   e_WriteLog('Releasing SDL', TMsgType.Notify);
 186   SDL_Quit();
 187 end;
 188
 189 procedure Init();
 190 var
 191   NoSound: Boolean;
 192 begin
 193   Randomize;
 194
 195 {$IFDEF HEADLESS}
 196  {$IFDEF USE_SDLMIXER}
 197   NoSound := False; // hope env has set SDL_AUDIODRIVER to dummy
 198  {$ELSE}
 199   NoSound := True; // FMOD backend will sort it out
 200  {$ENDIF}
 201 {$ELSE}
 202   NoSound := False;
 203 {$ENDIF}
 204
 205   e_WriteLog('Init Input', TMsgType.Notify);
 206   e_InitInput();
 207   g_Touch_Init;
 208
 209   if (e_JoysticksAvailable > 0) then
 210     e_WriteLog('Input: Joysticks available.', TMsgType.Notify)
 211   else
 212     e_WriteLog('Input: No Joysticks.', TMsgType.Notify);
 213
 214   if (not gNoSound) then
 215   begin
 216     e_WriteLog('Initializing sound system', TMsgType.Notify);
 217     e_InitSoundSystem(NoSound);
 218   end;
 219
 220   e_WriteLog('Init game', TMsgType.Notify);
 221   g_Game_Init();
 222
 223   FillChar(charbuff, sizeof(charbuff), ' ');
 224 end;
 225
 226
 227 procedure Release();
 228 begin
 229   e_WriteLog('Releasing engine', TMsgType.Notify);
 230   e_ReleaseEngine();
 231
 232   e_WriteLog('Releasing Input', TMsgType.Notify);
 233   e_ReleaseInput();
 234
 235   if not gNoSound then
 236   begin
 237     e_WriteLog('Releasing FMOD', TMsgType.Notify);
 238     e_ReleaseSoundSystem();
 239   end;
 240 end;
 241
 242
 243 procedure Update ();
 244 begin
 245   g_Game_Update();
 246 end;
 247
 248
 249 procedure Draw ();
 250 begin
 251   g_Game_Draw();
 252 end;
 253
 254
 255 function Translit (const S: AnsiString): AnsiString;
 256 var
 257   i: Integer;
 258 begin
 259   Result := S;
 260   for i := 1 to Length(Result) do
 261   begin
 262     case Result[i] of
 263       'É': Result[i] := 'Q';
 264       'Ö': Result[i] := 'W';
 265       'Ó': Result[i] := 'E';
 266       'Ê': Result[i] := 'R';
 267       'Å': Result[i] := 'T';
 268       'Í': Result[i] := 'Y';
 269       'Ã': Result[i] := 'U';
 270       'Ø': Result[i] := 'I';
 271       'Ù': Result[i] := 'O';
 272       'Ç': Result[i] := 'P';
 273       'Õ': Result[i] := '['; //Chr(219);
 274       'Ú': Result[i] := ']'; //Chr(221);
 275       'Ô': Result[i] := 'A';
 276       'Û': Result[i] := 'S';
 277       'Â': Result[i] := 'D';
 278       'À': Result[i] := 'F';
 279       'Ï': Result[i] := 'G';
 280       'Ð': Result[i] := 'H';
 281       'Î': Result[i] := 'J';
 282       'Ë': Result[i] := 'K';
 283       'Ä': Result[i] := 'L';
 284       'Æ': Result[i] := ';'; //Chr(186);
 285       'Ý': Result[i] := #39; //Chr(222);
 286       'ß': Result[i] := 'Z';
 287       '×': Result[i] := 'X';
 288       'Ñ': Result[i] := 'C';
 289       'Ì': Result[i] := 'V';
 290       'È': Result[i] := 'B';
 291       'Ò': Result[i] := 'N';
 292       'Ü': Result[i] := 'M';
 293       'Á': Result[i] := ','; //Chr(188);
 294       'Þ': Result[i] := '.'; //Chr(190);
 295     end;
 296   end;
 297 end;
 298
 299
 300 function CheckCheat (ct: TStrings_Locale; eofs: Integer=0): Boolean;
 301 var
 302   ls1, ls2: string;
 303 begin
 304   ls1 :=          CheatEng[ct];
 305   ls2 := Translit(CheatRus[ct]);
 306   if length(ls1) = 0 then ls1 := '~';
 307   if length(ls2) = 0 then ls2 := '~';
 308   result :=
 309     (Copy(charbuff, 17-Length(ls1)-eofs, Length(ls1)) = ls1) or
 310     (Translit(Copy(charbuff, 17-Length(ls1)-eofs, Length(ls1))) = ls1) or
 311     (Copy(charbuff, 17-Length(ls2)-eofs, Length(ls2)) = ls2) or
 312     (Translit(Copy(charbuff, 17-Length(ls2)-eofs, Length(ls2))) = ls2);
 313   {
 314   if ct = I_GAME_CHEAT_JETPACK then
 315   begin
 316     e_WriteLog('ls1: ['+ls1+']', MSG_NOTIFY);
 317     e_WriteLog('ls2: ['+ls2+']', MSG_NOTIFY);
 318     e_WriteLog('bf0: ['+Copy(charbuff, 17-Length(ls1)-eofs, Length(ls1))+']', MSG_NOTIFY);
 319     e_WriteLog('bf1: ['+Translit(Copy(charbuff, 17-Length(ls1)-eofs, Length(ls1)))+']', MSG_NOTIFY);
 320     e_WriteLog('bf2: ['+Copy(charbuff, 17-Length(ls2)-eofs, Length(ls2))+']', MSG_NOTIFY);
 321     e_WriteLog('bf3: ['+Translit(Copy(charbuff, 17-Length(ls2)-eofs, Length(ls2)))+']', MSG_NOTIFY);
 322   end;
 323   }
 324 end;
 325
 326
 327 procedure Cheat ();
 328 const
 329   CHEAT_DAMAGE = 500;
 330 label
 331   Cheated;
 332 var
 333   s, s2: string;
 334   c: ShortString;
 335   a: Integer;
 336 begin
 337   {
 338   if (not gGameOn) or (not gCheats) or ((gGameSettings.GameType <> GT_SINGLE) and
 339     (gGameSettings.GameMode <> GM_COOP) and (not gDebugMode))
 340     or g_Game_IsNet then Exit;
 341   }
 342   if not gGameOn then exit;
 343   if not conIsCheatsEnabled then exit;
 344
 345   s := 'SOUND_GAME_RADIO';
 346
 347   //
 348   if CheckCheat(I_GAME_CHEAT_GODMODE) then
 349   begin
 350     if gPlayer1 <> nil then gPlayer1.GodMode := not gPlayer1.GodMode;
 351     if gPlayer2 <> nil then gPlayer2.GodMode := not gPlayer2.GodMode;
 352     goto Cheated;
 353   end;
 354   // RAMBO
 355   if CheckCheat(I_GAME_CHEAT_WEAPONS) then
 356   begin
 357     if gPlayer1 <> nil then gPlayer1.AllRulez(False);
 358     if gPlayer2 <> nil then gPlayer2.AllRulez(False);
 359     goto Cheated;
 360   end;
 361   // TANK
 362   if CheckCheat(I_GAME_CHEAT_HEALTH) then
 363   begin
 364     if gPlayer1 <> nil then gPlayer1.AllRulez(True);
 365     if gPlayer2 <> nil then gPlayer2.AllRulez(True);
 366     goto Cheated;
 367   end;
 368   // IDDQD
 369   if CheckCheat(I_GAME_CHEAT_DEATH) then
 370   begin
 371     if gPlayer1 <> nil then gPlayer1.Damage(CHEAT_DAMAGE, 0, 0, 0, HIT_TRAP);
 372     if gPlayer2 <> nil then gPlayer2.Damage(CHEAT_DAMAGE, 0, 0, 0, HIT_TRAP);
 373     s := 'SOUND_MONSTER_HAHA';
 374     goto Cheated;
 375   end;
 376   //
 377   if CheckCheat(I_GAME_CHEAT_DOORS) then
 378   begin
 379     g_Triggers_OpenAll();
 380     goto Cheated;
 381   end;
 382   // GOODBYE
 383   if CheckCheat(I_GAME_CHEAT_NEXTMAP) then
 384   begin
 385     if gTriggers <> nil then
 386       for a := 0 to High(gTriggers) do
 387         if gTriggers[a].TriggerType = TRIGGER_EXIT then
 388         begin
 389           gExitByTrigger := True;
 390           //g_Game_ExitLevel(gTriggers[a].Data.MapName);
 391           g_Game_ExitLevel(gTriggers[a].tgcMap);
 392           Break;
 393         end;
 394     goto Cheated;
 395   end;
 396   //
 397   s2 := Copy(charbuff, 15, 2);
 398   if CheckCheat(I_GAME_CHEAT_CHANGEMAP, 2) and (s2[1] >= '0') and (s2[1] <= '9') and (s2[2] >= '0') and (s2[2] <= '9') then
 399   begin
 400     if g_Map_Exist(MapsDir+gGameSettings.WAD+':\MAP'+s2) then
 401     begin
 402       c := 'MAP'+s2;
 403       g_Game_ExitLevel(c);
 404     end;
 405     goto Cheated;
 406   end;
 407   //
 408   if CheckCheat(I_GAME_CHEAT_FLY) then
 409   begin
 410     gFly := not gFly;
 411     goto Cheated;
 412   end;
 413   // BULLFROG
 414   if CheckCheat(I_GAME_CHEAT_JUMPS) then
 415   begin
 416     VEL_JUMP := 30-VEL_JUMP;
 417     goto Cheated;
 418   end;
 419   // FORMULA1
 420   if CheckCheat(I_GAME_CHEAT_SPEED) then
 421   begin
 422     MAX_RUNVEL := 32-MAX_RUNVEL;
 423     goto Cheated;
 424   end;
 425   // CONDOM
 426   if CheckCheat(I_GAME_CHEAT_SUIT) then
 427   begin
 428     if gPlayer1 <> nil then gPlayer1.GiveItem(ITEM_SUIT);
 429     if gPlayer2 <> nil then gPlayer2.GiveItem(ITEM_SUIT);
 430     goto Cheated;
 431   end;
 432   //
 433   if CheckCheat(I_GAME_CHEAT_AIR) then
 434   begin
 435     if gPlayer1 <> nil then gPlayer1.GiveItem(ITEM_OXYGEN);
 436     if gPlayer2 <> nil then gPlayer2.GiveItem(ITEM_OXYGEN);
 437     goto Cheated;
 438   end;
 439   // PURELOVE
 440   if CheckCheat(I_GAME_CHEAT_BERSERK) then
 441   begin
 442     if gPlayer1 <> nil then gPlayer1.GiveItem(ITEM_MEDKIT_BLACK);
 443     if gPlayer2 <> nil then gPlayer2.GiveItem(ITEM_MEDKIT_BLACK);
 444     goto Cheated;
 445   end;
 446   //
 447   if CheckCheat(I_GAME_CHEAT_JETPACK) then
 448   begin
 449     if gPlayer1 <> nil then gPlayer1.GiveItem(ITEM_JETPACK);
 450     if gPlayer2 <> nil then gPlayer2.GiveItem(ITEM_JETPACK);
 451     goto Cheated;
 452   end;
 453   // CASPER
 454   if CheckCheat(I_GAME_CHEAT_NOCLIP) then
 455   begin
 456     if gPlayer1 <> nil then gPlayer1.SwitchNoClip;
 457     if gPlayer2 <> nil then gPlayer2.SwitchNoClip;
 458     goto Cheated;
 459   end;
 460   //
 461   if CheckCheat(I_GAME_CHEAT_NOTARGET) then
 462   begin
 463     if gPlayer1 <> nil then gPlayer1.NoTarget := not gPlayer1.NoTarget;
 464     if gPlayer2 <> nil then gPlayer2.NoTarget := not gPlayer2.NoTarget;
 465     goto Cheated;
 466   end;
 467   // INFERNO
 468   if CheckCheat(I_GAME_CHEAT_NORELOAD) then
 469   begin
 470     if gPlayer1 <> nil then gPlayer1.NoReload := not gPlayer1.NoReload;
 471     if gPlayer2 <> nil then gPlayer2.NoReload := not gPlayer2.NoReload;
 472     goto Cheated;
 473   end;
 474   if CheckCheat(I_GAME_CHEAT_AIMLINE) then
 475   begin
 476     gAimLine := not gAimLine;
 477     goto Cheated;
 478   end;
 479   if CheckCheat(I_GAME_CHEAT_AUTOMAP) then
 480   begin
 481     gShowMap := not gShowMap;
 482     goto Cheated;
 483   end;
 484   Exit;
 485
 486 Cheated:
 487   g_Sound_PlayEx(s);
 488 end;
 489
 490
 491 procedure KeyPress (K: Word);
 492 var
 493   Msg: g_gui.TMessage;
 494 begin
 495   case K of
 496     IK_PAUSE: // <Pause/Break>:
 497       begin
 498         if (g_ActiveWindow = nil) then g_Game_Pause(not gPause);
 499       end;
 500
 501     IK_BACKQUOTE, VK_CONSOLE: // <`/~/¨/¸>:
 502       begin
 503         g_Console_Switch();
 504       end;
 505
 506     IK_ESCAPE, VK_ESCAPE: // <Esc>:
 507       begin
 508         if gChatShow then
 509         begin
 510           g_Console_Chat_Switch();
 511           Exit;
 512         end;
 513
 514         if gConsoleShow then
 515         begin
 516           g_Console_Switch();
 517         end
 518         else if (g_ActiveWindow <> nil) then
 519         begin
 520           Msg.Msg := WM_KEYDOWN;
 521           Msg.WParam := IK_ESCAPE;
 522           g_ActiveWindow.OnMessage(Msg);
 523           if (not g_Game_IsNet) and (g_ActiveWindow = nil) then g_Game_Pause(false); //Fn loves to do this
 524         end
 525         else if (gState <> STATE_FOLD) then
 526         begin
 527           if gGameOn or (gState = STATE_INTERSINGLE) or (gState = STATE_INTERCUSTOM) then
 528           begin
 529             g_Game_InGameMenu(True);
 530           end
 531           else if (gExit = 0) and (gState <> STATE_SLIST) then
 532           begin
 533             if (gState <> STATE_MENU) then
 534             begin
 535               if (NetMode <> NET_NONE) then
 536               begin
 537                 g_Game_StopAllSounds(True);
 538                 g_Game_Free;
 539                 gState := STATE_MENU;
 540                 Exit;
 541               end;
 542             end;
 543             g_GUI_ShowWindow('MainMenu');
 544             g_Sound_PlayEx('MENU_OPEN');
 545           end;
 546         end;
 547       end;
 548
 549     IK_F2, IK_F3, IK_F4, IK_F5, IK_F6, IK_F7, IK_F10:
 550       begin // <F2> .. <F6> � <F12>
 551         if gGameOn and (not gConsoleShow) and (not gChatShow) then
 552         begin
 553           while (g_ActiveWindow <> nil) do g_GUI_HideWindow(False);
 554           if (not g_Game_IsNet) then g_Game_Pause(True);
 555           case K of
 556             IK_F2: g_Menu_Show_SaveMenu();
 557             IK_F3: g_Menu_Show_LoadMenu();
 558             IK_F4: g_Menu_Show_GameSetGame();
 559             IK_F5: g_Menu_Show_OptionsVideo();
 560             IK_F6: g_Menu_Show_OptionsSound();
 561             IK_F7: g_Menu_Show_EndGameMenu();
 562             IK_F10: g_Menu_Show_QuitGameMenu();
 563           end;
 564         end;
 565       end;
 566
 567     else
 568       begin
 569         gJustChatted := False;
 570         if gConsoleShow or gChatShow then
 571         begin
 572           g_Console_Control(K);
 573         end
 574         else if (g_ActiveWindow <> nil) then
 575         begin
 576           Msg.Msg := WM_KEYDOWN;
 577           Msg.WParam := K;
 578           g_ActiveWindow.OnMessage(Msg);
 579         end
 580         else if (gState = STATE_MENU) then
 581         begin
 582           g_GUI_ShowWindow('MainMenu');
 583           g_Sound_PlayEx('MENU_OPEN');
 584         end;
 585       end;
 586   end;
 587 end;
 588
 589
 590 procedure CharPress (C: AnsiChar);
 591 var
 592   Msg: g_gui.TMessage;
 593   a: Integer;
 594 begin
 595   if (not gChatShow) and ((C = '`') or (C = '~') or (C = '¸') or (C = '¨')) then Exit;
 596
 597   if gConsoleShow or gChatShow then
 598   begin
 599     g_Console_Char(C);
 600   end
 601   else if (g_ActiveWindow <> nil) then
 602   begin
 603     Msg.Msg := WM_CHAR;
 604     Msg.WParam := Ord(C);
 605     g_ActiveWindow.OnMessage(Msg);
 606   end
 607   else
 608   begin
 609     for a := 0 to 14 do charbuff[a] := charbuff[a+1];
 610     charbuff[15] := upcase1251(C);
 611     Cheat();
 612   end;
 613 end;
 614
 615
 616 end.