author | unc0rr |
Mon, 18 Jun 2012 23:45:21 +0400 | |
changeset 7262 | 33e703cc7a7f |
parent 7151 | ec15d9e1a7e3 |
child 7180 | 53ffc8853008 |
child 7186 | 013deb83086b |
child 7433 | c7fff3e61d49 |
permissions | -rw-r--r-- |
2947 | 1 |
(* |
6952 | 2 |
* Hedgewars, a free turn based strategy game |
3 |
* Copyright (c) 2004-2012 Andrey Korotaev <unC0Rr@gmail.com> |
|
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 |
|
6954
a61458a81480
changed uKeys to uInputHandler to better reflect its function
Xeli
parents:
6952
diff
changeset
|
32 |
uses SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uInputHandler, 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, |
7044 | 34 |
SysUtils, uTypes, uVariables, uCommands, uUtils, uCaptions, uDebug, uCommandHandlers, uLandPainted |
6341 | 35 |
{$IFDEF SDL13}, uTouch{$ENDIF}{$IFDEF ANDROID}, GLUnit{$ENDIF}; |
3697 | 36 |
|
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2800
diff
changeset
|
37 |
{$IFDEF HWLIBRARY} |
3525 | 38 |
procedure initEverything(complete:boolean); |
39 |
procedure freeEverything(complete:boolean); |
|
5339 | 40 |
procedure Game(gameArgs: PPChar); cdecl; export; |
5458 | 41 |
procedure GenLandPreview(port: Longint); cdecl; export; |
51 | 42 |
|
2698 | 43 |
implementation |
44 |
{$ELSE} |
|
3611 | 45 |
procedure initEverything(complete:boolean); forward; |
3525 | 46 |
procedure freeEverything(complete:boolean); forward; |
2698 | 47 |
{$ENDIF} |
51 | 48 |
|
49 |
//////////////////////////////// |
|
7025 | 50 |
function DoTimer(Lag: LongInt): boolean; |
2905 | 51 |
var s: shortstring; |
51 | 52 |
begin |
7025 | 53 |
DoTimer:= false; |
6734
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6700
diff
changeset
|
54 |
inc(RealTicks, Lag); |
564 | 55 |
|
2947 | 56 |
case GameState of |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
57 |
gsLandGen: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
58 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
59 |
GenMap; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
60 |
ParseCommand('sendlanddigest', true); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
61 |
GameState:= gsStart; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
62 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
63 |
gsStart: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
64 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
65 |
if HasBorder then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
66 |
DisableSomeWeapons; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
67 |
AddClouds; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
68 |
AddFlakes; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
69 |
AssignHHCoords; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
70 |
AddMiscGears; |
6986
409dd3851309
add support for default pascal mode by removing default arguments value (maybe this also helps the parser)
koda
parents:
6954
diff
changeset
|
71 |
StoreLoad(false); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
72 |
InitWorld; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
73 |
ResetKbd; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
74 |
if GameType = gmtSave then |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6986
diff
changeset
|
75 |
SetSound(false); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
76 |
FinishProgress; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
77 |
PlayMusic; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
78 |
SetScale(zoom); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
79 |
ScriptCall('onGameStart'); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
80 |
GameState:= gsGame; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
81 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
82 |
gsConfirm, gsGame: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
83 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
84 |
DrawWorld(Lag); // never place between ProcessKbd and DoGameTick - bugs due to /put cmd and isCursorVisible |
6734
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6700
diff
changeset
|
85 |
DoGameTick(Lag); |
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6700
diff
changeset
|
86 |
ProcessVisualGears(Lag); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
87 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
88 |
gsChat: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
89 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
90 |
DrawWorld(Lag); |
6734
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6700
diff
changeset
|
91 |
DoGameTick(Lag); |
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6700
diff
changeset
|
92 |
ProcessVisualGears(Lag); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
93 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
94 |
gsExit: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
95 |
begin |
7025 | 96 |
DoTimer:= true; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
97 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
98 |
gsSuspend: |
7054 | 99 |
exit(false); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
100 |
end; |
564 | 101 |
|
7049 | 102 |
SwapBuffers; |
4454 | 103 |
|
2947 | 104 |
if flagMakeCapture then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
105 |
begin |
2947 | 106 |
flagMakeCapture:= false; |
7151 | 107 |
{$IFDEF PAS2C} |
108 |
s:= 'hw'; |
|
109 |
{$ELSE} |
|
2947 | 110 |
s:= 'hw_' + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks); |
7151 | 111 |
{$ENDIF} |
5912
d31eba29e706
screenshots: display a msg on failure and log causative error
sheepluva
parents:
5825
diff
changeset
|
112 |
|
4359 | 113 |
playSound(sndShutter); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
114 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
115 |
if MakeScreenshot(s) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
116 |
WriteLnToConsole('Screenshot saved: ' + s) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
117 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
118 |
begin |
5912
d31eba29e706
screenshots: display a msg on failure and log causative error
sheepluva
parents:
5825
diff
changeset
|
119 |
WriteLnToConsole('Screenshot failed.'); |
d31eba29e706
screenshots: display a msg on failure and log causative error
sheepluva
parents:
5825
diff
changeset
|
120 |
AddChatString(#5 + 'screen capture failed (lack of memory or write permissions)'); |
6267
be5d40bb1e86
make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents:
6219
diff
changeset
|
121 |
end |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
122 |
end; |
51 | 123 |
end; |
124 |
||
125 |
/////////////////// |
|
3697 | 126 |
procedure MainLoop; |
6267
be5d40bb1e86
make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents:
6219
diff
changeset
|
127 |
var event: TSDL_Event; |
be5d40bb1e86
make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents:
6219
diff
changeset
|
128 |
PrevTime, CurrTime: Longword; |
7025 | 129 |
isTerminated: boolean; |
6013 | 130 |
{$IFDEF SDL13} |
5975 | 131 |
previousGameState: TGameState; |
6019 | 132 |
{$ELSE} |
5521 | 133 |
prevFocusState: boolean; |
6013 | 134 |
{$ENDIF} |
2698 | 135 |
begin |
7025 | 136 |
isTerminated:= false; |
2947 | 137 |
PrevTime:= SDL_GetTicks; |
3063 | 138 |
while isTerminated = false do |
139 |
begin |
|
5724 | 140 |
SDL_PumpEvents(); |
6598
fa518383563b
added pause/resume functionality for android, android need the opengl context to be recreated along with textures and whatnot
Xeli
parents:
6580
diff
changeset
|
141 |
|
6072 | 142 |
while SDL_PeepEvents(@event, 1, SDL_GETEVENT, {$IFDEF SDL13}SDL_FIRSTEVENT, SDL_LASTEVENT{$ELSE}SDL_ALLEVENTS{$ENDIF}) > 0 do |
2947 | 143 |
begin |
5339 | 144 |
case event.type_ of |
6072 | 145 |
{$IFDEF SDL13} |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
146 |
SDL_KEYDOWN: |
7025 | 147 |
if GameState = gsChat then |
3647
0d0df215fb52
making chat work... (keyboard support is heavily broken in sdl upstream)
koda
parents:
3634
diff
changeset
|
148 |
// sdl on iphone supports only ashii keyboards and the unicode field is deprecated in sdl 1.3 |
7025 | 149 |
KeyPressChat(SDL_GetKeyFromScancode(event.key.keysym.sym))//TODO correct for keymodifiers |
150 |
else |
|
151 |
ProcessKey(event.key); |
|
6917 | 152 |
SDL_KEYUP: |
7025 | 153 |
if GameState <> gsChat then |
154 |
ProcessKey(event.key); |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
155 |
|
5339 | 156 |
SDL_WINDOWEVENT: |
5052 | 157 |
if event.window.event = SDL_WINDOWEVENT_SHOWN then |
7025 | 158 |
begin |
4454 | 159 |
cHasFocus:= true; |
5521 | 160 |
onFocusStateChanged() |
7025 | 161 |
end |
5975 | 162 |
else if event.window.event = SDL_WINDOWEVENT_MINIMIZED then |
7025 | 163 |
begin |
5975 | 164 |
previousGameState:= GameState; |
165 |
GameState:= gsSuspend; |
|
7025 | 166 |
end |
5975 | 167 |
else if event.window.event = SDL_WINDOWEVENT_RESTORED then |
7025 | 168 |
begin |
5975 | 169 |
GameState:= previousGameState; |
6611 | 170 |
{$IFDEF ANDROID} |
171 |
//This call is used to reinitialize the glcontext and reload the textures |
|
6598
fa518383563b
added pause/resume functionality for android, android need the opengl context to be recreated along with textures and whatnot
Xeli
parents:
6580
diff
changeset
|
172 |
ParseCommand('fullscr '+intToStr(LongInt(cFullScreen)), true); |
fa518383563b
added pause/resume functionality for android, android need the opengl context to be recreated along with textures and whatnot
Xeli
parents:
6580
diff
changeset
|
173 |
{$ENDIF} |
7025 | 174 |
end |
6021 | 175 |
else if event.window.event = SDL_WINDOWEVENT_RESIZED then |
7025 | 176 |
begin |
6021 | 177 |
cNewScreenWidth:= max(2 * (event.window.data1 div 2), cMinScreenWidth); |
178 |
cNewScreenHeight:= max(2 * (event.window.data2 div 2), cMinScreenHeight); |
|
6611 | 179 |
cScreenResizeDelay:= RealTicks + 500{$IFDEF IPHONEOS}div 2{$ENDIF}; |
7025 | 180 |
end; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
181 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
182 |
SDL_FINGERMOTION: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
183 |
onTouchMotion(event.tfinger.x, event.tfinger.y,event.tfinger.dx, event.tfinger.dy, event.tfinger.fingerId); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
184 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
185 |
SDL_FINGERDOWN: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
186 |
onTouchDown(event.tfinger.x, event.tfinger.y, event.tfinger.fingerId); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
187 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
188 |
SDL_FINGERUP: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
189 |
onTouchUp(event.tfinger.x, event.tfinger.y, event.tfinger.fingerId); |
3647
0d0df215fb52
making chat work... (keyboard support is heavily broken in sdl upstream)
koda
parents:
3634
diff
changeset
|
190 |
{$ELSE} |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
191 |
SDL_KEYDOWN: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
192 |
if GameState = gsChat then |
6917 | 193 |
KeyPressChat(event.key.keysym.unicode) |
194 |
else |
|
195 |
ProcessKey(event.key); |
|
196 |
SDL_KEYUP: |
|
7025 | 197 |
if GameState <> gsChat then |
198 |
ProcessKey(event.key); |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
199 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
200 |
SDL_MOUSEBUTTONDOWN: |
7025 | 201 |
ProcessMouse(event.button, true); |
202 |
||
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
203 |
SDL_MOUSEBUTTONUP: |
6917 | 204 |
ProcessMouse(event.button, false); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
205 |
|
2947 | 206 |
SDL_ACTIVEEVENT: |
207 |
if (event.active.state and SDL_APPINPUTFOCUS) <> 0 then |
|
7025 | 208 |
begin |
5521 | 209 |
prevFocusState:= cHasFocus; |
2947 | 210 |
cHasFocus:= event.active.gain = 1; |
5521 | 211 |
if prevFocusState xor cHasFocus then |
212 |
onFocusStateChanged() |
|
7025 | 213 |
end; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
214 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
215 |
SDL_VIDEORESIZE: |
7025 | 216 |
begin |
5816
ceb522b0f7d5
"fix" for a screen scaling problem I had after resizing to odd width number values
sheepluva
parents:
5815
diff
changeset
|
217 |
// 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
|
218 |
// Change by sheepluva: |
ceb522b0f7d5
"fix" for a screen scaling problem I had after resizing to odd width number values
sheepluva
parents:
5815
diff
changeset
|
219 |
// 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
|
220 |
// 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
|
221 |
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
|
222 |
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
|
223 |
cScreenResizeDelay:= RealTicks+500; |
7025 | 224 |
end; |
3463 | 225 |
{$ENDIF} |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
226 |
SDL_JOYAXISMOTION: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
227 |
ControllerAxisEvent(event.jaxis.which, event.jaxis.axis, event.jaxis.value); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
228 |
SDL_JOYHATMOTION: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
229 |
ControllerHatEvent(event.jhat.which, event.jhat.hat, event.jhat.value); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
230 |
SDL_JOYBUTTONDOWN: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
231 |
ControllerButtonEvent(event.jbutton.which, event.jbutton.button, true); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
232 |
SDL_JOYBUTTONUP: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
233 |
ControllerButtonEvent(event.jbutton.which, event.jbutton.button, false); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
234 |
SDL_QUITEV: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
235 |
isTerminated:= true |
7025 | 236 |
end; //end case event.type_ of |
237 |
end; //end while SDL_PollEvent(@event) <> 0 do |
|
5732
f3f381011728
Add a delay before applying screen resize to cut down on resize events (especially bad on OSes that need texture recreation)
nemo
parents:
5730
diff
changeset
|
238 |
|
7025 | 239 |
if (cScreenResizeDelay <> 0) and (cScreenResizeDelay < RealTicks) and |
240 |
((cNewScreenWidth <> cScreenWidth) or (cNewScreenHeight <> cScreenHeight)) then |
|
241 |
begin |
|
242 |
cScreenResizeDelay:= 0; |
|
243 |
cScreenWidth:= cNewScreenWidth; |
|
244 |
cScreenHeight:= cNewScreenHeight; |
|
3463 | 245 |
|
7025 | 246 |
ParseCommand('fullscr '+intToStr(LongInt(cFullScreen)), true); |
247 |
WriteLnToConsole('window resize: ' + IntToStr(cScreenWidth) + ' x ' + IntToStr(cScreenHeight)); |
|
248 |
ScriptOnScreenResize(); |
|
249 |
InitCameraBorders(); |
|
250 |
InitTouchInterface(); |
|
251 |
end; |
|
252 |
||
253 |
CurrTime:= SDL_GetTicks(); |
|
6863 | 254 |
if PrevTime + longword(cTimerInterval) <= CurrTime then |
255 |
begin |
|
7025 | 256 |
isTerminated:= DoTimer(CurrTime - PrevTime); |
6863 | 257 |
PrevTime:= CurrTime |
258 |
end |
|
259 |
else SDL_Delay(1); |
|
260 |
IPCCheckSock(); |
|
3063 | 261 |
end; |
2698 | 262 |
end; |
263 |
||
264 |
/////////////// |
|
6072 | 265 |
procedure Game{$IFDEF HWLIBRARY}(gameArgs: PPChar); cdecl; export{$ENDIF}; |
7025 | 266 |
var p: TPathType; |
2947 | 267 |
s: shortstring; |
3611 | 268 |
i: LongInt; |
2698 | 269 |
begin |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2800
diff
changeset
|
270 |
{$IFDEF HWLIBRARY} |
2947 | 271 |
cBits:= 32; |
5365
326c7db9e410
Added an argument to Game(PChar) which provides a path to the data folder. This allows the user/java side to change from internal sdcard to sdcard
Xeli
parents:
5359
diff
changeset
|
272 |
cTimerInterval:= 8; |
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
|
273 |
cShowFPS:= {$IFDEF DEBUGFILE}true{$ELSE}false{$ENDIF}; |
7151 | 274 |
ipcPort:= StrToInt(gameArgs[0]); |
275 |
cScreenWidth:= StrToInt(gameArgs[1]); |
|
276 |
cScreenHeight:= StrToInt(gameArgs[2]); |
|
277 |
cReducedQuality:= StrToInt(gameArgs[3]); |
|
5339 | 278 |
cLocaleFName:= gameArgs[4]; |
6603
ef9ed71e3cf7
ios sanity restored: applied new paths for sdl projects, turned off fullscreen, added 3 lines of documentation, removal of sdl patch (every mod has been integrated mainstream)
koda
parents:
6598
diff
changeset
|
279 |
// cFullScreen functionality is platform dependent, ifdef it if you need to modify it |
ef9ed71e3cf7
ios sanity restored: applied new paths for sdl projects, turned off fullscreen, added 3 lines of documentation, removal of sdl patch (every mod has been integrated mainstream)
koda
parents:
6598
diff
changeset
|
280 |
cFullScreen:= false; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
281 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
282 |
if (Length(cLocaleFName) > 6) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
283 |
cLocale := Copy(cLocaleFName,1,5) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
284 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
285 |
cLocale := Copy(cLocaleFName,1,2); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
286 |
|
5339 | 287 |
UserNick:= gameArgs[5]; |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6986
diff
changeset
|
288 |
SetSound(gameArgs[6] = '1'); |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6986
diff
changeset
|
289 |
SetMusic(gameArgs[7] = '1'); |
5339 | 290 |
cAltDamage:= gameArgs[8] = '1'; |
6029
5073285b6599
changed Game arguments to accept data path on 9th array element (like planned)
koda
parents:
6023
diff
changeset
|
291 |
PathPrefix:= gameArgs[9]; |
6341 | 292 |
UserPathPrefix:= '../Documents'; |
5339 | 293 |
recordFileName:= gameArgs[10]; |
4814
e19791f08443
smaller rearrangement of (non stereo related) variables
koda
parents:
4812
diff
changeset
|
294 |
cStereoMode:= smNone; |
3624 | 295 |
{$ENDIF} |
5814
9ac119696510
change minimum resolution back to 640x480 (full weapon menu too big for smaller screens)
sheepluva
parents:
5732
diff
changeset
|
296 |
cMinScreenWidth:= min(cScreenWidth, cMinScreenWidth); |
9ac119696510
change minimum resolution back to 640x480 (full weapon menu too big for smaller screens)
sheepluva
parents:
5732
diff
changeset
|
297 |
cMinScreenHeight:= min(cScreenHeight, cMinScreenHeight); |
5686 | 298 |
cOrigScreenWidth:= cScreenWidth; |
299 |
cOrigScreenHeight:= cScreenHeight; |
|
3613 | 300 |
|
3611 | 301 |
initEverything(true); |
302 |
WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')'); |
|
303 |
AddFileLog('Prefix: "' + PathPrefix +'"'); |
|
5339 | 304 |
AddFileLog('UserPrefix: "' + UserPathPrefix +'"'); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
305 |
|
3611 | 306 |
for i:= 0 to ParamCount do |
307 |
AddFileLog(inttostr(i) + ': ' + ParamStr(i)); |
|
2698 | 308 |
|
2947 | 309 |
for p:= Succ(Low(TPathType)) to High(TPathType) do |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
310 |
if (p <> ptMapCurrent) and (p <> ptData) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
311 |
UserPathz[p]:= UserPathPrefix + '/Data/' + Pathz[p]; |
5339 | 312 |
|
313 |
UserPathz[ptData]:= UserPathPrefix + '/Data'; |
|
314 |
||
315 |
for p:= Succ(Low(TPathType)) to High(TPathType) do |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
316 |
if p <> ptMapCurrent then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
317 |
Pathz[p]:= PathPrefix + '/' + Pathz[p]; |
3697 | 318 |
|
2947 | 319 |
WriteToConsole('Init SDL... '); |
4773
69f8431a5d20
yay, sdl resumed development and accepted some of our patches in mainstream
koda
parents:
4744
diff
changeset
|
320 |
SDLTry(SDL_Init(SDL_INIT_VIDEO or SDL_INIT_NOPARACHUTE) >= 0, true); |
2947 | 321 |
WriteLnToConsole(msgOK); |
2698 | 322 |
|
2947 | 323 |
SDL_EnableUNICODE(1); |
5565 | 324 |
SDL_ShowCursor(0); |
2698 | 325 |
|
2947 | 326 |
WriteToConsole('Init SDL_ttf... '); |
327 |
SDLTry(TTF_Init() <> -1, true); |
|
328 |
WriteLnToConsole(msgOK); |
|
2698 | 329 |
|
5565 | 330 |
// show main window |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
331 |
if cFullScreen then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
332 |
ParseCommand('fullscr 1', true) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
333 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
334 |
ParseCommand('fullscr 0', true); |
2698 | 335 |
|
2947 | 336 |
ControllerInit(); // has to happen before InitKbdKeyTable to map keys |
337 |
InitKbdKeyTable(); |
|
5174
f5294509783e
initial refactoring of ObjcExports and OverlayViewController
koda
parents:
5167
diff
changeset
|
338 |
AddProgress(); |
2698 | 339 |
|
5339 | 340 |
LoadLocale(UserPathz[ptLocale] + '/en.txt'); // Do an initial load with english |
2947 | 341 |
LoadLocale(Pathz[ptLocale] + '/en.txt'); // Do an initial load with english |
342 |
if cLocaleFName <> 'en.txt' then |
|
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
3976
diff
changeset
|
343 |
begin |
2719 | 344 |
// Try two letter locale first before trying specific locale overrides |
5110 | 345 |
if (Length(cLocale) > 2) and (Copy(cLocale,1,2) <> 'en') then |
5339 | 346 |
begin |
347 |
LoadLocale(UserPathz[ptLocale] + '/' + Copy(cLocale,1,2)+'.txt'); |
|
348 |
LoadLocale(Pathz[ptLocale] + '/' + Copy(cLocale,1,2)+'.txt') |
|
349 |
end; |
|
350 |
LoadLocale(UserPathz[ptLocale] + '/' + cLocaleFName); |
|
351 |
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
|
352 |
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
|
353 |
else cLocale := 'en'; |
2698 | 354 |
|
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
|
355 |
WriteLnToConsole(msgGettingConfig); |
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
3976
diff
changeset
|
356 |
|
2947 | 357 |
if recordFileName = '' then |
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
3976
diff
changeset
|
358 |
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
|
359 |
InitIPC; |
7073 | 360 |
SendIPCAndWaitReply(_S'C'); // ask for game config |
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
3976
diff
changeset
|
361 |
end |
2947 | 362 |
else |
363 |
LoadRecordFromFile(recordFileName); |
|
2698 | 364 |
|
2947 | 365 |
ScriptOnGameInit; |
366 |
s:= 'eproto ' + inttostr(cNetProtoVersion); |
|
367 |
SendIPCRaw(@s[0], Length(s) + 1); // send proto version |
|
368 |
||
369 |
InitTeams(); |
|
370 |
AssignStores(); |
|
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6986
diff
changeset
|
371 |
InitSound(); |
2590 | 372 |
|
2947 | 373 |
isDeveloperMode:= false; |
374 |
TryDo(InitStepsFlags = cifAllInited, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true); |
|
375 |
ParseCommand('rotmask', true); |
|
376 |
MainLoop(); |
|
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6986
diff
changeset
|
377 |
|
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
378 |
// clean up all the memory allocated |
3611 | 379 |
freeEverything(true); |
2698 | 380 |
end; |
2590 | 381 |
|
3525 | 382 |
procedure initEverything (complete:boolean); |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
383 |
begin |
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
384 |
Randomize(); |
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
385 |
|
7027 | 386 |
uUtils.initModule(complete); // this opens the debug file, must be the first |
3038 | 387 |
uMisc.initModule; |
4359 | 388 |
uVariables.initModule; |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
389 |
uConsole.initModule; |
4373 | 390 |
uCommands.initModule; |
4413 | 391 |
uCommandHandlers.initModule; |
3525 | 392 |
|
3038 | 393 |
uLand.initModule; |
4490 | 394 |
uLandPainted.initModule; |
3525 | 395 |
uIO.initModule; |
3697 | 396 |
|
3525 | 397 |
if complete then |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
398 |
begin |
6341 | 399 |
{$IFDEF ANDROID}GLUnit.init;{$ENDIF} |
400 |
{$IFDEF SDL13}uTouch.initModule;{$ENDIF} |
|
6415 | 401 |
uAI.initModule; |
3525 | 402 |
//uAIActions does not need initialization |
403 |
//uAIAmmoTests does not need initialization |
|
404 |
uAIMisc.initModule; |
|
405 |
uAmmos.initModule; |
|
406 |
uChat.initModule; |
|
407 |
uCollisions.initModule; |
|
408 |
//uFloat does not need initialization |
|
409 |
//uGame does not need initialization |
|
410 |
uGears.initModule; |
|
6954
a61458a81480
changed uKeys to uInputHandler to better reflect its function
Xeli
parents:
6952
diff
changeset
|
411 |
uInputHandler.initModule; |
3525 | 412 |
//uLandGraphics does not need initialization |
413 |
//uLandObjects does not need initialization |
|
414 |
//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
|
415 |
uLandTexture.initModule; |
3525 | 416 |
//uLocale does not need initialization |
3697 | 417 |
uRandom.initModule; |
3525 | 418 |
uScript.initModule; |
419 |
uSound.initModule; |
|
420 |
uStats.initModule; |
|
421 |
uStore.initModule; |
|
422 |
uTeams.initModule; |
|
423 |
uVisualGears.initModule; |
|
424 |
uWorld.initModule; |
|
4393 | 425 |
uCaptions.initModule; |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
426 |
end; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
427 |
end; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
428 |
|
3525 | 429 |
procedure freeEverything (complete:boolean); |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
430 |
begin |
3525 | 431 |
if complete then |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
432 |
begin |
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
433 |
WriteLnToConsole('Freeing resources...'); |
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
434 |
uAI.freeModule; |
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
435 |
uAIMisc.freeModule; //stub |
4393 | 436 |
uCaptions.freeModule; |
3525 | 437 |
uWorld.freeModule; |
3615 | 438 |
uVisualGears.freeModule; |
3525 | 439 |
uTeams.freeModule; |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
440 |
uInputHandler.freeModule; |
3525 | 441 |
uStats.freeModule; //stub |
3615 | 442 |
uSound.freeModule; |
3525 | 443 |
uScript.freeModule; |
444 |
uRandom.freeModule; //stub |
|
445 |
//uLocale does not need to be freed |
|
446 |
//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
|
447 |
uLandTexture.freeModule; |
3525 | 448 |
//uLandObjects does not need to be freed |
449 |
//uLandGraphics does not need to be freed |
|
450 |
uGears.freeModule; |
|
451 |
//uGame does not need to be freed |
|
452 |
//uFloat does not need to be freed |
|
453 |
uCollisions.freeModule; //stub |
|
4901 | 454 |
uChat.freeModule; |
3525 | 455 |
uAmmos.freeModule; |
456 |
//uAIAmmoTests does not need to be freed |
|
457 |
//uAIActions does not need to be freed |
|
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
458 |
uStore.freeModule; |
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
459 |
end; |
3697 | 460 |
|
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
461 |
uIO.freeModule; |
3038 | 462 |
uLand.freeModule; |
5066 | 463 |
uLandPainted.freeModule; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
464 |
|
4413 | 465 |
uCommandHandlers.freeModule; |
4373 | 466 |
uCommands.freeModule; |
3038 | 467 |
uConsole.freeModule; |
4359 | 468 |
uVariables.freeModule; |
4374 | 469 |
uUtils.freeModule; |
3525 | 470 |
uMisc.freeModule; // uMisc closes the debug log. |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
471 |
end; |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2800
diff
changeset
|
472 |
|
2698 | 473 |
///////////////////////// |
3610 | 474 |
procedure GenLandPreview{$IFDEF HWLIBRARY}(port: LongInt); cdecl; export{$ENDIF}; |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
475 |
var Preview: TPreview; |
2698 | 476 |
begin |
3611 | 477 |
initEverything(false); |
3610 | 478 |
{$IFDEF HWLIBRARY} |
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
479 |
WriteLnToConsole('Preview connecting on port ' + inttostr(port)); |
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
480 |
ipcPort:= port; |
6634
e00762923086
ios game configuration page supports rotation, with some enhancements (like the new slider); some glitches here and there
koda
parents:
6611
diff
changeset
|
481 |
InitStepsFlags:= cifRandomize; |
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
482 |
{$ENDIF} |
2947 | 483 |
InitIPC; |
484 |
IPCWaitPongEvent; |
|
485 |
TryDo(InitStepsFlags = cifRandomize, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true); |
|
2698 | 486 |
|
7051 | 487 |
GenPreview(Preview); |
2947 | 488 |
WriteLnToConsole('Sending preview...'); |
489 |
SendIPCRaw(@Preview, sizeof(Preview)); |
|
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
490 |
SendIPCRaw(@MaxHedgehogs, sizeof(byte)); |
2947 | 491 |
WriteLnToConsole('Preview sent, disconnect'); |
3525 | 492 |
freeEverything(false); |
2698 | 493 |
end; |
494 |
||
3021 | 495 |
{$IFNDEF HWLIBRARY} |
2008 | 496 |
///////////////////// |
497 |
procedure DisplayUsage; |
|
2691 | 498 |
var i: LongInt; |
2008 | 499 |
begin |
7151 | 500 |
WriteLn(stdout, 'Wrong argument format: correct configurations is'); |
501 |
WriteLn(stdout, ''); |
|
502 |
WriteLn(stdout, ' hwengine <path to user hedgewars folder> <path to global data folder> <path to replay file> [options]'); |
|
503 |
WriteLn(stdout, ''); |
|
504 |
WriteLn(stdout, 'where [options] must be specified either as:'); |
|
505 |
WriteLn(stdout, ' --set-video [screen width] [screen height] [color dept]'); |
|
506 |
WriteLn(stdout, ' --set-audio [volume] [enable music] [enable sounds]'); |
|
507 |
WriteLn(stdout, ' --set-other [language file] [full screen] [show FPS]'); |
|
508 |
WriteLn(stdout, ' --set-multimedia [screen width] [screen height] [color dept] [volume] [enable music] [enable sounds] [language file] [full screen]'); |
|
509 |
WriteLn(stdout, ' --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]'); |
|
510 |
WriteLn(stdout, ' --stats-only'); |
|
511 |
WriteLn(stdout, ''); |
|
512 |
WriteLn(stdout, 'Read documentation online at http://code.google.com/p/hedgewars/wiki/CommandLineOptions for more information'); |
|
513 |
WriteLn(stdout, ''); |
|
514 |
Write(stdout, 'PARSED COMMAND: '); |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
515 |
|
2947 | 516 |
for i:=0 to ParamCount do |
7151 | 517 |
Write(stdout, ParamStr(i) + ' '); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
518 |
|
7151 | 519 |
WriteLn(stdout, ''); |
2008 | 520 |
end; |
521 |
||
51 | 522 |
//////////////////// |
3678
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
523 |
{$INCLUDE "ArgParsers.inc"} |
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
524 |
|
51 | 525 |
procedure GetParams; |
97
e7c1df9cce2c
- make the game be run from ${PREFIX}/bin with data in ${PREFIX}/share/hedgewars/Data
unc0rr
parents:
81
diff
changeset
|
526 |
begin |
5339 | 527 |
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
|
528 |
GameType:= gmtSyntax |
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
529 |
else |
5339 | 530 |
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
|
531 |
internalSetGameTypeLandPreviewFromParameters() |
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
532 |
else |
3709 | 533 |
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
|
534 |
internalStartGameWithParameters() |
2947 | 535 |
else |
3678
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
536 |
playReplayFileWithParameters(); |
51 | 537 |
end; |
3021 | 538 |
|
155
401f4ea24715
Engine can generate land preview and send it via IPC
unc0rr
parents:
109
diff
changeset
|
539 |
//////////////////////////////////////////////////////////////////////////////// |
401f4ea24715
Engine can generate land preview and send it via IPC
unc0rr
parents:
109
diff
changeset
|
540 |
/////////////////////////////// m a i n //////////////////////////////////////// |
401f4ea24715
Engine can generate land preview and send it via IPC
unc0rr
parents:
109
diff
changeset
|
541 |
//////////////////////////////////////////////////////////////////////////////// |
401f4ea24715
Engine can generate land preview and send it via IPC
unc0rr
parents:
109
diff
changeset
|
542 |
begin |
2947 | 543 |
GetParams(); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
544 |
if (Length(cLocaleFName) > 6) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
545 |
cLocale := Copy(cLocaleFName,1,5) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
546 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
547 |
cLocale := Copy(cLocaleFName,1,2); |
2008 | 548 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
549 |
if GameType = gmtLandPreview then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
550 |
GenLandPreview() |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
551 |
else if GameType = gmtSyntax then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
552 |
DisplayUsage() |
2947 | 553 |
else Game(); |
3697 | 554 |
|
5565 | 555 |
// return 1 when engine is not called correctly |
7151 | 556 |
halt(LongInt(GameType = gmtSyntax)); |
2698 | 557 |
{$ENDIF} |
51 | 558 |
end. |