author | sheepluva |
Sat, 01 Sep 2012 10:40:22 +0200 | |
changeset 7642 | 91fce82f9c6f |
parent 7615 | b39beffcf05e |
child 7687 | c73fd8cfa7c0 |
child 7837 | 3e031b3b33e6 |
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, |
7594 | 33 |
uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uLandTexture, uCollisions, |
7044 | 34 |
SysUtils, uTypes, uVariables, uCommands, uUtils, uCaptions, uDebug, uCommandHandlers, uLandPainted |
7447
01111960a48d
uploading to youtube, it works, but user interface is still incomplete
Stepan777 <stepik-777@mail.ru>
parents:
7442
diff
changeset
|
35 |
{$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF} |
7433
c7fff3e61d49
- Implement AI land marks which only used to tracks visited areas on the map for now. Significantly reduces wasting of cpu time by AI checking same place several times (10x or even more in rare cases)
unc0rr
parents:
7151
diff
changeset
|
36 |
{$IFDEF SDL13}, uTouch{$ENDIF}{$IFDEF ANDROID}, GLUnit{$ENDIF}, uAILandMarks; |
3697 | 37 |
|
38 |
||
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2800
diff
changeset
|
39 |
{$IFDEF HWLIBRARY} |
3525 | 40 |
procedure initEverything(complete:boolean); |
41 |
procedure freeEverything(complete:boolean); |
|
5339 | 42 |
procedure Game(gameArgs: PPChar); cdecl; export; |
5458 | 43 |
procedure GenLandPreview(port: Longint); cdecl; export; |
51 | 44 |
|
2698 | 45 |
implementation |
46 |
{$ELSE} |
|
3611 | 47 |
procedure initEverything(complete:boolean); forward; |
3525 | 48 |
procedure freeEverything(complete:boolean); forward; |
2698 | 49 |
{$ENDIF} |
51 | 50 |
|
51 |
//////////////////////////////// |
|
7025 | 52 |
function DoTimer(Lag: LongInt): boolean; |
2905 | 53 |
var s: shortstring; |
51 | 54 |
begin |
7025 | 55 |
DoTimer:= false; |
6734
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6700
diff
changeset
|
56 |
inc(RealTicks, Lag); |
564 | 57 |
|
2947 | 58 |
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
|
59 |
gsLandGen: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
60 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
61 |
GenMap; |
7483 | 62 |
uLandTexture.initModule; |
63 |
UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT, false); |
|
64 |
uAILandMarks.initModule; |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
65 |
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
|
66 |
GameState:= gsStart; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
67 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
68 |
gsStart: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
69 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
70 |
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
|
71 |
DisableSomeWeapons; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
72 |
AddClouds; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
73 |
AddFlakes; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
74 |
AssignHHCoords; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
75 |
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
|
76 |
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
|
77 |
InitWorld; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
78 |
ResetKbd; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
79 |
if GameType = gmtSave then |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6986
diff
changeset
|
80 |
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
|
81 |
FinishProgress; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
82 |
PlayMusic; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
83 |
SetScale(zoom); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
84 |
ScriptCall('onGameStart'); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
85 |
GameState:= gsGame; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
86 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
87 |
gsConfirm, gsGame: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
88 |
begin |
7392
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
89 |
DrawWorld(Lag); |
6734
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6700
diff
changeset
|
90 |
DoGameTick(Lag); |
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6700
diff
changeset
|
91 |
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
|
92 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
93 |
gsChat: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
94 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
95 |
DrawWorld(Lag); |
6734
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6700
diff
changeset
|
96 |
DoGameTick(Lag); |
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6700
diff
changeset
|
97 |
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
|
98 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
99 |
gsExit: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
100 |
begin |
7025 | 101 |
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
|
102 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
103 |
gsSuspend: |
7054 | 104 |
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
|
105 |
end; |
564 | 106 |
|
7049 | 107 |
SwapBuffers; |
4454 | 108 |
|
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7180
diff
changeset
|
109 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 110 |
if flagPrerecording then |
111 |
SaveCameraPosition; |
|
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7180
diff
changeset
|
112 |
{$ENDIF} |
7180 | 113 |
|
2947 | 114 |
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
|
115 |
begin |
2947 | 116 |
flagMakeCapture:= false; |
7151 | 117 |
{$IFDEF PAS2C} |
7306
3cff5c769509
Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents:
7286
diff
changeset
|
118 |
s:= '/Screenshots/hw'; |
7151 | 119 |
{$ELSE} |
7306
3cff5c769509
Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents:
7286
diff
changeset
|
120 |
s:= '/Screenshots/hw_' + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks); |
7151 | 121 |
{$ENDIF} |
5912
d31eba29e706
screenshots: display a msg on failure and log causative error
sheepluva
parents:
5825
diff
changeset
|
122 |
|
7306
3cff5c769509
Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents:
7286
diff
changeset
|
123 |
// flash |
4359 | 124 |
playSound(sndShutter); |
7306
3cff5c769509
Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents:
7286
diff
changeset
|
125 |
ScreenFade:= sfFromWhite; |
3cff5c769509
Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents:
7286
diff
changeset
|
126 |
ScreenFadeValue:= sfMax; |
3cff5c769509
Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents:
7286
diff
changeset
|
127 |
ScreenFadeSpeed:= 5; |
3cff5c769509
Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents:
7286
diff
changeset
|
128 |
|
3cff5c769509
Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents:
7286
diff
changeset
|
129 |
if MakeScreenshot(s, 1) then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
130 |
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
|
131 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
132 |
begin |
5912
d31eba29e706
screenshots: display a msg on failure and log causative error
sheepluva
parents:
5825
diff
changeset
|
133 |
WriteLnToConsole('Screenshot failed.'); |
d31eba29e706
screenshots: display a msg on failure and log causative error
sheepluva
parents:
5825
diff
changeset
|
134 |
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
|
135 |
end |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
136 |
end; |
51 | 137 |
end; |
138 |
||
139 |
/////////////////// |
|
3697 | 140 |
procedure MainLoop; |
6267
be5d40bb1e86
make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents:
6219
diff
changeset
|
141 |
var event: TSDL_Event; |
be5d40bb1e86
make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents:
6219
diff
changeset
|
142 |
PrevTime, CurrTime: Longword; |
7025 | 143 |
isTerminated: boolean; |
6013 | 144 |
{$IFDEF SDL13} |
5975 | 145 |
previousGameState: TGameState; |
6019 | 146 |
{$ELSE} |
5521 | 147 |
prevFocusState: boolean; |
6013 | 148 |
{$ENDIF} |
2698 | 149 |
begin |
7025 | 150 |
isTerminated:= false; |
2947 | 151 |
PrevTime:= SDL_GetTicks; |
3063 | 152 |
while isTerminated = false do |
153 |
begin |
|
5724 | 154 |
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
|
155 |
|
6072 | 156 |
while SDL_PeepEvents(@event, 1, SDL_GETEVENT, {$IFDEF SDL13}SDL_FIRSTEVENT, SDL_LASTEVENT{$ELSE}SDL_ALLEVENTS{$ENDIF}) > 0 do |
2947 | 157 |
begin |
5339 | 158 |
case event.type_ of |
6072 | 159 |
{$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
|
160 |
SDL_KEYDOWN: |
7025 | 161 |
if GameState = gsChat then |
3647
0d0df215fb52
making chat work... (keyboard support is heavily broken in sdl upstream)
koda
parents:
3634
diff
changeset
|
162 |
// sdl on iphone supports only ashii keyboards and the unicode field is deprecated in sdl 1.3 |
7025 | 163 |
KeyPressChat(SDL_GetKeyFromScancode(event.key.keysym.sym))//TODO correct for keymodifiers |
164 |
else |
|
165 |
ProcessKey(event.key); |
|
6917 | 166 |
SDL_KEYUP: |
7025 | 167 |
if GameState <> gsChat then |
168 |
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
|
169 |
|
5339 | 170 |
SDL_WINDOWEVENT: |
5052 | 171 |
if event.window.event = SDL_WINDOWEVENT_SHOWN then |
7025 | 172 |
begin |
4454 | 173 |
cHasFocus:= true; |
5521 | 174 |
onFocusStateChanged() |
7025 | 175 |
end |
5975 | 176 |
else if event.window.event = SDL_WINDOWEVENT_MINIMIZED then |
7025 | 177 |
begin |
5975 | 178 |
previousGameState:= GameState; |
179 |
GameState:= gsSuspend; |
|
7025 | 180 |
end |
5975 | 181 |
else if event.window.event = SDL_WINDOWEVENT_RESTORED then |
7025 | 182 |
begin |
5975 | 183 |
GameState:= previousGameState; |
6611 | 184 |
{$IFDEF ANDROID} |
185 |
//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
|
186 |
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
|
187 |
{$ENDIF} |
7025 | 188 |
end |
6021 | 189 |
else if event.window.event = SDL_WINDOWEVENT_RESIZED then |
7025 | 190 |
begin |
6021 | 191 |
cNewScreenWidth:= max(2 * (event.window.data1 div 2), cMinScreenWidth); |
192 |
cNewScreenHeight:= max(2 * (event.window.data2 div 2), cMinScreenHeight); |
|
6611 | 193 |
cScreenResizeDelay:= RealTicks + 500{$IFDEF IPHONEOS}div 2{$ENDIF}; |
7025 | 194 |
end; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
195 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
196 |
SDL_FINGERMOTION: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
197 |
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
|
198 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
199 |
SDL_FINGERDOWN: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
200 |
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
|
201 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
202 |
SDL_FINGERUP: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
203 |
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
|
204 |
{$ELSE} |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
205 |
SDL_KEYDOWN: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
206 |
if GameState = gsChat then |
6917 | 207 |
KeyPressChat(event.key.keysym.unicode) |
208 |
else |
|
209 |
ProcessKey(event.key); |
|
210 |
SDL_KEYUP: |
|
7025 | 211 |
if GameState <> gsChat then |
212 |
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
|
213 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
214 |
SDL_MOUSEBUTTONDOWN: |
7025 | 215 |
ProcessMouse(event.button, true); |
216 |
||
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
217 |
SDL_MOUSEBUTTONUP: |
6917 | 218 |
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
|
219 |
|
2947 | 220 |
SDL_ACTIVEEVENT: |
221 |
if (event.active.state and SDL_APPINPUTFOCUS) <> 0 then |
|
7025 | 222 |
begin |
5521 | 223 |
prevFocusState:= cHasFocus; |
2947 | 224 |
cHasFocus:= event.active.gain = 1; |
5521 | 225 |
if prevFocusState xor cHasFocus then |
226 |
onFocusStateChanged() |
|
7025 | 227 |
end; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
228 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
229 |
SDL_VIDEORESIZE: |
7025 | 230 |
begin |
5816
ceb522b0f7d5
"fix" for a screen scaling problem I had after resizing to odd width number values
sheepluva
parents:
5815
diff
changeset
|
231 |
// 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
|
232 |
// Change by sheepluva: |
ceb522b0f7d5
"fix" for a screen scaling problem I had after resizing to odd width number values
sheepluva
parents:
5815
diff
changeset
|
233 |
// 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
|
234 |
// 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
|
235 |
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
|
236 |
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
|
237 |
cScreenResizeDelay:= RealTicks+500; |
7025 | 238 |
end; |
3463 | 239 |
{$ENDIF} |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
240 |
SDL_JOYAXISMOTION: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
241 |
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
|
242 |
SDL_JOYHATMOTION: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
243 |
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
|
244 |
SDL_JOYBUTTONDOWN: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
245 |
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
|
246 |
SDL_JOYBUTTONUP: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
247 |
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
|
248 |
SDL_QUITEV: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
249 |
isTerminated:= true |
7025 | 250 |
end; //end case event.type_ of |
251 |
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
|
252 |
|
7025 | 253 |
if (cScreenResizeDelay <> 0) and (cScreenResizeDelay < RealTicks) and |
254 |
((cNewScreenWidth <> cScreenWidth) or (cNewScreenHeight <> cScreenHeight)) then |
|
255 |
begin |
|
256 |
cScreenResizeDelay:= 0; |
|
257 |
cScreenWidth:= cNewScreenWidth; |
|
258 |
cScreenHeight:= cNewScreenHeight; |
|
3463 | 259 |
|
7025 | 260 |
ParseCommand('fullscr '+intToStr(LongInt(cFullScreen)), true); |
261 |
WriteLnToConsole('window resize: ' + IntToStr(cScreenWidth) + ' x ' + IntToStr(cScreenHeight)); |
|
262 |
ScriptOnScreenResize(); |
|
263 |
InitCameraBorders(); |
|
264 |
InitTouchInterface(); |
|
265 |
end; |
|
266 |
||
267 |
CurrTime:= SDL_GetTicks(); |
|
6863 | 268 |
if PrevTime + longword(cTimerInterval) <= CurrTime then |
269 |
begin |
|
7025 | 270 |
isTerminated:= DoTimer(CurrTime - PrevTime); |
6863 | 271 |
PrevTime:= CurrTime |
272 |
end |
|
273 |
else SDL_Delay(1); |
|
274 |
IPCCheckSock(); |
|
3063 | 275 |
end; |
2698 | 276 |
end; |
277 |
||
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7180
diff
changeset
|
278 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 279 |
procedure RecorderMainLoop; |
7392
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
280 |
var oldGameTicks, oldRealTicks, newGameTicks, newRealTicks: LongInt; |
7180 | 281 |
begin |
282 |
if not BeginVideoRecording() then |
|
283 |
exit; |
|
284 |
DoTimer(0); // gsLandGen -> gsStart |
|
285 |
DoTimer(0); // gsStart -> gsGame |
|
286 |
||
7392
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
287 |
if not LoadNextCameraPosition(newRealTicks, newGameTicks) then |
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
288 |
exit; |
7180 | 289 |
fastScrolling:= true; |
7392
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
290 |
DoGameTick(newGameTicks); |
7180 | 291 |
fastScrolling:= false; |
7392
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
292 |
oldRealTicks:= 0; |
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
293 |
oldGameTicks:= newGameTicks; |
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
294 |
|
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
295 |
while LoadNextCameraPosition(newRealTicks, newGameTicks) do |
7180 | 296 |
begin |
7392
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
297 |
IPCCheckSock(); |
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
298 |
DoGameTick(newGameTicks - oldGameTicks); |
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
299 |
if GameState = gsExit then |
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
300 |
break; |
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
301 |
ProcessVisualGears(newRealTicks - oldRealTicks); |
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
302 |
DrawWorld(newRealTicks - oldRealTicks); |
7180 | 303 |
EncodeFrame(); |
7392
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
304 |
oldRealTicks:= newRealTicks; |
bc3306c59a08
Correctly distinguish between game and real ticks while recording video,
Stepan777 <stepik-777@mail.ru>
parents:
7386
diff
changeset
|
305 |
oldGameTicks:= newGameTicks; |
7180 | 306 |
end; |
307 |
StopVideoRecording(); |
|
308 |
end; |
|
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7180
diff
changeset
|
309 |
{$ENDIF} |
7180 | 310 |
|
2698 | 311 |
/////////////// |
6072 | 312 |
procedure Game{$IFDEF HWLIBRARY}(gameArgs: PPChar); cdecl; export{$ENDIF}; |
7025 | 313 |
var p: TPathType; |
2947 | 314 |
s: shortstring; |
3611 | 315 |
i: LongInt; |
2698 | 316 |
begin |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2800
diff
changeset
|
317 |
{$IFDEF HWLIBRARY} |
2947 | 318 |
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
|
319 |
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
|
320 |
cShowFPS:= {$IFDEF DEBUGFILE}true{$ELSE}false{$ENDIF}; |
7151 | 321 |
ipcPort:= StrToInt(gameArgs[0]); |
322 |
cScreenWidth:= StrToInt(gameArgs[1]); |
|
323 |
cScreenHeight:= StrToInt(gameArgs[2]); |
|
324 |
cReducedQuality:= StrToInt(gameArgs[3]); |
|
5339 | 325 |
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
|
326 |
// 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
|
327 |
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
|
328 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
329 |
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
|
330 |
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
|
331 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
332 |
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
|
333 |
|
5339 | 334 |
UserNick:= gameArgs[5]; |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6986
diff
changeset
|
335 |
SetSound(gameArgs[6] = '1'); |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6986
diff
changeset
|
336 |
SetMusic(gameArgs[7] = '1'); |
5339 | 337 |
cAltDamage:= gameArgs[8] = '1'; |
6029
5073285b6599
changed Game arguments to accept data path on 9th array element (like planned)
koda
parents:
6023
diff
changeset
|
338 |
PathPrefix:= gameArgs[9]; |
6341 | 339 |
UserPathPrefix:= '../Documents'; |
5339 | 340 |
recordFileName:= gameArgs[10]; |
4814
e19791f08443
smaller rearrangement of (non stereo related) variables
koda
parents:
4812
diff
changeset
|
341 |
cStereoMode:= smNone; |
3624 | 342 |
{$ENDIF} |
5814
9ac119696510
change minimum resolution back to 640x480 (full weapon menu too big for smaller screens)
sheepluva
parents:
5732
diff
changeset
|
343 |
cMinScreenWidth:= min(cScreenWidth, cMinScreenWidth); |
9ac119696510
change minimum resolution back to 640x480 (full weapon menu too big for smaller screens)
sheepluva
parents:
5732
diff
changeset
|
344 |
cMinScreenHeight:= min(cScreenHeight, cMinScreenHeight); |
5686 | 345 |
cOrigScreenWidth:= cScreenWidth; |
346 |
cOrigScreenHeight:= cScreenHeight; |
|
3613 | 347 |
|
3611 | 348 |
initEverything(true); |
349 |
WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')'); |
|
350 |
AddFileLog('Prefix: "' + PathPrefix +'"'); |
|
5339 | 351 |
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
|
352 |
|
3611 | 353 |
for i:= 0 to ParamCount do |
354 |
AddFileLog(inttostr(i) + ': ' + ParamStr(i)); |
|
2698 | 355 |
|
2947 | 356 |
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
|
357 |
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
|
358 |
UserPathz[p]:= UserPathPrefix + '/Data/' + Pathz[p]; |
5339 | 359 |
|
360 |
UserPathz[ptData]:= UserPathPrefix + '/Data'; |
|
361 |
||
362 |
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
|
363 |
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
|
364 |
Pathz[p]:= PathPrefix + '/' + Pathz[p]; |
3697 | 365 |
|
2947 | 366 |
WriteToConsole('Init SDL... '); |
4773
69f8431a5d20
yay, sdl resumed development and accepted some of our patches in mainstream
koda
parents:
4744
diff
changeset
|
367 |
SDLTry(SDL_Init(SDL_INIT_VIDEO or SDL_INIT_NOPARACHUTE) >= 0, true); |
2947 | 368 |
WriteLnToConsole(msgOK); |
2698 | 369 |
|
2947 | 370 |
SDL_EnableUNICODE(1); |
5565 | 371 |
SDL_ShowCursor(0); |
2698 | 372 |
|
2947 | 373 |
WriteToConsole('Init SDL_ttf... '); |
374 |
SDLTry(TTF_Init() <> -1, true); |
|
375 |
WriteLnToConsole(msgOK); |
|
2698 | 376 |
|
7286 | 377 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 378 |
if GameType = gmtRecord then |
379 |
InitOffscreenOpenGL() |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
380 |
else |
7286 | 381 |
{$ENDIF} |
7180 | 382 |
begin |
383 |
// show main window |
|
384 |
if cFullScreen then |
|
385 |
ParseCommand('fullscr 1', true) |
|
386 |
else |
|
387 |
ParseCommand('fullscr 0', true); |
|
388 |
end; |
|
2698 | 389 |
|
2947 | 390 |
ControllerInit(); // has to happen before InitKbdKeyTable to map keys |
391 |
InitKbdKeyTable(); |
|
5174
f5294509783e
initial refactoring of ObjcExports and OverlayViewController
koda
parents:
5167
diff
changeset
|
392 |
AddProgress(); |
2698 | 393 |
|
5339 | 394 |
LoadLocale(UserPathz[ptLocale] + '/en.txt'); // Do an initial load with english |
2947 | 395 |
LoadLocale(Pathz[ptLocale] + '/en.txt'); // Do an initial load with english |
396 |
if cLocaleFName <> 'en.txt' then |
|
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
3976
diff
changeset
|
397 |
begin |
2719 | 398 |
// Try two letter locale first before trying specific locale overrides |
5110 | 399 |
if (Length(cLocale) > 2) and (Copy(cLocale,1,2) <> 'en') then |
5339 | 400 |
begin |
401 |
LoadLocale(UserPathz[ptLocale] + '/' + Copy(cLocale,1,2)+'.txt'); |
|
402 |
LoadLocale(Pathz[ptLocale] + '/' + Copy(cLocale,1,2)+'.txt') |
|
403 |
end; |
|
404 |
LoadLocale(UserPathz[ptLocale] + '/' + cLocaleFName); |
|
405 |
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
|
406 |
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
|
407 |
else cLocale := 'en'; |
2698 | 408 |
|
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
|
409 |
WriteLnToConsole(msgGettingConfig); |
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
3976
diff
changeset
|
410 |
|
2947 | 411 |
if recordFileName = '' then |
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
3976
diff
changeset
|
412 |
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
|
413 |
InitIPC; |
7073 | 414 |
SendIPCAndWaitReply(_S'C'); // ask for game config |
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
3976
diff
changeset
|
415 |
end |
2947 | 416 |
else |
417 |
LoadRecordFromFile(recordFileName); |
|
2698 | 418 |
|
2947 | 419 |
ScriptOnGameInit; |
420 |
s:= 'eproto ' + inttostr(cNetProtoVersion); |
|
421 |
SendIPCRaw(@s[0], Length(s) + 1); // send proto version |
|
422 |
||
423 |
InitTeams(); |
|
424 |
AssignStores(); |
|
7180 | 425 |
|
426 |
if GameType = gmtRecord then |
|
427 |
SetSound(false); |
|
428 |
||
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6986
diff
changeset
|
429 |
InitSound(); |
2590 | 430 |
|
2947 | 431 |
isDeveloperMode:= false; |
432 |
TryDo(InitStepsFlags = cifAllInited, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true); |
|
433 |
ParseCommand('rotmask', true); |
|
7286 | 434 |
|
7235
baa69bd025d9
1. Implement new page in frontend with options for video recording.
Stepan777 <stepik-777@mail.ru>
parents:
7198
diff
changeset
|
435 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 436 |
if GameType = gmtRecord then |
437 |
RecorderMainLoop() |
|
438 |
else |
|
7235
baa69bd025d9
1. Implement new page in frontend with options for video recording.
Stepan777 <stepik-777@mail.ru>
parents:
7198
diff
changeset
|
439 |
{$ENDIF} |
7180 | 440 |
MainLoop(); |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6986
diff
changeset
|
441 |
|
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
442 |
// clean up all the memory allocated |
3611 | 443 |
freeEverything(true); |
2698 | 444 |
end; |
2590 | 445 |
|
3525 | 446 |
procedure initEverything (complete:boolean); |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
447 |
begin |
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
448 |
Randomize(); |
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
449 |
|
7027 | 450 |
uUtils.initModule(complete); // this opens the debug file, must be the first |
3038 | 451 |
uMisc.initModule; |
4359 | 452 |
uVariables.initModule; |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
453 |
uConsole.initModule; |
4373 | 454 |
uCommands.initModule; |
4413 | 455 |
uCommandHandlers.initModule; |
3525 | 456 |
|
3038 | 457 |
uLand.initModule; |
4490 | 458 |
uLandPainted.initModule; |
3525 | 459 |
uIO.initModule; |
3697 | 460 |
|
3525 | 461 |
if complete then |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
462 |
begin |
6341 | 463 |
{$IFDEF ANDROID}GLUnit.init;{$ENDIF} |
464 |
{$IFDEF SDL13}uTouch.initModule;{$ENDIF} |
|
6415 | 465 |
uAI.initModule; |
3525 | 466 |
//uAIActions does not need initialization |
467 |
//uAIAmmoTests does not need initialization |
|
468 |
uAIMisc.initModule; |
|
469 |
uAmmos.initModule; |
|
470 |
uChat.initModule; |
|
471 |
uCollisions.initModule; |
|
472 |
//uFloat does not need initialization |
|
473 |
//uGame does not need initialization |
|
474 |
uGears.initModule; |
|
6954
a61458a81480
changed uKeys to uInputHandler to better reflect its function
Xeli
parents:
6952
diff
changeset
|
475 |
uInputHandler.initModule; |
3525 | 476 |
//uLandGraphics does not need initialization |
477 |
//uLandObjects does not need initialization |
|
478 |
//uLandTemplates does not need initialization |
|
479 |
//uLocale does not need initialization |
|
480 |
uScript.initModule; |
|
481 |
uSound.initModule; |
|
482 |
uStats.initModule; |
|
483 |
uStore.initModule; |
|
484 |
uTeams.initModule; |
|
485 |
uVisualGears.initModule; |
|
486 |
uWorld.initModule; |
|
4393 | 487 |
uCaptions.initModule; |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
488 |
end; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
489 |
end; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
490 |
|
3525 | 491 |
procedure freeEverything (complete:boolean); |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
492 |
begin |
3525 | 493 |
if complete then |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
494 |
begin |
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
495 |
WriteLnToConsole('Freeing resources...'); |
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
496 |
uAI.freeModule; |
7433
c7fff3e61d49
- Implement AI land marks which only used to tracks visited areas on the map for now. Significantly reduces wasting of cpu time by AI checking same place several times (10x or even more in rare cases)
unc0rr
parents:
7151
diff
changeset
|
497 |
uAILandMarks.freeModule; |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
498 |
uAIMisc.freeModule; //stub |
4393 | 499 |
uCaptions.freeModule; |
3525 | 500 |
uWorld.freeModule; |
3615 | 501 |
uVisualGears.freeModule; |
3525 | 502 |
uTeams.freeModule; |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
503 |
uInputHandler.freeModule; |
3525 | 504 |
uStats.freeModule; //stub |
3615 | 505 |
uSound.freeModule; |
3525 | 506 |
uScript.freeModule; |
7577 | 507 |
//uRandom does not need to be freed |
3525 | 508 |
//uLocale does not need to be freed |
509 |
//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
|
510 |
uLandTexture.freeModule; |
3525 | 511 |
//uLandObjects does not need to be freed |
512 |
//uLandGraphics does not need to be freed |
|
513 |
uGears.freeModule; |
|
514 |
//uGame does not need to be freed |
|
515 |
//uFloat does not need to be freed |
|
516 |
uCollisions.freeModule; //stub |
|
4901 | 517 |
uChat.freeModule; |
3525 | 518 |
uAmmos.freeModule; |
519 |
//uAIAmmoTests does not need to be freed |
|
520 |
//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
|
521 |
uStore.freeModule; |
7286 | 522 |
{$IFDEF USE_VIDEO_RECORDING}uVideoRec.freeModule;{$ENDIF} |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
523 |
end; |
3697 | 524 |
|
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7025
diff
changeset
|
525 |
uIO.freeModule; |
3038 | 526 |
uLand.freeModule; |
5066 | 527 |
uLandPainted.freeModule; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
528 |
|
4413 | 529 |
uCommandHandlers.freeModule; |
4373 | 530 |
uCommands.freeModule; |
3038 | 531 |
uConsole.freeModule; |
4359 | 532 |
uVariables.freeModule; |
4374 | 533 |
uUtils.freeModule; |
3525 | 534 |
uMisc.freeModule; // uMisc closes the debug log. |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
535 |
end; |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2800
diff
changeset
|
536 |
|
2698 | 537 |
///////////////////////// |
3610 | 538 |
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
|
539 |
var Preview: TPreview; |
2698 | 540 |
begin |
3611 | 541 |
initEverything(false); |
3610 | 542 |
{$IFDEF HWLIBRARY} |
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
543 |
WriteLnToConsole('Preview connecting on port ' + inttostr(port)); |
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
544 |
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
|
545 |
InitStepsFlags:= cifRandomize; |
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
546 |
{$ENDIF} |
2947 | 547 |
InitIPC; |
548 |
IPCWaitPongEvent; |
|
549 |
TryDo(InitStepsFlags = cifRandomize, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true); |
|
2698 | 550 |
|
7051 | 551 |
GenPreview(Preview); |
2947 | 552 |
WriteLnToConsole('Sending preview...'); |
553 |
SendIPCRaw(@Preview, sizeof(Preview)); |
|
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3312
diff
changeset
|
554 |
SendIPCRaw(@MaxHedgehogs, sizeof(byte)); |
2947 | 555 |
WriteLnToConsole('Preview sent, disconnect'); |
3525 | 556 |
freeEverything(false); |
2698 | 557 |
end; |
558 |
||
3021 | 559 |
{$IFNDEF HWLIBRARY} |
2008 | 560 |
///////////////////// |
561 |
procedure DisplayUsage; |
|
2691 | 562 |
var i: LongInt; |
2008 | 563 |
begin |
7151 | 564 |
WriteLn(stdout, 'Wrong argument format: correct configurations is'); |
565 |
WriteLn(stdout, ''); |
|
566 |
WriteLn(stdout, ' hwengine <path to user hedgewars folder> <path to global data folder> <path to replay file> [options]'); |
|
567 |
WriteLn(stdout, ''); |
|
568 |
WriteLn(stdout, 'where [options] must be specified either as:'); |
|
569 |
WriteLn(stdout, ' --set-video [screen width] [screen height] [color dept]'); |
|
570 |
WriteLn(stdout, ' --set-audio [volume] [enable music] [enable sounds]'); |
|
571 |
WriteLn(stdout, ' --set-other [language file] [full screen] [show FPS]'); |
|
572 |
WriteLn(stdout, ' --set-multimedia [screen width] [screen height] [color dept] [volume] [enable music] [enable sounds] [language file] [full screen]'); |
|
573 |
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]'); |
|
574 |
WriteLn(stdout, ' --stats-only'); |
|
575 |
WriteLn(stdout, ''); |
|
576 |
WriteLn(stdout, 'Read documentation online at http://code.google.com/p/hedgewars/wiki/CommandLineOptions for more information'); |
|
577 |
WriteLn(stdout, ''); |
|
578 |
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
|
579 |
|
2947 | 580 |
for i:=0 to ParamCount do |
7151 | 581 |
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
|
582 |
|
7151 | 583 |
WriteLn(stdout, ''); |
2008 | 584 |
end; |
585 |
||
51 | 586 |
//////////////////// |
3678
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
587 |
{$INCLUDE "ArgParsers.inc"} |
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
588 |
|
51 | 589 |
procedure GetParams; |
97
e7c1df9cce2c
- make the game be run from ${PREFIX}/bin with data in ${PREFIX}/share/hedgewars/Data
unc0rr
parents:
81
diff
changeset
|
590 |
begin |
5339 | 591 |
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
|
592 |
GameType:= gmtSyntax |
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
593 |
else |
5339 | 594 |
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
|
595 |
internalSetGameTypeLandPreviewFromParameters() |
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7180
diff
changeset
|
596 |
else if ParamCount = cDefaultParamNum then |
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7180
diff
changeset
|
597 |
internalStartGameWithParameters() |
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7180
diff
changeset
|
598 |
{$IFDEF USE_VIDEO_RECORDING} |
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7180
diff
changeset
|
599 |
else if ParamCount = cVideorecParamNum then |
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7180
diff
changeset
|
600 |
internalStartVideoRecordingWithParameters() |
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7180
diff
changeset
|
601 |
{$ENDIF} |
3678
00428183300f
patch by lucass (polished by me) - command line parsing is now much more flexible
koda
parents:
3670
diff
changeset
|
602 |
else |
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7180
diff
changeset
|
603 |
playReplayFileWithParameters(); |
51 | 604 |
end; |
3021 | 605 |
|
155
401f4ea24715
Engine can generate land preview and send it via IPC
unc0rr
parents:
109
diff
changeset
|
606 |
//////////////////////////////////////////////////////////////////////////////// |
401f4ea24715
Engine can generate land preview and send it via IPC
unc0rr
parents:
109
diff
changeset
|
607 |
/////////////////////////////// m a i n //////////////////////////////////////// |
401f4ea24715
Engine can generate land preview and send it via IPC
unc0rr
parents:
109
diff
changeset
|
608 |
//////////////////////////////////////////////////////////////////////////////// |
401f4ea24715
Engine can generate land preview and send it via IPC
unc0rr
parents:
109
diff
changeset
|
609 |
begin |
2947 | 610 |
GetParams(); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
611 |
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
|
612 |
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
|
613 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
614 |
cLocale := Copy(cLocaleFName,1,2); |
2008 | 615 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
616 |
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
|
617 |
GenLandPreview() |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6415
diff
changeset
|
618 |
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
|
619 |
DisplayUsage() |
2947 | 620 |
else Game(); |
3697 | 621 |
|
5565 | 622 |
// return 1 when engine is not called correctly |
7151 | 623 |
halt(LongInt(GameType = gmtSyntax)); |
2698 | 624 |
{$ENDIF} |
51 | 625 |
end. |