author | Wuzzy <Wuzzy2@mail.ru> |
Wed, 14 Mar 2018 17:50:21 +0100 | |
changeset 13207 | 2fe85d497e0f |
parent 13082 | c213645ff848 |
child 13492 | d23731fe84d4 |
permissions | -rw-r--r-- |
2947 | 1 |
(* |
6952 | 2 |
* Hedgewars, a free turn based strategy game |
11046 | 3 |
* Copyright (c) 2004-2015 Andrey Korotaev <unC0Rr@gmail.com> |
6952 | 4 |
* |
5 |
* This program is free software; you can redistribute it and/or modify |
|
6 |
* it under the terms of the GNU General Public License as published by |
|
7 |
* the Free Software Foundation; version 2 of the License |
|
8 |
* |
|
9 |
* This program is distributed in the hope that it will be useful, |
|
10 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
11 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
12 |
* GNU General Public License for more details. |
|
13 |
* |
|
14 |
* You should have received a copy of the GNU General Public License |
|
15 |
* along with this program; if not, write to the Free Software |
|
10108
c68cf030eded
update FSF address. note: two sdl include files (by Sam Lantinga) still have the old FSF address in their copyright - but I ain't gonna touch their copyright headers
sheepluva
parents:
10015
diff
changeset
|
16 |
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA |
6952 | 17 |
*) |
51 | 18 |
|
2599 | 19 |
{$INCLUDE "options.inc"} |
2587
0dfa56a8513c
fix a segfault in the iphone simulator by moving options.inc at the beginning of the file
koda
parents:
2586
diff
changeset
|
20 |
|
2800 | 21 |
{$IFDEF WIN32} |
8340
46a9fde631f4
install shaders only when needed, find clang only when needed, fix building on windows, better cmake boolean vars
koda
parents:
8330
diff
changeset
|
22 |
{$R res/hwengine.rc} |
2800 | 23 |
{$ENDIF} |
24 |
||
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2800
diff
changeset
|
25 |
{$IFDEF HWLIBRARY} |
2698 | 26 |
unit hwengine; |
27 |
interface |
|
28 |
{$ELSE} |
|
51 | 29 |
program hwengine; |
2698 | 30 |
{$ENDIF} |
3407 | 31 |
|
11150 | 32 |
uses {$IFDEF IPHONEOS}cmem, {$ENDIF} SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uInputHandler |
7959 | 33 |
, uSound, uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uAILandMarks, uLandTexture, uCollisions |
34 |
, SysUtils, uTypes, uVariables, uCommands, uUtils, uCaptions, uDebug, uCommandHandlers, uLandPainted |
|
10304
7e40820b7ed6
fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents:
10302
diff
changeset
|
35 |
, uPhysFSLayer, uCursor, uRandom, ArgParsers, uVisualGearsHandlers, uTextures, uRender |
7447
01111960a48d
uploading to youtube, it works, but user interface is still incomplete
Stepan777 <stepik-777@mail.ru>
parents:
7442
diff
changeset
|
36 |
{$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF} |
7837 | 37 |
{$IFDEF USE_TOUCH_INTERFACE}, uTouch {$ENDIF} |
38 |
{$IFDEF ANDROID}, GLUnit{$ENDIF} |
|
12662
2065819170ce
(Hopefully) fix game camera being shifted on Windows 10
alfadur
parents:
12626
diff
changeset
|
39 |
{$IFDEF WIN32}, dynlibs{$ENDIF} |
7837 | 40 |
; |
3697 | 41 |
|
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2800
diff
changeset
|
42 |
{$IFDEF HWLIBRARY} |
11690
a2e86a867fb5
pas2c converts exit to return, so change RunEngine signature
frd
parents:
11649
diff
changeset
|
43 |
function RunEngine(argc: LongInt; argv: PPChar): LongInt; cdecl; export; |
10175
c92668840ea8
Remove game/preview functions split in library mode, just let normal procedure run instead:
unc0rr
parents:
10162
diff
changeset
|
44 |
|
7896
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
45 |
procedure preInitEverything(); |
3525 | 46 |
procedure initEverything(complete:boolean); |
47 |
procedure freeEverything(complete:boolean); |
|
51 | 48 |
|
2698 | 49 |
implementation |
50 |
{$ELSE} |
|
7896
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
51 |
procedure preInitEverything(); forward; |
3611 | 52 |
procedure initEverything(complete:boolean); forward; |
3525 | 53 |
procedure freeEverything(complete:boolean); forward; |
2698 | 54 |
{$ENDIF} |
51 | 55 |
|
12662
2065819170ce
(Hopefully) fix game camera being shifted on Windows 10
alfadur
parents:
12626
diff
changeset
|
56 |
{$IFDEF WIN32} |
2065819170ce
(Hopefully) fix game camera being shifted on Windows 10
alfadur
parents:
12626
diff
changeset
|
57 |
type TSetProcessDpiAwareness = function(value: Integer): Integer; stdcall; |
2065819170ce
(Hopefully) fix game camera being shifted on Windows 10
alfadur
parents:
12626
diff
changeset
|
58 |
var SetProcessDpiAwareness: TSetProcessDpiAwareness; |
2065819170ce
(Hopefully) fix game camera being shifted on Windows 10
alfadur
parents:
12626
diff
changeset
|
59 |
var ShcoreLibHandle: TLibHandle; |
2065819170ce
(Hopefully) fix game camera being shifted on Windows 10
alfadur
parents:
12626
diff
changeset
|
60 |
{$ENDIF} |
2065819170ce
(Hopefully) fix game camera being shifted on Windows 10
alfadur
parents:
12626
diff
changeset
|
61 |
|
7896
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
62 |
/////////////////////////////////////////////////////////////////////////////// |
7025 | 63 |
function DoTimer(Lag: LongInt): boolean; |
2905 | 64 |
var s: shortstring; |
10580
17560eb73b4c
Reset max team health after script may have screwed with it on start. Maybe a script max health reset function could be useful too. Set climbhome hogs to invulnerable while not their turn if needed to avoid accidental mine/dead hog damage. Tweak cake fire boom a bit.
nemo
parents:
10445
diff
changeset
|
65 |
t: LongWord; |
51 | 66 |
begin |
7025 | 67 |
DoTimer:= false; |
6734
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6700
diff
changeset
|
68 |
inc(RealTicks, Lag); |
564 | 69 |
|
2947 | 70 |
case GameState of |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
71 |
gsLandGen: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
72 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
73 |
GenMap; |
7850 | 74 |
SetLandTexture; |
75 |
UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT, false); |
|
76 |
setAILandMarks; |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
77 |
GameState:= gsStart; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
78 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
79 |
gsStart: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
80 |
begin |
9464
901e363d5837
Finish rework of default binds system. Default binds now work even before first turn.
unc0rr
parents:
9379
diff
changeset
|
81 |
SetDefaultBinds; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
82 |
if HasBorder then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
83 |
DisableSomeWeapons; |
10445
dac3bfb3a2b1
cosmetic disabling of clouds with sea edges and underwater theme
nemo
parents:
10306
diff
changeset
|
84 |
// wave "clouds" on underwater theme look weird w/ weSea, esp the blended bottom portion |
dac3bfb3a2b1
cosmetic disabling of clouds with sea edges and underwater theme
nemo
parents:
10306
diff
changeset
|
85 |
if (WorldEdge <> weSea) or (Theme <> 'Underwater') then |
dac3bfb3a2b1
cosmetic disabling of clouds with sea edges and underwater theme
nemo
parents:
10306
diff
changeset
|
86 |
AddClouds; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
87 |
AddFlakes; |
8912 | 88 |
SetRandomSeed(cSeed, false); |
11482
e425a6eb9da3
Force locations for hogs if even TryHard fails on initial spawn.
nemo
parents:
11356
diff
changeset
|
89 |
StoreLoad(false); |
12716
20dbb3a03e61
extend land digest to all surfaces that could possibly be loaded into Land[] - i.e. ones that impact sync
nemo
parents:
12662
diff
changeset
|
90 |
ParseCommand('sendlanddigest', true); // extending land digest to all synced pixels (anything that could modify land) |
11539 | 91 |
if not allOK then exit; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
92 |
AssignHHCoords; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
93 |
AddMiscGears; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
94 |
InitWorld; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
95 |
ResetKbd; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
96 |
if GameType = gmtSave then |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6986
diff
changeset
|
97 |
SetSound(false); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
98 |
FinishProgress; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
99 |
PlayMusic; |
10302
ea0b0e2efd95
huh? me? nono, don't mind me. I'm just here to clean up.
sheepluva
parents:
10273
diff
changeset
|
100 |
InitZoom(zoom); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
101 |
ScriptCall('onGameStart'); |
10580
17560eb73b4c
Reset max team health after script may have screwed with it on start. Maybe a script max health reset function could be useful too. Set climbhome hogs to invulnerable while not their turn if needed to avoid accidental mine/dead hog damage. Tweak cake fire boom a bit.
nemo
parents:
10445
diff
changeset
|
102 |
for t:= 0 to Pred(TeamsCount) do |
17560eb73b4c
Reset max team health after script may have screwed with it on start. Maybe a script max health reset function could be useful too. Set climbhome hogs to invulnerable while not their turn if needed to avoid accidental mine/dead hog damage. Tweak cake fire boom a bit.
nemo
parents:
10445
diff
changeset
|
103 |
with TeamsArray[t]^ do |
17560eb73b4c
Reset max team health after script may have screwed with it on start. Maybe a script max health reset function could be useful too. Set climbhome hogs to invulnerable while not their turn if needed to avoid accidental mine/dead hog damage. Tweak cake fire boom a bit.
nemo
parents:
10445
diff
changeset
|
104 |
MaxTeamHealth:= TeamHealth; |
10581 | 105 |
RecountAllTeamsHealth; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
106 |
GameState:= gsGame; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
107 |
end; |
13082 | 108 |
gsConfirm, gsGame: |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
109 |
begin |
11502
66f1cff4284b
stop screenshot-flash-effects from showing up on consecutive screenshots
sheepluva
parents:
11491
diff
changeset
|
110 |
// disable screenshot flash effect when about to make another screenshot |
66f1cff4284b
stop screenshot-flash-effects from showing up on consecutive screenshots
sheepluva
parents:
11491
diff
changeset
|
111 |
if flagMakeCapture and (ScreenFade = sfFromWhite) then |
66f1cff4284b
stop screenshot-flash-effects from showing up on consecutive screenshots
sheepluva
parents:
11491
diff
changeset
|
112 |
ScreenFade:= sfNone; |
8096 | 113 |
if not cOnlyStats then |
114 |
// never place between ProcessKbd and DoGameTick - bugs due to /put cmd and isCursorVisible |
|
115 |
DrawWorld(Lag); |
|
6734
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6700
diff
changeset
|
116 |
DoGameTick(Lag); |
8027
e5ba3dd12531
make stats-only mode work headless. also skip a few things to save time/memory.
nemo
parents:
7984
diff
changeset
|
117 |
if not cOnlyStats then ProcessVisualGears(Lag); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
118 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
119 |
gsExit: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
120 |
begin |
7025 | 121 |
DoTimer:= true; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
122 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
123 |
gsSuspend: |
7054 | 124 |
exit(false); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
125 |
end; |
564 | 126 |
|
8039
a3b86c1f63b4
another tweak tomake --stats-only work on headless servers
Xeli
parents:
8027
diff
changeset
|
127 |
if not cOnlyStats then SwapBuffers; |
4454 | 128 |
|
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7180
diff
changeset
|
129 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 130 |
if flagPrerecording then |
131 |
SaveCameraPosition; |
|
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7180
diff
changeset
|
132 |
{$ENDIF} |
7180 | 133 |
|
2947 | 134 |
if flagMakeCapture then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
135 |
begin |
2947 | 136 |
flagMakeCapture:= false; |
10633
2f062fac5791
Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents:
10622
diff
changeset
|
137 |
if flagDumpLand then |
2f062fac5791
Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents:
10622
diff
changeset
|
138 |
s:= '/Screenshots/mapdump_' |
2f062fac5791
Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents:
10622
diff
changeset
|
139 |
else s:= '/Screenshots/hw_'; |
7151 | 140 |
{$IFDEF PAS2C} |
10633
2f062fac5791
Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents:
10622
diff
changeset
|
141 |
s:= s + inttostr(GameTicks); |
7151 | 142 |
{$ELSE} |
10633
2f062fac5791
Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents:
10622
diff
changeset
|
143 |
s:= s + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks); |
7151 | 144 |
{$ENDIF} |
5912
d31eba29e706
screenshots: display a msg on failure and log causative error
sheepluva
parents:
5825
diff
changeset
|
145 |
|
7306
3cff5c769509
Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents:
7286
diff
changeset
|
146 |
// flash |
4359 | 147 |
playSound(sndShutter); |
7306
3cff5c769509
Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents:
7286
diff
changeset
|
148 |
ScreenFade:= sfFromWhite; |
3cff5c769509
Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents:
7286
diff
changeset
|
149 |
ScreenFadeValue:= sfMax; |
3cff5c769509
Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents:
7286
diff
changeset
|
150 |
ScreenFadeSpeed:= 5; |
11537 | 151 |
|
11025
999afa63035f
just disable landpixels w/ blurry land instead. the mask can be helpful for debugging at least.
nemo
parents:
10836
diff
changeset
|
152 |
if (not flagDumpLand and MakeScreenshot(s, 1, 0)) or |
999afa63035f
just disable landpixels w/ blurry land instead. the mask can be helpful for debugging at least.
nemo
parents:
10836
diff
changeset
|
153 |
(flagDumpLand and MakeScreenshot(s, 1, 1) and ((cReducedQuality and rqBlurryLand <> 0) or MakeScreenshot(s, 1, 2))) then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
154 |
WriteLnToConsole('Screenshot saved: ' + s) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
155 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
156 |
begin |
5912
d31eba29e706
screenshots: display a msg on failure and log causative error
sheepluva
parents:
5825
diff
changeset
|
157 |
WriteLnToConsole('Screenshot failed.'); |
d31eba29e706
screenshots: display a msg on failure and log causative error
sheepluva
parents:
5825
diff
changeset
|
158 |
AddChatString(#5 + 'screen capture failed (lack of memory or write permissions)'); |
6267
be5d40bb1e86
make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents:
6219
diff
changeset
|
159 |
end |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
160 |
end; |
51 | 161 |
end; |
162 |
||
7896
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
163 |
/////////////////////////////////////////////////////////////////////////////// |
3697 | 164 |
procedure MainLoop; |
6267
be5d40bb1e86
make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents:
6219
diff
changeset
|
165 |
var event: TSDL_Event; |
10015 | 166 |
PrevTime, CurrTime: LongWord; |
7025 | 167 |
isTerminated: boolean; |
5975 | 168 |
previousGameState: TGameState; |
11491 | 169 |
wheelEvent: boolean; |
2698 | 170 |
begin |
12823
d3113a4cba36
initialise previousGameState to something valid and not gsSuspend
nemo
parents:
12806
diff
changeset
|
171 |
previousGameState:= gsStart; |
7025 | 172 |
isTerminated:= false; |
2947 | 173 |
PrevTime:= SDL_GetTicks; |
11537 | 174 |
while (not isTerminated) and allOK do |
3063 | 175 |
begin |
11491 | 176 |
wheelEvent:= false; |
5724 | 177 |
SDL_PumpEvents(); |
8924 | 178 |
|
11338 | 179 |
while SDL_PeepEvents(@event, 1, SDL_GETEVENT, SDL_FIRSTEVENT, SDL_LASTEVENT) > 0 do |
2947 | 180 |
begin |
5339 | 181 |
case event.type_ of |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
182 |
SDL_KEYDOWN: |
13082 | 183 |
if isInChatMode then |
8742
b7b8bd398c1b
Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents:
8615
diff
changeset
|
184 |
begin |
3647
0d0df215fb52
making chat work... (keyboard support is heavily broken in sdl upstream)
koda
parents:
3634
diff
changeset
|
185 |
// sdl on iphone supports only ashii keyboards and the unicode field is deprecated in sdl 1.3 |
11356 | 186 |
KeyPressChat(event.key.keysym); |
8742
b7b8bd398c1b
Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents:
8615
diff
changeset
|
187 |
end |
7025 | 188 |
else |
9028
3a38c9453697
Don't accept keyboard/mouse events on startup phase
unc0rr
parents:
8948
diff
changeset
|
189 |
if GameState >= gsGame then ProcessKey(event.key); |
6917 | 190 |
SDL_KEYUP: |
13082 | 191 |
if (not isInChatMode) and (GameState >= gsGame) then |
7025 | 192 |
ProcessKey(event.key); |
8924 | 193 |
|
13082 | 194 |
SDL_TEXTINPUT: if isInChatMode then uChat.TextInput(event.text); |
9697 | 195 |
|
5339 | 196 |
SDL_WINDOWEVENT: |
7025 | 197 |
begin |
11506 | 198 |
case event.window.event of |
199 |
SDL_WINDOWEVENT_FOCUS_GAINED: |
|
200 |
begin |
|
201 |
cHasFocus:= true; |
|
202 |
onFocusStateChanged(); |
|
203 |
end; |
|
204 |
SDL_WINDOWEVENT_FOCUS_LOST: |
|
205 |
begin |
|
206 |
cHasFocus:= false; |
|
207 |
onFocusStateChanged(); |
|
208 |
end; |
|
12806
8a359cc248d1
Fix Hedgewars going into suspension mode (game freezes) when windows got minimized
Wuzzy <Wuzzy2@mail.ru>
parents:
12798
diff
changeset
|
209 |
{$IFDEF MOBILE} |
8a359cc248d1
Fix Hedgewars going into suspension mode (game freezes) when windows got minimized
Wuzzy <Wuzzy2@mail.ru>
parents:
12798
diff
changeset
|
210 |
(* Suspend game if minimized on mobile. |
8a359cc248d1
Fix Hedgewars going into suspension mode (game freezes) when windows got minimized
Wuzzy <Wuzzy2@mail.ru>
parents:
12798
diff
changeset
|
211 |
NOTE: Mobile doesn't support online multiplayer yet, so it's not a problem. |
8a359cc248d1
Fix Hedgewars going into suspension mode (game freezes) when windows got minimized
Wuzzy <Wuzzy2@mail.ru>
parents:
12798
diff
changeset
|
212 |
BUT: This section WILL become a bug when online multiplayer is added to |
8a359cc248d1
Fix Hedgewars going into suspension mode (game freezes) when windows got minimized
Wuzzy <Wuzzy2@mail.ru>
parents:
12798
diff
changeset
|
213 |
Hedgewars and needs to be rethought. This is because it will cause the |
8a359cc248d1
Fix Hedgewars going into suspension mode (game freezes) when windows got minimized
Wuzzy <Wuzzy2@mail.ru>
parents:
12798
diff
changeset
|
214 |
game to freeze if one online player minimizes Hedgewars. *) |
11506 | 215 |
SDL_WINDOWEVENT_MINIMIZED: |
216 |
begin |
|
217 |
previousGameState:= GameState; |
|
218 |
GameState:= gsSuspend; |
|
219 |
end; |
|
12806
8a359cc248d1
Fix Hedgewars going into suspension mode (game freezes) when windows got minimized
Wuzzy <Wuzzy2@mail.ru>
parents:
12798
diff
changeset
|
220 |
{$ENDIF} |
11506 | 221 |
SDL_WINDOWEVENT_RESTORED: |
222 |
begin |
|
11858 | 223 |
if GameState = gsSuspend then |
224 |
GameState:= previousGameState; |
|
6611 | 225 |
{$IFDEF ANDROID} |
11506 | 226 |
//This call is used to reinitialize the glcontext and reload the textures |
227 |
ParseCommand('fullscr '+intToStr(LongInt(cFullScreen)), true); |
|
6598
fa518383563b
added pause/resume functionality for android, android need the opengl context to be recreated along with textures and whatnot
Xeli
parents:
6580
diff
changeset
|
228 |
{$ENDIF} |
11506 | 229 |
end; |
230 |
SDL_WINDOWEVENT_RESIZED: |
|
231 |
begin |
|
232 |
cNewScreenWidth:= max(2 * (event.window.data1 div 2), cMinScreenWidth); |
|
233 |
cNewScreenHeight:= max(2 * (event.window.data2 div 2), cMinScreenHeight); |
|
234 |
cScreenResizeDelay:= RealTicks + 500{$IFDEF IPHONEOS}div 2{$ENDIF}; |
|
235 |
end; |
|
236 |
end; // case closed |
|
7025 | 237 |
end; |
11506 | 238 |
|
9651 | 239 |
{$IFDEF USE_TOUCH_INTERFACE} |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
240 |
SDL_FINGERMOTION: |
9379 | 241 |
onTouchMotion(event.tfinger.x, event.tfinger.y, event.tfinger.dx, event.tfinger.dy, event.tfinger.fingerId); |
8924 | 242 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
243 |
SDL_FINGERDOWN: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
244 |
onTouchDown(event.tfinger.x, event.tfinger.y, event.tfinger.fingerId); |
8924 | 245 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
246 |
SDL_FINGERUP: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
247 |
onTouchUp(event.tfinger.x, event.tfinger.y, event.tfinger.fingerId); |
11553
45982bda46cc
Fix for cursor movement problems on touch devices
Anton Malmygin <antonc27@mail.ru>
parents:
11539
diff
changeset
|
248 |
{$ELSE} |
45982bda46cc
Fix for cursor movement problems on touch devices
Anton Malmygin <antonc27@mail.ru>
parents:
11539
diff
changeset
|
249 |
SDL_MOUSEBUTTONDOWN: |
45982bda46cc
Fix for cursor movement problems on touch devices
Anton Malmygin <antonc27@mail.ru>
parents:
11539
diff
changeset
|
250 |
if GameState = gsConfirm then |
45982bda46cc
Fix for cursor movement problems on touch devices
Anton Malmygin <antonc27@mail.ru>
parents:
11539
diff
changeset
|
251 |
ParseCommand('quit', true) |
45982bda46cc
Fix for cursor movement problems on touch devices
Anton Malmygin <antonc27@mail.ru>
parents:
11539
diff
changeset
|
252 |
else |
45982bda46cc
Fix for cursor movement problems on touch devices
Anton Malmygin <antonc27@mail.ru>
parents:
11539
diff
changeset
|
253 |
if (GameState >= gsGame) then ProcessMouse(event.button, true); |
45982bda46cc
Fix for cursor movement problems on touch devices
Anton Malmygin <antonc27@mail.ru>
parents:
11539
diff
changeset
|
254 |
|
45982bda46cc
Fix for cursor movement problems on touch devices
Anton Malmygin <antonc27@mail.ru>
parents:
11539
diff
changeset
|
255 |
SDL_MOUSEBUTTONUP: |
45982bda46cc
Fix for cursor movement problems on touch devices
Anton Malmygin <antonc27@mail.ru>
parents:
11539
diff
changeset
|
256 |
if (GameState >= gsGame) then ProcessMouse(event.button, false); |
45982bda46cc
Fix for cursor movement problems on touch devices
Anton Malmygin <antonc27@mail.ru>
parents:
11539
diff
changeset
|
257 |
|
45982bda46cc
Fix for cursor movement problems on touch devices
Anton Malmygin <antonc27@mail.ru>
parents:
11539
diff
changeset
|
258 |
SDL_MOUSEWHEEL: |
45982bda46cc
Fix for cursor movement problems on touch devices
Anton Malmygin <antonc27@mail.ru>
parents:
11539
diff
changeset
|
259 |
begin |
45982bda46cc
Fix for cursor movement problems on touch devices
Anton Malmygin <antonc27@mail.ru>
parents:
11539
diff
changeset
|
260 |
wheelEvent:= true; |
12626 | 261 |
//ProcessMouseWheel(event.wheel.x, event.wheel.y); |
262 |
ProcessMouseWheel(event.wheel.y); |
|
11553
45982bda46cc
Fix for cursor movement problems on touch devices
Anton Malmygin <antonc27@mail.ru>
parents:
11539
diff
changeset
|
263 |
end; |
9651 | 264 |
{$ENDIF} |
11553
45982bda46cc
Fix for cursor movement problems on touch devices
Anton Malmygin <antonc27@mail.ru>
parents:
11539
diff
changeset
|
265 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
266 |
SDL_JOYAXISMOTION: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
267 |
ControllerAxisEvent(event.jaxis.which, event.jaxis.axis, event.jaxis.value); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
268 |
SDL_JOYHATMOTION: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
269 |
ControllerHatEvent(event.jhat.which, event.jhat.hat, event.jhat.value); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
270 |
SDL_JOYBUTTONDOWN: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
271 |
ControllerButtonEvent(event.jbutton.which, event.jbutton.button, true); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
272 |
SDL_JOYBUTTONUP: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
273 |
ControllerButtonEvent(event.jbutton.which, event.jbutton.button, false); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
274 |
SDL_QUITEV: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
275 |
isTerminated:= true |
7025 | 276 |
end; //end case event.type_ of |
277 |
end; //end while SDL_PollEvent(@event) <> 0 do |
|
5732
f3f381011728
Add a delay before applying screen resize to cut down on resize events (especially bad on OSes that need texture recreation)
nemo
parents:
5730
diff
changeset
|
278 |
|
11491 | 279 |
if (not wheelEvent) then |
280 |
ResetMouseWheel(); |
|
281 |
||
8346 | 282 |
if (CursorMovementX <> 0) or (CursorMovementY <> 0) then |
283 |
handlePositionUpdate(CursorMovementX * cameraKeyboardSpeed, CursorMovementY * cameraKeyboardSpeed); |
|
284 |
||
7025 | 285 |
if (cScreenResizeDelay <> 0) and (cScreenResizeDelay < RealTicks) and |
286 |
((cNewScreenWidth <> cScreenWidth) or (cNewScreenHeight <> cScreenHeight)) then |
|
287 |
begin |
|
288 |
cScreenResizeDelay:= 0; |
|
8354
c25bee85d6f8
Separated fullscreen and windowed hwengine resolution parameters.
vitiv <nikita.utiu@gmail.com>
parents:
8350
diff
changeset
|
289 |
cWindowedWidth:= cNewScreenWidth; |
c25bee85d6f8
Separated fullscreen and windowed hwengine resolution parameters.
vitiv <nikita.utiu@gmail.com>
parents:
8350
diff
changeset
|
290 |
cWindowedHeight:= cNewScreenHeight; |
c25bee85d6f8
Separated fullscreen and windowed hwengine resolution parameters.
vitiv <nikita.utiu@gmail.com>
parents:
8350
diff
changeset
|
291 |
cScreenWidth:= cWindowedWidth; |
c25bee85d6f8
Separated fullscreen and windowed hwengine resolution parameters.
vitiv <nikita.utiu@gmail.com>
parents:
8350
diff
changeset
|
292 |
cScreenHeight:= cWindowedHeight; |
3463 | 293 |
|
7025 | 294 |
ParseCommand('fullscr '+intToStr(LongInt(cFullScreen)), true); |
295 |
WriteLnToConsole('window resize: ' + IntToStr(cScreenWidth) + ' x ' + IntToStr(cScreenHeight)); |
|
296 |
ScriptOnScreenResize(); |
|
297 |
InitCameraBorders(); |
|
298 |
InitTouchInterface(); |
|
10302
ea0b0e2efd95
huh? me? nono, don't mind me. I'm just here to clean up.
sheepluva
parents:
10273
diff
changeset
|
299 |
InitZoom(zoomValue); |
8345
9d9b498cfb03
Preserve windowed resolution after manual resize
vitiv <nikita.utiu@gmail.com>
parents:
8327
diff
changeset
|
300 |
SendIPC('W' + IntToStr(cScreenWidth) + 'x' + IntToStr(cScreenHeight)); |
7025 | 301 |
end; |
302 |
||
303 |
CurrTime:= SDL_GetTicks(); |
|
6863 | 304 |
if PrevTime + longword(cTimerInterval) <= CurrTime then |
305 |
begin |
|
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
8018
diff
changeset
|
306 |
isTerminated:= isTerminated or DoTimer(CurrTime - PrevTime); |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
8018
diff
changeset
|
307 |
PrevTime:= CurrTime; |
6863 | 308 |
end |
309 |
else SDL_Delay(1); |
|
310 |
IPCCheckSock(); |
|
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
8018
diff
changeset
|
311 |
|
3063 | 312 |
end; |
2698 | 313 |
end; |
314 |
||
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7180
diff
changeset
|
315 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 316 |
procedure RecorderMainLoop; |
7392
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
317 |
var oldGameTicks, oldRealTicks, newGameTicks, newRealTicks: LongInt; |
7180 | 318 |
begin |
319 |
if not BeginVideoRecording() then |
|
320 |
exit; |
|
321 |
DoTimer(0); // gsLandGen -> gsStart |
|
322 |
DoTimer(0); // gsStart -> gsGame |
|
323 |
||
7392
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
324 |
if not LoadNextCameraPosition(newRealTicks, newGameTicks) then |
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
325 |
exit; |
7180 | 326 |
fastScrolling:= true; |
7392
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
327 |
DoGameTick(newGameTicks); |
7180 | 328 |
fastScrolling:= false; |
7392
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
329 |
oldRealTicks:= 0; |
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
330 |
oldGameTicks:= newGameTicks; |
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
331 |
|
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
332 |
while LoadNextCameraPosition(newRealTicks, newGameTicks) do |
7180 | 333 |
begin |
7392
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
334 |
IPCCheckSock(); |
13045
a87d3119c962
VideoRec: Fix many effects not being recorded
Wuzzy <Wuzzy2@mail.ru>
parents:
12849
diff
changeset
|
335 |
RealTicks:= newRealTicks; |
7392
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
336 |
DoGameTick(newGameTicks - oldGameTicks); |
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
337 |
if GameState = gsExit then |
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
338 |
break; |
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
339 |
ProcessVisualGears(newRealTicks - oldRealTicks); |
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
340 |
DrawWorld(newRealTicks - oldRealTicks); |
7180 | 341 |
EncodeFrame(); |
7392
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
342 |
oldRealTicks:= newRealTicks; |
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
343 |
oldGameTicks:= newGameTicks; |
7180 | 344 |
end; |
345 |
StopVideoRecording(); |
|
346 |
end; |
|
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7180
diff
changeset
|
347 |
{$ENDIF} |
7180 | 348 |
|
7896
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
349 |
/////////////////////////////////////////////////////////////////////////////// |
11537 | 350 |
procedure GameRoutine; |
8370 | 351 |
//var p: TPathType; |
352 |
var s: shortstring; |
|
3611 | 353 |
i: LongInt; |
2698 | 354 |
begin |
8615 | 355 |
WriteLnToConsole('Hedgewars engine ' + cVersionString + '-r' + cRevisionString + |
356 |
' (' + cHashString + ') with protocol #' + inttostr(cNetProtoVersion)); |
|
10127 | 357 |
AddFileLog('Prefix: "' + shortstring(PathPrefix) +'"'); |
358 |
AddFileLog('UserPrefix: "' + shortstring(UserPathPrefix) +'"'); |
|
8924 | 359 |
|
3611 | 360 |
for i:= 0 to ParamCount do |
361 |
AddFileLog(inttostr(i) + ': ' + ParamStr(i)); |
|
2698 | 362 |
|
2947 | 363 |
WriteToConsole('Init SDL... '); |
11512 | 364 |
if not cOnlyStats then SDLCheck(SDL_Init(SDL_INIT_VIDEO or SDL_INIT_NOPARACHUTE) >= 0, 'SDL_Init', true); |
2947 | 365 |
WriteLnToConsole(msgOK); |
11512 | 366 |
if not cOnlyStats then |
367 |
begin |
|
368 |
WriteToConsole('Init SDL_ttf... '); |
|
369 |
SDLCheck(TTF_Init() <> -1, 'TTF_Init', true); |
|
370 |
WriteLnToConsole(msgOK); |
|
371 |
end; |
|
2698 | 372 |
|
11537 | 373 |
if not allOK then exit; |
9697 | 374 |
//SDL_StartTextInput(); |
5565 | 375 |
SDL_ShowCursor(0); |
2698 | 376 |
|
377 |
||
7286 | 378 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 379 |
if GameType = gmtRecord then |
380 |
InitOffscreenOpenGL() |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
381 |
else |
7286 | 382 |
{$ENDIF} |
8924 | 383 |
begin |
7180 | 384 |
// show main window |
385 |
if cFullScreen then |
|
386 |
ParseCommand('fullscr 1', true) |
|
387 |
else |
|
388 |
ParseCommand('fullscr 0', true); |
|
389 |
end; |
|
2698 | 390 |
|
9686 | 391 |
ControllerInit(); // has to happen before InitKbdKeyTable to map keys |
2947 | 392 |
InitKbdKeyTable(); |
11537 | 393 |
if not allOK then exit; |
2698 | 394 |
|
8025 | 395 |
LoadLocale(cPathz[ptLocale] + '/en.txt'); // Do an initial load with english |
2947 | 396 |
if cLocaleFName <> 'en.txt' then |
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
3976
diff
changeset
|
397 |
begin |
2719 | 398 |
// Try two letter locale first before trying specific locale overrides |
8025 | 399 |
if (Length(cLocale) > 3) and (Copy(cLocale, 1, 2) <> 'en') then |
5339 | 400 |
begin |
8025 | 401 |
LoadLocale(cPathz[ptLocale] + '/' + Copy(cLocale, 1, 2) + '.txt') |
5339 | 402 |
end; |
8025 | 403 |
LoadLocale(cPathz[ptLocale] + '/' + cLocaleFName) |
5107
d7fc678d78f4
Allow override of voicepack with a locale voicepack. Untested, but should mean that a Default voice should use the Ukranian version if that is their locale.
nemo
parents:
5066
diff
changeset
|
404 |
end |
d7fc678d78f4
Allow override of voicepack with a locale voicepack. Untested, but should mean that a Default voice should use the Ukranian version if that is their locale.
nemo
parents:
5066
diff
changeset
|
405 |
else cLocale := 'en'; |
2698 | 406 |
|
11537 | 407 |
if not allOK then exit; |
3904
22e4d74240e5
finishing touches to save games handling (help label, dim on overlay, edit text only when table is editable)
koda
parents:
3843
diff
changeset
|
408 |
WriteLnToConsole(msgGettingConfig); |
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
3976
diff
changeset
|
409 |
|
12191
322aaad4a93d
Load screen: Move “LOADING” from image into text box
Wuzzy <almikes@aol.com>
parents:
11858
diff
changeset
|
410 |
LoadFonts(); |
322aaad4a93d
Load screen: Move “LOADING” from image into text box
Wuzzy <almikes@aol.com>
parents:
11858
diff
changeset
|
411 |
AddProgress(); |
322aaad4a93d
Load screen: Move “LOADING” from image into text box
Wuzzy <almikes@aol.com>
parents:
11858
diff
changeset
|
412 |
|
9988
317d46a2afd2
simple mechanism to run lua-based test cases. experimental - I will back it out if it turns out to be nonsense
sheepluva
parents:
9651
diff
changeset
|
413 |
if cTestLua then |
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
3976
diff
changeset
|
414 |
begin |
9988
317d46a2afd2
simple mechanism to run lua-based test cases. experimental - I will back it out if it turns out to be nonsense
sheepluva
parents:
9651
diff
changeset
|
415 |
ParseCommand('script ' + cScriptName, true); |
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
3976
diff
changeset
|
416 |
end |
2947 | 417 |
else |
9988
317d46a2afd2
simple mechanism to run lua-based test cases. experimental - I will back it out if it turns out to be nonsense
sheepluva
parents:
9651
diff
changeset
|
418 |
begin |
317d46a2afd2
simple mechanism to run lua-based test cases. experimental - I will back it out if it turns out to be nonsense
sheepluva
parents:
9651
diff
changeset
|
419 |
if recordFileName = '' then |
317d46a2afd2
simple mechanism to run lua-based test cases. experimental - I will back it out if it turns out to be nonsense
sheepluva
parents:
9651
diff
changeset
|
420 |
begin |
317d46a2afd2
simple mechanism to run lua-based test cases. experimental - I will back it out if it turns out to be nonsense
sheepluva
parents:
9651
diff
changeset
|
421 |
InitIPC; |
317d46a2afd2
simple mechanism to run lua-based test cases. experimental - I will back it out if it turns out to be nonsense
sheepluva
parents:
9651
diff
changeset
|
422 |
SendIPCAndWaitReply(_S'C'); // ask for game config |
317d46a2afd2
simple mechanism to run lua-based test cases. experimental - I will back it out if it turns out to be nonsense
sheepluva
parents:
9651
diff
changeset
|
423 |
end |
317d46a2afd2
simple mechanism to run lua-based test cases. experimental - I will back it out if it turns out to be nonsense
sheepluva
parents:
9651
diff
changeset
|
424 |
else |
317d46a2afd2
simple mechanism to run lua-based test cases. experimental - I will back it out if it turns out to be nonsense
sheepluva
parents:
9651
diff
changeset
|
425 |
LoadRecordFromFile(recordFileName); |
317d46a2afd2
simple mechanism to run lua-based test cases. experimental - I will back it out if it turns out to be nonsense
sheepluva
parents:
9651
diff
changeset
|
426 |
end; |
2698 | 427 |
|
11537 | 428 |
if not allOK then exit; |
429 |
ScriptOnGameInit; |
|
430 |
s:= 'eproto ' + inttostr(cNetProtoVersion); |
|
431 |
SendIPCRaw(@s[0], Length(s) + 1); // send proto version |
|
2947 | 432 |
|
11537 | 433 |
InitTeams(); |
434 |
AssignStores(); |
|
7180 | 435 |
|
11537 | 436 |
if GameType = gmtRecord then |
437 |
SetSound(false); |
|
7180 | 438 |
|
11537 | 439 |
InitSound(); |
2590 | 440 |
|
11537 | 441 |
isDeveloperMode:= false; |
442 |
if checkFails(InitStepsFlags = cifAllInited, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true) then exit; |
|
443 |
//ParseCommand('rotmask', true); |
|
444 |
if not allOK then exit; |
|
7286 | 445 |
|
11537 | 446 |
{$IFDEF USE_VIDEO_RECORDING} |
447 |
if GameType = gmtRecord then |
|
448 |
begin |
|
449 |
RecorderMainLoop(); |
|
450 |
exit; |
|
451 |
end; |
|
452 |
{$ENDIF} |
|
11512 | 453 |
|
11537 | 454 |
MainLoop; |
455 |
end; |
|
456 |
||
457 |
procedure Game; |
|
458 |
begin |
|
459 |
initEverything(true); |
|
460 |
GameRoutine; |
|
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
461 |
// clean up all the memory allocated |
3611 | 462 |
freeEverything(true); |
2698 | 463 |
end; |
7896
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
464 |
/////////////////////////////////////////////////////////////////////////////// |
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
465 |
// preInitEverything - init variables that are going to be ovewritten by arguments |
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
466 |
// initEverything - init variables only. Should be coupled by below |
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
467 |
// freeEverything - free above. Pay attention to the init/free order! |
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
468 |
procedure preInitEverything; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
469 |
begin |
11512 | 470 |
allOK:= true; |
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
471 |
Randomize(); |
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
472 |
|
7896
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
473 |
uVariables.preInitModule; |
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
474 |
uSound.preInitModule; |
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
475 |
end; |
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
476 |
|
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
477 |
procedure initEverything (complete:boolean); |
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
478 |
begin |
11649 | 479 |
PathPrefix:= PathPrefix + #0; |
480 |
UserPathPrefix:= UserPathPrefix + #0; |
|
481 |
uPhysFSLayer.initModule(@PathPrefix[1], @UserPathPrefix[1]); |
|
482 |
PathPrefix:= copy(PathPrefix, 1, length(PathPrefix) - 1); |
|
483 |
UserPathPrefix:= copy(UserPathPrefix, 1, length(UserPathPrefix) - 1); |
|
484 |
||
7850 | 485 |
uUtils.initModule(complete); // opens the debug file, must be the first |
486 |
uVariables.initModule; // inits all global variables |
|
487 |
uCommands.initModule; // helps below |
|
488 |
uCommandHandlers.initModule; // registers all messages from frontend |
|
3525 | 489 |
|
7850 | 490 |
uLand.initModule; // computes land |
491 |
uLandPainted.initModule; // computes drawn land |
|
492 |
uIO.initModule; // sets up sockets |
|
11636
b3db79b56f28
Pass paths to initModule of uPhysFSLayer (as in 4be6cd55f1cf from qmlfrontend branch)
unc0rr
parents:
11553
diff
changeset
|
493 |
|
10150
fa5c83fd0ad9
Allow lua drawn maps (shoppamap, tunnels, diagonal maze etc) to generate previews.
nemo
parents:
10139
diff
changeset
|
494 |
uScript.initModule; |
3697 | 495 |
|
3525 | 496 |
if complete then |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
497 |
begin |
9468
3d07fd84c39d
- Actually call uTexture.initModule and .freeModule
unc0rr
parents:
9466
diff
changeset
|
498 |
uTextures.initModule; |
7850 | 499 |
{$IFDEF ANDROID}GLUnit.initModule;{$ENDIF} |
7837 | 500 |
{$IFDEF USE_TOUCH_INTERFACE}uTouch.initModule;{$ENDIF} |
9543 | 501 |
{$IFDEF USE_VIDEO_RECORDING}uVideoRec.initModule;{$ENDIF} |
6415 | 502 |
uAI.initModule; |
3525 | 503 |
uAIMisc.initModule; |
7850 | 504 |
uAILandMarks.initModule; //stub |
3525 | 505 |
uAmmos.initModule; |
7850 | 506 |
uCaptions.initModule; |
507 |
||
3525 | 508 |
uChat.initModule; |
509 |
uCollisions.initModule; |
|
510 |
uGears.initModule; |
|
9466 | 511 |
uInputHandler.initModule; |
7850 | 512 |
uMisc.initModule; |
513 |
uLandTexture.initModule; //stub |
|
3525 | 514 |
uSound.initModule; |
515 |
uStats.initModule; |
|
516 |
uStore.initModule; |
|
10304
7e40820b7ed6
fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents:
10302
diff
changeset
|
517 |
uRender.initModule; |
3525 | 518 |
uTeams.initModule; |
519 |
uVisualGears.initModule; |
|
9283
76e68c136a11
Refactoring: VGSHandlers.inc -> uVisualGearsHandlers.pas
unc0rr
parents:
9280
diff
changeset
|
520 |
uVisualGearsHandlers.initModule; |
3525 | 521 |
uWorld.initModule; |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
522 |
end; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
523 |
end; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
524 |
|
3525 | 525 |
procedure freeEverything (complete:boolean); |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
526 |
begin |
3525 | 527 |
if complete then |
10012
82dd9f0c88f7
Make poison damage possibly variable (might as well since effects is a count). Scripts might find it handy.
nemo
parents:
10009
diff
changeset
|
528 |
begin |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
529 |
WriteLnToConsole('Freeing resources...'); |
7850 | 530 |
uAI.freeModule; // AI things need to be freed first |
531 |
uAIMisc.freeModule; //stub |
|
7433
c7fff3e61d49
- Implement AI land marks which only used to tracks visited areas on the map for now. Significantly reduces wasting of cpu time by AI checking same place several times (10x or even more in rare cases)
unc0rr
parents:
7151
diff
changeset
|
532 |
uAILandMarks.freeModule; |
4393 | 533 |
uCaptions.freeModule; |
3525 | 534 |
uWorld.freeModule; |
3615 | 535 |
uVisualGears.freeModule; |
3525 | 536 |
uTeams.freeModule; |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
537 |
uInputHandler.freeModule; |
3525 | 538 |
uStats.freeModule; //stub |
3615 | 539 |
uSound.freeModule; |
7850 | 540 |
uMisc.freeModule; |
3612
b50215a8a43d
land arrays are allocated dynamically, so DOWNSCALE and LOWRES macros are now removed and replaced by run time flags rqBlurryLand and rqLowRes
koda
parents:
3611
diff
changeset
|
541 |
uLandTexture.freeModule; |
3525 | 542 |
uGears.freeModule; |
543 |
uCollisions.freeModule; //stub |
|
4901 | 544 |
uChat.freeModule; |
3525 | 545 |
uAmmos.freeModule; |
10304
7e40820b7ed6
fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents:
10302
diff
changeset
|
546 |
uRender.freeModule; |
7850 | 547 |
uStore.freeModule; // closes SDL |
7286 | 548 |
{$IFDEF USE_VIDEO_RECORDING}uVideoRec.freeModule;{$ENDIF} |
7850 | 549 |
{$IFDEF USE_TOUCH_INTERFACE}uTouch.freeModule;{$ENDIF} //stub |
550 |
{$IFDEF ANDROID}GLUnit.freeModule;{$ENDIF} |
|
9468
3d07fd84c39d
- Actually call uTexture.initModule and .freeModule
unc0rr
parents:
9466
diff
changeset
|
551 |
uTextures.freeModule; |
12849
22cc3d82905a
Should probably have gl context stuff in its own unit separate from store, but, don't close the gl context before anything that might still want to do gl operations
nemo
parents:
12836
diff
changeset
|
552 |
SDL_GL_DeleteContext(SDLGLcontext); |
22cc3d82905a
Should probably have gl context stuff in its own unit separate from store, but, don't close the gl context before anything that might still want to do gl operations
nemo
parents:
12836
diff
changeset
|
553 |
SDL_DestroyWindow(SDLwindow); |
22cc3d82905a
Should probably have gl context stuff in its own unit separate from store, but, don't close the gl context before anything that might still want to do gl operations
nemo
parents:
12836
diff
changeset
|
554 |
SDL_Quit() |
10012
82dd9f0c88f7
Make poison damage possibly variable (might as well since effects is a count). Scripts might find it handy.
nemo
parents:
10009
diff
changeset
|
555 |
end; |
3697 | 556 |
|
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
557 |
uIO.freeModule; |
3038 | 558 |
uLand.freeModule; |
5066 | 559 |
uLandPainted.freeModule; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
560 |
|
4413 | 561 |
uCommandHandlers.freeModule; |
4373 | 562 |
uCommands.freeModule; |
4359 | 563 |
uVariables.freeModule; |
7850 | 564 |
uUtils.freeModule; // closes debug file |
10159 | 565 |
uPhysFSLayer.freeModule; |
566 |
uScript.freeModule; |
|
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
567 |
end; |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2800
diff
changeset
|
568 |
|
7896
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
569 |
/////////////////////////////////////////////////////////////////////////////// |
11133
fa3d227fb308
- Fix for retrieving 'Maze' preview genration
antonc27 <antonc27@mail.ru>
parents:
11113
diff
changeset
|
570 |
procedure GenLandPreview; |
fa3d227fb308
- Fix for retrieving 'Maze' preview genration
antonc27 <antonc27@mail.ru>
parents:
11113
diff
changeset
|
571 |
{$IFDEF MOBILE} |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
572 |
var Preview: TPreview; |
11133
fa3d227fb308
- Fix for retrieving 'Maze' preview genration
antonc27 <antonc27@mail.ru>
parents:
11113
diff
changeset
|
573 |
{$ELSE} |
10162 | 574 |
var Preview: TPreviewAlpha; |
11155 | 575 |
{$ENDIF} |
2698 | 576 |
begin |
7896
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
577 |
initEverything(false); |
10175
c92668840ea8
Remove game/preview functions split in library mode, just let normal procedure run instead:
unc0rr
parents:
10162
diff
changeset
|
578 |
|
2947 | 579 |
InitIPC; |
11512 | 580 |
if allOK then |
581 |
begin |
|
582 |
IPCWaitPongEvent; |
|
11537 | 583 |
if checkFails(InitStepsFlags = cifRandomize, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true) then exit; |
2698 | 584 |
|
11512 | 585 |
ScriptOnPreviewInit; |
586 |
{$IFDEF MOBILE} |
|
587 |
GenPreview(Preview); |
|
588 |
{$ELSE} |
|
589 |
GenPreviewAlpha(Preview); |
|
590 |
{$ENDIF} |
|
591 |
WriteLnToConsole('Sending preview...'); |
|
592 |
SendIPCRaw(@Preview, sizeof(Preview)); |
|
593 |
SendIPCRaw(@MaxHedgehogs, sizeof(byte)); |
|
594 |
WriteLnToConsole('Preview sent, disconnect'); |
|
595 |
end; |
|
596 |
||
3525 | 597 |
freeEverything(false); |
2698 | 598 |
end; |
599 |
||
10175
c92668840ea8
Remove game/preview functions split in library mode, just let normal procedure run instead:
unc0rr
parents:
10162
diff
changeset
|
600 |
{$IFDEF HWLIBRARY} |
11690
a2e86a867fb5
pas2c converts exit to return, so change RunEngine signature
frd
parents:
11649
diff
changeset
|
601 |
function RunEngine(argc: LongInt; argv: PPChar): LongInt; cdecl; export; |
2008 | 602 |
begin |
10175
c92668840ea8
Remove game/preview functions split in library mode, just let normal procedure run instead:
unc0rr
parents:
10162
diff
changeset
|
603 |
operatingsystem_parameter_argc:= argc; |
c92668840ea8
Remove game/preview functions split in library mode, just let normal procedure run instead:
unc0rr
parents:
10162
diff
changeset
|
604 |
operatingsystem_parameter_argv:= argv; |
c92668840ea8
Remove game/preview functions split in library mode, just let normal procedure run instead:
unc0rr
parents:
10162
diff
changeset
|
605 |
{$ELSE} |
c92668840ea8
Remove game/preview functions split in library mode, just let normal procedure run instead:
unc0rr
parents:
10162
diff
changeset
|
606 |
begin |
c92668840ea8
Remove game/preview functions split in library mode, just let normal procedure run instead:
unc0rr
parents:
10162
diff
changeset
|
607 |
{$ENDIF} |
2008 | 608 |
|
12662
2065819170ce
(Hopefully) fix game camera being shifted on Windows 10
alfadur
parents:
12626
diff
changeset
|
609 |
{$IFDEF WIN32} |
2065819170ce
(Hopefully) fix game camera being shifted on Windows 10
alfadur
parents:
12626
diff
changeset
|
610 |
ShcoreLibHandle := LoadLibrary('Shcore.dll'); |
2065819170ce
(Hopefully) fix game camera being shifted on Windows 10
alfadur
parents:
12626
diff
changeset
|
611 |
if (ShcoreLibHandle <> 0) then |
2065819170ce
(Hopefully) fix game camera being shifted on Windows 10
alfadur
parents:
12626
diff
changeset
|
612 |
begin |
2065819170ce
(Hopefully) fix game camera being shifted on Windows 10
alfadur
parents:
12626
diff
changeset
|
613 |
SetProcessDpiAwareness := |
2065819170ce
(Hopefully) fix game camera being shifted on Windows 10
alfadur
parents:
12626
diff
changeset
|
614 |
TSetProcessDpiAwareness(GetProcedureAddress(ShcoreLibHandle, 'SetProcessDpiAwareness')); |
2065819170ce
(Hopefully) fix game camera being shifted on Windows 10
alfadur
parents:
12626
diff
changeset
|
615 |
if (SetProcessDpiAwareness <> nil) then |
2065819170ce
(Hopefully) fix game camera being shifted on Windows 10
alfadur
parents:
12626
diff
changeset
|
616 |
SetProcessDpiAwareness(1); |
2065819170ce
(Hopefully) fix game camera being shifted on Windows 10
alfadur
parents:
12626
diff
changeset
|
617 |
end; |
2065819170ce
(Hopefully) fix game camera being shifted on Windows 10
alfadur
parents:
12626
diff
changeset
|
618 |
{$ENDIF} |
2065819170ce
(Hopefully) fix game camera being shifted on Windows 10
alfadur
parents:
12626
diff
changeset
|
619 |
|
7896
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
620 |
/////////////////////////////////////////////////////////////////////////////// |
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
621 |
/////////////////////////////////// m a i n /////////////////////////////////// |
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
622 |
/////////////////////////////////////////////////////////////////////////////// |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
8018
diff
changeset
|
623 |
{$IFDEF PAS2C} |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
8018
diff
changeset
|
624 |
// workaround for pascal's ParamStr and ParamCount |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
8018
diff
changeset
|
625 |
init(argc, argv); |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
8018
diff
changeset
|
626 |
{$ENDIF} |
7896
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7850
diff
changeset
|
627 |
preInitEverything(); |
3678
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
628 |
|
2947 | 629 |
GetParams(); |
2008 | 630 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
631 |
if GameType = gmtLandPreview then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
632 |
GenLandPreview() |
8308
cdf83bdf7b27
move GetParams in ArgParser, print a warning when using a deprecated command, pascalisation of +1s
koda
parents:
8307
diff
changeset
|
633 |
else if GameType <> gmtSyntax then |
cdf83bdf7b27
move GetParams in ArgParser, print a warning when using a deprecated command, pascalisation of +1s
koda
parents:
8307
diff
changeset
|
634 |
Game(); |
3697 | 635 |
|
5565 | 636 |
// return 1 when engine is not called correctly |
10176 | 637 |
if GameType = gmtSyntax then |
638 |
{$IFDEF PAS2C} |
|
10306 | 639 |
exit(HaltUsageError); |
10176 | 640 |
{$ELSE} |
10306 | 641 |
halt(HaltUsageError); |
10176 | 642 |
{$ENDIF} |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
8018
diff
changeset
|
643 |
|
10619
ee460883729e
unexpected return from lua test should not return exit status 0
sheepluva
parents:
10581
diff
changeset
|
644 |
if cTestLua then |
10621
b50e094d8b00
add warning to logs when tests terminates prematurely
sheepluva
parents:
10619
diff
changeset
|
645 |
begin |
10622 | 646 |
WriteLnToConsole(errmsgLuaTestTerm); |
10619
ee460883729e
unexpected return from lua test should not return exit status 0
sheepluva
parents:
10581
diff
changeset
|
647 |
{$IFDEF PAS2C} |
ee460883729e
unexpected return from lua test should not return exit status 0
sheepluva
parents:
10581
diff
changeset
|
648 |
exit(HaltTestUnexpected); |
ee460883729e
unexpected return from lua test should not return exit status 0
sheepluva
parents:
10581
diff
changeset
|
649 |
{$ELSE} |
ee460883729e
unexpected return from lua test should not return exit status 0
sheepluva
parents:
10581
diff
changeset
|
650 |
halt(HaltTestUnexpected); |
ee460883729e
unexpected return from lua test should not return exit status 0
sheepluva
parents:
10581
diff
changeset
|
651 |
{$ENDIF} |
10621
b50e094d8b00
add warning to logs when tests terminates prematurely
sheepluva
parents:
10619
diff
changeset
|
652 |
end; |
10619
ee460883729e
unexpected return from lua test should not return exit status 0
sheepluva
parents:
10581
diff
changeset
|
653 |
|
ee460883729e
unexpected return from lua test should not return exit status 0
sheepluva
parents:
10581
diff
changeset
|
654 |
{$IFDEF PAS2C} |
11149 | 655 |
exit(HaltNoError); |
10619
ee460883729e
unexpected return from lua test should not return exit status 0
sheepluva
parents:
10581
diff
changeset
|
656 |
{$ELSE} |
11149 | 657 |
{$IFDEF IPHONEOS} |
11690
a2e86a867fb5
pas2c converts exit to return, so change RunEngine signature
frd
parents:
11649
diff
changeset
|
658 |
exit(HaltNoError); |
11149 | 659 |
{$ELSE} |
660 |
halt(HaltNoError); |
|
661 |
{$ENDIF} |
|
10619
ee460883729e
unexpected return from lua test should not return exit status 0
sheepluva
parents:
10581
diff
changeset
|
662 |
{$ENDIF} |
10175
c92668840ea8
Remove game/preview functions split in library mode, just let normal procedure run instead:
unc0rr
parents:
10162
diff
changeset
|
663 |
{$IFDEF HWLIBRARY} |
c92668840ea8
Remove game/preview functions split in library mode, just let normal procedure run instead:
unc0rr
parents:
10162
diff
changeset
|
664 |
end; |
2698 | 665 |
{$ENDIF} |
10175
c92668840ea8
Remove game/preview functions split in library mode, just let normal procedure run instead:
unc0rr
parents:
10162
diff
changeset
|
666 |
|
51 | 667 |
end. |