X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_menu.pas;h=16c2d0123a59fa48fcf595691908552b4a368d10;hb=760b4d425d7ba109316dd7b5a7cef164d252152b;hp=45413defc9f4baf4bc80a57487cb2dd838c4dbfd;hpb=88ce644db1b40111bdb380f4357fa59bdb5173be;p=d2df-sdl.git diff --git a/src/game/g_menu.pas b/src/game/g_menu.pas index 45413de..16c2d01 100644 --- a/src/game/g_menu.pas +++ b/src/game/g_menu.pas @@ -1,3 +1,19 @@ +(* Copyright (C) DooM 2D:Forever Developers + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + *) +{$MODE DELPHI} unit g_menu; interface @@ -29,10 +45,59 @@ uses g_gui, g_textures, e_graphics, g_main, g_window, g_game, g_map, g_basic, g_console, g_sound, g_gfx, g_player, g_options, e_log, SysUtils, CONFIG, g_playermodel, DateUtils, - MAPSTRUCT, WADEDITOR, Math, WADSTRUCT, g_saveload, + MAPSTRUCT, wadreader, Math, g_saveload, e_textures, GL, GLExt, g_language, g_net, g_netmsg, g_netmaster, g_items, e_input; + +type TYNCallback = procedure (yes:Boolean); + +procedure YNKeyDownProc (win: TGUIWindow; Key: Byte); +begin + if win.UserData = nil then exit; + case Key of + IK_Y, IK_SPACE: TYNCallback(win.UserData)(true); + IK_N: TYNCallback(win.UserData)(false); + end; +end; + +procedure YesButtonCB (ctl: TGUITextButton); +begin + if ctl.UserData = nil then exit; + TYNCallback(ctl.UserData)(true); +end; + +procedure NoButtonCB (ctl: TGUITextButton); +begin + if ctl.UserData = nil then exit; + TYNCallback(ctl.UserData)(false); +end; + +function CreateYNMenu (WinName, Text: String; MaxLen: Word; FontID: DWORD; ActionProc: TYNCallback): TGUIWindow; +var + menu: TGUIMenu; +begin + //if length(Text) = 0 then exit; + Result := TGUIWindow.Create(WinName); + with Result do + begin + //OnKeyDownEx := @YNKeyDownProc; + //UserData := @ActionProc; + menu := TGUIMenu(Result.AddChild(TGUIMenu.Create(gMenuSmallFont, gMenuSmallFont, ''))); + with menu do + begin + Name := '__temp_yes_no_menu:'+WinName; + YesNo := true; + AddText(Text, MaxLen); + with AddButton(nil, _lc[I_MENU_YES]) do begin ProcEx := @YesButtonCB; UserData := @ActionProc; end; + with AddButton(nil, _lc[I_MENU_NO]) do begin ProcEx := @NoButtonCB; UserData := @ActionProc; end; + end; + DefControl := '__temp_yes_no_menu:'+WinName; + SetActive(nil); + end; +end; + + procedure ProcChangeColor(Sender: TGUIControl); forward; procedure ProcSelectModel(Sender: TGUIControl); forward; @@ -49,6 +114,7 @@ begin gBPP := 32; gVSync := TGUISwitch(menu.GetControl('swVSync')).ItemIndex = 0; gTextureFilter := TGUISwitch(menu.GetControl('swTextureFilter')).ItemIndex = 0; + glLegacyNPOT := not (TGUISwitch(menu.GetControl('swLegacyNPOT')).ItemIndex = 0); menu := TGUIMenu(g_GUI_GetWindow('OptionsSoundMenu').GetControl('mOptionsSoundMenu')); @@ -126,7 +192,7 @@ begin KeyPrevWeapon := TGUIKeyRead(GetControl(_lc[I_MENU_CONTROL_PREV_WEAPON])).Key; KeyOpen := TGUIKeyRead(GetControl(_lc[I_MENU_CONTROL_USE])).Key; end; - + if e_JoysticksAvailable > 0 then begin menu := TGUIMenu(g_GUI_GetWindow('OptionsControlsJoystickMenu').GetControl('mOptionsControlsJoystickMenu')); @@ -214,6 +280,9 @@ begin with TGUISwitch(menu.GetControl('swVSync')) do if gVSync then ItemIndex := 0 else ItemIndex := 1; + with TGUISwitch(menu.GetControl('swLegacyNPOT')) do + if not glLegacyNPOT then ItemIndex := 0 else ItemIndex := 1; + menu := TGUIMenu(g_GUI_GetWindow('OptionsSoundMenu').GetControl('mOptionsSoundMenu')); TGUIScroll(menu.GetControl('scSoundLevel')).Value := Round(gSoundLevel/16); @@ -263,7 +332,7 @@ begin TGUIKeyRead(GetControl(_lc[I_MENU_CONTROL_PREV_WEAPON])).Key := KeyPrevWeapon; TGUIKeyRead(GetControl(_lc[I_MENU_CONTROL_USE])).Key := KeyOpen; end; - + if e_JoysticksAvailable > 0 then begin menu := TGUIMenu(g_GUI_GetWindow('OptionsControlsJoystickMenu').GetControl('mOptionsControlsJoystickMenu')); @@ -640,7 +709,7 @@ begin end; end; end; - + ProcSelectMap(nil); end; @@ -672,7 +741,7 @@ begin if a.pic <> '' then begin - g_ProcessResourceStr(a.pic, @fn, nil, nil); + fn := g_ExtractWadName(a.pic); if fn = '' then TGUIImage(win.GetControl('mpWADImage')).SetImage(wad+a.pic) else @@ -721,16 +790,16 @@ var cwdt, chgt: Byte; spc: ShortInt; ID: DWORD; - wad: TWADEditor_1; + wad: TWADFile; cfgdata: Pointer; cfglen: Integer; config: TConfig; begin cfglen := 0; - wad := TWADEditor_1.Create; + wad := TWADFile.Create; if wad.ReadFile(GameWAD) then - wad.GetResource('FONTS', cfgres, cfgdata, cfglen); + wad.GetResource('FONTS/'+cfgres, cfgdata, cfglen); wad.Free(); if cfglen <> 0 then @@ -756,7 +825,7 @@ var cwdt, chgt: Byte; spc: ShortInt; CharID: DWORD; - wad: TWADEditor_1; + wad: TWADFile; cfgdata, fntdata: Pointer; cfglen, fntlen: Integer; config: TConfig; @@ -766,11 +835,11 @@ begin cfglen := 0; fntlen := 0; - wad := TWADEditor_1.Create; + wad := TWADFile.Create; if wad.ReadFile(GameWAD) then begin - wad.GetResource('FONTS', txtres, cfgdata, cfglen); - wad.GetResource('FONTS', fntres, fntdata, fntlen); + wad.GetResource('FONTS/'+txtres, cfgdata, cfglen); + wad.GetResource('FONTS/'+fntres, fntdata, fntlen); end; wad.Free(); @@ -788,7 +857,7 @@ begin chrwidth := config.ReadInt(IntToStr(a), 'Width', 0); if chrwidth = 0 then Continue; - if e_CreateTextureMemEx(fntdata, CharID, cwdt*(a mod 16), chgt*(a div 16), + if e_CreateTextureMemEx(fntdata, fntlen, CharID, cwdt*(a mod 16), chgt*(a div 16), cwdt, chgt) then e_CharFont_AddChar(FontID, CharID, Chr(a), chrwidth); end; @@ -883,13 +952,13 @@ begin gMusic.Play(); end; -procedure ProcExitMenuKeyDown(Key: Byte); +procedure ProcExitMenuKeyDown (yes: Boolean); var s: ShortString; snd: TPlayableSound; res: Boolean; begin - if Key = Ord('y') then + if yes then begin g_Game_StopAllSounds(True); case (Random(18)) of @@ -911,24 +980,18 @@ begin 15: s := 'SOUND_MONSTER_SPIDER_ALERT'; else s := 'SOUND_PLAYER_FALL'; end; - snd := TPlayableSound.Create(); res := snd.SetByName(s); - if not res then - res := snd.SetByName('SOUND_PLAYER_FALL'); - + if not res then res := snd.SetByName('SOUND_PLAYER_FALL'); if res then begin snd.Play(True); - while snd.IsPlaying() do - ; + while snd.IsPlaying() do begin end; end; - g_Game_Quit(); - end - else - if Key = Ord('n') then - g_GUI_HideWindow(); + exit; + end; + g_GUI_HideWindow(); end; procedure ProcLoadMenu(); @@ -1128,25 +1191,20 @@ begin if Direction = D_LEFT then Direction := D_RIGHT else Direction := D_LEFT; end; -procedure ProcDefaultMenuKeyDown(Key: Byte); +procedure ProcDefaultMenuKeyDown (yes: Boolean); begin - if Key = Ord('y') then + if yes then begin g_Options_SetDefault(); ReadOptions(); - g_GUI_HideWindow(); - end else - if Key = Ord('n') then g_GUI_HideWindow; + end; + g_GUI_HideWindow(); end; -procedure ProcSavedMenuKeyDown(Key: Byte); +procedure ProcSavedMenuKeyDown (yes: Boolean); begin - if Key = Ord('y') then - begin - ReadOptions(); - g_GUI_HideWindow(); - end else - if Key = Ord('n') then g_GUI_HideWindow; + if yes then ReadOptions(); + g_GUI_HideWindow(); end; procedure ProcAuthorsClose(); @@ -1309,16 +1367,14 @@ begin g_Game_Pause(False); end; -procedure ProcRestartMenuKeyDown(Key: Byte); +procedure ProcRestartMenuKeyDown (yes: Boolean); begin - if Key = Ord('y') then g_Game_Restart() - else if Key = Ord('n') then g_GUI_HideWindow; + if yes then g_Game_Restart() else g_GUI_HideWindow; end; -procedure ProcEndMenuKeyDown(Key: Byte); +procedure ProcEndMenuKeyDown (yes: Boolean); begin - if Key = Ord('y') then gExit := EXIT_SIMPLE - else if Key = Ord('n') then g_GUI_HideWindow; + if yes then gExit := EXIT_SIMPLE else g_GUI_HideWindow; end; procedure ProcSetRussianLanguage(); @@ -1581,48 +1637,6 @@ begin ProcApplyOptions(); end; -function CreateYNMenu(Name, Text: String; MaxLen: Word; FontID: DWORD; - KeyDownProc: Pointer): TGUIWindow; -var - a: Integer; - h, _x: Word; - lines: SArray; -begin - Result := TGUIWindow.Create(Name); - - with Result do - begin - OnKeyDown := KeyDownProc; - - lines := GetLines(Text, FontID, MaxLen); - - h := e_CharFont_GetMaxHeight(FontID); - _x := (gScreenHeight div 2)-(h*Length(lines) div 2); - - if lines <> nil then - begin - for a := 0 to High(lines) do - with TGUILabel(Result.AddChild(TGUILabel.Create(lines[a], FontID))) do - begin - X := (gScreenWidth div 2)-(GetWidth div 2); - Y := _x; - Color := _RGB(255, 0, 0); - _x := _x+h; - end; - - with TGUILabel(Result.AddChild(TGUILabel.Create('(Y\N)', FontID))) do - begin - X := (gScreenWidth div 2)-(GetWidth div 2); - Y := _x; - Color := _RGB(255, 0, 0); - end; - end; - - DefControl := ''; - SetActive(nil); - end; -end; - procedure ProcSetFirstRussianLanguage(); begin gLanguage := LANGUAGE_RUSSIAN; @@ -1729,7 +1743,7 @@ begin AddButton(@ProcOptionsPlayersAnim, _lc[I_MENU_MODEL_ANIMATION]); AddButton(@ProcOptionsPlayersWeap, _lc[I_MENU_MODEL_CHANGE_WEAPON]); AddButton(@ProcOptionsPlayersRot, _lc[I_MENU_MODEL_ROTATE]); - + with TGUIModelView(Menu.AddChild(TGUIModelView.Create)) do begin Name := 'mv'+s+'Model'; @@ -2176,7 +2190,7 @@ begin Sort := True; Dirs := True; - FileMask := '*.wad'; + FileMask := '*.wad|*.pk3|*.zip'; SetBase(MapsDir+'megawads/'); end; @@ -2231,7 +2245,7 @@ begin Sort := True; Dirs := True; - FileMask := '*.wad'; + FileMask := '*.wad|*.pk3|*.zip'; SetBase(MapsDir); end; with AddList(_lc[I_MENU_MAP_RESOURCE], 12, 4) do @@ -2333,6 +2347,12 @@ begin AddItem(_lc[I_MENU_YES]); AddItem(_lc[I_MENU_NO]); end; + with AddSwitch(_lc[I_MENU_VIDEO_LEGACY_COMPATIBLE]) do + begin + Name := 'swLegacyNPOT'; + AddItem(_lc[I_MENU_NO]); + AddItem(_lc[I_MENU_YES]); + end; AddSpace(); AddText(_lc[I_MENU_VIDEO_NEED_RESTART], Round(gScreenWidth*0.6)); ReAlign(); @@ -2566,7 +2586,7 @@ begin end; Menu.DefControl := 'mOptionsControlsP2Menu'; g_GUI_AddWindow(Menu); - + Menu := TGUIWindow.Create('OptionsControlsJoystickMenu'); with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_CONTROL_JOYSTICKS]))) do begin @@ -2683,6 +2703,13 @@ begin _y := _y+22; end; with TGUILabel(Menu.AddChild(TGUILabel.Create(_lc[I_CREDITS_A_2_1], gMenuSmallFont))) do + begin + Color := _RGB(255, 255, 255); + X := cx+32; + Y := _y; + _y := _y+22; + end; + with TGUILabel(Menu.AddChild(TGUILabel.Create(_lc[I_CREDITS_A_2_2], gMenuSmallFont))) do begin Color := _RGB(255, 255, 255); X := cx+32;