author | koda |
Thu, 17 Jun 2010 16:28:42 +0200 | |
changeset 3510 | 23145a950eae |
parent 3495 | a6b4f351d400 |
child 3523 | 6592fbb969da |
permissions | -rw-r--r-- |
2947 | 1 |
(* |
2 |
* Hedgewars, a free turn based strategy game |
|
3236
4ab3917d7d44
Update (c) lines to 2010 as unc0rr requested - they all had varying values so I just took the first year mentioned, then tacked on -2010
nemo
parents:
3165
diff
changeset
|
3 |
* Copyright (c) 2004-2010 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 |
|
3153 | 32 |
uses |
33 |
SDLh in 'SDLh.pas', |
|
2947 | 34 |
uConsts in 'uConsts.pas', |
35 |
uGame in 'uGame.pas', |
|
36 |
uMisc in 'uMisc.pas', |
|
37 |
uStore in 'uStore.pas', |
|
38 |
uWorld in 'uWorld.pas', |
|
39 |
uIO in 'uIO.pas', |
|
40 |
uGears in 'uGears.pas', |
|
41 |
uVisualGears in 'uVisualGears.pas', |
|
42 |
uConsole in 'uConsole.pas', |
|
43 |
uKeys in 'uKeys.pas', |
|
44 |
uTeams in 'uTeams.pas', |
|
45 |
uSound in 'uSound.pas', |
|
46 |
uRandom in 'uRandom.pas', |
|
47 |
uAI in 'uAI.pas', |
|
48 |
uAIMisc in 'uAIMisc.pas', |
|
3432
83cef0f08a86
* get rid of some fpc hints (redundant/superfluous includes)
sheepluva
parents:
3407
diff
changeset
|
49 |
// uAIAmmoTests in 'uAIAmmoTests.pas', |
83cef0f08a86
* get rid of some fpc hints (redundant/superfluous includes)
sheepluva
parents:
3407
diff
changeset
|
50 |
// uAIActions in 'uAIActions.pas', |
2947 | 51 |
uCollisions in 'uCollisions.pas', |
52 |
uLand in 'uLand.pas', |
|
3432
83cef0f08a86
* get rid of some fpc hints (redundant/superfluous includes)
sheepluva
parents:
3407
diff
changeset
|
53 |
// uLandTemplates in 'uLandTemplates.pas', |
83cef0f08a86
* get rid of some fpc hints (redundant/superfluous includes)
sheepluva
parents:
3407
diff
changeset
|
54 |
// uLandObjects in 'uLandObjects.pas', |
83cef0f08a86
* get rid of some fpc hints (redundant/superfluous includes)
sheepluva
parents:
3407
diff
changeset
|
55 |
// uLandGraphics in 'uLandGraphics.pas', |
2947 | 56 |
uLocale in 'uLocale.pas', |
57 |
uAmmos in 'uAmmos.pas', |
|
3432
83cef0f08a86
* get rid of some fpc hints (redundant/superfluous includes)
sheepluva
parents:
3407
diff
changeset
|
58 |
// uSHA in 'uSHA.pas', |
83cef0f08a86
* get rid of some fpc hints (redundant/superfluous includes)
sheepluva
parents:
3407
diff
changeset
|
59 |
// uFloat in 'uFloat.pas', |
2947 | 60 |
uStats in 'uStats.pas', |
61 |
uChat in 'uChat.pas', |
|
62 |
uLandTexture in 'uLandTexture.pas', |
|
63 |
uScript in 'uScript.pas', |
|
64 |
sysutils; |
|
51 | 65 |
|
66 |
// also: GSHandlers.inc |
|
3387
733f4001b8b9
Break out DrawHH/DrawGear to reduce scrolling in uGears.pas, add portal graphics
nemo
parents:
3369
diff
changeset
|
67 |
// GearDrawing.inc |
51 | 68 |
// CCHandlers.inc |
69 |
// HHHandlers.inc |
|
357 | 70 |
// SinTable.inc |
271 | 71 |
// proto.inc |
51 | 72 |
|
3064 | 73 |
var isTerminated: boolean = false; |
74 |
alsoShutdownFrontend: boolean = false; |
|
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2800
diff
changeset
|
75 |
{$IFDEF HWLIBRARY} |
3495
a6b4f351d400
now engine can be optionally built as library, there's an example wrapper of how to use it
koda
parents:
3492
diff
changeset
|
76 |
type arrayofpchar = array[0..8] of PChar; |
3021 | 77 |
|
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
78 |
procedure initEverything; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
79 |
procedure freeEverything; |
51 | 80 |
|
2698 | 81 |
implementation |
82 |
{$ELSE} |
|
51 | 83 |
procedure OnDestroy; forward; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
84 |
procedure freeEverything; forward; |
2698 | 85 |
{$ENDIF} |
51 | 86 |
|
87 |
//////////////////////////////// |
|
371 | 88 |
procedure DoTimer(Lag: LongInt); |
2243
b4764993f833
additional touch support and nemo's reduced land array size
koda
parents:
2191
diff
changeset
|
89 |
{$IFNDEF IPHONEOS} |
2905 | 90 |
var s: shortstring; |
2243
b4764993f833
additional touch support and nemo's reduced land array size
koda
parents:
2191
diff
changeset
|
91 |
{$ENDIF} |
51 | 92 |
begin |
3449
033e4a8a9c74
wait for AI thread to finish before freeing ressources (to avoid segfaults on game exit)
sheepluva
parents:
3444
diff
changeset
|
93 |
if not isPaused then inc(RealTicks, Lag); |
564 | 94 |
|
2947 | 95 |
case GameState of |
96 |
gsLandGen: begin |
|
97 |
GenMap; |
|
98 |
GameState:= gsStart; |
|
99 |
end; |
|
100 |
gsStart: begin |
|
101 |
if HasBorder then DisableSomeWeapons; |
|
102 |
AddClouds; |
|
103 |
AssignHHCoords; |
|
104 |
AddMiscGears; |
|
105 |
StoreLoad; |
|
106 |
InitWorld; |
|
107 |
ResetKbd; |
|
108 |
SoundLoad; |
|
109 |
if GameType = gmtSave then |
|
110 |
begin |
|
111 |
isSEBackup:= isSoundEnabled; |
|
112 |
isSoundEnabled:= false |
|
113 |
end; |
|
114 |
FinishProgress; |
|
115 |
PlayMusic; |
|
116 |
SetScale(zoom); |
|
117 |
ScriptCall('onGameStart'); |
|
118 |
GameState:= gsGame; |
|
119 |
end; |
|
120 |
gsConfirm, |
|
121 |
gsGame: begin |
|
122 |
DrawWorld(Lag); // never place between ProcessKbd and DoGameTick - bugs due to /put cmd and isCursorVisible |
|
123 |
ProcessKbd; |
|
3449
033e4a8a9c74
wait for AI thread to finish before freeing ressources (to avoid segfaults on game exit)
sheepluva
parents:
3444
diff
changeset
|
124 |
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
|
125 |
begin |
033e4a8a9c74
wait for AI thread to finish before freeing ressources (to avoid segfaults on game exit)
sheepluva
parents:
3444
diff
changeset
|
126 |
DoGameTick(Lag); |
033e4a8a9c74
wait for AI thread to finish before freeing ressources (to avoid segfaults on game exit)
sheepluva
parents:
3444
diff
changeset
|
127 |
ProcessVisualGears(Lag); |
033e4a8a9c74
wait for AI thread to finish before freeing ressources (to avoid segfaults on game exit)
sheepluva
parents:
3444
diff
changeset
|
128 |
end; |
2947 | 129 |
end; |
130 |
gsChat: begin |
|
131 |
DrawWorld(Lag); |
|
3449
033e4a8a9c74
wait for AI thread to finish before freeing ressources (to avoid segfaults on game exit)
sheepluva
parents:
3444
diff
changeset
|
132 |
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
|
133 |
begin |
033e4a8a9c74
wait for AI thread to finish before freeing ressources (to avoid segfaults on game exit)
sheepluva
parents:
3444
diff
changeset
|
134 |
DoGameTick(Lag); |
033e4a8a9c74
wait for AI thread to finish before freeing ressources (to avoid segfaults on game exit)
sheepluva
parents:
3444
diff
changeset
|
135 |
ProcessVisualGears(Lag); |
033e4a8a9c74
wait for AI thread to finish before freeing ressources (to avoid segfaults on game exit)
sheepluva
parents:
3444
diff
changeset
|
136 |
end; |
2947 | 137 |
end; |
138 |
gsExit: begin |
|
139 |
isTerminated:= true; |
|
140 |
end; |
|
141 |
end; |
|
564 | 142 |
|
2947 | 143 |
SDL_GL_SwapBuffers(); |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
144 |
{$IFDEF SDL13} |
2947 | 145 |
SDL_RenderPresent(); |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
146 |
{$ENDIF} |
2171
8208946331ba
Smaxx refactor of LoadImage to use flags, iphone changes by koda (mostly use of rgba instead of rgb)
nemo
parents:
2162
diff
changeset
|
147 |
{$IFNDEF IPHONEOS} |
2947 | 148 |
// not going to make captures on the iPhone |
149 |
if flagMakeCapture then |
|
150 |
begin |
|
151 |
flagMakeCapture:= false; |
|
152 |
s:= 'hw_' + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks); |
|
153 |
WriteLnToConsole('Saving ' + s + '...'); |
|
154 |
MakeScreenshot(s); |
|
155 |
//SDL_SaveBMP_RW(SDLPrimSurface, SDL_RWFromFile(Str2PChar(s), 'wb'), 1) |
|
156 |
end; |
|
2171
8208946331ba
Smaxx refactor of LoadImage to use flags, iphone changes by koda (mostly use of rgba instead of rgb)
nemo
parents:
2162
diff
changeset
|
157 |
{$ENDIF} |
51 | 158 |
end; |
159 |
||
160 |
//////////////////// |
|
79 | 161 |
procedure OnDestroy; |
51 | 162 |
begin |
2947 | 163 |
WriteLnToConsole('Freeing resources...'); |
164 |
if isSoundEnabled then ReleaseSound(); |
|
3449
033e4a8a9c74
wait for AI thread to finish before freeing ressources (to avoid segfaults on game exit)
sheepluva
parents:
3444
diff
changeset
|
165 |
FreeActionsList(); |
2947 | 166 |
StoreRelease(); |
3045 | 167 |
FreeGearsList(); |
3053 | 168 |
FreeVisualGears(); |
2947 | 169 |
FreeLand(); |
170 |
ControllerClose(); |
|
171 |
SendKB(); |
|
172 |
CloseIPC(); |
|
173 |
TTF_Quit(); |
|
174 |
SDL_Quit(); |
|
3063 | 175 |
isTerminated:= false; |
51 | 176 |
end; |
177 |
||
178 |
/////////////////// |
|
2698 | 179 |
procedure MainLoop; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
180 |
var PrevTime, CurrTime: Longword; |
3463 | 181 |
event: TSDL_Event; |
2698 | 182 |
begin |
2947 | 183 |
PrevTime:= SDL_GetTicks; |
3063 | 184 |
while isTerminated = false do |
185 |
begin |
|
3487 | 186 |
{$IFNDEF IPHONEOS} |
2698 | 187 |
// have to remove this cycle because otherwise it segfaults at exit |
2947 | 188 |
while SDL_PollEvent(@event) <> 0 do |
189 |
begin |
|
190 |
case event.type_ of |
|
191 |
SDL_KEYDOWN: if GameState = gsChat then KeyPressChat(event.key.keysym.unicode); |
|
2698 | 192 |
{$IFDEF SDL13} |
2947 | 193 |
SDL_WINDOWEVENT: |
3463 | 194 |
if event.wevent.event = SDL_WINDOWEVENT_SHOWN then |
195 |
cHasFocus:= true; |
|
2698 | 196 |
{$ELSE} |
2947 | 197 |
SDL_ACTIVEEVENT: |
198 |
if (event.active.state and SDL_APPINPUTFOCUS) <> 0 then |
|
199 |
cHasFocus:= event.active.gain = 1; |
|
3463 | 200 |
{$ENDIF} |
201 |
{$IFNDEF IPHONEOS} |
|
2947 | 202 |
//SDL_VIDEORESIZE: Resize(max(event.resize.w, 600), max(event.resize.h, 450)); |
203 |
SDL_MOUSEBUTTONDOWN: if event.button.button = SDL_BUTTON_WHEELDOWN then uKeys.wheelDown:= true; |
|
204 |
SDL_MOUSEBUTTONUP: if event.button.button = SDL_BUTTON_WHEELUP then uKeys.wheelUp:= true; |
|
3463 | 205 |
{$ENDIF} |
2947 | 206 |
SDL_JOYAXISMOTION: ControllerAxisEvent(event.jaxis.which, event.jaxis.axis, event.jaxis.value); |
207 |
SDL_JOYHATMOTION: ControllerHatEvent(event.jhat.which, event.jhat.hat, event.jhat.value); |
|
208 |
SDL_JOYBUTTONDOWN: ControllerButtonEvent(event.jbutton.which, event.jbutton.button, true); |
|
209 |
SDL_JOYBUTTONUP: ControllerButtonEvent(event.jbutton.which, event.jbutton.button, false); |
|
210 |
SDL_QUITEV: isTerminated:= true |
|
3463 | 211 |
end; // end case event.type_ |
212 |
end; // end while SDL_PollEvent(@event) <> 0 |
|
3487 | 213 |
{$ENDIF} |
3463 | 214 |
|
3063 | 215 |
if isTerminated = false then |
2947 | 216 |
begin |
3063 | 217 |
CurrTime:= SDL_GetTicks; |
218 |
if PrevTime + cTimerInterval <= CurrTime then |
|
219 |
begin |
|
220 |
DoTimer(CurrTime - PrevTime); |
|
221 |
PrevTime:= CurrTime |
|
222 |
end |
|
223 |
else SDL_Delay(1); |
|
224 |
IPCCheckSock(); |
|
225 |
end; |
|
226 |
end; |
|
2698 | 227 |
end; |
228 |
||
229 |
///////////////////////// |
|
230 |
procedure ShowMainWindow; |
|
231 |
begin |
|
2947 | 232 |
if cFullScreen then ParseCommand('fullscr 1', true) |
233 |
else ParseCommand('fullscr 0', true); |
|
234 |
SDL_ShowCursor(0) |
|
2698 | 235 |
end; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
236 |
|
2698 | 237 |
/////////////// |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2800
diff
changeset
|
238 |
{$IFDEF HWLIBRARY} |
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
|
239 |
procedure Game(gameArgs: arrayofpchar); cdecl; export; |
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
|
240 |
{$ELSE} |
3064 | 241 |
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
|
242 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
243 |
var p: TPathType; |
2947 | 244 |
s: shortstring; |
2698 | 245 |
begin |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2800
diff
changeset
|
246 |
{$IFDEF HWLIBRARY} |
3049 | 247 |
initEverything(); |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
248 |
|
2947 | 249 |
cBits:= 32; |
250 |
cFullScreen:= false; |
|
251 |
cVSyncInUse:= true; |
|
252 |
cTimerInterval:= 8; |
|
253 |
PathPrefix:= 'Data'; |
|
254 |
cReducedQuality:= false; |
|
255 |
cShowFPS:= true; |
|
256 |
cInitVolume:= 100; |
|
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
|
257 |
|
2947 | 258 |
UserNick:= gameArgs[0]; |
259 |
val(gameArgs[1], ipcPort); |
|
3312 | 260 |
isSoundEnabled:= gameArgs[2] = '1'; |
261 |
isMusicEnabled:= gameArgs[3] = '1'; |
|
2947 | 262 |
cLocaleFName:= gameArgs[4]; |
263 |
cAltDamage:= gameArgs[5] = '1'; |
|
3021 | 264 |
val(gameArgs[6], cScreenHeight); |
265 |
val(gameArgs[7], cScreenWidth); |
|
266 |
cInitHeight:= cScreenHeight; |
|
267 |
cInitWidth:= cScreenWidth; |
|
3495
a6b4f351d400
now engine can be optionally built as library, there's an example wrapper of how to use it
koda
parents:
3492
diff
changeset
|
268 |
recordFileName:= gameArgs[8]; |
2600 | 269 |
{$ENDIF} |
2698 | 270 |
|
2947 | 271 |
for p:= Succ(Low(TPathType)) to High(TPathType) do |
272 |
if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p]; |
|
273 |
||
274 |
WriteToConsole('Init SDL... '); |
|
275 |
SDLTry(SDL_Init(SDL_INIT_VIDEO) >= 0, true); |
|
276 |
WriteLnToConsole(msgOK); |
|
2698 | 277 |
|
2947 | 278 |
SDL_EnableUNICODE(1); |
2698 | 279 |
|
2947 | 280 |
WriteToConsole('Init SDL_ttf... '); |
281 |
SDLTry(TTF_Init() <> -1, true); |
|
282 |
WriteLnToConsole(msgOK); |
|
2698 | 283 |
|
3162 | 284 |
{$IFDEF WIN32} |
285 |
s:= SDL_getenv('SDL_VIDEO_CENTERED'); |
|
3153 | 286 |
SDL_putenv('SDL_VIDEO_CENTERED=1'); |
2947 | 287 |
ShowMainWindow(); |
3162 | 288 |
SDL_putenv(str2pchar('SDL_VIDEO_CENTERED=' + s)); |
289 |
{$ELSE} |
|
3154 | 290 |
ShowMainWindow(); |
3162 | 291 |
{$ENDIF} |
2698 | 292 |
|
2947 | 293 |
AddProgress(); |
2698 | 294 |
|
2947 | 295 |
ControllerInit(); // has to happen before InitKbdKeyTable to map keys |
296 |
InitKbdKeyTable(); |
|
2698 | 297 |
|
2947 | 298 |
if recordFileName = '' then |
299 |
InitIPC; |
|
300 |
WriteLnToConsole(msgGettingConfig); |
|
2698 | 301 |
|
2947 | 302 |
LoadLocale(Pathz[ptLocale] + '/en.txt'); // Do an initial load with english |
303 |
if cLocaleFName <> 'en.txt' then |
|
2719 | 304 |
begin |
305 |
// Try two letter locale first before trying specific locale overrides |
|
2722 | 306 |
if (Length(cLocaleFName) > 6) and (Copy(cLocaleFName,1,2)+'.txt' <> 'en.txt') then |
307 |
LoadLocale(Pathz[ptLocale] + '/' + Copy(cLocaleFName,1,2)+'.txt'); |
|
2947 | 308 |
LoadLocale(Pathz[ptLocale] + '/' + cLocaleFName); |
2719 | 309 |
end; |
2698 | 310 |
|
2947 | 311 |
if recordFileName = '' then |
312 |
SendIPCAndWaitReply('C') // ask for game config |
|
313 |
else |
|
314 |
LoadRecordFromFile(recordFileName); |
|
2698 | 315 |
|
2947 | 316 |
ScriptOnGameInit; |
2786 | 317 |
|
2947 | 318 |
s:= 'eproto ' + inttostr(cNetProtoVersion); |
319 |
SendIPCRaw(@s[0], Length(s) + 1); // send proto version |
|
320 |
||
321 |
InitTeams(); |
|
322 |
AssignStores(); |
|
2698 | 323 |
|
2947 | 324 |
if isSoundEnabled then |
325 |
InitSound(); |
|
2590 | 326 |
|
2947 | 327 |
isDeveloperMode:= false; |
2698 | 328 |
|
2947 | 329 |
TryDo(InitStepsFlags = cifAllInited, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true); |
2698 | 330 |
|
2947 | 331 |
ParseCommand('rotmask', true); |
2698 | 332 |
|
2947 | 333 |
MainLoop(); |
334 |
OnDestroy(); |
|
3165
3ec07a7d8456
just some very sane stuff for the iphone port (plus some macro on pascal files)
koda
parents:
3162
diff
changeset
|
335 |
{$IFDEF HWLIBRARY}freeEverything();{$ENDIF} |
3ec07a7d8456
just some very sane stuff for the iphone port (plus some macro on pascal files)
koda
parents:
3162
diff
changeset
|
336 |
if alsoShutdownFrontend then halt; |
2698 | 337 |
end; |
2590 | 338 |
|
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
339 |
procedure initEverything; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
340 |
begin |
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
341 |
Randomize(); |
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
342 |
|
3038 | 343 |
uConsts.initModule; |
344 |
uMisc.initModule; |
|
345 |
uConsole.initModule; // MUST happen after uMisc |
|
2947 | 346 |
|
3038 | 347 |
uAI.initModule; |
2947 | 348 |
//uAIActions does not need initialization |
349 |
//uAIAmmoTests does not need initialization |
|
3038 | 350 |
uAIMisc.initModule; |
351 |
uAmmos.initModule; |
|
352 |
uChat.initModule; |
|
353 |
uCollisions.initModule; |
|
2947 | 354 |
//uFloat does not need initialization |
355 |
//uGame does not need initialization |
|
3038 | 356 |
uGears.initModule; |
357 |
uIO.initModule; |
|
358 |
uKeys.initModule; |
|
359 |
uLand.initModule; |
|
2947 | 360 |
//uLandGraphics does not need initialization |
361 |
//uLandObjects does not need initialization |
|
362 |
//uLandTemplates does not need initialization |
|
363 |
//uLandTexture does not need initialization |
|
364 |
//uLocale does not need initialization |
|
3038 | 365 |
uRandom.initModule; |
3369
c7289e42f0ee
add other controls for map preview, also fix a bug in digest
koda
parents:
3365
diff
changeset
|
366 |
//uSHA is initialized internally |
3038 | 367 |
uSound.initModule; |
368 |
uStats.initModule; |
|
369 |
uStore.initModule; |
|
370 |
uTeams.initModule; |
|
371 |
uVisualGears.initModule; |
|
372 |
uWorld.initModule; |
|
373 |
uScript.initModule; |
|
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
374 |
end; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
375 |
|
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
376 |
procedure freeEverything; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
377 |
begin |
3038 | 378 |
uWorld.freeModule; |
379 |
uVisualGears.freeModule; //stub |
|
380 |
uTeams.freeModule; |
|
3043
3acdb4dac6eb
Just tidying up a bit. Comments, moving uMisc to end of frees in case ones above it need logging
nemo
parents:
3038
diff
changeset
|
381 |
uStore.freeModule; //stub |
3038 | 382 |
uStats.freeModule; //stub |
383 |
uSound.freeModule; //stub |
|
2947 | 384 |
//uSHA does not need to be freed |
3043
3acdb4dac6eb
Just tidying up a bit. Comments, moving uMisc to end of frees in case ones above it need logging
nemo
parents:
3038
diff
changeset
|
385 |
uRandom.freeModule; //stub |
2947 | 386 |
//uLocale does not need to be freed |
387 |
//uLandTemplates does not need to be freed |
|
388 |
//uLandTexture does not need to be freed |
|
389 |
//uLandObjects does not need to be freed |
|
390 |
//uLandGraphics does not need to be freed |
|
3038 | 391 |
uLand.freeModule; |
392 |
uKeys.freeModule; //stub |
|
3043
3acdb4dac6eb
Just tidying up a bit. Comments, moving uMisc to end of frees in case ones above it need logging
nemo
parents:
3038
diff
changeset
|
393 |
uIO.freeModule; //stub |
3038 | 394 |
uGears.freeModule; |
2947 | 395 |
//uGame does not need to be freed |
396 |
//uFloat does not need to be freed |
|
3043
3acdb4dac6eb
Just tidying up a bit. Comments, moving uMisc to end of frees in case ones above it need logging
nemo
parents:
3038
diff
changeset
|
397 |
uCollisions.freeModule; //stub |
3acdb4dac6eb
Just tidying up a bit. Comments, moving uMisc to end of frees in case ones above it need logging
nemo
parents:
3038
diff
changeset
|
398 |
uChat.freeModule; //stub |
3038 | 399 |
uAmmos.freeModule; |
400 |
uAIMisc.freeModule; //stub |
|
2947 | 401 |
//uAIAmmoTests does not need to be freed |
402 |
//uAIActions does not need to be freed |
|
3038 | 403 |
uAI.freeModule; //stub |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
404 |
|
3038 | 405 |
uConsole.freeModule; |
406 |
uConsts.freeModule; //stub |
|
407 |
uScript.freeModule; |
|
3369
c7289e42f0ee
add other controls for map preview, also fix a bug in digest
koda
parents:
3365
diff
changeset
|
408 |
// uMisc closes the debug log. |
3043
3acdb4dac6eb
Just tidying up a bit. Comments, moving uMisc to end of frees in case ones above it need logging
nemo
parents:
3038
diff
changeset
|
409 |
uMisc.freeModule; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
410 |
end; |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2800
diff
changeset
|
411 |
|
2698 | 412 |
///////////////////////// |
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
413 |
procedure GenLandPreview{$IFDEF IPHONEOS}(port: LongInt){$ENDIF}; {$IFDEF HWLIBRARY}cdecl; export;{$ENDIF} |
2698 | 414 |
var Preview: TPreview; |
415 |
begin |
|
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
416 |
{$IFDEF IPHONEOS} |
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
417 |
initEverything(); |
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
418 |
WriteLnToConsole('Preview connecting on port ' + inttostr(port)); |
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
419 |
ipcPort:= port; |
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
420 |
{$ENDIF} |
2947 | 421 |
InitIPC; |
422 |
IPCWaitPongEvent; |
|
423 |
TryDo(InitStepsFlags = cifRandomize, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true); |
|
2698 | 424 |
|
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
425 |
Preview:= GenPreview(); |
2947 | 426 |
WriteLnToConsole('Sending preview...'); |
427 |
SendIPCRaw(@Preview, sizeof(Preview)); |
|
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
428 |
SendIPCRaw(@MaxHedgehogs, sizeof(byte)); |
2947 | 429 |
WriteLnToConsole('Preview sent, disconnect'); |
430 |
CloseIPC(); |
|
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
431 |
{$IFDEF IPHONEOS} |
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
432 |
freeEverything(); |
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
433 |
{$ENDIF} |
2698 | 434 |
end; |
435 |
||
3021 | 436 |
{$IFNDEF HWLIBRARY} |
2698 | 437 |
//////////////////////////////// |
3407 | 438 |
(*procedure Resize(w, h: LongInt); |
2698 | 439 |
begin |
2947 | 440 |
cScreenWidth:= w; |
441 |
cScreenHeight:= h; |
|
442 |
if cFullScreen then |
|
443 |
ParseCommand('/fullscr 1', true) |
|
444 |
else |
|
445 |
ParseCommand('/fullscr 0', true); |
|
3407 | 446 |
end;*) |
51 | 447 |
|
2008 | 448 |
///////////////////// |
449 |
procedure DisplayUsage; |
|
2691 | 450 |
var i: LongInt; |
2008 | 451 |
begin |
2947 | 452 |
WriteLn('Wrong argument format: correct configurations is'); |
453 |
WriteLn(); |
|
454 |
WriteLn(' hwengine <path to data folder> <path to replay file> [option]'); |
|
455 |
WriteLn(); |
|
456 |
WriteLn('where [option] must be specified either as'); |
|
457 |
WriteLn(' --set-video [screen width] [screen height] [color dept]'); |
|
458 |
WriteLn(' --set-audio [volume] [enable music] [enable sounds]'); |
|
459 |
WriteLn(' --set-other [language file] [full screen] [show FPS]'); |
|
460 |
WriteLn(' --set-multimedia [screen height] [screen width] [color dept] [volume] [enable music] [enable sounds] [language file] [full screen]'); |
|
461 |
WriteLn(' --set-everything [screen height] [screen width] [color dept] [volume] [enable music] [enable sounds] [language file] [full screen] [show FPS] [alternate damage] [timer value] [reduced quality]'); |
|
462 |
WriteLn(); |
|
463 |
WriteLn('Read documentation online at http://www.hedgewars.org/node/1465 for more information'); |
|
464 |
Write('parsed command: '); |
|
465 |
for i:=0 to ParamCount do |
|
466 |
Write(ParamStr(i) + ' '); |
|
467 |
WriteLn(); |
|
2008 | 468 |
end; |
469 |
||
51 | 470 |
//////////////////// |
471 |
procedure GetParams; |
|
267 | 472 |
{$IFDEF DEBUGFILE} |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
473 |
var i: LongInt; |
267 | 474 |
{$ENDIF} |
97
e7c1df9cce2c
- make the game be run from ${PREFIX}/bin with data in ${PREFIX}/share/hedgewars/Data
unc0rr
parents:
81
diff
changeset
|
475 |
begin |
267 | 476 |
|
2947 | 477 |
case ParamCount of |
478 |
18: begin |
|
479 |
val(ParamStr(2), cScreenWidth); |
|
480 |
val(ParamStr(3), cScreenHeight); |
|
481 |
cInitWidth:= cScreenWidth; |
|
482 |
cInitHeight:= cScreenHeight; |
|
483 |
cBitsStr:= ParamStr(4); |
|
484 |
val(cBitsStr, cBits); |
|
485 |
val(ParamStr(5), ipcPort); |
|
486 |
cFullScreen:= ParamStr(6) = '1'; |
|
487 |
isSoundEnabled:= ParamStr(7) = '1'; |
|
488 |
cVSyncInUse:= ParamStr(8) = '1'; |
|
489 |
cWeaponTooltips:= ParamStr(9) = '1'; |
|
490 |
cLocaleFName:= ParamStr(10); |
|
491 |
val(ParamStr(11), cInitVolume); |
|
492 |
val(ParamStr(12), cTimerInterval); |
|
493 |
PathPrefix:= ParamStr(13); |
|
494 |
cShowFPS:= ParamStr(14) = '1'; |
|
495 |
cAltDamage:= ParamStr(15) = '1'; |
|
496 |
UserNick:= DecodeBase64(ParamStr(16)); |
|
497 |
isMusicEnabled:= ParamStr(17) = '1'; |
|
498 |
cReducedQuality:= ParamStr(18) = '1'; |
|
499 |
end; |
|
500 |
3: begin |
|
501 |
val(ParamStr(2), ipcPort); |
|
502 |
GameType:= gmtLandPreview; |
|
503 |
if ParamStr(3) <> 'landpreview' then |
|
504 |
OutError(errmsgShouldntRun, true); |
|
505 |
end; |
|
506 |
2: begin |
|
507 |
PathPrefix:= ParamStr(1); |
|
508 |
recordFileName:= ParamStr(2); |
|
509 |
end; |
|
510 |
6: begin |
|
511 |
PathPrefix:= ParamStr(1); |
|
512 |
recordFileName:= ParamStr(2); |
|
2698 | 513 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
514 |
if ParamStr(3) = '--set-video' then |
2947 | 515 |
begin |
516 |
val(ParamStr(4), cScreenWidth); |
|
517 |
val(ParamStr(5), cScreenHeight); |
|
518 |
cInitWidth:= cScreenWidth; |
|
519 |
cInitHeight:= cScreenHeight; |
|
520 |
cBitsStr:= ParamStr(6); |
|
521 |
val(cBitsStr, cBits); |
|
522 |
end |
|
523 |
else |
|
524 |
begin |
|
525 |
if ParamStr(3) = '--set-audio' then |
|
526 |
begin |
|
527 |
val(ParamStr(4), cInitVolume); |
|
528 |
isMusicEnabled:= ParamStr(5) = '1'; |
|
529 |
isSoundEnabled:= ParamStr(6) = '1'; |
|
530 |
end |
|
531 |
else |
|
532 |
begin |
|
533 |
if ParamStr(3) = '--set-other' then |
|
534 |
begin |
|
535 |
cLocaleFName:= ParamStr(4); |
|
536 |
cFullScreen:= ParamStr(5) = '1'; |
|
537 |
cShowFPS:= ParamStr(6) = '1'; |
|
538 |
end |
|
539 |
else GameType:= gmtSyntax; |
|
540 |
end |
|
541 |
end; |
|
542 |
end; |
|
543 |
11: begin |
|
544 |
PathPrefix:= ParamStr(1); |
|
545 |
recordFileName:= ParamStr(2); |
|
2376 | 546 |
|
2947 | 547 |
if ParamStr(3) = '--set-multimedia' then |
548 |
begin |
|
549 |
val(ParamStr(4), cScreenWidth); |
|
550 |
val(ParamStr(5), cScreenHeight); |
|
551 |
cInitWidth:= cScreenWidth; |
|
552 |
cInitHeight:= cScreenHeight; |
|
553 |
cBitsStr:= ParamStr(6); |
|
554 |
val(cBitsStr, cBits); |
|
555 |
val(ParamStr(7), cInitVolume); |
|
556 |
isMusicEnabled:= ParamStr(8) = '1'; |
|
557 |
isSoundEnabled:= ParamStr(9) = '1'; |
|
558 |
cLocaleFName:= ParamStr(10); |
|
559 |
cFullScreen:= ParamStr(11) = '1'; |
|
560 |
end |
|
561 |
else GameType:= gmtSyntax; |
|
562 |
end; |
|
563 |
15: begin |
|
564 |
PathPrefix:= ParamStr(1); |
|
565 |
recordFileName:= ParamStr(2); |
|
566 |
if ParamStr(3) = '--set-everything' then |
|
567 |
begin |
|
568 |
val(ParamStr(4), cScreenWidth); |
|
569 |
val(ParamStr(5), cScreenHeight); |
|
570 |
cInitWidth:= cScreenWidth; |
|
571 |
cInitHeight:= cScreenHeight; |
|
572 |
cBitsStr:= ParamStr(6); |
|
573 |
val(cBitsStr, cBits); |
|
574 |
val(ParamStr(7), cInitVolume); |
|
575 |
isMusicEnabled:= ParamStr(8) = '1'; |
|
576 |
isSoundEnabled:= ParamStr(9) = '1'; |
|
577 |
cLocaleFName:= ParamStr(10); |
|
578 |
cFullScreen:= ParamStr(11) = '1'; |
|
579 |
cAltDamage:= ParamStr(12) = '1'; |
|
580 |
cShowFPS:= ParamStr(13) = '1'; |
|
581 |
val(ParamStr(14), cTimerInterval); |
|
582 |
cReducedQuality:= ParamStr(15) = '1'; |
|
583 |
end |
|
584 |
else GameType:= gmtSyntax; |
|
585 |
end; |
|
586 |
else GameType:= gmtSyntax; |
|
587 |
end; |
|
2630 | 588 |
|
589 |
{$IFDEF DEBUGFILE} |
|
2947 | 590 |
AddFileLog('Prefix: "' + PathPrefix +'"'); |
591 |
for i:= 0 to ParamCount do |
|
592 |
AddFileLog(inttostr(i) + ': ' + ParamStr(i)); |
|
2630 | 593 |
{$ENDIF} |
51 | 594 |
end; |
3021 | 595 |
|
155
401f4ea24715
Engine can generate land preview and send it via IPC
unc0rr
parents:
109
diff
changeset
|
596 |
//////////////////////////////////////////////////////////////////////////////// |
401f4ea24715
Engine can generate land preview and send it via IPC
unc0rr
parents:
109
diff
changeset
|
597 |
/////////////////////////////// m a i n //////////////////////////////////////// |
401f4ea24715
Engine can generate land preview and send it via IPC
unc0rr
parents:
109
diff
changeset
|
598 |
//////////////////////////////////////////////////////////////////////////////// |
401f4ea24715
Engine can generate land preview and send it via IPC
unc0rr
parents:
109
diff
changeset
|
599 |
begin |
2947 | 600 |
initEverything(); |
601 |
WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')'); |
|
602 |
||
603 |
GetParams(); |
|
2008 | 604 |
|
3078 | 605 |
if GameType = gmtLandPreview then GenLandPreview() |
2947 | 606 |
else if GameType = gmtSyntax then DisplayUsage() |
607 |
else Game(); |
|
608 |
||
3078 | 609 |
freeEverything(); |
2947 | 610 |
if GameType = gmtSyntax then |
611 |
ExitCode:= 1 |
|
612 |
else |
|
613 |
ExitCode:= 0; |
|
2698 | 614 |
{$ENDIF} |
51 | 615 |
end. |