author | nemo |
Sun, 24 Jul 2011 14:42:28 -0400 | |
changeset 5443 | 83cb9dd54469 |
parent 5242 | e4f6aa3250eb |
child 5286 | 22c1f4833a86 |
child 5505 | a55aab592950 |
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; |
|
4454 | 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} |
4933 | 107 |
SDL_RenderPresent(SDLrender); |
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); |
|
116 |
WriteLnToConsole('Saving ' + s + '...'); |
|
4359 | 117 |
playSound(sndShutter); |
4939
6d512ba87f72
screenshot binding for library (on ios it just plays the sound)
koda
parents:
4935
diff
changeset
|
118 |
{$IFNDEF IPHONEOS}MakeScreenshot(s);{$ENDIF} |
2947 | 119 |
end; |
51 | 120 |
end; |
121 |
||
122 |
//////////////////// |
|
79 | 123 |
procedure OnDestroy; |
51 | 124 |
begin |
2947 | 125 |
WriteLnToConsole('Freeing resources...'); |
3617 | 126 |
FreeActionsList(); |
2947 | 127 |
StoreRelease(); |
128 |
ControllerClose(); |
|
129 |
CloseIPC(); |
|
130 |
TTF_Quit(); |
|
3598 | 131 |
{$IFDEF SDL13} |
4933 | 132 |
SDL_RenderClear(SDLrender); |
133 |
SDL_DestroyRenderer(SDLrender); |
|
3598 | 134 |
SDL_DestroyWindow(SDLwindow); |
5166
d1eb1560b4d5
and now for something completely different, overlay refactoring!
koda
parents:
5130
diff
changeset
|
135 |
SDLrender:= nil; |
d1eb1560b4d5
and now for something completely different, overlay refactoring!
koda
parents:
5130
diff
changeset
|
136 |
SDLwindow:= nil; |
3598 | 137 |
{$ENDIF} |
2947 | 138 |
SDL_Quit(); |
3063 | 139 |
isTerminated:= false; |
51 | 140 |
end; |
141 |
||
142 |
/////////////////// |
|
3697 | 143 |
procedure MainLoop; |
5217 | 144 |
{$WARNINGS OFF} |
145 |
// disable "Some fields weren't initialized" warning |
|
146 |
const event: TSDL_Event = (); |
|
147 |
{$WARNINGS ON} |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
148 |
var PrevTime, CurrTime: Longword; |
2698 | 149 |
begin |
2947 | 150 |
PrevTime:= SDL_GetTicks; |
3063 | 151 |
while isTerminated = false do |
152 |
begin |
|
3523 | 153 |
|
2947 | 154 |
while SDL_PollEvent(@event) <> 0 do |
155 |
begin |
|
156 |
case event.type_ of |
|
3647
0d0df215fb52
making chat work... (keyboard support is heavily broken in sdl upstream)
koda
parents:
3634
diff
changeset
|
157 |
SDL_KEYDOWN: if GameState = gsChat then |
4454 | 158 |
{$IFDEF SDL13} |
3647
0d0df215fb52
making chat work... (keyboard support is heavily broken in sdl upstream)
koda
parents:
3634
diff
changeset
|
159 |
// 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
|
160 |
KeyPressChat(event.key.keysym.sym); |
4454 | 161 |
SDL_WINDOWEVENT: |
5052 | 162 |
if event.window.event = SDL_WINDOWEVENT_SHOWN then |
4454 | 163 |
cHasFocus:= true; |
3647
0d0df215fb52
making chat work... (keyboard support is heavily broken in sdl upstream)
koda
parents:
3634
diff
changeset
|
164 |
{$ELSE} |
0d0df215fb52
making chat work... (keyboard support is heavily broken in sdl upstream)
koda
parents:
3634
diff
changeset
|
165 |
KeyPressChat(event.key.keysym.unicode); |
4744
ecc2c757d0df
general uKey refactor in preparaiton of two new shortcuts
koda
parents:
4490
diff
changeset
|
166 |
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
|
167 |
SDL_MOUSEBUTTONUP: if event.button.button = SDL_BUTTON_WHEELUP then wheelUp:= true; |
2947 | 168 |
SDL_ACTIVEEVENT: |
169 |
if (event.active.state and SDL_APPINPUTFOCUS) <> 0 then |
|
170 |
cHasFocus:= event.active.gain = 1; |
|
3463 | 171 |
{$ENDIF} |
2947 | 172 |
SDL_JOYAXISMOTION: ControllerAxisEvent(event.jaxis.which, event.jaxis.axis, event.jaxis.value); |
173 |
SDL_JOYHATMOTION: ControllerHatEvent(event.jhat.which, event.jhat.hat, event.jhat.value); |
|
174 |
SDL_JOYBUTTONDOWN: ControllerButtonEvent(event.jbutton.which, event.jbutton.button, true); |
|
175 |
SDL_JOYBUTTONUP: ControllerButtonEvent(event.jbutton.which, event.jbutton.button, false); |
|
176 |
SDL_QUITEV: isTerminated:= true |
|
4454 | 177 |
end; //end case event.type_ of |
178 |
end; //end while SDL_PollEvent(@event) <> 0 do |
|
3463 | 179 |
|
3063 | 180 |
if isTerminated = false then |
2947 | 181 |
begin |
3063 | 182 |
CurrTime:= SDL_GetTicks; |
3976 | 183 |
if PrevTime + longword(cTimerInterval) <= CurrTime then |
3063 | 184 |
begin |
185 |
DoTimer(CurrTime - PrevTime); |
|
186 |
PrevTime:= CurrTime |
|
3697 | 187 |
end |
3063 | 188 |
else SDL_Delay(1); |
189 |
IPCCheckSock(); |
|
190 |
end; |
|
191 |
end; |
|
2698 | 192 |
end; |
193 |
||
194 |
///////////////////////// |
|
195 |
procedure ShowMainWindow; |
|
196 |
begin |
|
2947 | 197 |
if cFullScreen then ParseCommand('fullscr 1', true) |
198 |
else ParseCommand('fullscr 0', true); |
|
199 |
SDL_ShowCursor(0) |
|
2698 | 200 |
end; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
201 |
|
2698 | 202 |
/////////////// |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2800
diff
changeset
|
203 |
{$IFDEF HWLIBRARY} |
3971 | 204 |
procedure Game(gameArgs: PPChar); cdecl; export; |
2702
48fc46a922fd
rewrite gamesetup to use less memory, rename effects to sound plus some nice actions, settings work in game again
koda
parents:
2699
diff
changeset
|
205 |
{$ELSE} |
3064 | 206 |
procedure Game; |
2702
48fc46a922fd
rewrite gamesetup to use less memory, rename effects to sound plus some nice actions, settings work in game again
koda
parents:
2699
diff
changeset
|
207 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
208 |
var p: TPathType; |
2947 | 209 |
s: shortstring; |
3611 | 210 |
i: LongInt; |
2698 | 211 |
begin |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2800
diff
changeset
|
212 |
{$IFDEF HWLIBRARY} |
2947 | 213 |
cBits:= 32; |
214 |
cFullScreen:= false; |
|
215 |
cTimerInterval:= 8; |
|
216 |
PathPrefix:= 'Data'; |
|
5239 | 217 |
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
|
218 |
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
|
219 |
val(gameArgs[0], ipcPort); |
3922
44804043b691
iPad Video Out support (+less warnings +code update for latest SDL)
koda
parents:
3914
diff
changeset
|
220 |
val(gameArgs[1], cScreenWidth); |
44804043b691
iPad Video Out support (+less warnings +code update for latest SDL)
koda
parents:
3914
diff
changeset
|
221 |
val(gameArgs[2], cScreenHeight); |
3779
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
222 |
val(gameArgs[3], cReducedQuality); |
2947 | 223 |
cLocaleFName:= gameArgs[4]; |
3779
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
224 |
UserNick:= gameArgs[5]; |
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
225 |
isSoundEnabled:= gameArgs[6] = '1'; |
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
226 |
isMusicEnabled:= gameArgs[7] = '1'; |
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
227 |
cAltDamage:= gameArgs[8] = '1'; |
3922
44804043b691
iPad Video Out support (+less warnings +code update for latest SDL)
koda
parents:
3914
diff
changeset
|
228 |
val(gameArgs[9], rotationQt); |
3779
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
229 |
recordFileName:= gameArgs[10]; |
4814
e19791f08443
smaller rearrangement of (non stereo related) variables
koda
parents:
4812
diff
changeset
|
230 |
cStereoMode:= smNone; |
3624 | 231 |
{$ENDIF} |
3613 | 232 |
|
3914 | 233 |
cLogfileBase:= 'game'; |
3611 | 234 |
initEverything(true); |
3691 | 235 |
|
3611 | 236 |
WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')'); |
237 |
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
|
238 |
AddFileLog('UserPrefix: "' + UserPathPrefix +'"'); |
3611 | 239 |
for i:= 0 to ParamCount do |
240 |
AddFileLog(inttostr(i) + ': ' + ParamStr(i)); |
|
2698 | 241 |
|
2947 | 242 |
for p:= Succ(Low(TPathType)) to High(TPathType) do |
5242 | 243 |
if (p <> ptMapCurrent) and (p <> ptData) then UserPathz[p]:= UserPathPrefix + '/Data/' + Pathz[p]; |
244 |
||
245 |
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
|
246 |
|
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
|
247 |
for p:= Succ(Low(TPathType)) to High(TPathType) do |
2947 | 248 |
if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p]; |
3697 | 249 |
|
2947 | 250 |
WriteToConsole('Init SDL... '); |
4773
69f8431a5d20
yay, sdl resumed development and accepted some of our patches in mainstream
koda
parents:
4744
diff
changeset
|
251 |
SDLTry(SDL_Init(SDL_INIT_VIDEO or SDL_INIT_NOPARACHUTE) >= 0, true); |
2947 | 252 |
WriteLnToConsole(msgOK); |
2698 | 253 |
|
2947 | 254 |
SDL_EnableUNICODE(1); |
2698 | 255 |
|
2947 | 256 |
WriteToConsole('Init SDL_ttf... '); |
257 |
SDLTry(TTF_Init() <> -1, true); |
|
258 |
WriteLnToConsole(msgOK); |
|
2698 | 259 |
|
3162 | 260 |
{$IFDEF WIN32} |
261 |
s:= SDL_getenv('SDL_VIDEO_CENTERED'); |
|
3153 | 262 |
SDL_putenv('SDL_VIDEO_CENTERED=1'); |
2947 | 263 |
ShowMainWindow(); |
3162 | 264 |
SDL_putenv(str2pchar('SDL_VIDEO_CENTERED=' + s)); |
265 |
{$ELSE} |
|
3154 | 266 |
ShowMainWindow(); |
3162 | 267 |
{$ENDIF} |
2698 | 268 |
|
2947 | 269 |
ControllerInit(); // has to happen before InitKbdKeyTable to map keys |
270 |
InitKbdKeyTable(); |
|
5174
f5294509783e
initial refactoring of ObjcExports and OverlayViewController
koda
parents:
5167
diff
changeset
|
271 |
AddProgress(); |
2698 | 272 |
|
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
|
273 |
LoadLocale(UserPathz[ptLocale] + '/en.txt'); // Do an initial load with english |
2947 | 274 |
LoadLocale(Pathz[ptLocale] + '/en.txt'); // Do an initial load with english |
5110 | 275 |
if (Length(cLocaleFName) > 6) then cLocale := Copy(cLocaleFName,1,5) |
276 |
else cLocale := Copy(cLocaleFName,1,2); |
|
2947 | 277 |
if cLocaleFName <> 'en.txt' then |
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
3976
diff
changeset
|
278 |
begin |
2719 | 279 |
// Try two letter locale first before trying specific locale overrides |
5110 | 280 |
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
|
281 |
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
|
282 |
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
|
283 |
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
|
284 |
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
|
285 |
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
|
286 |
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
|
287 |
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
|
288 |
else cLocale := 'en'; |
2698 | 289 |
|
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
|
290 |
WriteLnToConsole(msgGettingConfig); |
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
3976
diff
changeset
|
291 |
|
2947 | 292 |
if recordFileName = '' then |
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
3976
diff
changeset
|
293 |
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
|
294 |
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
|
295 |
SendIPCAndWaitReply('C'); // ask for game config |
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
3976
diff
changeset
|
296 |
end |
2947 | 297 |
else |
298 |
LoadRecordFromFile(recordFileName); |
|
2698 | 299 |
|
2947 | 300 |
ScriptOnGameInit; |
2786 | 301 |
|
2947 | 302 |
s:= 'eproto ' + inttostr(cNetProtoVersion); |
303 |
SendIPCRaw(@s[0], Length(s) + 1); // send proto version |
|
304 |
||
305 |
InitTeams(); |
|
306 |
AssignStores(); |
|
2698 | 307 |
|
2947 | 308 |
if isSoundEnabled then |
309 |
InitSound(); |
|
2590 | 310 |
|
2947 | 311 |
isDeveloperMode:= false; |
2698 | 312 |
|
2947 | 313 |
TryDo(InitStepsFlags = cifAllInited, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true); |
2698 | 314 |
|
2947 | 315 |
ParseCommand('rotmask', true); |
2698 | 316 |
|
2947 | 317 |
MainLoop(); |
3615 | 318 |
// clean up SDL and GL context |
2947 | 319 |
OnDestroy(); |
3615 | 320 |
// clean up all the other memory allocated |
3611 | 321 |
freeEverything(true); |
3165
3ec07a7d8456
just some very sane stuff for the iphone port (plus some macro on pascal files)
koda
parents:
3162
diff
changeset
|
322 |
if alsoShutdownFrontend then halt; |
2698 | 323 |
end; |
2590 | 324 |
|
3525 | 325 |
procedure initEverything (complete:boolean); |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
326 |
begin |
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
327 |
Randomize(); |
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
328 |
|
3709 | 329 |
// uConsts does not need initialization as they are all consts |
4374 | 330 |
uUtils.initModule; |
3038 | 331 |
uMisc.initModule; |
4359 | 332 |
uVariables.initModule; |
3038 | 333 |
uConsole.initModule; // MUST happen after uMisc |
4373 | 334 |
uCommands.initModule; |
4413 | 335 |
uCommandHandlers.initModule; |
3525 | 336 |
|
3038 | 337 |
uLand.initModule; |
4490 | 338 |
uLandPainted.initModule; |
339 |
||
3525 | 340 |
uIO.initModule; |
3697 | 341 |
|
3525 | 342 |
if complete then |
343 |
begin |
|
344 |
uAI.initModule; |
|
345 |
//uAIActions does not need initialization |
|
346 |
//uAIAmmoTests does not need initialization |
|
347 |
uAIMisc.initModule; |
|
348 |
uAmmos.initModule; |
|
349 |
uChat.initModule; |
|
350 |
uCollisions.initModule; |
|
351 |
//uFloat does not need initialization |
|
352 |
//uGame does not need initialization |
|
353 |
uGears.initModule; |
|
354 |
uKeys.initModule; |
|
355 |
//uLandGraphics does not need initialization |
|
356 |
//uLandObjects does not need initialization |
|
357 |
//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
|
358 |
uLandTexture.initModule; |
3525 | 359 |
//uLocale does not need initialization |
3697 | 360 |
uRandom.initModule; |
3525 | 361 |
uScript.initModule; |
362 |
uSound.initModule; |
|
363 |
uStats.initModule; |
|
364 |
uStore.initModule; |
|
365 |
uTeams.initModule; |
|
366 |
uVisualGears.initModule; |
|
367 |
uWorld.initModule; |
|
4393 | 368 |
uCaptions.initModule; |
3525 | 369 |
end; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
370 |
end; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
371 |
|
3525 | 372 |
procedure freeEverything (complete:boolean); |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
373 |
begin |
3525 | 374 |
if complete then |
375 |
begin |
|
4393 | 376 |
uCaptions.freeModule; |
3525 | 377 |
uWorld.freeModule; |
3615 | 378 |
uVisualGears.freeModule; |
3525 | 379 |
uTeams.freeModule; |
380 |
uStore.freeModule; //stub |
|
381 |
uStats.freeModule; //stub |
|
3615 | 382 |
uSound.freeModule; |
3525 | 383 |
uScript.freeModule; |
384 |
uRandom.freeModule; //stub |
|
385 |
//uLocale does not need to be freed |
|
386 |
//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
|
387 |
uLandTexture.freeModule; |
3525 | 388 |
//uLandObjects does not need to be freed |
389 |
//uLandGraphics does not need to be freed |
|
390 |
uKeys.freeModule; //stub |
|
391 |
uGears.freeModule; |
|
392 |
//uGame does not need to be freed |
|
393 |
//uFloat does not need to be freed |
|
394 |
uCollisions.freeModule; //stub |
|
4901 | 395 |
uChat.freeModule; |
3525 | 396 |
uAmmos.freeModule; |
397 |
uAIMisc.freeModule; //stub |
|
398 |
//uAIAmmoTests does not need to be freed |
|
399 |
//uAIActions does not need to be freed |
|
3617 | 400 |
uAI.freeModule; //stub |
3525 | 401 |
end; |
3697 | 402 |
|
3525 | 403 |
uIO.freeModule; //stub |
3038 | 404 |
uLand.freeModule; |
5066 | 405 |
uLandPainted.freeModule; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
406 |
|
4413 | 407 |
uCommandHandlers.freeModule; |
4373 | 408 |
uCommands.freeModule; |
3038 | 409 |
uConsole.freeModule; |
4359 | 410 |
uVariables.freeModule; |
4374 | 411 |
uUtils.freeModule; |
3525 | 412 |
uMisc.freeModule; // uMisc closes the debug log. |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
413 |
end; |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2800
diff
changeset
|
414 |
|
2698 | 415 |
///////////////////////// |
3610 | 416 |
procedure GenLandPreview{$IFDEF HWLIBRARY}(port: LongInt); cdecl; export{$ENDIF}; |
2698 | 417 |
var Preview: TPreview; |
418 |
begin |
|
3914 | 419 |
cLogfileBase:= 'preview'; |
3611 | 420 |
initEverything(false); |
3610 | 421 |
{$IFDEF HWLIBRARY} |
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
422 |
WriteLnToConsole('Preview connecting on port ' + inttostr(port)); |
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
423 |
ipcPort:= port; |
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
424 |
{$ENDIF} |
2947 | 425 |
InitIPC; |
426 |
IPCWaitPongEvent; |
|
427 |
TryDo(InitStepsFlags = cifRandomize, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true); |
|
2698 | 428 |
|
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
429 |
Preview:= GenPreview(); |
2947 | 430 |
WriteLnToConsole('Sending preview...'); |
431 |
SendIPCRaw(@Preview, sizeof(Preview)); |
|
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
432 |
SendIPCRaw(@MaxHedgehogs, sizeof(byte)); |
2947 | 433 |
WriteLnToConsole('Preview sent, disconnect'); |
434 |
CloseIPC(); |
|
3525 | 435 |
freeEverything(false); |
2698 | 436 |
end; |
437 |
||
3021 | 438 |
{$IFNDEF HWLIBRARY} |
2008 | 439 |
///////////////////// |
440 |
procedure DisplayUsage; |
|
2691 | 441 |
var i: LongInt; |
2008 | 442 |
begin |
2947 | 443 |
WriteLn('Wrong argument format: correct configurations is'); |
444 |
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
|
445 |
WriteLn(' hwengine <path to user hedgewars folder> <path to global data folder> <path to replay file> [options]'); |
2947 | 446 |
WriteLn(); |
3678
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
447 |
WriteLn('where [options] must be specified either as:'); |
2947 | 448 |
WriteLn(' --set-video [screen width] [screen height] [color dept]'); |
449 |
WriteLn(' --set-audio [volume] [enable music] [enable sounds]'); |
|
450 |
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
|
451 |
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
|
452 |
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
|
453 |
WriteLn(' --stats-only'); |
2947 | 454 |
WriteLn(); |
3678
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
455 |
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
|
456 |
WriteLn(); |
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
457 |
Write('PARSED COMMAND: '); |
2947 | 458 |
for i:=0 to ParamCount do |
459 |
Write(ParamStr(i) + ' '); |
|
460 |
WriteLn(); |
|
2008 | 461 |
end; |
462 |
||
51 | 463 |
//////////////////// |
3678
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
464 |
{$INCLUDE "ArgParsers.inc"} |
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
465 |
|
51 | 466 |
procedure GetParams; |
97
e7c1df9cce2c
- make the game be run from ${PREFIX}/bin with data in ${PREFIX}/share/hedgewars/Data
unc0rr
parents:
81
diff
changeset
|
467 |
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
|
468 |
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
|
469 |
GameType:= gmtSyntax |
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
470 |
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
|
471 |
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
|
472 |
internalSetGameTypeLandPreviewFromParameters() |
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
473 |
else |
3709 | 474 |
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
|
475 |
internalStartGameWithParameters() |
2947 | 476 |
else |
3678
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
477 |
playReplayFileWithParameters(); |
51 | 478 |
end; |
3021 | 479 |
|
155
401f4ea24715
Engine can generate land preview and send it via IPC
unc0rr
parents:
109
diff
changeset
|
480 |
//////////////////////////////////////////////////////////////////////////////// |
401f4ea24715
Engine can generate land preview and send it via IPC
unc0rr
parents:
109
diff
changeset
|
481 |
/////////////////////////////// m a i n //////////////////////////////////////// |
401f4ea24715
Engine can generate land preview and send it via IPC
unc0rr
parents:
109
diff
changeset
|
482 |
//////////////////////////////////////////////////////////////////////////////// |
401f4ea24715
Engine can generate land preview and send it via IPC
unc0rr
parents:
109
diff
changeset
|
483 |
begin |
2947 | 484 |
GetParams(); |
2008 | 485 |
|
3078 | 486 |
if GameType = gmtLandPreview then GenLandPreview() |
2947 | 487 |
else if GameType = gmtSyntax then DisplayUsage() |
488 |
else Game(); |
|
3697 | 489 |
|
2947 | 490 |
if GameType = gmtSyntax then |
491 |
ExitCode:= 1 |
|
492 |
else |
|
493 |
ExitCode:= 0; |
|
2698 | 494 |
{$ENDIF} |
51 | 495 |
end. |