author | koda |
Sat, 27 Nov 2010 23:29:07 +0100 | |
changeset 4358 | 0445d807193e |
parent 4248 | e127b3d26248 |
child 4343 | 19cbea33e4d2 |
child 4357 | a1fcfc341a52 |
permissions | -rw-r--r-- |
4 | 1 |
(* |
2947 | 2 |
* Hedgewars, a free turn based strategy game |
3 |
* Copyright (c) 2004-2008 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 |
*) |
|
4 | 18 |
|
2630 | 19 |
{$INCLUDE "options.inc"} |
20 |
||
4 | 21 |
unit uMisc; |
22 |
interface |
|
2630 | 23 |
|
3593
ae50f63e4fa9
Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents:
3537
diff
changeset
|
24 |
uses SDLh, uConsts, uFloat, GLunit, Math; |
2697 | 25 |
|
1054 | 26 |
var |
3779
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
27 |
/////// init flags /////// |
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
28 |
cScreenWidth : LongInt = 1024; |
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
29 |
cScreenHeight : LongInt = 768; |
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
30 |
cBits : LongInt = 32; |
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
31 |
//ipcPort is in uIO |
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
32 |
cFullScreen : boolean = false; |
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
33 |
isSoundEnabled : boolean = true; |
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
34 |
isMusicEnabled : boolean = false; |
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
35 |
cLocaleFName : shortstring = 'en.txt'; |
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
36 |
cInitVolume : LongInt = 100; |
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
37 |
cTimerInterval : LongInt = 8; |
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
38 |
PathPrefix : shortstring = './'; |
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
39 |
cShowFPS : boolean = false; |
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
40 |
cAltDamage : boolean = true; |
4157 | 41 |
cReducedQuality : LongWord = rqNone; |
3779
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
42 |
//userNick is in uChat |
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
43 |
recordFileName : shortstring = ''; |
3988
044cc945b2f8
Set default ready timer to 0 to see if desyncs come back.
nemo
parents:
3971
diff
changeset
|
44 |
cReadyDelay : Longword = 0; |
3914 | 45 |
cLogfileBase : shortstring = 'debug'; |
3779
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
46 |
////////////////////////// |
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
47 |
|
2947 | 48 |
isCursorVisible : boolean; |
49 |
isTerminated : boolean; |
|
50 |
isInLag : boolean; |
|
51 |
isPaused : boolean; |
|
3611 | 52 |
|
2947 | 53 |
isSEBackup : boolean; |
54 |
isInMultiShoot : boolean; |
|
55 |
isSpeed : boolean; |
|
3107 | 56 |
isFirstFrame : boolean; |
1560
e140bc57ff68
Quick replay round to spectators until current move
unc0rr
parents:
1530
diff
changeset
|
57 |
|
2947 | 58 |
fastUntilLag : boolean; |
1888
e76274ce7365
Add an ability to run engine without IPC connection.
unc0rr
parents:
1861
diff
changeset
|
59 |
|
3611 | 60 |
GameState : TGameState; |
61 |
GameType : TGameType; |
|
62 |
GameFlags : Longword; |
|
2947 | 63 |
TrainingFlags : Longword; |
64 |
TurnTimeLeft : Longword; |
|
3779
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
65 |
ReadyTimeLeft : Longword; |
2947 | 66 |
cSuddenDTurns : LongInt; |
67 |
cDamagePercent : LongInt; |
|
68 |
cMineDudPercent : LongWord; |
|
69 |
cTemplateFilter : LongInt; |
|
3133 | 70 |
cMapGen : LongInt; |
71 |
cMazeSize : LongInt; |
|
4 | 72 |
|
2947 | 73 |
cHedgehogTurnTime: Longword; |
74 |
cMinesTime : LongInt; |
|
75 |
cMaxAIThinkTime : Longword; |
|
74 | 76 |
|
4143
eb7981f34800
Remove the last vestiges of the shoppa hack by adding 2 spinners for percentage health and amount of health in crate, also update translations and increase SD spinner (some users have requested it)
henek
parents:
4135
diff
changeset
|
77 |
cHealthCaseProb : LongInt; |
eb7981f34800
Remove the last vestiges of the shoppa hack by adding 2 spinners for percentage health and amount of health in crate, also update translations and increase SD spinner (some users have requested it)
henek
parents:
4135
diff
changeset
|
78 |
cHealthCaseAmount: LongInt; |
4153
6bd94e4c5d65
2 more variables to control water rise and health loss during sudden death.
henek
parents:
4143
diff
changeset
|
79 |
cWaterRise : LongInt; |
6bd94e4c5d65
2 more variables to control water rise and health loss during sudden death.
henek
parents:
4143
diff
changeset
|
80 |
cHealthDecrease : LongInt; |
4143
eb7981f34800
Remove the last vestiges of the shoppa hack by adding 2 spinners for percentage health and amount of health in crate, also update translations and increase SD spinner (some users have requested it)
henek
parents:
4135
diff
changeset
|
81 |
|
2947 | 82 |
cCloudsNumber : LongInt; |
3611 | 83 |
|
2947 | 84 |
cTagsMask : byte; |
85 |
zoom : GLfloat; |
|
86 |
ZoomValue : GLfloat; |
|
4 | 87 |
|
2947 | 88 |
cWaterLine : LongInt; |
89 |
cGearScrEdgesDist: LongInt; |
|
1054 | 90 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
91 |
GameTicks : LongWord; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
92 |
TrainingTimeInc : Longword; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
93 |
TrainingTimeInD : Longword; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
94 |
TrainingTimeInM : Longword; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
95 |
TrainingTimeMax : Longword; |
2666 | 96 |
|
2947 | 97 |
TimeTrialStartTime: Longword; |
98 |
TimeTrialStopTime : Longword; |
|
3697 | 99 |
|
3709 | 100 |
// originally from uConsts |
101 |
Pathz: array[TPathType] of shortstring; |
|
102 |
CountTexz: array[1..Pred(AMMO_INFINITE)] of PTexture; |
|
3765
ebfe7c9b3085
set flake to non critical, no touches until game is starding, moved some variables to be initialized in the right place
koda
parents:
3764
diff
changeset
|
103 |
LAND_WIDTH : LongInt; |
ebfe7c9b3085
set flake to non critical, no touches until game is starding, moved some variables to be initialized in the right place
koda
parents:
3764
diff
changeset
|
104 |
LAND_HEIGHT : LongInt; |
ebfe7c9b3085
set flake to non critical, no touches until game is starding, moved some variables to be initialized in the right place
koda
parents:
3764
diff
changeset
|
105 |
LAND_WIDTH_MASK : LongWord; |
ebfe7c9b3085
set flake to non critical, no touches until game is starding, moved some variables to be initialized in the right place
koda
parents:
3764
diff
changeset
|
106 |
LAND_HEIGHT_MASK : LongWord; |
ebfe7c9b3085
set flake to non critical, no touches until game is starding, moved some variables to be initialized in the right place
koda
parents:
3764
diff
changeset
|
107 |
cMaxCaptions : LongInt; |
3709 | 108 |
|
3765
ebfe7c9b3085
set flake to non critical, no touches until game is starding, moved some variables to be initialized in the right place
koda
parents:
3764
diff
changeset
|
109 |
cLeftScreenBorder : LongInt; |
ebfe7c9b3085
set flake to non critical, no touches until game is starding, moved some variables to be initialized in the right place
koda
parents:
3764
diff
changeset
|
110 |
cRightScreenBorder : LongInt; |
ebfe7c9b3085
set flake to non critical, no touches until game is starding, moved some variables to be initialized in the right place
koda
parents:
3764
diff
changeset
|
111 |
cScreenSpace : LongInt; |
3764 | 112 |
|
3611 | 113 |
cCaseFactor : Longword; |
4003
ca0600ab38bf
disable gfMines and update variable names (landadds -> minesnum, cLandAdditions -> cLandMines)
koda
parents:
3988
diff
changeset
|
114 |
cLandMines : Longword; |
3611 | 115 |
cExplosives : Longword; |
116 |
||
117 |
cSeed : shortstring; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
118 |
cVolumeDelta : LongInt; |
3611 | 119 |
cHasFocus : boolean; |
120 |
cInactDelay : Longword; |
|
4 | 121 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
122 |
bBetweenTurns : boolean; |
4153
6bd94e4c5d65
2 more variables to control water rise and health loss during sudden death.
henek
parents:
4143
diff
changeset
|
123 |
bWaterRising : boolean; |
543
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
539
diff
changeset
|
124 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
125 |
ShowCrosshair : boolean; |
3169
c8c6ac44f51b
prophylactic removal of some Integer references, raise a few of the template islands up a bit so they work inverted without triggering border
nemo
parents:
3165
diff
changeset
|
126 |
CursorMovementX : LongInt; |
c8c6ac44f51b
prophylactic removal of some Integer references, raise a few of the template islands up a bit so they work inverted without triggering border
nemo
parents:
3165
diff
changeset
|
127 |
CursorMovementY : LongInt; |
3611 | 128 |
cDrownSpeed : hwFloat; |
129 |
cDrownSpeedf : float; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
130 |
cMaxWindSpeed : hwFloat; |
3611 | 131 |
cWindSpeed : hwFloat; |
132 |
cWindSpeedf : float; |
|
133 |
cGravity : hwFloat; |
|
134 |
cGravityf : float; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
135 |
cDamageModifier : hwFloat; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
136 |
cLaserSighting : boolean; |
3611 | 137 |
cVampiric : boolean; |
138 |
cArtillery : boolean; |
|
2947 | 139 |
WeaponTooltipTex : PTexture; |
4 | 140 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
141 |
flagMakeCapture : boolean; |
55
e09f7c952a40
Send run parameters by cmd line, game parameters by IPC... breaks network game
unc0rr
parents:
53
diff
changeset
|
142 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
143 |
InitStepsFlags : Longword; |
3611 | 144 |
RealTicks : Longword; |
145 |
AttackBar : LongInt; |
|
836 | 146 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
147 |
WaterColorArray : array[0..3] of HwColor4f; |
4 | 148 |
|
3611 | 149 |
CursorPoint : TPoint; |
150 |
TargetPoint : TPoint; |
|
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
151 |
|
3611 | 152 |
TextureList : PTexture; |
2715
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2705
diff
changeset
|
153 |
|
3611 | 154 |
ScreenFade : TScreenFade; |
3115 | 155 |
ScreenFadeValue : LongInt; |
156 |
ScreenFadeSpeed : LongInt; |
|
3107 | 157 |
|
3598 | 158 |
{$IFDEF SDL13} |
3611 | 159 |
SDLwindow : PSDL_Window; |
3598 | 160 |
{$ENDIF} |
2630 | 161 |
|
3038 | 162 |
procedure initModule; |
163 |
procedure freeModule; |
|
2747 | 164 |
procedure SplitBySpace(var a, b: shortstring); |
2905 | 165 |
procedure SplitByChar(var a, b: ansistring; c: char); |
3611 | 166 |
function EnumToStr(const en : TGearType) : shortstring; overload; |
167 |
function EnumToStr(const en : TSound) : shortstring; overload; |
|
168 |
function EnumToStr(const en : TAmmoType) : shortstring; overload; |
|
3756 | 169 |
function EnumToStr(const en : THogEffect) : shortstring; overload; |
3169
c8c6ac44f51b
prophylactic removal of some Integer references, raise a few of the template islands up a bit so they work inverted without triggering border
nemo
parents:
3165
diff
changeset
|
170 |
procedure movecursor(dx, dy: LongInt); |
3929
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3914
diff
changeset
|
171 |
function hwSign(r: hwFloat): LongInt; inline; |
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3914
diff
changeset
|
172 |
function Min(a, b: LongInt): LongInt; inline; |
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3914
diff
changeset
|
173 |
function Max(a, b: LongInt): LongInt; inline; |
2905 | 174 |
procedure OutError(Msg: shortstring; isFatalError: boolean); |
3599 | 175 |
procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean); inline; |
4 | 176 |
procedure SDLTry(Assert: boolean; isFatal: boolean); |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
177 |
function IntToStr(n: LongInt): shortstring; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
178 |
function FloatToStr(n: hwFloat): shortstring; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
179 |
function DxDy2Angle(const _dY, _dX: hwFloat): GLfloat; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
180 |
function DxDy2Angle32(const _dY, _dX: hwFloat): LongInt; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
181 |
function DxDy2AttackAngle(const _dY, _dX: hwFloat): LongInt; |
3929
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3914
diff
changeset
|
182 |
(* |
4 | 183 |
procedure AdjustColor(var Color: Longword); |
208 | 184 |
procedure SetKB(n: Longword); |
3929
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3914
diff
changeset
|
185 |
*) |
208 | 186 |
procedure SendKB; |
351 | 187 |
procedure SetLittle(var r: hwFloat); |
306 | 188 |
procedure SendStat(sit: TStatInfoType; s: shortstring); |
753 | 189 |
function Str2PChar(const s: shortstring): PChar; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
190 |
function NewTexture(width, height: Longword; buf: Pointer): PTexture; |
2290
bf87ca44782e
Selectively enable clamping - seeing if this helps avoid weird flake problems while still fixing vertical lines in waves and sky
nemo
parents:
2279
diff
changeset
|
191 |
function Surface2Tex(surf: PSDL_Surface; enableClamp: boolean): PTexture; |
759 | 192 |
procedure FreeTexture(tex: PTexture); |
3599 | 193 |
function toPowerOf2(i: Longword): Longword; inline; |
2670 | 194 |
function DecodeBase64(s: shortstring): shortstring; |
195 |
function doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface; |
|
3971 | 196 |
function endian(independent: LongWord): LongWord; inline; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
197 |
{$IFDEF DEBUGFILE} |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
198 |
procedure AddFileLog(s: shortstring); |
3929
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3914
diff
changeset
|
199 |
(* function RectToStr(Rect: TSDL_Rect): shortstring; *) |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
200 |
{$ENDIF} |
2735 | 201 |
procedure MakeScreenshot(filename: shortstring); |
4 | 202 |
|
203 |
implementation |
|
3928
2560731c860d
move all mobile-related functions in their own module, provides a structure for future mobile ports
koda
parents:
3914
diff
changeset
|
204 |
uses uConsole, uStore, uIO, uSound, typinfo, sysutils, uMobile; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
205 |
|
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
206 |
var KBnum: Longword; |
4 | 207 |
{$IFDEF DEBUGFILE} |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
208 |
f: textfile; |
4 | 209 |
{$ENDIF} |
210 |
||
2747 | 211 |
// should this include "strtolower()" for the split string? |
212 |
procedure SplitBySpace(var a, b: shortstring); |
|
213 |
var i, t: LongInt; |
|
214 |
begin |
|
215 |
i:= Pos(' ', a); |
|
216 |
if i > 0 then |
|
2947 | 217 |
begin |
218 |
for t:= 1 to Pred(i) do |
|
219 |
if (a[t] >= 'A')and(a[t] <= 'Z') then Inc(a[t], 32); |
|
220 |
b:= copy(a, i + 1, Length(a) - i); |
|
221 |
byte(a[0]):= Pred(i) |
|
222 |
end else b:= ''; |
|
2747 | 223 |
end; |
224 |
||
2905 | 225 |
procedure SplitByChar(var a, b: ansistring; c: char); |
2747 | 226 |
var i: LongInt; |
227 |
begin |
|
228 |
i:= Pos(c, a); |
|
229 |
if i > 0 then |
|
2947 | 230 |
begin |
231 |
b:= copy(a, i + 1, Length(a) - i); |
|
232 |
setlength(a, Pred(i)); |
|
233 |
end else b:= ''; |
|
2747 | 234 |
end; |
235 |
||
3337 | 236 |
function EnumToStr(const en : TGearType) : shortstring; overload; |
237 |
begin |
|
238 |
EnumToStr:= GetEnumName(TypeInfo(TGearType), ord(en)) |
|
239 |
end; |
|
240 |
||
241 |
function EnumToStr(const en : TSound) : shortstring; overload; |
|
242 |
begin |
|
243 |
EnumToStr:= GetEnumName(TypeInfo(TSound), ord(en)) |
|
244 |
end; |
|
245 |
||
246 |
function EnumToStr(const en : TAmmoType) : shortstring; overload; |
|
247 |
begin |
|
248 |
EnumToStr:= GetEnumName(TypeInfo(TAmmoType), ord(en)) |
|
249 |
end; |
|
250 |
||
3756 | 251 |
function EnumToStr(const en: THogEffect) : shortstring; overload; |
252 |
begin |
|
253 |
EnumToStr := GetEnumName(TypeInfo(THogEffect), ord(en)) |
|
254 |
end; |
|
255 |
||
3169
c8c6ac44f51b
prophylactic removal of some Integer references, raise a few of the template islands up a bit so they work inverted without triggering border
nemo
parents:
3165
diff
changeset
|
256 |
procedure movecursor(dx, dy: LongInt); |
2428 | 257 |
var x, y: LongInt; |
258 |
begin |
|
259 |
if (dx = 0) and (dy = 0) then exit; |
|
2671
7e0f88013fe8
smaller patches, one missing Sky-lowres, IMG_Init and Mix_Init (might require newer libraries), updates to SDL bindings, code cleanup, new compile flags
koda
parents:
2670
diff
changeset
|
260 |
|
2428 | 261 |
SDL_GetMouseState(@x, @y); |
262 |
Inc(x, dx); |
|
263 |
Inc(y, dy); |
|
264 |
SDL_WarpMouse(x, y); |
|
265 |
end; |
|
266 |
||
371 | 267 |
function hwSign(r: hwFloat): LongInt; |
4 | 268 |
begin |
2389 | 269 |
// yes, we have negative zero for a reason |
270 |
if r.isNegative then hwSign:= -1 else hwSign:= 1 |
|
4 | 271 |
end; |
272 |
||
371 | 273 |
function Min(a, b: LongInt): LongInt; |
4 | 274 |
begin |
351 | 275 |
if a < b then Min:= a else Min:= b |
4 | 276 |
end; |
277 |
||
371 | 278 |
function Max(a, b: LongInt): LongInt; |
4 | 279 |
begin |
351 | 280 |
if a > b then Max:= a else Max:= b |
4 | 281 |
end; |
282 |
||
2905 | 283 |
procedure OutError(Msg: shortstring; isFatalError: boolean); |
4 | 284 |
begin |
3407 | 285 |
// obsolete? written in WriteLnToConsole() anyway |
286 |
// {$IFDEF DEBUGFILE}AddFileLog(Msg);{$ENDIF} |
|
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
4003
diff
changeset
|
287 |
WriteLnToConsole(Msg); |
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
4003
diff
changeset
|
288 |
if isFatalError then |
3407 | 289 |
begin |
4046
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
4003
diff
changeset
|
290 |
SendIPC('E' + GetLastConsoleLine); |
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
4003
diff
changeset
|
291 |
SDL_Quit; |
cfdbddc4b385
making indentation consistent (noticed while debugging)
nemo
parents:
4003
diff
changeset
|
292 |
halt(1) |
3407 | 293 |
end |
4 | 294 |
end; |
295 |
||
2905 | 296 |
procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean); |
4 | 297 |
begin |
70 | 298 |
if not Assert then OutError(Msg, isFatal) |
4 | 299 |
end; |
300 |
||
301 |
procedure SDLTry(Assert: boolean; isFatal: boolean); |
|
302 |
begin |
|
303 |
if not Assert then OutError(SDL_GetError, isFatal) |
|
304 |
end; |
|
305 |
||
3929
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3914
diff
changeset
|
306 |
(* |
188 | 307 |
procedure AdjustColor(var Color: Longword); |
4 | 308 |
begin |
309 |
Color:= SDL_MapRGB(PixelFormat, (Color shr 16) and $FF, (Color shr 8) and $FF, Color and $FF) |
|
310 |
end; |
|
311 |
||
3929
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3914
diff
changeset
|
312 |
procedure SetKB(n: Longword); |
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3914
diff
changeset
|
313 |
begin |
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3914
diff
changeset
|
314 |
KBnum:= n |
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3914
diff
changeset
|
315 |
end; |
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3914
diff
changeset
|
316 |
*) |
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3914
diff
changeset
|
317 |
|
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3914
diff
changeset
|
318 |
|
316 | 319 |
function IntToStr(n: LongInt): shortstring; |
4 | 320 |
begin |
351 | 321 |
str(n, IntToStr) |
4 | 322 |
end; |
323 |
||
351 | 324 |
function FloatToStr(n: hwFloat): shortstring; |
4 | 325 |
begin |
1346 | 326 |
FloatToStr:= cstr(n) + '_' + inttostr(Lo(n.QWordValue)) |
4 | 327 |
end; |
328 |
||
2447
08d623a494e6
Smaxx's updated german translation + texture gap fixes + updated room list
koda
parents:
2428
diff
changeset
|
329 |
procedure SetTextureParameters(enableClamp: Boolean); |
08d623a494e6
Smaxx's updated german translation + texture gap fixes + updated room list
koda
parents:
2428
diff
changeset
|
330 |
begin |
3611 | 331 |
if enableClamp and ((cReducedQuality and rqClampLess) = 0) then |
2447
08d623a494e6
Smaxx's updated german translation + texture gap fixes + updated room list
koda
parents:
2428
diff
changeset
|
332 |
begin |
3594
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3593
diff
changeset
|
333 |
glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE); |
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3593
diff
changeset
|
334 |
glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE) |
2447
08d623a494e6
Smaxx's updated german translation + texture gap fixes + updated room list
koda
parents:
2428
diff
changeset
|
335 |
end; |
3594
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3593
diff
changeset
|
336 |
glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR); |
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3593
diff
changeset
|
337 |
glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR) |
2447
08d623a494e6
Smaxx's updated german translation + texture gap fixes + updated room list
koda
parents:
2428
diff
changeset
|
338 |
end; |
08d623a494e6
Smaxx's updated german translation + texture gap fixes + updated room list
koda
parents:
2428
diff
changeset
|
339 |
|
775 | 340 |
function DxDy2Angle(const _dY, _dX: hwFloat): GLfloat; |
341 |
var dY, dX: Extended; |
|
342 |
begin |
|
343 |
dY:= _dY.QWordValue / $100000000; |
|
344 |
if _dY.isNegative then dY:= - dY; |
|
345 |
dX:= _dX.QWordValue / $100000000; |
|
346 |
if _dX.isNegative then dX:= - dX; |
|
347 |
DxDy2Angle:= arctan2(dY, dX) * 180 / pi |
|
348 |
end; |
|
349 |
||
371 | 350 |
function DxDy2Angle32(const _dY, _dX: hwFloat): LongInt; |
100 | 351 |
const _16divPI: Extended = 16/pi; |
370
c75410fe3133
- Repair bots: they can walk and use bazooka, possible cannot jump (why?)
unc0rr
parents:
351
diff
changeset
|
352 |
var dY, dX: Extended; |
100 | 353 |
begin |
370
c75410fe3133
- Repair bots: they can walk and use bazooka, possible cannot jump (why?)
unc0rr
parents:
351
diff
changeset
|
354 |
dY:= _dY.QWordValue / $100000000; |
c75410fe3133
- Repair bots: they can walk and use bazooka, possible cannot jump (why?)
unc0rr
parents:
351
diff
changeset
|
355 |
if _dY.isNegative then dY:= - dY; |
c75410fe3133
- Repair bots: they can walk and use bazooka, possible cannot jump (why?)
unc0rr
parents:
351
diff
changeset
|
356 |
dX:= _dX.QWordValue / $100000000; |
c75410fe3133
- Repair bots: they can walk and use bazooka, possible cannot jump (why?)
unc0rr
parents:
351
diff
changeset
|
357 |
if _dX.isNegative then dX:= - dX; |
c75410fe3133
- Repair bots: they can walk and use bazooka, possible cannot jump (why?)
unc0rr
parents:
351
diff
changeset
|
358 |
DxDy2Angle32:= trunc(arctan2(dY, dX) * _16divPI) and $1f |
4 | 359 |
end; |
360 |
||
371 | 361 |
function DxDy2AttackAngle(const _dY, _dX: hwFloat): LongInt; |
100 | 362 |
const MaxAngleDivPI: Extended = cMaxAngle/pi; |
370
c75410fe3133
- Repair bots: they can walk and use bazooka, possible cannot jump (why?)
unc0rr
parents:
351
diff
changeset
|
363 |
var dY, dX: Extended; |
100 | 364 |
begin |
370
c75410fe3133
- Repair bots: they can walk and use bazooka, possible cannot jump (why?)
unc0rr
parents:
351
diff
changeset
|
365 |
dY:= _dY.QWordValue / $100000000; |
c75410fe3133
- Repair bots: they can walk and use bazooka, possible cannot jump (why?)
unc0rr
parents:
351
diff
changeset
|
366 |
if _dY.isNegative then dY:= - dY; |
c75410fe3133
- Repair bots: they can walk and use bazooka, possible cannot jump (why?)
unc0rr
parents:
351
diff
changeset
|
367 |
dX:= _dX.QWordValue / $100000000; |
c75410fe3133
- Repair bots: they can walk and use bazooka, possible cannot jump (why?)
unc0rr
parents:
351
diff
changeset
|
368 |
if _dX.isNegative then dX:= - dX; |
438 | 369 |
DxDy2AttackAngle:= trunc(arctan2(dY, dX) * MaxAngleDivPI) |
100 | 370 |
end; |
4 | 371 |
|
208 | 372 |
procedure SendKB; |
373 |
var s: shortstring; |
|
374 |
begin |
|
375 |
if KBnum <> 0 then |
|
2947 | 376 |
begin |
377 |
s:= 'K' + inttostr(KBnum); |
|
378 |
SendIPCRaw(@s, Length(s) + 1) |
|
379 |
end |
|
208 | 380 |
end; |
381 |
||
351 | 382 |
procedure SetLittle(var r: hwFloat); |
300 | 383 |
begin |
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
543
diff
changeset
|
384 |
r:= SignAs(cLittle, r) |
300 | 385 |
end; |
386 |
||
337 | 387 |
procedure SendStat(sit: TStatInfoType; s: shortstring); |
3784
75aa91bea32b
Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents:
3779
diff
changeset
|
388 |
const stc: array [TStatInfoType] of char = 'rDkKHTPsSB'; |
2382 | 389 |
var buf: shortstring; |
337 | 390 |
begin |
2382 | 391 |
buf:= 'i' + stc[sit] + s; |
392 |
SendIPCRaw(@buf[0], length(buf) + 1) |
|
337 | 393 |
end; |
394 |
||
534 | 395 |
function Str2PChar(const s: shortstring): PChar; |
351 | 396 |
const CharArray: array[byte] of Char = ''; |
397 |
begin |
|
398 |
CharArray:= s; |
|
399 |
CharArray[Length(s)]:= #0; |
|
400 |
Str2PChar:= @CharArray |
|
401 |
end; |
|
402 |
||
771 | 403 |
function isPowerOf2(i: Longword): boolean; |
404 |
begin |
|
405 |
if i = 0 then exit(true); |
|
406 |
while (i and 1) = 0 do i:= i shr 1; |
|
407 |
isPowerOf2:= (i = 1) |
|
408 |
end; |
|
409 |
||
410 |
function toPowerOf2(i: Longword): Longword; |
|
411 |
begin |
|
412 |
toPowerOf2:= 1; |
|
413 |
while (toPowerOf2 < i) do toPowerOf2:= toPowerOf2 shl 1 |
|
414 |
end; |
|
415 |
||
1912
c3d31fb59f0e
Save much CPU time by initializing vertex arrays in texture creation function
unc0rr
parents:
1911
diff
changeset
|
416 |
procedure ResetVertexArrays(texture: PTexture); |
c3d31fb59f0e
Save much CPU time by initializing vertex arrays in texture creation function
unc0rr
parents:
1911
diff
changeset
|
417 |
begin |
c3d31fb59f0e
Save much CPU time by initializing vertex arrays in texture creation function
unc0rr
parents:
1911
diff
changeset
|
418 |
with texture^ do |
2947 | 419 |
begin |
420 |
vb[0].X:= 0; |
|
421 |
vb[0].Y:= 0; |
|
422 |
vb[1].X:= w; |
|
423 |
vb[1].Y:= 0; |
|
424 |
vb[2].X:= w; |
|
425 |
vb[2].Y:= h; |
|
426 |
vb[3].X:= 0; |
|
427 |
vb[3].Y:= h; |
|
1912
c3d31fb59f0e
Save much CPU time by initializing vertex arrays in texture creation function
unc0rr
parents:
1911
diff
changeset
|
428 |
|
2947 | 429 |
tb[0].X:= 0; |
430 |
tb[0].Y:= 0; |
|
431 |
tb[1].X:= rx; |
|
432 |
tb[1].Y:= 0; |
|
433 |
tb[2].X:= rx; |
|
434 |
tb[2].Y:= ry; |
|
435 |
tb[3].X:= 0; |
|
436 |
tb[3].Y:= ry |
|
437 |
end; |
|
1912
c3d31fb59f0e
Save much CPU time by initializing vertex arrays in texture creation function
unc0rr
parents:
1911
diff
changeset
|
438 |
end; |
c3d31fb59f0e
Save much CPU time by initializing vertex arrays in texture creation function
unc0rr
parents:
1911
diff
changeset
|
439 |
|
1180
e56317fdf78d
Start implementing support for 32bit sprites concerned in map generation process.
unc0rr
parents:
1128
diff
changeset
|
440 |
function NewTexture(width, height: Longword; buf: Pointer): PTexture; |
e56317fdf78d
Start implementing support for 32bit sprites concerned in map generation process.
unc0rr
parents:
1128
diff
changeset
|
441 |
begin |
e56317fdf78d
Start implementing support for 32bit sprites concerned in map generation process.
unc0rr
parents:
1128
diff
changeset
|
442 |
new(NewTexture); |
2715
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2705
diff
changeset
|
443 |
NewTexture^.PrevTexture:= nil; |
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2705
diff
changeset
|
444 |
NewTexture^.NextTexture:= nil; |
3537
8f5b3108f29c
New approach to the low-res problem. Basically, we already have a 1024 minimum, and the tallest maps are restricting themselves to 2048 maximum. All backgrounds are scaled down 50%, then scaled up on draw. Saves memory, and backgrounds are already deliberately fuzzed for depth of field anyway.
nemo
parents:
3534
diff
changeset
|
445 |
NewTexture^.Scale:= 1; |
2715
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2705
diff
changeset
|
446 |
if TextureList <> nil then |
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2705
diff
changeset
|
447 |
begin |
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2705
diff
changeset
|
448 |
TextureList^.PrevTexture:= NewTexture; |
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2705
diff
changeset
|
449 |
NewTexture^.NextTexture:= TextureList |
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2705
diff
changeset
|
450 |
end; |
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2705
diff
changeset
|
451 |
TextureList:= NewTexture; |
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2705
diff
changeset
|
452 |
|
1180
e56317fdf78d
Start implementing support for 32bit sprites concerned in map generation process.
unc0rr
parents:
1128
diff
changeset
|
453 |
NewTexture^.w:= width; |
e56317fdf78d
Start implementing support for 32bit sprites concerned in map generation process.
unc0rr
parents:
1128
diff
changeset
|
454 |
NewTexture^.h:= height; |
1896 | 455 |
NewTexture^.rx:= 1.0; |
456 |
NewTexture^.ry:= 1.0; |
|
1180
e56317fdf78d
Start implementing support for 32bit sprites concerned in map generation process.
unc0rr
parents:
1128
diff
changeset
|
457 |
|
1912
c3d31fb59f0e
Save much CPU time by initializing vertex arrays in texture creation function
unc0rr
parents:
1911
diff
changeset
|
458 |
ResetVertexArrays(NewTexture); |
c3d31fb59f0e
Save much CPU time by initializing vertex arrays in texture creation function
unc0rr
parents:
1911
diff
changeset
|
459 |
|
1180
e56317fdf78d
Start implementing support for 32bit sprites concerned in map generation process.
unc0rr
parents:
1128
diff
changeset
|
460 |
glGenTextures(1, @NewTexture^.id); |
e56317fdf78d
Start implementing support for 32bit sprites concerned in map generation process.
unc0rr
parents:
1128
diff
changeset
|
461 |
|
e56317fdf78d
Start implementing support for 32bit sprites concerned in map generation process.
unc0rr
parents:
1128
diff
changeset
|
462 |
glBindTexture(GL_TEXTURE_2D, NewTexture^.id); |
e56317fdf78d
Start implementing support for 32bit sprites concerned in map generation process.
unc0rr
parents:
1128
diff
changeset
|
463 |
glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, width, height, 0, GL_RGBA, GL_UNSIGNED_BYTE, buf); |
e56317fdf78d
Start implementing support for 32bit sprites concerned in map generation process.
unc0rr
parents:
1128
diff
changeset
|
464 |
|
2447
08d623a494e6
Smaxx's updated german translation + texture gap fixes + updated room list
koda
parents:
2428
diff
changeset
|
465 |
SetTextureParameters(true); |
1180
e56317fdf78d
Start implementing support for 32bit sprites concerned in map generation process.
unc0rr
parents:
1128
diff
changeset
|
466 |
end; |
e56317fdf78d
Start implementing support for 32bit sprites concerned in map generation process.
unc0rr
parents:
1128
diff
changeset
|
467 |
|
2290
bf87ca44782e
Selectively enable clamping - seeing if this helps avoid weird flake problems while still fixing vertical lines in waves and sky
nemo
parents:
2279
diff
changeset
|
468 |
function Surface2Tex(surf: PSDL_Surface; enableClamp: boolean): PTexture; |
2576
2eb7ce1c1f19
code cleanup for Surface2Tex (we don't have 3 bytes surfaces any more)
koda
parents:
2575
diff
changeset
|
469 |
var tw, th, x, y: Longword; |
2eb7ce1c1f19
code cleanup for Surface2Tex (we don't have 3 bytes surfaces any more)
koda
parents:
2575
diff
changeset
|
470 |
tmpp: pointer; |
2eb7ce1c1f19
code cleanup for Surface2Tex (we don't have 3 bytes surfaces any more)
koda
parents:
2575
diff
changeset
|
471 |
fromP4, toP4: PLongWordArray; |
753 | 472 |
begin |
755 | 473 |
new(Surface2Tex); |
2715
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2705
diff
changeset
|
474 |
Surface2Tex^.PrevTexture:= nil; |
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2705
diff
changeset
|
475 |
Surface2Tex^.NextTexture:= nil; |
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2705
diff
changeset
|
476 |
if TextureList <> nil then |
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2705
diff
changeset
|
477 |
begin |
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2705
diff
changeset
|
478 |
TextureList^.PrevTexture:= Surface2Tex; |
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2705
diff
changeset
|
479 |
Surface2Tex^.NextTexture:= TextureList |
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2705
diff
changeset
|
480 |
end; |
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2705
diff
changeset
|
481 |
TextureList:= Surface2Tex; |
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2705
diff
changeset
|
482 |
|
755 | 483 |
Surface2Tex^.w:= surf^.w; |
484 |
Surface2Tex^.h:= surf^.h; |
|
485 |
||
2576
2eb7ce1c1f19
code cleanup for Surface2Tex (we don't have 3 bytes surfaces any more)
koda
parents:
2575
diff
changeset
|
486 |
if (surf^.format^.BytesPerPixel <> 4) then |
3859 | 487 |
begin |
2947 | 488 |
TryDo(false, 'Surface2Tex failed, expecting 32 bit surface', true); |
489 |
Surface2Tex^.id:= 0; |
|
490 |
exit |
|
3859 | 491 |
end; |
2576
2eb7ce1c1f19
code cleanup for Surface2Tex (we don't have 3 bytes surfaces any more)
koda
parents:
2575
diff
changeset
|
492 |
|
753 | 493 |
|
755 | 494 |
glGenTextures(1, @Surface2Tex^.id); |
753 | 495 |
|
755 | 496 |
glBindTexture(GL_TEXTURE_2D, Surface2Tex^.id); |
753 | 497 |
|
771 | 498 |
if SDL_MustLock(surf) then |
2947 | 499 |
SDLTry(SDL_LockSurface(surf) >= 0, true); |
771 | 500 |
|
2428 | 501 |
if (not SupportNPOTT) and (not (isPowerOf2(Surf^.w) and isPowerOf2(Surf^.h))) then |
3859 | 502 |
begin |
2947 | 503 |
tw:= toPowerOf2(Surf^.w); |
504 |
th:= toPowerOf2(Surf^.h); |
|
1896 | 505 |
|
2947 | 506 |
Surface2Tex^.rx:= Surf^.w / tw; |
507 |
Surface2Tex^.ry:= Surf^.h / th; |
|
2376 | 508 |
|
2947 | 509 |
GetMem(tmpp, tw * th * surf^.format^.BytesPerPixel); |
1896 | 510 |
|
3859 | 511 |
fromP4:= Surf^.pixels; |
512 |
toP4:= tmpp; |
|
771 | 513 |
|
3859 | 514 |
for y:= 0 to Pred(Surf^.h) do |
2947 | 515 |
begin |
3859 | 516 |
for x:= 0 to Pred(Surf^.w) do toP4^[x]:= fromP4^[x]; |
517 |
for x:= Surf^.w to Pred(tw) do toP4^[x]:= 0; |
|
518 |
toP4:= @(toP4^[tw]); |
|
519 |
fromP4:= @(fromP4^[Surf^.pitch div 4]) |
|
2947 | 520 |
end; |
1896 | 521 |
|
3859 | 522 |
for y:= Surf^.h to Pred(th) do |
2947 | 523 |
begin |
3859 | 524 |
for x:= 0 to Pred(tw) do toP4^[x]:= 0; |
525 |
toP4:= @(toP4^[tw]) |
|
2947 | 526 |
end; |
771 | 527 |
|
2947 | 528 |
glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, tw, th, 0, GL_RGBA, GL_UNSIGNED_BYTE, tmpp); |
2376 | 529 |
|
2947 | 530 |
FreeMem(tmpp, tw * th * surf^.format^.BytesPerPixel) |
3859 | 531 |
end |
2576
2eb7ce1c1f19
code cleanup for Surface2Tex (we don't have 3 bytes surfaces any more)
koda
parents:
2575
diff
changeset
|
532 |
else |
3859 | 533 |
begin |
2947 | 534 |
Surface2Tex^.rx:= 1.0; |
535 |
Surface2Tex^.ry:= 1.0; |
|
536 |
glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, surf^.w, surf^.h, 0, GL_RGBA, GL_UNSIGNED_BYTE, surf^.pixels); |
|
3859 | 537 |
end; |
753 | 538 |
|
1912
c3d31fb59f0e
Save much CPU time by initializing vertex arrays in texture creation function
unc0rr
parents:
1911
diff
changeset
|
539 |
ResetVertexArrays(Surface2Tex); |
c3d31fb59f0e
Save much CPU time by initializing vertex arrays in texture creation function
unc0rr
parents:
1911
diff
changeset
|
540 |
|
754 | 541 |
if SDL_MustLock(surf) then |
2947 | 542 |
SDL_UnlockSurface(surf); |
754 | 543 |
|
2447
08d623a494e6
Smaxx's updated german translation + texture gap fixes + updated room list
koda
parents:
2428
diff
changeset
|
544 |
SetTextureParameters(enableClamp); |
753 | 545 |
end; |
546 |
||
759 | 547 |
procedure FreeTexture(tex: PTexture); |
548 |
begin |
|
3513
f589230fa21b
now it's possible to select the scheme file in the ifrontendfix a type about loading an image (iphone file system IS case senstive)
koda
parents:
3464
diff
changeset
|
549 |
if tex <> nil then |
2947 | 550 |
begin |
3697 | 551 |
if tex^.NextTexture <> nil then |
3513
f589230fa21b
now it's possible to select the scheme file in the ifrontendfix a type about loading an image (iphone file system IS case senstive)
koda
parents:
3464
diff
changeset
|
552 |
tex^.NextTexture^.PrevTexture:= tex^.PrevTexture; |
3697 | 553 |
if tex^.PrevTexture <> nil then |
3513
f589230fa21b
now it's possible to select the scheme file in the ifrontendfix a type about loading an image (iphone file system IS case senstive)
koda
parents:
3464
diff
changeset
|
554 |
tex^.PrevTexture^.NextTexture:= tex^.NextTexture |
3697 | 555 |
else |
3513
f589230fa21b
now it's possible to select the scheme file in the ifrontendfix a type about loading an image (iphone file system IS case senstive)
koda
parents:
3464
diff
changeset
|
556 |
TextureList:= tex^.NextTexture; |
f589230fa21b
now it's possible to select the scheme file in the ifrontendfix a type about loading an image (iphone file system IS case senstive)
koda
parents:
3464
diff
changeset
|
557 |
glDeleteTextures(1, @tex^.id); |
f589230fa21b
now it's possible to select the scheme file in the ifrontendfix a type about loading an image (iphone file system IS case senstive)
koda
parents:
3464
diff
changeset
|
558 |
Dispose(tex); |
2947 | 559 |
end |
759 | 560 |
end; |
337 | 561 |
|
949 | 562 |
function DecodeBase64(s: shortstring): shortstring; |
563 |
const table = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'; |
|
564 |
var i, t, c: Longword; |
|
565 |
begin |
|
566 |
c:= 0; |
|
567 |
for i:= 1 to Length(s) do |
|
2947 | 568 |
begin |
569 |
t:= Pos(s[i], table); |
|
570 |
if s[i] = '=' then inc(c); |
|
571 |
if t > 0 then byte(s[i]):= t - 1 else byte(s[i]):= 0 |
|
572 |
end; |
|
949 | 573 |
|
574 |
i:= 1; |
|
575 |
t:= 1; |
|
576 |
while i <= length(s) do |
|
2947 | 577 |
begin |
578 |
DecodeBase64[t ]:= char((byte(s[i ]) shl 2) or (byte(s[i + 1]) shr 4)); |
|
579 |
DecodeBase64[t + 1]:= char((byte(s[i + 1]) shl 4) or (byte(s[i + 2]) shr 2)); |
|
580 |
DecodeBase64[t + 2]:= char((byte(s[i + 2]) shl 6) or (byte(s[i + 3]) )); |
|
581 |
inc(t, 3); |
|
582 |
inc(i, 4) |
|
583 |
end; |
|
949 | 584 |
|
585 |
if c < 3 then t:= t - c; |
|
586 |
||
587 |
byte(DecodeBase64[0]):= t - 1 |
|
588 |
end; |
|
589 |
||
2735 | 590 |
procedure MakeScreenshot(filename: shortstring); |
1080 | 591 |
var p: Pointer; |
2947 | 592 |
size: Longword; |
593 |
f: file; |
|
594 |
// Windows Bitmap Header |
|
595 |
head: array[0..53] of Byte = ( |
|
596 |
$42, $4D, // identifier ("BM") |
|
597 |
0, 0, 0, 0, // file size |
|
598 |
0, 0, 0, 0, // reserved |
|
599 |
54, 0, 0, 0, // starting offset |
|
600 |
40, 0, 0, 0, // header size |
|
601 |
0, 0, 0, 0, // width |
|
602 |
0, 0, 0, 0, // height |
|
603 |
1, 0, // color planes |
|
604 |
24, 0, // bit depth |
|
605 |
0, 0, 0, 0, // compression method (uncompressed) |
|
606 |
0, 0, 0, 0, // image size |
|
607 |
96, 0, 0, 0, // horizontal resolution |
|
608 |
96, 0, 0, 0, // vertical resolution |
|
609 |
0, 0, 0, 0, // number of colors (all) |
|
610 |
0, 0, 0, 0 // number of important colors |
|
611 |
); |
|
1080 | 612 |
begin |
2745 | 613 |
playSound(sndShutter); |
1080 | 614 |
|
3107 | 615 |
// flash |
616 |
ScreenFade:= sfFromWhite; |
|
617 |
ScreenFadeValue:= sfMax; |
|
618 |
ScreenFadeSpeed:= 5; |
|
619 |
||
1080 | 620 |
size:= cScreenWidth * cScreenHeight * 3; |
621 |
p:= GetMem(size); |
|
622 |
||
2735 | 623 |
// update header information and file name |
624 |
||
3350 | 625 |
filename:= ParamStr(1) + '/Screenshots/' + filename + '.bmp'; |
2735 | 626 |
|
627 |
head[$02]:= (size + 54) and $ff; |
|
628 |
head[$03]:= ((size + 54) shr 8) and $ff; |
|
629 |
head[$04]:= ((size + 54) shr 16) and $ff; |
|
630 |
head[$05]:= ((size + 54) shr 24) and $ff; |
|
631 |
head[$12]:= cScreenWidth and $ff; |
|
632 |
head[$13]:= (cScreenWidth shr 8) and $ff; |
|
633 |
head[$14]:= (cScreenWidth shr 16) and $ff; |
|
634 |
head[$15]:= (cScreenWidth shr 24) and $ff; |
|
635 |
head[$16]:= cScreenHeight and $ff; |
|
636 |
head[$17]:= (cScreenHeight shr 8) and $ff; |
|
637 |
head[$18]:= (cScreenHeight shr 16) and $ff; |
|
638 |
head[$19]:= (cScreenHeight shr 24) and $ff; |
|
639 |
head[$22]:= size and $ff; |
|
640 |
head[$23]:= (size shr 8) and $ff; |
|
641 |
head[$24]:= (size shr 16) and $ff; |
|
642 |
head[$25]:= (size shr 24) and $ff; |
|
2163
12730f5e79b9
koda's patch fixing some iphone port troubles (color, mouse)
unc0rr
parents:
2162
diff
changeset
|
643 |
|
12730f5e79b9
koda's patch fixing some iphone port troubles (color, mouse)
unc0rr
parents:
2162
diff
changeset
|
644 |
//remember that opengles operates on a single surface, so GL_FRONT *should* be implied |
3663
8c28abf427f5
reduce the number of keywords used and switch to BMP format for screenshots
koda
parents:
3650
diff
changeset
|
645 |
//glReadBuffer(GL_FRONT); |
1080 | 646 |
glReadPixels(0, 0, cScreenWidth, cScreenHeight, GL_BGR, GL_UNSIGNED_BYTE, p); |
647 |
||
648 |
{$I-} |
|
2735 | 649 |
Assign(f, filename); |
1080 | 650 |
Rewrite(f, 1); |
651 |
if IOResult = 0 then |
|
2947 | 652 |
begin |
653 |
BlockWrite(f, head, sizeof(head)); |
|
654 |
BlockWrite(f, p^, size); |
|
655 |
Close(f); |
|
656 |
end; |
|
1080 | 657 |
{$I+} |
658 |
||
659 |
FreeMem(p) |
|
660 |
end; |
|
661 |
||
949 | 662 |
{$IFDEF DEBUGFILE} |
663 |
procedure AddFileLog(s: shortstring); |
|
664 |
begin |
|
665 |
writeln(f, GameTicks: 6, ': ', s); |
|
666 |
flush(f) |
|
667 |
end; |
|
3929
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3914
diff
changeset
|
668 |
(* |
949 | 669 |
function RectToStr(Rect: TSDL_Rect): shortstring; |
670 |
begin |
|
671 |
RectToStr:= '(x: ' + inttostr(rect.x) + '; y: ' + inttostr(rect.y) + '; w: ' + inttostr(rect.w) + '; h: ' + inttostr(rect.h) + ')' |
|
672 |
end; |
|
3929
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3914
diff
changeset
|
673 |
*) |
2242 | 674 |
{$ENDIF} |
306 | 675 |
|
2619 | 676 |
function doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface; |
677 |
{* for more information http://www.idevgames.com/forum/showpost.php?p=85864&postcount=7 *} |
|
678 |
var convertedSurf: PSDL_Surface = nil; |
|
679 |
begin |
|
2947 | 680 |
if (tmpsurf^.format^.bitsperpixel = 24) or ((tmpsurf^.format^.bitsperpixel = 32) and (tmpsurf^.format^.rshift > tmpsurf^.format^.bshift)) then |
681 |
begin |
|
682 |
convertedSurf:= SDL_ConvertSurface(tmpsurf, @conversionFormat, SDL_SWSURFACE); |
|
683 |
SDL_FreeSurface(tmpsurf); |
|
684 |
exit(convertedSurf); |
|
685 |
end; |
|
2705
2b5625c4ec16
fix a nasty 196 bytes memory leak in engine, plus other stuff for iphone frontend
koda
parents:
2699
diff
changeset
|
686 |
|
2947 | 687 |
exit(tmpsurf); |
2619 | 688 |
end; |
689 |
||
3971 | 690 |
function endian(independent: LongWord): LongWord; inline; |
2670 | 691 |
begin |
692 |
{$IFDEF ENDIAN_LITTLE} |
|
693 |
endian:= independent; |
|
694 |
{$ELSE} |
|
695 |
endian:= (((independent and $FF000000) shr 24) or |
|
3365
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3355
diff
changeset
|
696 |
((independent and $00FF0000) shr 8) or |
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3355
diff
changeset
|
697 |
((independent and $0000FF00) shl 8) or |
37ac593e9027
wow all these files only for land preview and seed generation
koda
parents:
3355
diff
changeset
|
698 |
((independent and $000000FF) shl 24)) |
2670 | 699 |
{$ENDIF} |
700 |
end; |
|
2630 | 701 |
|
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
702 |
|
3038 | 703 |
procedure initModule; |
3305 | 704 |
{$IFDEF DEBUGFILE}{$IFNDEF IPHONEOS}var i: LongInt;{$ENDIF}{$ENDIF} |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
705 |
begin |
3709 | 706 |
Pathz:= cPathz; |
707 |
{* REFERENCE |
|
708 |
4096 -> $FFFFF000 |
|
709 |
2048 -> $FFFFF800 |
|
710 |
1024 -> $FFFFFC00 |
|
711 |
512 -> $FFFFFE00 *} |
|
712 |
if (cReducedQuality and rqLowRes) <> 0 then |
|
713 |
begin |
|
714 |
LAND_WIDTH:= 2048; |
|
715 |
LAND_HEIGHT:= 1024; |
|
716 |
LAND_WIDTH_MASK:= $FFFFF800; |
|
717 |
LAND_HEIGHT_MASK:= $FFFFFC00; |
|
718 |
end |
|
719 |
else |
|
720 |
begin |
|
721 |
LAND_WIDTH:= 4096; |
|
722 |
LAND_HEIGHT:= 2048; |
|
723 |
LAND_WIDTH_MASK:= $FFFFF000; |
|
724 |
LAND_HEIGHT_MASK:= $FFFFF800 |
|
725 |
end; |
|
726 |
||
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
727 |
cDrownSpeed.QWordValue := 257698038; // 0.06 |
3593
ae50f63e4fa9
Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents:
3537
diff
changeset
|
728 |
cDrownSpeedf := 0.06; |
3355
dc9e61e67484
cWindSpeed recalculation assumed GetRandom returns a value between 0.0-1.0 while in fact is in the 0.0-0.5 range; Halve cMaxWindSpeed to compensate.
palewolf
parents:
3350
diff
changeset
|
729 |
cMaxWindSpeed.QWordValue:= 1073742; // 0.00025 |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
730 |
cWindSpeed.QWordValue := 429496; // 0.0001 |
3593
ae50f63e4fa9
Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents:
3537
diff
changeset
|
731 |
cWindSpeedf := 0.0001; |
3355
dc9e61e67484
cWindSpeed recalculation assumed GetRandom returns a value between 0.0-1.0 while in fact is in the 0.0-0.5 range; Halve cMaxWindSpeed to compensate.
palewolf
parents:
3350
diff
changeset
|
732 |
cGravity := cMaxWindSpeed * 2; |
3593
ae50f63e4fa9
Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents:
3537
diff
changeset
|
733 |
cGravityf := 0.00025 * 2; |
2947 | 734 |
cDamageModifier := _1; |
735 |
TargetPoint := cTargetPointRef; |
|
736 |
TextureList := nil; |
|
3697 | 737 |
|
2947 | 738 |
// int, longint longword and byte |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
739 |
CursorMovementX := 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
740 |
CursorMovementY := 0; |
3066
5c0efa437728
Enable birdy. Has egg bombing. Eggs should possibly have a dX component. No poison yet, no egg sprite.
nemo
parents:
3038
diff
changeset
|
741 |
GameTicks := 0; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
742 |
TrainingTimeInc := 10000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
743 |
TrainingTimeInD := 500; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
744 |
TrainingTimeInM := 5000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
745 |
TrainingTimeMax := 60000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
746 |
TimeTrialStartTime := 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
747 |
TimeTrialStopTime := 0; |
3066
5c0efa437728
Enable birdy. Has egg bombing. Eggs should possibly have a dX component. No poison yet, no egg sprite.
nemo
parents:
3038
diff
changeset
|
748 |
cWaterLine := LAND_HEIGHT; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
749 |
cGearScrEdgesDist := 240; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
750 |
|
3066
5c0efa437728
Enable birdy. Has egg bombing. Eggs should possibly have a dX component. No poison yet, no egg sprite.
nemo
parents:
3038
diff
changeset
|
751 |
GameFlags := 0; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
752 |
TrainingFlags := 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
753 |
TurnTimeLeft := 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
754 |
cSuddenDTurns := 15; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
755 |
cDamagePercent := 100; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
756 |
cMineDudPercent := 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
757 |
cTemplateFilter := 0; |
4003
ca0600ab38bf
disable gfMines and update variable names (landadds -> minesnum, cLandAdditions -> cLandMines)
koda
parents:
3988
diff
changeset
|
758 |
cMapGen := 0; // MAPGEN_REGULAR |
3133 | 759 |
cMazeSize := 0; |
4198 | 760 |
cHedgehogTurnTime := 45000; |
4248 | 761 |
cMinesTime := 3; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
762 |
cMaxAIThinkTime := 9000; |
3611 | 763 |
cCloudsNumber := 9; |
4143
eb7981f34800
Remove the last vestiges of the shoppa hack by adding 2 spinners for percentage health and amount of health in crate, also update translations and increase SD spinner (some users have requested it)
henek
parents:
4135
diff
changeset
|
764 |
cHealthCaseProb := 35; |
eb7981f34800
Remove the last vestiges of the shoppa hack by adding 2 spinners for percentage health and amount of health in crate, also update translations and increase SD spinner (some users have requested it)
henek
parents:
4135
diff
changeset
|
765 |
cHealthCaseAmount := 25; |
4153
6bd94e4c5d65
2 more variables to control water rise and health loss during sudden death.
henek
parents:
4143
diff
changeset
|
766 |
cWaterRise := 47; |
6bd94e4c5d65
2 more variables to control water rise and health loss during sudden death.
henek
parents:
4143
diff
changeset
|
767 |
cHealthDecrease := 5; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
768 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
769 |
cTagsMask := 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
770 |
KBnum := 0; |
3066
5c0efa437728
Enable birdy. Has egg bombing. Eggs should possibly have a dX component. No poison yet, no egg sprite.
nemo
parents:
3038
diff
changeset
|
771 |
InitStepsFlags := 0; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
772 |
RealTicks := 0; |
4135
5be798ecafdc
This should make bee and other targetted things behave more reliably in infinite attack mode. Blocks switching of weps if a target point is active.
nemo
parents:
4119
diff
changeset
|
773 |
AttackBar := 0; // 0 - none, 1 - just bar at the right-down corner, 2 - from weapon |
3611 | 774 |
cCaseFactor := 5; {0..9} |
4003
ca0600ab38bf
disable gfMines and update variable names (landadds -> minesnum, cLandAdditions -> cLandMines)
koda
parents:
3988
diff
changeset
|
775 |
cLandMines := 4; |
3611 | 776 |
cExplosives := 2; |
3697 | 777 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
778 |
GameState := Low(TGameState); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
779 |
GameType := gmtLocal; |
3650 | 780 |
zoom := cDefaultZoomLevel; |
781 |
ZoomValue := cDefaultZoomLevel; |
|
3066
5c0efa437728
Enable birdy. Has egg bombing. Eggs should possibly have a dX component. No poison yet, no egg sprite.
nemo
parents:
3038
diff
changeset
|
782 |
WeaponTooltipTex:= nil; |
5c0efa437728
Enable birdy. Has egg bombing. Eggs should possibly have a dX component. No poison yet, no egg sprite.
nemo
parents:
3038
diff
changeset
|
783 |
cLaserSighting := false; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
784 |
cVampiric := false; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
785 |
cArtillery := false; |
3066
5c0efa437728
Enable birdy. Has egg bombing. Eggs should possibly have a dX component. No poison yet, no egg sprite.
nemo
parents:
3038
diff
changeset
|
786 |
flagMakeCapture := false; |
5c0efa437728
Enable birdy. Has egg bombing. Eggs should possibly have a dX component. No poison yet, no egg sprite.
nemo
parents:
3038
diff
changeset
|
787 |
bBetweenTurns := false; |
5c0efa437728
Enable birdy. Has egg bombing. Eggs should possibly have a dX component. No poison yet, no egg sprite.
nemo
parents:
3038
diff
changeset
|
788 |
bWaterRising := false; |
5c0efa437728
Enable birdy. Has egg bombing. Eggs should possibly have a dX component. No poison yet, no egg sprite.
nemo
parents:
3038
diff
changeset
|
789 |
isCursorVisible := false; |
5c0efa437728
Enable birdy. Has egg bombing. Eggs should possibly have a dX component. No poison yet, no egg sprite.
nemo
parents:
3038
diff
changeset
|
790 |
isTerminated := false; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
791 |
isInLag := false; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
792 |
isPaused := false; |
3066
5c0efa437728
Enable birdy. Has egg bombing. Eggs should possibly have a dX component. No poison yet, no egg sprite.
nemo
parents:
3038
diff
changeset
|
793 |
isInMultiShoot := false; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
794 |
isSpeed := false; |
3066
5c0efa437728
Enable birdy. Has egg bombing. Eggs should possibly have a dX component. No poison yet, no egg sprite.
nemo
parents:
3038
diff
changeset
|
795 |
fastUntilLag := false; |
3107 | 796 |
isFirstFrame := true; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
797 |
isSEBackup := true; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
798 |
cSeed := ''; |
3066
5c0efa437728
Enable birdy. Has egg bombing. Eggs should possibly have a dX component. No poison yet, no egg sprite.
nemo
parents:
3038
diff
changeset
|
799 |
cVolumeDelta := 0; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
800 |
cHasFocus := true; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
801 |
cInactDelay := 1250; |
3779
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
802 |
ReadyTimeLeft := 0; |
3107 | 803 |
|
804 |
ScreenFade := sfNone; |
|
3697 | 805 |
|
3928
2560731c860d
move all mobile-related functions in their own module, provides a structure for future mobile ports
koda
parents:
3914
diff
changeset
|
806 |
{$IFDEF SDL13} |
2560731c860d
move all mobile-related functions in their own module, provides a structure for future mobile ports
koda
parents:
3914
diff
changeset
|
807 |
SDLwindow := nil; |
2560731c860d
move all mobile-related functions in their own module, provides a structure for future mobile ports
koda
parents:
3914
diff
changeset
|
808 |
{$ENDIF} |
2560731c860d
move all mobile-related functions in their own module, provides a structure for future mobile ports
koda
parents:
3914
diff
changeset
|
809 |
|
3765
ebfe7c9b3085
set flake to non critical, no touches until game is starding, moved some variables to be initialized in the right place
koda
parents:
3764
diff
changeset
|
810 |
// those values still aren't perfect |
ebfe7c9b3085
set flake to non critical, no touches until game is starding, moved some variables to be initialized in the right place
koda
parents:
3764
diff
changeset
|
811 |
cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth); |
ebfe7c9b3085
set flake to non critical, no touches until game is starding, moved some variables to be initialized in the right place
koda
parents:
3764
diff
changeset
|
812 |
cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH); |
ebfe7c9b3085
set flake to non critical, no touches until game is starding, moved some variables to be initialized in the right place
koda
parents:
3764
diff
changeset
|
813 |
cScreenSpace:= cRightScreenBorder - cLeftScreenBorder; |
ebfe7c9b3085
set flake to non critical, no touches until game is starding, moved some variables to be initialized in the right place
koda
parents:
3764
diff
changeset
|
814 |
|
3709 | 815 |
if isPhone() then |
816 |
cMaxCaptions:= 3 |
|
817 |
else |
|
818 |
cMaxCaptions:= 4; |
|
819 |
||
488 | 820 |
{$IFDEF DEBUGFILE} |
337 | 821 |
{$I-} |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
822 |
{$IFDEF IPHONEOS} |
3914 | 823 |
Assign(f,'../Documents/hw-' + cLogfileBase + '.log'); |
3377 | 824 |
Rewrite(f); |
2630 | 825 |
{$ELSE} |
3533
03892fb97ab3
fix build and permissions problems when launching hwengine from command line
koda
parents:
3513
diff
changeset
|
826 |
if (ParamStr(1) <> '') and (ParamStr(2) <> '') then |
3709 | 827 |
if (ParamCount <> 3) and (ParamCount <> cDefaultParamNum) then |
2947 | 828 |
begin |
3534 | 829 |
for i:= 0 to 7 do |
830 |
begin |
|
3932 | 831 |
assign(f, ExtractFileDir(ParamStr(2)) + '/' + cLogfileBase + inttostr(i) + '.log'); |
3534 | 832 |
rewrite(f); |
833 |
if IOResult = 0 then break; |
|
834 |
end; |
|
835 |
if IOResult <> 0 then f:= stderr; // if everything fails, write to stderr |
|
836 |
end |
|
837 |
else |
|
838 |
begin |
|
839 |
for i:= 0 to 7 do |
|
840 |
begin |
|
3914 | 841 |
assign(f, ParamStr(1) + '/Logs/' + cLogfileBase + inttostr(i) + '.log'); |
3534 | 842 |
rewrite(f); |
843 |
if IOResult = 0 then break; |
|
844 |
end; |
|
845 |
if IOResult <> 0 then f:= stderr; // if everything fails, write to stderr |
|
2947 | 846 |
end |
847 |
else |
|
848 |
f:= stderr; |
|
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
849 |
{$ENDIF} |
337 | 850 |
{$I+} |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
851 |
{$ENDIF} |
3695
c11abf387a7d
reverted stereo craziness - the experimental3D branch has been created for a reason
koda
parents:
3693
diff
changeset
|
852 |
|
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
853 |
end; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
854 |
|
3038 | 855 |
procedure freeModule; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
856 |
begin |
3626 | 857 |
recordFileName:= ''; |
2947 | 858 |
while TextureList <> nil do FreeTexture(TextureList); |
2154
3d2917be12c3
Change default output to stderr since /tmp doesn't exist under windows and is useless under iphoneos, add a couple of extra parameters
nemo
parents:
2152
diff
changeset
|
859 |
|
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
860 |
{$IFDEF DEBUGFILE} |
2947 | 861 |
writeln(f, 'halt at ', GameTicks, ' ticks. TurnTimeLeft = ', TurnTimeLeft); |
862 |
flush(f); |
|
863 |
close(f); |
|
4 | 864 |
{$ENDIF} |
3676 | 865 |
|
3709 | 866 |
// re-init flags so they will always contain safe values |
3676 | 867 |
cScreenWidth := 1024; |
868 |
cScreenHeight := 768; |
|
869 |
cBits := 32; |
|
870 |
//ipcPort is in uIO |
|
871 |
cFullScreen := false; |
|
872 |
isSoundEnabled := true; |
|
873 |
isMusicEnabled := false; |
|
874 |
cLocaleFName := 'en.txt'; |
|
3779
3351a017d4ad
tap to dismiss 'get ready', add a toggle to enable/disable it
koda
parents:
3774
diff
changeset
|
875 |
cInitVolume := 100; |
3676 | 876 |
cTimerInterval := 8; |
3709 | 877 |
PathPrefix := './'; |
3676 | 878 |
cShowFPS := false; |
879 |
cAltDamage := true; |
|
880 |
cReducedQuality := rqNone; |
|
881 |
//userNick is in uChat |
|
882 |
recordFileName := ''; |
|
4119
0d3e701491fb
Forgot to make the reset of ReadyTimer match. Also, new icon for Reset Weapons mode
nemo
parents:
4046
diff
changeset
|
883 |
cReadyDelay := 0; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
884 |
end; |
4 | 885 |
|
886 |
end. |