author | sheepluva |
Sun, 30 Oct 2011 08:01:26 +0100 | |
changeset 6240 | 5d8e478916b4 |
parent 6219 | c193881389c1 |
child 6224 | 42b256eca362 |
child 6267 | be5d40bb1e86 |
permissions | -rw-r--r-- |
2947 | 1 |
(* |
2 |
* Hedgewars, a free turn based strategy game |
|
4976 | 3 |
* Copyright (c) 2004-2011 Andrey Korotaev <unC0Rr@gmail.com> |
2947 | 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 |
|
16 |
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
|
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} |
22 |
{$R hwengine.rc} |
|
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 |
|
3697 | 32 |
uses SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uKeys, uSound, |
5174
f5294509783e
initial refactoring of ObjcExports and OverlayViewController
koda
parents:
5167
diff
changeset
|
33 |
uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uRandom, uLandTexture, uCollisions, |
4490 | 34 |
sysutils, uTypes, uVariables, uCommands, uUtils, uCaptions, uDebug, uCommandHandlers, uLandPainted; |
3697 | 35 |
|
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2800
diff
changeset
|
36 |
{$IFDEF HWLIBRARY} |
3525 | 37 |
procedure initEverything(complete:boolean); |
38 |
procedure freeEverything(complete:boolean); |
|
4929
3dca560e6510
I need this export in order to not have the wrapper.c fail to find Game() on linux
sheepluva
parents:
4901
diff
changeset
|
39 |
procedure Game(gameArgs: PPChar); cdecl; export; |
51 | 40 |
|
2698 | 41 |
implementation |
42 |
{$ELSE} |
|
51 | 43 |
procedure OnDestroy; forward; |
3611 | 44 |
procedure initEverything(complete:boolean); forward; |
3525 | 45 |
procedure freeEverything(complete:boolean); forward; |
2698 | 46 |
{$ENDIF} |
51 | 47 |
|
48 |
//////////////////////////////// |
|
371 | 49 |
procedure DoTimer(Lag: LongInt); |
2905 | 50 |
var s: shortstring; |
51 | 51 |
begin |
4454 | 52 |
if isPaused = false then |
53 |
inc(RealTicks, Lag); |
|
564 | 54 |
|
2947 | 55 |
case GameState of |
56 |
gsLandGen: begin |
|
57 |
GenMap; |
|
4389 | 58 |
ParseCommand('sendlanddigest', true); |
2947 | 59 |
GameState:= gsStart; |
60 |
end; |
|
61 |
gsStart: begin |
|
62 |
if HasBorder then DisableSomeWeapons; |
|
63 |
AddClouds; |
|
4806
48c1a395f0a7
added flake configuration also in sudden death and SDClouds for underwater
Henek
parents:
4490
diff
changeset
|
64 |
AddFlakes; |
2947 | 65 |
AssignHHCoords; |
66 |
AddMiscGears; |
|
67 |
StoreLoad; |
|
68 |
InitWorld; |
|
69 |
ResetKbd; |
|
70 |
SoundLoad; |
|
71 |
if GameType = gmtSave then |
|
72 |
begin |
|
73 |
isSEBackup:= isSoundEnabled; |
|
74 |
isSoundEnabled:= false |
|
75 |
end; |
|
76 |
FinishProgress; |
|
77 |
PlayMusic; |
|
78 |
SetScale(zoom); |
|
79 |
ScriptCall('onGameStart'); |
|
80 |
GameState:= gsGame; |
|
81 |
end; |
|
82 |
gsConfirm, |
|
83 |
gsGame: begin |
|
84 |
DrawWorld(Lag); // never place between ProcessKbd and DoGameTick - bugs due to /put cmd and isCursorVisible |
|
85 |
ProcessKbd; |
|
3449
033e4a8a9c74
wait for AI thread to finish before freeing ressources (to avoid segfaults on game exit)
sheepluva
parents:
3444
diff
changeset
|
86 |
if not isPaused then |
033e4a8a9c74
wait for AI thread to finish before freeing ressources (to avoid segfaults on game exit)
sheepluva
parents:
3444
diff
changeset
|
87 |
begin |
3799 | 88 |
DoGameTick(Lag); |
3449
033e4a8a9c74
wait for AI thread to finish before freeing ressources (to avoid segfaults on game exit)
sheepluva
parents:
3444
diff
changeset
|
89 |
ProcessVisualGears(Lag); |
033e4a8a9c74
wait for AI thread to finish before freeing ressources (to avoid segfaults on game exit)
sheepluva
parents:
3444
diff
changeset
|
90 |
end; |
2947 | 91 |
end; |
92 |
gsChat: begin |
|
93 |
DrawWorld(Lag); |
|
3449
033e4a8a9c74
wait for AI thread to finish before freeing ressources (to avoid segfaults on game exit)
sheepluva
parents:
3444
diff
changeset
|
94 |
if not isPaused then |
033e4a8a9c74
wait for AI thread to finish before freeing ressources (to avoid segfaults on game exit)
sheepluva
parents:
3444
diff
changeset
|
95 |
begin |
3843 | 96 |
DoGameTick(Lag); |
3449
033e4a8a9c74
wait for AI thread to finish before freeing ressources (to avoid segfaults on game exit)
sheepluva
parents:
3444
diff
changeset
|
97 |
ProcessVisualGears(Lag); |
033e4a8a9c74
wait for AI thread to finish before freeing ressources (to avoid segfaults on game exit)
sheepluva
parents:
3444
diff
changeset
|
98 |
end; |
2947 | 99 |
end; |
100 |
gsExit: begin |
|
101 |
isTerminated:= true; |
|
102 |
end; |
|
5968
4e8bb227be9a
this reintroduces the gsSuspend state to fix multitasking on ios
koda
parents:
5912
diff
changeset
|
103 |
gsSuspend: exit; |
2947 | 104 |
end; |
564 | 105 |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
106 |
{$IFDEF SDL13} |
5505
a55aab592950
Ditch the renderer system in sdl1.3 and use the 'old fashioned' sdl/opengl context. This gives us more flexibility and less problem in receiving video events (expecially on mobile platform) as well as not having to care to reset the gl context every time sdl interferes.
koda
parents:
5242
diff
changeset
|
107 |
SDL_GL_SwapWindow(SDLwindow); |
3523 | 108 |
{$ELSE} |
109 |
SDL_GL_SwapBuffers(); |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
110 |
{$ENDIF} |
4454 | 111 |
|
2947 | 112 |
if flagMakeCapture then |
113 |
begin |
|
114 |
flagMakeCapture:= false; |
|
115 |
s:= 'hw_' + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks); |
|
5912
d31eba29e706
screenshots: display a msg on failure and log causative error
sheepluva
parents:
5825
diff
changeset
|
116 |
|
4359 | 117 |
playSound(sndShutter); |
6019 | 118 |
{$IFNDEF IPHONEOS} |
5912
d31eba29e706
screenshots: display a msg on failure and log causative error
sheepluva
parents:
5825
diff
changeset
|
119 |
if not MakeScreenshot(s) then |
d31eba29e706
screenshots: display a msg on failure and log causative error
sheepluva
parents:
5825
diff
changeset
|
120 |
begin |
d31eba29e706
screenshots: display a msg on failure and log causative error
sheepluva
parents:
5825
diff
changeset
|
121 |
WriteLnToConsole('Screenshot failed.'); |
d31eba29e706
screenshots: display a msg on failure and log causative error
sheepluva
parents:
5825
diff
changeset
|
122 |
AddChatString(#5 + 'screen capture failed (lack of memory or write permissions)'); |
d31eba29e706
screenshots: display a msg on failure and log causative error
sheepluva
parents:
5825
diff
changeset
|
123 |
end |
d31eba29e706
screenshots: display a msg on failure and log causative error
sheepluva
parents:
5825
diff
changeset
|
124 |
else |
6019 | 125 |
{$ENDIF} |
5912
d31eba29e706
screenshots: display a msg on failure and log causative error
sheepluva
parents:
5825
diff
changeset
|
126 |
WriteLnToConsole('Screenshot saved: ' + s); |
2947 | 127 |
end; |
51 | 128 |
end; |
129 |
||
130 |
//////////////////// |
|
79 | 131 |
procedure OnDestroy; |
51 | 132 |
begin |
2947 | 133 |
WriteLnToConsole('Freeing resources...'); |
3617 | 134 |
FreeActionsList(); |
2947 | 135 |
StoreRelease(); |
136 |
ControllerClose(); |
|
137 |
CloseIPC(); |
|
138 |
TTF_Quit(); |
|
3598 | 139 |
{$IFDEF SDL13} |
5505
a55aab592950
Ditch the renderer system in sdl1.3 and use the 'old fashioned' sdl/opengl context. This gives us more flexibility and less problem in receiving video events (expecially on mobile platform) as well as not having to care to reset the gl context every time sdl interferes.
koda
parents:
5242
diff
changeset
|
140 |
SDL_GL_DeleteContext(SDLGLcontext); |
3598 | 141 |
SDL_DestroyWindow(SDLwindow); |
5505
a55aab592950
Ditch the renderer system in sdl1.3 and use the 'old fashioned' sdl/opengl context. This gives us more flexibility and less problem in receiving video events (expecially on mobile platform) as well as not having to care to reset the gl context every time sdl interferes.
koda
parents:
5242
diff
changeset
|
142 |
SDLGLcontext:= nil; |
5166
d1eb1560b4d5
and now for something completely different, overlay refactoring!
koda
parents:
5130
diff
changeset
|
143 |
SDLwindow:= nil; |
3598 | 144 |
{$ENDIF} |
2947 | 145 |
SDL_Quit(); |
3063 | 146 |
isTerminated:= false; |
51 | 147 |
end; |
148 |
||
149 |
/////////////////// |
|
3697 | 150 |
procedure MainLoop; |
5217 | 151 |
{$WARNINGS OFF} |
152 |
// disable "Some fields weren't initialized" warning |
|
153 |
const event: TSDL_Event = (); |
|
154 |
{$WARNINGS ON} |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
155 |
var PrevTime, CurrTime: Longword; |
6013 | 156 |
{$IFDEF SDL13} |
5975 | 157 |
previousGameState: TGameState; |
6019 | 158 |
{$ELSE} |
5521 | 159 |
prevFocusState: boolean; |
6013 | 160 |
{$ENDIF} |
2698 | 161 |
begin |
2947 | 162 |
PrevTime:= SDL_GetTicks; |
3063 | 163 |
while isTerminated = false do |
164 |
begin |
|
5724 | 165 |
SDL_PumpEvents(); |
6072 | 166 |
while SDL_PeepEvents(@event, 1, SDL_GETEVENT, {$IFDEF SDL13}SDL_FIRSTEVENT, SDL_LASTEVENT{$ELSE}SDL_ALLEVENTS{$ENDIF}) > 0 do |
2947 | 167 |
begin |
168 |
case event.type_ of |
|
6072 | 169 |
{$IFDEF SDL13} |
3647
0d0df215fb52
making chat work... (keyboard support is heavily broken in sdl upstream)
koda
parents:
3634
diff
changeset
|
170 |
SDL_KEYDOWN: if GameState = gsChat then |
0d0df215fb52
making chat work... (keyboard support is heavily broken in sdl upstream)
koda
parents:
3634
diff
changeset
|
171 |
// sdl on iphone supports only ashii keyboards and the unicode field is deprecated in sdl 1.3 |
0d0df215fb52
making chat work... (keyboard support is heavily broken in sdl upstream)
koda
parents:
3634
diff
changeset
|
172 |
KeyPressChat(event.key.keysym.sym); |
4454 | 173 |
SDL_WINDOWEVENT: |
5052 | 174 |
if event.window.event = SDL_WINDOWEVENT_SHOWN then |
5521 | 175 |
begin |
4454 | 176 |
cHasFocus:= true; |
5521 | 177 |
onFocusStateChanged() |
5975 | 178 |
end |
179 |
else if event.window.event = SDL_WINDOWEVENT_MINIMIZED then |
|
180 |
begin |
|
181 |
previousGameState:= GameState; |
|
182 |
GameState:= gsSuspend; |
|
183 |
end |
|
184 |
else if event.window.event = SDL_WINDOWEVENT_RESTORED then |
|
185 |
begin |
|
186 |
GameState:= previousGameState; |
|
6021 | 187 |
end |
188 |
else if event.window.event = SDL_WINDOWEVENT_RESIZED then |
|
189 |
begin |
|
6219 | 190 |
// way too broken right now |
191 |
(* |
|
6021 | 192 |
cNewScreenWidth:= max(2 * (event.window.data1 div 2), cMinScreenWidth); |
193 |
cNewScreenHeight:= max(2 * (event.window.data2 div 2), cMinScreenHeight); |
|
194 |
cScreenResizeDelay:= RealTicks+500; |
|
6219 | 195 |
*) |
5521 | 196 |
end; |
3647
0d0df215fb52
making chat work... (keyboard support is heavily broken in sdl upstream)
koda
parents:
3634
diff
changeset
|
197 |
{$ELSE} |
6072 | 198 |
SDL_KEYDOWN: if GameState = gsChat then |
3647
0d0df215fb52
making chat work... (keyboard support is heavily broken in sdl upstream)
koda
parents:
3634
diff
changeset
|
199 |
KeyPressChat(event.key.keysym.unicode); |
4744
ecc2c757d0df
general uKey refactor in preparaiton of two new shortcuts
koda
parents:
4490
diff
changeset
|
200 |
SDL_MOUSEBUTTONDOWN: if event.button.button = SDL_BUTTON_WHEELDOWN then wheelDown:= true; |
ecc2c757d0df
general uKey refactor in preparaiton of two new shortcuts
koda
parents:
4490
diff
changeset
|
201 |
SDL_MOUSEBUTTONUP: if event.button.button = SDL_BUTTON_WHEELUP then wheelUp:= true; |
2947 | 202 |
SDL_ACTIVEEVENT: |
203 |
if (event.active.state and SDL_APPINPUTFOCUS) <> 0 then |
|
5521 | 204 |
begin |
205 |
prevFocusState:= cHasFocus; |
|
2947 | 206 |
cHasFocus:= event.active.gain = 1; |
5521 | 207 |
if prevFocusState xor cHasFocus then |
208 |
onFocusStateChanged() |
|
209 |
end; |
|
5670
e01f0b6f1969
enable window resizing (tested only on linux) - fix issue 103
koda
parents:
5662
diff
changeset
|
210 |
SDL_VIDEORESIZE: begin |
5816
ceb522b0f7d5
"fix" for a screen scaling problem I had after resizing to odd width number values
sheepluva
parents:
5815
diff
changeset
|
211 |
// using lower values than cMinScreenWidth or cMinScreenHeight causes widget overlap and off-screen widget parts |
ceb522b0f7d5
"fix" for a screen scaling problem I had after resizing to odd width number values
sheepluva
parents:
5815
diff
changeset
|
212 |
// Change by sheepluva: |
ceb522b0f7d5
"fix" for a screen scaling problem I had after resizing to odd width number values
sheepluva
parents:
5815
diff
changeset
|
213 |
// Let's only use even numbers for custom width/height since I ran into scaling issues with odd width values. |
ceb522b0f7d5
"fix" for a screen scaling problem I had after resizing to odd width number values
sheepluva
parents:
5815
diff
changeset
|
214 |
// Maybe just fixes the symptom not the actual cause(?), I'm too tired to find out :P |
ceb522b0f7d5
"fix" for a screen scaling problem I had after resizing to odd width number values
sheepluva
parents:
5815
diff
changeset
|
215 |
cNewScreenWidth:= max(2 * (event.resize.w div 2), cMinScreenWidth); |
ceb522b0f7d5
"fix" for a screen scaling problem I had after resizing to odd width number values
sheepluva
parents:
5815
diff
changeset
|
216 |
cNewScreenHeight:= max(2 * (event.resize.h div 2), cMinScreenHeight); |
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
|
217 |
cScreenResizeDelay:= RealTicks+500; |
5670
e01f0b6f1969
enable window resizing (tested only on linux) - fix issue 103
koda
parents:
5662
diff
changeset
|
218 |
end; |
3463 | 219 |
{$ENDIF} |
2947 | 220 |
SDL_JOYAXISMOTION: ControllerAxisEvent(event.jaxis.which, event.jaxis.axis, event.jaxis.value); |
221 |
SDL_JOYHATMOTION: ControllerHatEvent(event.jhat.which, event.jhat.hat, event.jhat.value); |
|
222 |
SDL_JOYBUTTONDOWN: ControllerButtonEvent(event.jbutton.which, event.jbutton.button, true); |
|
223 |
SDL_JOYBUTTONUP: ControllerButtonEvent(event.jbutton.which, event.jbutton.button, false); |
|
224 |
SDL_QUITEV: isTerminated:= true |
|
4454 | 225 |
end; //end case event.type_ of |
226 |
end; //end while SDL_PollEvent(@event) <> 0 do |
|
6072 | 227 |
|
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
|
228 |
if (cScreenResizeDelay <> 0) and (cScreenResizeDelay < RealTicks) and ((cNewScreenWidth <> cScreenWidth) or (cNewScreenHeight <> cScreenHeight)) then |
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
|
229 |
begin |
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
|
230 |
cScreenResizeDelay:= 0; |
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
|
231 |
cScreenWidth:= cNewScreenWidth; |
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
|
232 |
cScreenHeight:= cNewScreenHeight; |
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
|
233 |
|
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
|
234 |
ParseCommand('fullscr '+intToStr(LongInt(cFullScreen)), true); |
5815
d9b50fef5164
* ShoppaKing/TrophyRace maps updated by wolfmarc
sheepluva
parents:
5814
diff
changeset
|
235 |
WriteLnToConsole('window resize: ' + IntToStr(cScreenWidth) + ' x ' + IntToStr(cScreenHeight)); |
5825
a6eab1b7c00d
Scripting: Update screen dimensions on screen resize and introduce onScreenResize() event.
sheepluva
parents:
5816
diff
changeset
|
236 |
ScriptOnScreenResize(); |
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
|
237 |
InitCameraBorders() |
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
|
238 |
end; |
3463 | 239 |
|
3063 | 240 |
if isTerminated = false then |
6072 | 241 |
begin |
3063 | 242 |
CurrTime:= SDL_GetTicks; |
3976 | 243 |
if PrevTime + longword(cTimerInterval) <= CurrTime then |
6072 | 244 |
begin |
3063 | 245 |
DoTimer(CurrTime - PrevTime); |
246 |
PrevTime:= CurrTime |
|
6072 | 247 |
end |
3063 | 248 |
else SDL_Delay(1); |
249 |
IPCCheckSock(); |
|
6072 | 250 |
end; |
3063 | 251 |
end; |
2698 | 252 |
end; |
253 |
||
254 |
/////////////// |
|
6072 | 255 |
procedure Game{$IFDEF HWLIBRARY}(gameArgs: PPChar); cdecl; export{$ENDIF}; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
256 |
var p: TPathType; |
2947 | 257 |
s: shortstring; |
3611 | 258 |
i: LongInt; |
2698 | 259 |
begin |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2800
diff
changeset
|
260 |
{$IFDEF HWLIBRARY} |
2947 | 261 |
cBits:= 32; |
262 |
cFullScreen:= false; |
|
263 |
cTimerInterval:= 8; |
|
264 |
PathPrefix:= 'Data'; |
|
5239 | 265 |
UserPathPrefix:= '.'; |
5109
6d2e8a24277e
strangely enough, the new sdl rotation code is incompatible with our system... this is a workaround that should hold up until their code becomes more stable
koda
parents:
5066
diff
changeset
|
266 |
cShowFPS:= {$IFDEF DEBUGFILE}true{$ELSE}false{$ENDIF}; |
3779
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
267 |
val(gameArgs[0], ipcPort); |
3922
44804043b691
iPad Video Out support (+less warnings +code update for latest SDL)
koda
parents:
3914
diff
changeset
|
268 |
val(gameArgs[1], cScreenWidth); |
44804043b691
iPad Video Out support (+less warnings +code update for latest SDL)
koda
parents:
3914
diff
changeset
|
269 |
val(gameArgs[2], cScreenHeight); |
3779
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
270 |
val(gameArgs[3], cReducedQuality); |
2947 | 271 |
cLocaleFName:= gameArgs[4]; |
5616 | 272 |
if (Length(cLocaleFName) > 6) then cLocale := Copy(cLocaleFName,1,5) |
273 |
else cLocale := Copy(cLocaleFName,1,2); |
|
3779
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
274 |
UserNick:= gameArgs[5]; |
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
275 |
isSoundEnabled:= gameArgs[6] = '1'; |
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
276 |
isMusicEnabled:= gameArgs[7] = '1'; |
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
277 |
cAltDamage:= gameArgs[8] = '1'; |
3922
44804043b691
iPad Video Out support (+less warnings +code update for latest SDL)
koda
parents:
3914
diff
changeset
|
278 |
val(gameArgs[9], rotationQt); |
3779
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
279 |
recordFileName:= gameArgs[10]; |
4814
e19791f08443
smaller rearrangement of (non stereo related) variables
koda
parents:
4812
diff
changeset
|
280 |
cStereoMode:= smNone; |
3624 | 281 |
{$ENDIF} |
5814
9ac119696510
change minimum resolution back to 640x480 (full weapon menu too big for smaller screens)
sheepluva
parents:
5732
diff
changeset
|
282 |
cMinScreenWidth:= min(cScreenWidth, cMinScreenWidth); |
9ac119696510
change minimum resolution back to 640x480 (full weapon menu too big for smaller screens)
sheepluva
parents:
5732
diff
changeset
|
283 |
cMinScreenHeight:= min(cScreenHeight, cMinScreenHeight); |
5686 | 284 |
cOrigScreenWidth:= cScreenWidth; |
285 |
cOrigScreenHeight:= cScreenHeight; |
|
3613 | 286 |
|
3611 | 287 |
initEverything(true); |
3691 | 288 |
|
3611 | 289 |
WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')'); |
290 |
AddFileLog('Prefix: "' + PathPrefix +'"'); |
|
5238
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5217
diff
changeset
|
291 |
AddFileLog('UserPrefix: "' + UserPathPrefix +'"'); |
3611 | 292 |
for i:= 0 to ParamCount do |
293 |
AddFileLog(inttostr(i) + ': ' + ParamStr(i)); |
|
2698 | 294 |
|
2947 | 295 |
for p:= Succ(Low(TPathType)) to High(TPathType) do |
5242 | 296 |
if (p <> ptMapCurrent) and (p <> ptData) then UserPathz[p]:= UserPathPrefix + '/Data/' + Pathz[p]; |
297 |
||
298 |
UserPathz[ptData]:= UserPathPrefix + '/Data'; |
|
5238
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5217
diff
changeset
|
299 |
|
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5217
diff
changeset
|
300 |
for p:= Succ(Low(TPathType)) to High(TPathType) do |
2947 | 301 |
if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p]; |
3697 | 302 |
|
2947 | 303 |
WriteToConsole('Init SDL... '); |
4773
69f8431a5d20
yay, sdl resumed development and accepted some of our patches in mainstream
koda
parents:
4744
diff
changeset
|
304 |
SDLTry(SDL_Init(SDL_INIT_VIDEO or SDL_INIT_NOPARACHUTE) >= 0, true); |
2947 | 305 |
WriteLnToConsole(msgOK); |
2698 | 306 |
|
2947 | 307 |
SDL_EnableUNICODE(1); |
5565 | 308 |
SDL_ShowCursor(0); |
2698 | 309 |
|
2947 | 310 |
WriteToConsole('Init SDL_ttf... '); |
311 |
SDLTry(TTF_Init() <> -1, true); |
|
312 |
WriteLnToConsole(msgOK); |
|
2698 | 313 |
|
5565 | 314 |
// show main window |
315 |
if cFullScreen then ParseCommand('fullscr 1', true) |
|
316 |
else ParseCommand('fullscr 0', true); |
|
2698 | 317 |
|
2947 | 318 |
ControllerInit(); // has to happen before InitKbdKeyTable to map keys |
319 |
InitKbdKeyTable(); |
|
5174
f5294509783e
initial refactoring of ObjcExports and OverlayViewController
koda
parents:
5167
diff
changeset
|
320 |
AddProgress(); |
2698 | 321 |
|
5238
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5217
diff
changeset
|
322 |
LoadLocale(UserPathz[ptLocale] + '/en.txt'); // Do an initial load with english |
2947 | 323 |
LoadLocale(Pathz[ptLocale] + '/en.txt'); // Do an initial load with english |
324 |
if cLocaleFName <> 'en.txt' then |
|
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
3976
diff
changeset
|
325 |
begin |
2719 | 326 |
// Try two letter locale first before trying specific locale overrides |
5110 | 327 |
if (Length(cLocale) > 2) and (Copy(cLocale,1,2) <> 'en') then |
5238
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5217
diff
changeset
|
328 |
begin |
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5217
diff
changeset
|
329 |
LoadLocale(UserPathz[ptLocale] + '/' + Copy(cLocale,1,2)+'.txt'); |
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5217
diff
changeset
|
330 |
LoadLocale(Pathz[ptLocale] + '/' + Copy(cLocale,1,2)+'.txt') |
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5217
diff
changeset
|
331 |
end; |
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5217
diff
changeset
|
332 |
LoadLocale(UserPathz[ptLocale] + '/' + cLocaleFName); |
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5217
diff
changeset
|
333 |
LoadLocale(Pathz[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
|
334 |
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
|
335 |
else cLocale := 'en'; |
2698 | 336 |
|
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
|
337 |
WriteLnToConsole(msgGettingConfig); |
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
3976
diff
changeset
|
338 |
|
2947 | 339 |
if recordFileName = '' then |
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
3976
diff
changeset
|
340 |
begin |
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
|
341 |
InitIPC; |
22e4d74240e5
finishing touches to save games handling (help label, dim on overlay, edit text only when table is editable)
koda
parents:
3843
diff
changeset
|
342 |
SendIPCAndWaitReply('C'); // ask for game config |
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
3976
diff
changeset
|
343 |
end |
2947 | 344 |
else |
345 |
LoadRecordFromFile(recordFileName); |
|
2698 | 346 |
|
2947 | 347 |
ScriptOnGameInit; |
2786 | 348 |
|
2947 | 349 |
s:= 'eproto ' + inttostr(cNetProtoVersion); |
350 |
SendIPCRaw(@s[0], Length(s) + 1); // send proto version |
|
351 |
||
352 |
InitTeams(); |
|
353 |
AssignStores(); |
|
2698 | 354 |
|
2947 | 355 |
if isSoundEnabled then |
356 |
InitSound(); |
|
2590 | 357 |
|
2947 | 358 |
isDeveloperMode:= false; |
2698 | 359 |
|
2947 | 360 |
TryDo(InitStepsFlags = cifAllInited, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true); |
2698 | 361 |
|
2947 | 362 |
ParseCommand('rotmask', true); |
2698 | 363 |
|
2947 | 364 |
MainLoop(); |
3615 | 365 |
// clean up SDL and GL context |
2947 | 366 |
OnDestroy(); |
3615 | 367 |
// clean up all the other memory allocated |
3611 | 368 |
freeEverything(true); |
3165
3ec07a7d8456
just some very sane stuff for the iphone port (plus some macro on pascal files)
koda
parents:
3162
diff
changeset
|
369 |
if alsoShutdownFrontend then halt; |
2698 | 370 |
end; |
2590 | 371 |
|
3525 | 372 |
procedure initEverything (complete:boolean); |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
373 |
begin |
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
374 |
Randomize(); |
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
375 |
|
5565 | 376 |
if complete then cLogfileBase:= 'game' |
377 |
else cLogfileBase:= 'preview'; |
|
378 |
||
3709 | 379 |
// uConsts does not need initialization as they are all consts |
4374 | 380 |
uUtils.initModule; |
3038 | 381 |
uMisc.initModule; |
4359 | 382 |
uVariables.initModule; |
3038 | 383 |
uConsole.initModule; // MUST happen after uMisc |
4373 | 384 |
uCommands.initModule; |
4413 | 385 |
uCommandHandlers.initModule; |
3525 | 386 |
|
3038 | 387 |
uLand.initModule; |
4490 | 388 |
uLandPainted.initModule; |
389 |
||
3525 | 390 |
uIO.initModule; |
3697 | 391 |
|
3525 | 392 |
if complete then |
393 |
begin |
|
394 |
uAI.initModule; |
|
395 |
//uAIActions does not need initialization |
|
396 |
//uAIAmmoTests does not need initialization |
|
397 |
uAIMisc.initModule; |
|
398 |
uAmmos.initModule; |
|
399 |
uChat.initModule; |
|
400 |
uCollisions.initModule; |
|
401 |
//uFloat does not need initialization |
|
402 |
//uGame does not need initialization |
|
403 |
uGears.initModule; |
|
404 |
uKeys.initModule; |
|
405 |
//uLandGraphics does not need initialization |
|
406 |
//uLandObjects does not need initialization |
|
407 |
//uLandTemplates does not need initialization |
|
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
|
408 |
uLandTexture.initModule; |
3525 | 409 |
//uLocale does not need initialization |
3697 | 410 |
uRandom.initModule; |
3525 | 411 |
uScript.initModule; |
412 |
uSound.initModule; |
|
413 |
uStats.initModule; |
|
414 |
uStore.initModule; |
|
415 |
uTeams.initModule; |
|
416 |
uVisualGears.initModule; |
|
417 |
uWorld.initModule; |
|
4393 | 418 |
uCaptions.initModule; |
3525 | 419 |
end; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
420 |
end; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
421 |
|
3525 | 422 |
procedure freeEverything (complete:boolean); |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
423 |
begin |
3525 | 424 |
if complete then |
425 |
begin |
|
4393 | 426 |
uCaptions.freeModule; |
3525 | 427 |
uWorld.freeModule; |
3615 | 428 |
uVisualGears.freeModule; |
3525 | 429 |
uTeams.freeModule; |
430 |
uStore.freeModule; //stub |
|
431 |
uStats.freeModule; //stub |
|
3615 | 432 |
uSound.freeModule; |
3525 | 433 |
uScript.freeModule; |
434 |
uRandom.freeModule; //stub |
|
435 |
//uLocale does not need to be freed |
|
436 |
//uLandTemplates does not need to be freed |
|
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
|
437 |
uLandTexture.freeModule; |
3525 | 438 |
//uLandObjects does not need to be freed |
439 |
//uLandGraphics does not need to be freed |
|
440 |
uKeys.freeModule; //stub |
|
441 |
uGears.freeModule; |
|
442 |
//uGame does not need to be freed |
|
443 |
//uFloat does not need to be freed |
|
444 |
uCollisions.freeModule; //stub |
|
4901 | 445 |
uChat.freeModule; |
3525 | 446 |
uAmmos.freeModule; |
447 |
uAIMisc.freeModule; //stub |
|
448 |
//uAIAmmoTests does not need to be freed |
|
449 |
//uAIActions does not need to be freed |
|
3617 | 450 |
uAI.freeModule; //stub |
3525 | 451 |
end; |
3697 | 452 |
|
3525 | 453 |
uIO.freeModule; //stub |
3038 | 454 |
uLand.freeModule; |
5066 | 455 |
uLandPainted.freeModule; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
456 |
|
4413 | 457 |
uCommandHandlers.freeModule; |
4373 | 458 |
uCommands.freeModule; |
3038 | 459 |
uConsole.freeModule; |
4359 | 460 |
uVariables.freeModule; |
4374 | 461 |
uUtils.freeModule; |
3525 | 462 |
uMisc.freeModule; // uMisc closes the debug log. |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
463 |
end; |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2800
diff
changeset
|
464 |
|
2698 | 465 |
///////////////////////// |
3610 | 466 |
procedure GenLandPreview{$IFDEF HWLIBRARY}(port: LongInt); cdecl; export{$ENDIF}; |
2698 | 467 |
var Preview: TPreview; |
468 |
begin |
|
3611 | 469 |
initEverything(false); |
3610 | 470 |
{$IFDEF HWLIBRARY} |
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
471 |
WriteLnToConsole('Preview connecting on port ' + inttostr(port)); |
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
472 |
ipcPort:= port; |
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
473 |
{$ENDIF} |
2947 | 474 |
InitIPC; |
475 |
IPCWaitPongEvent; |
|
476 |
TryDo(InitStepsFlags = cifRandomize, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true); |
|
2698 | 477 |
|
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
478 |
Preview:= GenPreview(); |
2947 | 479 |
WriteLnToConsole('Sending preview...'); |
480 |
SendIPCRaw(@Preview, sizeof(Preview)); |
|
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
481 |
SendIPCRaw(@MaxHedgehogs, sizeof(byte)); |
2947 | 482 |
WriteLnToConsole('Preview sent, disconnect'); |
483 |
CloseIPC(); |
|
3525 | 484 |
freeEverything(false); |
2698 | 485 |
end; |
486 |
||
3021 | 487 |
{$IFNDEF HWLIBRARY} |
2008 | 488 |
///////////////////// |
489 |
procedure DisplayUsage; |
|
2691 | 490 |
var i: LongInt; |
2008 | 491 |
begin |
2947 | 492 |
WriteLn('Wrong argument format: correct configurations is'); |
493 |
WriteLn(); |
|
5238
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5217
diff
changeset
|
494 |
WriteLn(' hwengine <path to user hedgewars folder> <path to global data folder> <path to replay file> [options]'); |
2947 | 495 |
WriteLn(); |
3678
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
496 |
WriteLn('where [options] must be specified either as:'); |
2947 | 497 |
WriteLn(' --set-video [screen width] [screen height] [color dept]'); |
498 |
WriteLn(' --set-audio [volume] [enable music] [enable sounds]'); |
|
499 |
WriteLn(' --set-other [language file] [full screen] [show FPS]'); |
|
3678
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
500 |
WriteLn(' --set-multimedia [screen width] [screen height] [color dept] [volume] [enable music] [enable sounds] [language file] [full screen]'); |
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
501 |
WriteLn(' --set-everything [screen width] [screen height] [color dept] [volume] [enable music] [enable sounds] [language file] [full screen] [show FPS] [alternate damage] [timer value] [reduced quality]'); |
5130
3602ede67ec5
Add a parameter for game simulation with no gui/sound enabled, just to get statistics
unc0rr
parents:
5111
diff
changeset
|
502 |
WriteLn(' --stats-only'); |
2947 | 503 |
WriteLn(); |
3678
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
504 |
WriteLn('Read documentation online at http://code.google.com/p/hedgewars/wiki/CommandLineOptions for more information'); |
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
505 |
WriteLn(); |
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
506 |
Write('PARSED COMMAND: '); |
2947 | 507 |
for i:=0 to ParamCount do |
508 |
Write(ParamStr(i) + ' '); |
|
509 |
WriteLn(); |
|
2008 | 510 |
end; |
511 |
||
51 | 512 |
//////////////////// |
3678
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
513 |
{$INCLUDE "ArgParsers.inc"} |
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
514 |
|
51 | 515 |
procedure GetParams; |
97
e7c1df9cce2c
- make the game be run from ${PREFIX}/bin with data in ${PREFIX}/share/hedgewars/Data
unc0rr
parents:
81
diff
changeset
|
516 |
begin |
5238
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5217
diff
changeset
|
517 |
if (ParamCount < 3) then |
3678
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
518 |
GameType:= gmtSyntax |
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
519 |
else |
5238
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5217
diff
changeset
|
520 |
if (ParamCount = 3) and ((ParamStr(3) = '--stats-only') or (ParamStr(3) = 'landpreview')) then |
3678
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
521 |
internalSetGameTypeLandPreviewFromParameters() |
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
522 |
else |
3709 | 523 |
if (ParamCount = cDefaultParamNum) then |
3678
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
524 |
internalStartGameWithParameters() |
2947 | 525 |
else |
3678
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
526 |
playReplayFileWithParameters(); |
51 | 527 |
end; |
3021 | 528 |
|
155
401f4ea24715
Engine can generate land preview and send it via IPC
unc0rr
parents:
109
diff
changeset
|
529 |
//////////////////////////////////////////////////////////////////////////////// |
401f4ea24715
Engine can generate land preview and send it via IPC
unc0rr
parents:
109
diff
changeset
|
530 |
/////////////////////////////// m a i n //////////////////////////////////////// |
401f4ea24715
Engine can generate land preview and send it via IPC
unc0rr
parents:
109
diff
changeset
|
531 |
//////////////////////////////////////////////////////////////////////////////// |
401f4ea24715
Engine can generate land preview and send it via IPC
unc0rr
parents:
109
diff
changeset
|
532 |
begin |
2947 | 533 |
GetParams(); |
5616 | 534 |
if (Length(cLocaleFName) > 6) then cLocale := Copy(cLocaleFName,1,5) |
535 |
else cLocale := Copy(cLocaleFName,1,2); |
|
2008 | 536 |
|
3078 | 537 |
if GameType = gmtLandPreview then GenLandPreview() |
2947 | 538 |
else if GameType = gmtSyntax then DisplayUsage() |
539 |
else Game(); |
|
3697 | 540 |
|
5565 | 541 |
// return 1 when engine is not called correctly |
542 |
ExitCode:= LongInt(GameType = gmtSyntax); |
|
2698 | 543 |
{$ENDIF} |
51 | 544 |
end. |