author | Wuzzy <almikes@aol.com> |
Wed, 23 Nov 2016 16:02:03 +0100 | |
changeset 12043 | cba2ef0cf2e8 |
parent 11884 | c6eafb6f2735 |
child 12202 | 98824a464230 |
permissions | -rw-r--r-- |
4976 | 1 |
(* |
2 |
* Hedgewars, a free turn based strategy game |
|
11046 | 3 |
* Copyright (c) 2004-2015 Andrey Korotaev <unC0Rr@gmail.com> |
4976 | 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 |
|
10108
c68cf030eded
update FSF address. note: two sdl include files (by Sam Lantinga) still have the old FSF address in their copyright - but I ain't gonna touch their copyright headers
sheepluva
parents:
10104
diff
changeset
|
16 |
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA |
4976 | 17 |
*) |
18 |
||
4374 | 19 |
{$INCLUDE "options.inc"} |
4976 | 20 |
|
4374 | 21 |
unit uUtils; |
22 |
||
23 |
interface |
|
9295
f8819c3dde54
Remove some GLunit dependencies noticed on graph. uUtils was using it for GLfloat - but, the stuff it was returning to was usually converting to "real" anyway. uLand was including it unnecessarily. Minor refactor
nemo
parents:
9080
diff
changeset
|
24 |
uses uTypes, uFloat; |
4374 | 25 |
|
11829 | 26 |
// returns s with whitespaces (chars <= #32) removed form both ends |
27 |
function Trim(s: shortstring) : shortstring; |
|
28 |
||
4374 | 29 |
procedure SplitBySpace(var a, b: shortstring); |
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7151
diff
changeset
|
30 |
procedure SplitByChar(var a, b: shortstring; c: char); |
10131
4b4a043111f4
- pas2c recognizes typecasts in initialization expressions
unc0rr
parents:
10127
diff
changeset
|
31 |
procedure SplitByCharA(var a, b: ansistring; c: char); |
4374 | 32 |
|
11831
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
33 |
function ExtractFileDir(s: shortstring) : shortstring; |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
34 |
function ExtractFileName(s: shortstring) : shortstring; |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
35 |
|
4374 | 36 |
function EnumToStr(const en : TGearType) : shortstring; overload; |
4453 | 37 |
function EnumToStr(const en : TVisualGearType) : shortstring; overload; |
4374 | 38 |
function EnumToStr(const en : TSound) : shortstring; overload; |
39 |
function EnumToStr(const en : TAmmoType) : shortstring; overload; |
|
9642
8a691e0f117a
use consts for TStatInfo enum
Periklis Ntanasis <pntanasis@gmail.com>
parents:
9377
diff
changeset
|
40 |
function EnumToStr(const en : TStatInfoType) : shortstring; overload; |
4374 | 41 |
function EnumToStr(const en : THogEffect) : shortstring; overload; |
5118 | 42 |
function EnumToStr(const en : TCapGroup) : shortstring; overload; |
10280
762c256552e9
WIP: PlaceSprite for lua API. also changed PlaceGirder so that it will return true/false for whether placing was successful too
sheepluva
parents:
10131
diff
changeset
|
43 |
function EnumToStr(const en : TSprite) : shortstring; overload; |
10603
bda5c7caf396
switch mapgen to enum. should still try and make sure the values are backwards compatible if possible.
nemo
parents:
10595
diff
changeset
|
44 |
function EnumToStr(const en : TMapGen) : shortstring; overload; |
11884
c6eafb6f2735
Add WorldEdge to Lua API to expose/change world edge type
Wuzzy <almikes@aol.com>
parents:
11831
diff
changeset
|
45 |
function EnumToStr(const en : TWorldEdge) : shortstring; overload; |
4374 | 46 |
|
47 |
function Min(a, b: LongInt): LongInt; inline; |
|
10562 | 48 |
function MinD(a, b: double) : double; inline; |
4374 | 49 |
function Max(a, b: LongInt): LongInt; inline; |
50 |
||
51 |
function IntToStr(n: LongInt): shortstring; |
|
7151 | 52 |
function StrToInt(s: shortstring): LongInt; |
4374 | 53 |
function FloatToStr(n: hwFloat): shortstring; |
54 |
||
9295
f8819c3dde54
Remove some GLunit dependencies noticed on graph. uUtils was using it for GLfloat - but, the stuff it was returning to was usually converting to "real" anyway. uLand was including it unnecessarily. Minor refactor
nemo
parents:
9080
diff
changeset
|
55 |
function DxDy2Angle(const _dY, _dX: hwFloat): real; inline; |
4374 | 56 |
function DxDy2Angle32(const _dY, _dX: hwFloat): LongInt; |
57 |
function DxDy2AttackAngle(const _dY, _dX: hwFloat): LongInt; |
|
6894 | 58 |
function DxDy2AttackAnglef(const _dY, _dX: extended): LongInt; |
4374 | 59 |
|
60 |
procedure SetLittle(var r: hwFloat); |
|
61 |
||
62 |
function Str2PChar(const s: shortstring): PChar; |
|
63 |
function DecodeBase64(s: shortstring): shortstring; |
|
64 |
||
65 |
function isPowerOf2(i: Longword): boolean; |
|
66 |
function toPowerOf2(i: Longword): Longword; inline; |
|
67 |
||
68 |
function endian(independent: LongWord): LongWord; inline; |
|
69 |
||
10116
dd27562b6f21
rolling back my PChar stuff, because unC0Rr improves string handling pas2c instead <3
sheepluva
parents:
10108
diff
changeset
|
70 |
function CheckCJKFont(s: ansistring; font: THWFont): THWFont; |
4380 | 71 |
|
4374 | 72 |
procedure AddFileLog(s: shortstring); |
7180 | 73 |
procedure AddFileLogRaw(s: pchar); cdecl; |
4374 | 74 |
|
4900 | 75 |
function CheckNoTeamOrHH: boolean; inline; |
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4385
diff
changeset
|
76 |
|
4403 | 77 |
function GetLaunchX(at: TAmmoType; dir: LongInt; angle: LongInt): LongInt; |
78 |
function GetLaunchY(at: TAmmoType; angle: LongInt): LongInt; |
|
79 |
||
11775 | 80 |
function read1stLn(filePath: shortstring): shortstring; |
11780
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
81 |
function readValueFromINI(key, filePath: shortstring): shortstring; |
11775 | 82 |
|
7151 | 83 |
{$IFNDEF PAS2C} |
84 |
procedure Write(var f: textfile; s: shortstring); |
|
85 |
procedure WriteLn(var f: textfile; s: shortstring); |
|
10080 | 86 |
function StrLength(s: PChar): Longword; |
10690 | 87 |
procedure SetLengthA(var s: ansistring; len: Longword); |
7151 | 88 |
{$ENDIF} |
89 |
||
8204 | 90 |
function isPhone: Boolean; inline; |
91 |
||
92 |
{$IFDEF IPHONEOS} |
|
93 |
procedure startLoadingIndicator; cdecl; external; |
|
94 |
procedure stopLoadingIndicator; cdecl; external; |
|
95 |
procedure saveFinishedSynching; cdecl; external; |
|
96 |
function isApplePhone: Boolean; cdecl; external; |
|
97 |
procedure AudioServicesPlaySystemSound(num: LongInt); cdecl; external; |
|
98 |
{$ENDIF} |
|
99 |
||
8498
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
100 |
function sanitizeForLog(s: shortstring): shortstring; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
101 |
function sanitizeCharForLog(c: char): shortstring; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
102 |
|
7896
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7565
diff
changeset
|
103 |
procedure initModule(isNotPreview: boolean); |
4374 | 104 |
procedure freeModule; |
105 |
||
4385 | 106 |
|
4374 | 107 |
implementation |
11829 | 108 |
uses {$IFNDEF PAS2C}typinfo, {$ENDIF}Math, uConsts, uVariables, uPhysFSLayer, uDebug; |
4374 | 109 |
|
110 |
{$IFDEF DEBUGFILE} |
|
11637 | 111 |
var logFile: PFSFile; |
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
112 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 113 |
logMutex: TRTLCriticalSection; // mutex for debug file |
4374 | 114 |
{$ENDIF} |
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
115 |
{$ENDIF} |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
7896
diff
changeset
|
116 |
var CharArray: array[0..255] of Char; |
4374 | 117 |
|
11829 | 118 |
// All leading/tailing characters with ordinal values less than or equal to 32 (a space) are stripped. |
119 |
function Trim(s: shortstring) : shortstring; |
|
120 |
var len, left, right: integer; |
|
121 |
begin |
|
122 |
||
123 |
len:= Length(s); |
|
124 |
||
125 |
if len = 0 then |
|
126 |
exit(s); |
|
127 |
||
128 |
// find first non-whitespace |
|
129 |
left:= 1; |
|
130 |
while left <= len do |
|
131 |
begin |
|
132 |
if s[left] > #32 then |
|
133 |
break; |
|
134 |
inc(left); |
|
135 |
end; |
|
136 |
||
137 |
// find last non-whitespace |
|
138 |
right:= len; |
|
139 |
while right >= 1 do |
|
140 |
begin |
|
141 |
if s[right] > #32 then |
|
142 |
break; |
|
143 |
dec(right); |
|
144 |
end; |
|
145 |
||
146 |
// string is whitespace only |
|
147 |
if left > right then |
|
148 |
exit(''); |
|
149 |
||
150 |
// get string without surrounding whitespace |
|
151 |
len:= right - left + 1; |
|
152 |
||
153 |
Trim:= copy(s, left, len); |
|
154 |
||
155 |
end; |
|
156 |
||
11831
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
157 |
function GetLastSlashPos(var s: shortString) : integer; |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
158 |
var lslash: integer; |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
159 |
c: char; |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
160 |
begin |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
161 |
|
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
162 |
// find last slash |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
163 |
lslash:= Length(s); |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
164 |
while lslash >= 1 do |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
165 |
begin |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
166 |
c:= s[lslash]; |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
167 |
if (c = #47) or (c = #92) then |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
168 |
break; |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
169 |
dec(lslash); end; |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
170 |
|
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
171 |
GetLastSlashPos:= lslash; |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
172 |
end; |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
173 |
|
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
174 |
function ExtractFileDir(s: shortstring) : shortstring; |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
175 |
var lslash: byte; |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
176 |
begin |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
177 |
|
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
178 |
if Length(s) = 0 then |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
179 |
exit(s); |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
180 |
|
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
181 |
lslash:= GetLastSlashPos(s); |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
182 |
|
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
183 |
if lslash <= 1 then |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
184 |
exit(''); |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
185 |
|
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
186 |
s[0]:= char(lslash - 1); |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
187 |
|
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
188 |
ExtractFileDir:= s; |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
189 |
end; |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
190 |
|
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
191 |
function ExtractFileName(s: shortstring) : shortstring; |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
192 |
var lslash, len: byte; |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
193 |
begin |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
194 |
|
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
195 |
len:= Length(s); |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
196 |
|
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
197 |
if len = 0 then |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
198 |
exit(s); |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
199 |
|
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
200 |
lslash:= GetLastSlashPos(s); |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
201 |
|
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
202 |
if lslash < 1 then |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
203 |
exit(s); |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
204 |
|
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
205 |
if lslash = len then |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
206 |
exit(''); |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
207 |
|
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
208 |
len:= len - lslash; |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
209 |
ExtractFilename:= copy(s, lslash + 1, len); |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
210 |
end; |
7654e2357934
implement ExtraftFileDir and ExtractFileName in uUtils
sheepluva
parents:
11829
diff
changeset
|
211 |
|
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7151
diff
changeset
|
212 |
procedure SplitBySpace(var a,b: shortstring); |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7151
diff
changeset
|
213 |
begin |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7151
diff
changeset
|
214 |
SplitByChar(a,b,' '); |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7151
diff
changeset
|
215 |
end; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7151
diff
changeset
|
216 |
|
4374 | 217 |
// should this include "strtolower()" for the split string? |
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7151
diff
changeset
|
218 |
procedure SplitByChar(var a, b: shortstring; c : char); |
4374 | 219 |
var i, t: LongInt; |
220 |
begin |
|
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7151
diff
changeset
|
221 |
i:= Pos(c, a); |
4374 | 222 |
if i > 0 then |
223 |
begin |
|
224 |
for t:= 1 to Pred(i) do |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
225 |
if (a[t] >= 'A')and(a[t] <= 'Z') then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
226 |
Inc(a[t], 32); |
4374 | 227 |
b:= copy(a, i + 1, Length(a) - i); |
7074 | 228 |
a[0]:= char(Pred(i)) |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
7896
diff
changeset
|
229 |
{$IFDEF PAS2C} |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
7896
diff
changeset
|
230 |
a[i] := 0; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
7896
diff
changeset
|
231 |
{$ENDIF} |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
232 |
end |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
233 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
234 |
b:= ''; |
4374 | 235 |
end; |
236 |
||
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
7896
diff
changeset
|
237 |
{$IFNDEF PAS2C} |
10131
4b4a043111f4
- pas2c recognizes typecasts in initialization expressions
unc0rr
parents:
10127
diff
changeset
|
238 |
procedure SetLengthA(var s: ansistring; len: Longword); |
4b4a043111f4
- pas2c recognizes typecasts in initialization expressions
unc0rr
parents:
10127
diff
changeset
|
239 |
begin |
4b4a043111f4
- pas2c recognizes typecasts in initialization expressions
unc0rr
parents:
10127
diff
changeset
|
240 |
SetLength(s, len) |
4b4a043111f4
- pas2c recognizes typecasts in initialization expressions
unc0rr
parents:
10127
diff
changeset
|
241 |
end; |
4b4a043111f4
- pas2c recognizes typecasts in initialization expressions
unc0rr
parents:
10127
diff
changeset
|
242 |
{$ENDIF} |
4b4a043111f4
- pas2c recognizes typecasts in initialization expressions
unc0rr
parents:
10127
diff
changeset
|
243 |
|
4b4a043111f4
- pas2c recognizes typecasts in initialization expressions
unc0rr
parents:
10127
diff
changeset
|
244 |
procedure SplitByCharA(var a, b: ansistring; c: char); |
4374 | 245 |
var i: LongInt; |
246 |
begin |
|
247 |
i:= Pos(c, a); |
|
248 |
if i > 0 then |
|
249 |
begin |
|
250 |
b:= copy(a, i + 1, Length(a) - i); |
|
10131
4b4a043111f4
- pas2c recognizes typecasts in initialization expressions
unc0rr
parents:
10127
diff
changeset
|
251 |
SetLengthA(a, Pred(i)); |
4374 | 252 |
end else b:= ''; |
10131
4b4a043111f4
- pas2c recognizes typecasts in initialization expressions
unc0rr
parents:
10127
diff
changeset
|
253 |
end; { SplitByCharA } |
4374 | 254 |
|
255 |
function EnumToStr(const en : TGearType) : shortstring; overload; |
|
256 |
begin |
|
257 |
EnumToStr:= GetEnumName(TypeInfo(TGearType), ord(en)) |
|
258 |
end; |
|
8838
aa2ffd427f6a
strip PAS2C, old WEB symbols and outdated pas2c sources from default branch, all c-related development is done on the webgl branch
koda
parents:
8575
diff
changeset
|
259 |
|
4453 | 260 |
function EnumToStr(const en : TVisualGearType) : shortstring; overload; |
261 |
begin |
|
262 |
EnumToStr:= GetEnumName(TypeInfo(TVisualGearType), ord(en)) |
|
263 |
end; |
|
4374 | 264 |
|
265 |
function EnumToStr(const en : TSound) : shortstring; overload; |
|
266 |
begin |
|
267 |
EnumToStr:= GetEnumName(TypeInfo(TSound), ord(en)) |
|
268 |
end; |
|
269 |
||
270 |
function EnumToStr(const en : TAmmoType) : shortstring; overload; |
|
271 |
begin |
|
272 |
EnumToStr:= GetEnumName(TypeInfo(TAmmoType), ord(en)) |
|
273 |
end; |
|
274 |
||
9642
8a691e0f117a
use consts for TStatInfo enum
Periklis Ntanasis <pntanasis@gmail.com>
parents:
9377
diff
changeset
|
275 |
function EnumToStr(const en : TStatInfoType) : shortstring; overload; |
8a691e0f117a
use consts for TStatInfo enum
Periklis Ntanasis <pntanasis@gmail.com>
parents:
9377
diff
changeset
|
276 |
begin |
8a691e0f117a
use consts for TStatInfo enum
Periklis Ntanasis <pntanasis@gmail.com>
parents:
9377
diff
changeset
|
277 |
EnumToStr:= GetEnumName(TypeInfo(TStatInfoType), ord(en)) |
8a691e0f117a
use consts for TStatInfo enum
Periklis Ntanasis <pntanasis@gmail.com>
parents:
9377
diff
changeset
|
278 |
end; |
8a691e0f117a
use consts for TStatInfo enum
Periklis Ntanasis <pntanasis@gmail.com>
parents:
9377
diff
changeset
|
279 |
|
4374 | 280 |
function EnumToStr(const en: THogEffect) : shortstring; overload; |
281 |
begin |
|
5118 | 282 |
EnumToStr := GetEnumName(TypeInfo(THogEffect), ord(en)) |
283 |
end; |
|
284 |
||
285 |
function EnumToStr(const en: TCapGroup) : shortstring; overload; |
|
286 |
begin |
|
287 |
EnumToStr := GetEnumName(TypeInfo(TCapGroup), ord(en)) |
|
4374 | 288 |
end; |
8838
aa2ffd427f6a
strip PAS2C, old WEB symbols and outdated pas2c sources from default branch, all c-related development is done on the webgl branch
koda
parents:
8575
diff
changeset
|
289 |
|
10280
762c256552e9
WIP: PlaceSprite for lua API. also changed PlaceGirder so that it will return true/false for whether placing was successful too
sheepluva
parents:
10131
diff
changeset
|
290 |
function EnumToStr(const en: TSprite) : shortstring; overload; |
762c256552e9
WIP: PlaceSprite for lua API. also changed PlaceGirder so that it will return true/false for whether placing was successful too
sheepluva
parents:
10131
diff
changeset
|
291 |
begin |
762c256552e9
WIP: PlaceSprite for lua API. also changed PlaceGirder so that it will return true/false for whether placing was successful too
sheepluva
parents:
10131
diff
changeset
|
292 |
EnumToStr := GetEnumName(TypeInfo(TSprite), ord(en)) |
762c256552e9
WIP: PlaceSprite for lua API. also changed PlaceGirder so that it will return true/false for whether placing was successful too
sheepluva
parents:
10131
diff
changeset
|
293 |
end; |
762c256552e9
WIP: PlaceSprite for lua API. also changed PlaceGirder so that it will return true/false for whether placing was successful too
sheepluva
parents:
10131
diff
changeset
|
294 |
|
10603
bda5c7caf396
switch mapgen to enum. should still try and make sure the values are backwards compatible if possible.
nemo
parents:
10595
diff
changeset
|
295 |
function EnumToStr(const en: TMapGen) : shortstring; overload; |
bda5c7caf396
switch mapgen to enum. should still try and make sure the values are backwards compatible if possible.
nemo
parents:
10595
diff
changeset
|
296 |
begin |
bda5c7caf396
switch mapgen to enum. should still try and make sure the values are backwards compatible if possible.
nemo
parents:
10595
diff
changeset
|
297 |
EnumToStr := GetEnumName(TypeInfo(TMapGen), ord(en)) |
bda5c7caf396
switch mapgen to enum. should still try and make sure the values are backwards compatible if possible.
nemo
parents:
10595
diff
changeset
|
298 |
end; |
bda5c7caf396
switch mapgen to enum. should still try and make sure the values are backwards compatible if possible.
nemo
parents:
10595
diff
changeset
|
299 |
|
11884
c6eafb6f2735
Add WorldEdge to Lua API to expose/change world edge type
Wuzzy <almikes@aol.com>
parents:
11831
diff
changeset
|
300 |
function EnumToStr(const en: TWorldEdge) : shortstring; overload; |
c6eafb6f2735
Add WorldEdge to Lua API to expose/change world edge type
Wuzzy <almikes@aol.com>
parents:
11831
diff
changeset
|
301 |
begin |
c6eafb6f2735
Add WorldEdge to Lua API to expose/change world edge type
Wuzzy <almikes@aol.com>
parents:
11831
diff
changeset
|
302 |
EnumToStr := GetEnumName(TypeInfo(TWorldEdge), ord(en)) |
c6eafb6f2735
Add WorldEdge to Lua API to expose/change world edge type
Wuzzy <almikes@aol.com>
parents:
11831
diff
changeset
|
303 |
end; |
c6eafb6f2735
Add WorldEdge to Lua API to expose/change world edge type
Wuzzy <almikes@aol.com>
parents:
11831
diff
changeset
|
304 |
|
4374 | 305 |
|
306 |
function Min(a, b: LongInt): LongInt; |
|
307 |
begin |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
308 |
if a < b then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
309 |
Min:= a |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
310 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
311 |
Min:= b |
4374 | 312 |
end; |
313 |
||
10562 | 314 |
function MinD(a, b: double): double; |
315 |
begin |
|
316 |
if a < b then |
|
317 |
MinD:= a |
|
318 |
else |
|
319 |
MinD:= b |
|
320 |
end; |
|
321 |
||
4374 | 322 |
function Max(a, b: LongInt): LongInt; |
323 |
begin |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
324 |
if a > b then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
325 |
Max:= a |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
326 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
327 |
Max:= b |
4374 | 328 |
end; |
329 |
||
330 |
||
331 |
function IntToStr(n: LongInt): shortstring; |
|
332 |
begin |
|
333 |
str(n, IntToStr) |
|
334 |
end; |
|
335 |
||
8850
ae8a957c69fd
engine to c now compiles with some manual intervention (as of bug 596)
koda
parents:
8847
diff
changeset
|
336 |
function StrToInt(s: shortstring): LongInt; |
7151 | 337 |
begin |
8850
ae8a957c69fd
engine to c now compiles with some manual intervention (as of bug 596)
koda
parents:
8847
diff
changeset
|
338 |
val(s, StrToInt); |
7151 | 339 |
end; |
340 |
||
4374 | 341 |
function FloatToStr(n: hwFloat): shortstring; |
342 |
begin |
|
343 |
FloatToStr:= cstr(n) + '_' + inttostr(Lo(n.QWordValue)) |
|
344 |
end; |
|
345 |
||
346 |
||
9295
f8819c3dde54
Remove some GLunit dependencies noticed on graph. uUtils was using it for GLfloat - but, the stuff it was returning to was usually converting to "real" anyway. uLand was including it unnecessarily. Minor refactor
nemo
parents:
9080
diff
changeset
|
347 |
function DxDy2Angle(const _dY, _dX: hwFloat): real; inline; |
4374 | 348 |
var dY, dX: Extended; |
349 |
begin |
|
7547 | 350 |
dY:= hwFloat2Float(_dY); |
351 |
dX:= hwFloat2Float(_dX); |
|
4374 | 352 |
DxDy2Angle:= arctan2(dY, dX) * 180 / pi |
353 |
end; |
|
354 |
||
355 |
function DxDy2Angle32(const _dY, _dX: hwFloat): LongInt; |
|
356 |
const _16divPI: Extended = 16/pi; |
|
357 |
var dY, dX: Extended; |
|
358 |
begin |
|
7547 | 359 |
dY:= hwFloat2Float(_dY); |
360 |
dX:= hwFloat2Float(_dX); |
|
4374 | 361 |
DxDy2Angle32:= trunc(arctan2(dY, dX) * _16divPI) and $1f |
362 |
end; |
|
363 |
||
364 |
function DxDy2AttackAngle(const _dY, _dX: hwFloat): LongInt; |
|
365 |
const MaxAngleDivPI: Extended = cMaxAngle/pi; |
|
366 |
var dY, dX: Extended; |
|
367 |
begin |
|
7547 | 368 |
dY:= hwFloat2Float(_dY); |
369 |
dX:= hwFloat2Float(_dX); |
|
4374 | 370 |
DxDy2AttackAngle:= trunc(arctan2(dY, dX) * MaxAngleDivPI) |
371 |
end; |
|
372 |
||
6894 | 373 |
function DxDy2AttackAnglef(const _dY, _dX: extended): LongInt; inline; |
5151
cbadb9fa52fc
An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents:
5130
diff
changeset
|
374 |
begin |
6894 | 375 |
DxDy2AttackAnglef:= trunc(arctan2(_dY, _dX) * (cMaxAngle/pi)) |
5151
cbadb9fa52fc
An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents:
5130
diff
changeset
|
376 |
end; |
cbadb9fa52fc
An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents:
5130
diff
changeset
|
377 |
|
4374 | 378 |
|
379 |
procedure SetLittle(var r: hwFloat); |
|
380 |
begin |
|
381 |
r:= SignAs(cLittle, r) |
|
382 |
end; |
|
383 |
||
384 |
||
385 |
function isPowerOf2(i: Longword): boolean; |
|
386 |
begin |
|
4981
0c60ade27a0a
Optimize check (not like it is called much, just ffs; not tested)
unc0rr
parents:
4976
diff
changeset
|
387 |
isPowerOf2:= (i and (i - 1)) = 0 |
4374 | 388 |
end; |
389 |
||
390 |
function toPowerOf2(i: Longword): Longword; |
|
391 |
begin |
|
392 |
toPowerOf2:= 1; |
|
393 |
while (toPowerOf2 < i) do toPowerOf2:= toPowerOf2 shl 1 |
|
394 |
end; |
|
395 |
||
396 |
||
397 |
function DecodeBase64(s: shortstring): shortstring; |
|
398 |
const table = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'; |
|
10560 | 399 |
var i, t, c: LongInt; |
4374 | 400 |
begin |
401 |
c:= 0; |
|
402 |
for i:= 1 to Length(s) do |
|
403 |
begin |
|
404 |
t:= Pos(s[i], table); |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
405 |
if s[i] = '=' then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
406 |
inc(c); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
407 |
if t > 0 then |
7074 | 408 |
s[i]:= char(t - 1) |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
409 |
else |
7074 | 410 |
s[i]:= #0 |
4374 | 411 |
end; |
412 |
||
413 |
i:= 1; |
|
414 |
t:= 1; |
|
415 |
while i <= length(s) do |
|
416 |
begin |
|
417 |
DecodeBase64[t ]:= char((byte(s[i ]) shl 2) or (byte(s[i + 1]) shr 4)); |
|
418 |
DecodeBase64[t + 1]:= char((byte(s[i + 1]) shl 4) or (byte(s[i + 2]) shr 2)); |
|
419 |
DecodeBase64[t + 2]:= char((byte(s[i + 2]) shl 6) or (byte(s[i + 3]) )); |
|
420 |
inc(t, 3); |
|
421 |
inc(i, 4) |
|
422 |
end; |
|
423 |
||
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
424 |
if c < 3 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
425 |
t:= t - c; |
4374 | 426 |
|
7074 | 427 |
DecodeBase64[0]:= char(t - 1) |
4374 | 428 |
end; |
429 |
||
430 |
||
431 |
function Str2PChar(const s: shortstring): PChar; |
|
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
7896
diff
changeset
|
432 |
var i :Integer ; |
4374 | 433 |
begin |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
7896
diff
changeset
|
434 |
for i:= 1 to Length(s) do |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
7896
diff
changeset
|
435 |
begin |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
7896
diff
changeset
|
436 |
CharArray[i - 1] := s[i]; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
7896
diff
changeset
|
437 |
end; |
10131
4b4a043111f4
- pas2c recognizes typecasts in initialization expressions
unc0rr
parents:
10127
diff
changeset
|
438 |
CharArray[Length(s)]:= #0; |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
7896
diff
changeset
|
439 |
Str2PChar:= @(CharArray[0]); |
4374 | 440 |
end; |
441 |
||
442 |
||
443 |
function endian(independent: LongWord): LongWord; inline; |
|
444 |
begin |
|
445 |
{$IFDEF ENDIAN_LITTLE} |
|
446 |
endian:= independent; |
|
447 |
{$ELSE} |
|
448 |
endian:= (((independent and $FF000000) shr 24) or |
|
449 |
((independent and $00FF0000) shr 8) or |
|
450 |
((independent and $0000FF00) shl 8) or |
|
451 |
((independent and $000000FF) shl 24)) |
|
452 |
{$ENDIF} |
|
453 |
end; |
|
454 |
||
455 |
||
456 |
procedure AddFileLog(s: shortstring); |
|
457 |
begin |
|
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
7896
diff
changeset
|
458 |
// s:= s; |
4900 | 459 |
{$IFDEF DEBUGFILE} |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
7896
diff
changeset
|
460 |
|
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
461 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 462 |
EnterCriticalSection(logMutex); |
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
463 |
{$ENDIF} |
11748
eefa04b23c3b
fallback to stdout if no writable logfile available
sheepluva
parents:
11637
diff
changeset
|
464 |
if logFile <> nil then |
eefa04b23c3b
fallback to stdout if no writable logfile available
sheepluva
parents:
11637
diff
changeset
|
465 |
pfsWriteLn(logFile, inttostr(GameTicks) + ': ' + s) |
eefa04b23c3b
fallback to stdout if no writable logfile available
sheepluva
parents:
11637
diff
changeset
|
466 |
else |
eefa04b23c3b
fallback to stdout if no writable logfile available
sheepluva
parents:
11637
diff
changeset
|
467 |
WriteLn(stdout, inttostr(GameTicks) + ': ' + s); |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
7896
diff
changeset
|
468 |
|
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
469 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 470 |
LeaveCriticalSection(logMutex); |
4900 | 471 |
{$ENDIF} |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
7896
diff
changeset
|
472 |
|
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
473 |
{$ENDIF} |
4374 | 474 |
end; |
475 |
||
7180 | 476 |
procedure AddFileLogRaw(s: pchar); cdecl; |
477 |
begin |
|
478 |
s:= s; |
|
9966 | 479 |
{$IFNDEF PAS2C} |
7180 | 480 |
{$IFDEF DEBUGFILE} |
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
481 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 482 |
EnterCriticalSection(logMutex); |
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
483 |
{$ENDIF} |
11637 | 484 |
// TODO: uncomment next two lines |
485 |
// write(logFile, s); |
|
486 |
// flush(logFile); |
|
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
487 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 488 |
LeaveCriticalSection(logMutex); |
489 |
{$ENDIF} |
|
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
490 |
{$ENDIF} |
9966 | 491 |
{$ENDIF} |
7180 | 492 |
end; |
4374 | 493 |
|
10116
dd27562b6f21
rolling back my PChar stuff, because unC0Rr improves string handling pas2c instead <3
sheepluva
parents:
10108
diff
changeset
|
494 |
function CheckCJKFont(s: ansistring; font: THWFont): THWFont; |
4380 | 495 |
var l, i : LongInt; |
496 |
u: WideChar; |
|
497 |
tmpstr: array[0..256] of WideChar; |
|
498 |
begin |
|
6990
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6978
diff
changeset
|
499 |
CheckCJKFont:= font; |
4380 | 500 |
|
5639 | 501 |
{$IFNDEF MOBILE} |
4380 | 502 |
// remove chinese fonts for now |
10116
dd27562b6f21
rolling back my PChar stuff, because unC0Rr improves string handling pas2c instead <3
sheepluva
parents:
10108
diff
changeset
|
503 |
if (font >= CJKfnt16) or (length(s) = 0) then |
4380 | 504 |
{$ENDIF} |
6990
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6978
diff
changeset
|
505 |
exit; |
4380 | 506 |
|
10131
4b4a043111f4
- pas2c recognizes typecasts in initialization expressions
unc0rr
parents:
10127
diff
changeset
|
507 |
l:= Utf8ToUnicode(PWideChar(@tmpstr), PChar(s), min(length(tmpstr), length(s)))-1; |
4380 | 508 |
i:= 0; |
4737 | 509 |
|
4380 | 510 |
while i < l do |
511 |
begin |
|
512 |
u:= tmpstr[i]; |
|
4737 | 513 |
if (#$1100 <= u) and ( |
514 |
(u <= #$11FF ) or // Hangul Jamo |
|
515 |
((#$2E80 <= u) and (u <= #$2FDF)) or // CJK Radicals Supplement / Kangxi Radicals |
|
8575 | 516 |
((#$2FF0 <= u) and (u <= #$31FF)) or // Ideographic Description Characters / CJK Radicals Supplement / Hiragana / Hangul Compatibility Jamo / Katakana |
4380 | 517 |
((#$31C0 <= u) and (u <= #$31EF)) or // CJK Strokes |
8575 | 518 |
((#$3200 <= u) and (u <= #$4DBF)) or // Enclosed CJK Letters and Months / CJK Compatibility / CJK Unified Ideographs Extension A / Circled Katakana |
4380 | 519 |
((#$4E00 <= u) and (u <= #$9FFF)) or // CJK Unified Ideographs |
4737 | 520 |
((#$AC00 <= u) and (u <= #$D7AF)) or // Hangul Syllables |
4380 | 521 |
((#$F900 <= u) and (u <= #$FAFF)) or // CJK Compatibility Ideographs |
8575 | 522 |
((#$FE30 <= u) and (u <= #$FE4F)) or // CJK Compatibility Forms |
523 |
((#$FF66 <= u) and (u <= #$FF9D))) // halfwidth katakana |
|
10015 | 524 |
then |
6990
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6978
diff
changeset
|
525 |
begin |
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6978
diff
changeset
|
526 |
CheckCJKFont:= THWFont( ord(font) + ((ord(High(THWFont))+1) div 2) ); |
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6978
diff
changeset
|
527 |
exit; |
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6978
diff
changeset
|
528 |
end; |
4380 | 529 |
inc(i) |
530 |
end; |
|
531 |
(* two more to check. pascal WideChar is only 16 bit though |
|
532 |
((#$20000 <= u) and (u >= #$2A6DF)) or // CJK Unified Ideographs Extension B |
|
533 |
((#$2F800 <= u) and (u >= #$2FA1F))) // CJK Compatibility Ideographs Supplement *) |
|
534 |
end; |
|
535 |
||
4385 | 536 |
|
537 |
function GetLaunchX(at: TAmmoType; dir: LongInt; angle: LongInt): LongInt; |
|
538 |
begin |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
539 |
GetLaunchX:= 0 |
4665
fa7ad5f3725f
Make basic training solvable again. Freeze RNG at current version for less of this kind of issue in future, and a bit more savable of seeds. Disable offsets in preparation for release.
nemo
parents:
4453
diff
changeset
|
540 |
(* |
4385 | 541 |
if (Ammoz[at].ejectX <> 0) or (Ammoz[at].ejectY <> 0) then |
542 |
GetLaunchX:= sign(dir) * (8 + hwRound(AngleSin(angle) * Ammoz[at].ejectX) + hwRound(AngleCos(angle) * Ammoz[at].ejectY)) |
|
543 |
else |
|
4665
fa7ad5f3725f
Make basic training solvable again. Freeze RNG at current version for less of this kind of issue in future, and a bit more savable of seeds. Disable offsets in preparation for release.
nemo
parents:
4453
diff
changeset
|
544 |
GetLaunchX:= 0 *) |
4385 | 545 |
end; |
546 |
||
547 |
function GetLaunchY(at: TAmmoType; angle: LongInt): LongInt; |
|
548 |
begin |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
549 |
GetLaunchY:= 0 |
4665
fa7ad5f3725f
Make basic training solvable again. Freeze RNG at current version for less of this kind of issue in future, and a bit more savable of seeds. Disable offsets in preparation for release.
nemo
parents:
4453
diff
changeset
|
550 |
(* |
4385 | 551 |
if (Ammoz[at].ejectX <> 0) or (Ammoz[at].ejectY <> 0) then |
552 |
GetLaunchY:= hwRound(AngleSin(angle) * Ammoz[at].ejectY) - hwRound(AngleCos(angle) * Ammoz[at].ejectX) - 2 |
|
553 |
else |
|
4665
fa7ad5f3725f
Make basic training solvable again. Freeze RNG at current version for less of this kind of issue in future, and a bit more savable of seeds. Disable offsets in preparation for release.
nemo
parents:
4453
diff
changeset
|
554 |
GetLaunchY:= 0*) |
4385 | 555 |
end; |
556 |
||
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4385
diff
changeset
|
557 |
function CheckNoTeamOrHH: boolean; |
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4385
diff
changeset
|
558 |
begin |
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4385
diff
changeset
|
559 |
CheckNoTeamOrHH:= (CurrentTeam = nil) or (CurrentHedgehog^.Gear = nil); |
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4385
diff
changeset
|
560 |
end; |
4385 | 561 |
|
7151 | 562 |
{$IFNDEF PAS2C} |
563 |
procedure Write(var f: textfile; s: shortstring); |
|
564 |
begin |
|
565 |
system.write(f, s) |
|
566 |
end; |
|
567 |
||
568 |
procedure WriteLn(var f: textfile; s: shortstring); |
|
569 |
begin |
|
570 |
system.writeln(f, s) |
|
571 |
end; |
|
10080 | 572 |
|
573 |
function StrLength(s: PChar): Longword; |
|
574 |
begin |
|
575 |
StrLength:= length(s) |
|
576 |
end; |
|
7151 | 577 |
{$ENDIF} |
578 |
||
8204 | 579 |
// this function is just to determine whether we are running on a limited screen device |
580 |
function isPhone: Boolean; inline; |
|
581 |
begin |
|
582 |
isPhone:= false; |
|
583 |
{$IFDEF IPHONEOS} |
|
584 |
isPhone:= isApplePhone(); |
|
585 |
{$ENDIF} |
|
586 |
{$IFDEF ANDROID} |
|
587 |
//nasty nasty hack. TODO: implement callback to java to have a unified way of determining if it is a tablet |
|
588 |
if (cScreenWidth < 1000) and (cScreenHeight < 500) then |
|
589 |
isPhone:= true; |
|
590 |
{$ENDIF} |
|
591 |
end; |
|
592 |
||
593 |
||
8498
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
594 |
function sanitizeForLog(s: shortstring): shortstring; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
595 |
var i: byte; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
596 |
r: shortstring; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
597 |
begin |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
598 |
r[0]:= s[0]; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
599 |
for i:= 1 to length(s) do |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
600 |
if (s[i] < #32) or (s[i] > #127) then |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
601 |
r[i]:= '?' |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
602 |
else |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
603 |
r[i]:= s[i]; |
10015 | 604 |
|
8498
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
605 |
sanitizeForLog:= r |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
606 |
end; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
607 |
|
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
608 |
function sanitizeCharForLog(c: char): shortstring; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
609 |
var r: shortstring; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
610 |
begin |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
611 |
if (c < #32) or (c > #127) then |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
612 |
r:= '#' + inttostr(byte(c)) |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
613 |
else |
8841 | 614 |
begin |
615 |
// some magic for pas2c |
|
616 |
r[0]:= #1; |
|
617 |
r[1]:= c; |
|
618 |
end; |
|
619 |
||
8498
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
620 |
sanitizeCharForLog:= r |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
621 |
end; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
622 |
|
11775 | 623 |
function read1stLn(filePath: shortstring): shortstring; |
624 |
var f: pfsFile; |
|
625 |
begin |
|
626 |
read1stLn:= ''; |
|
627 |
if pfsExists(filePath) then |
|
628 |
begin |
|
629 |
f:= pfsOpenRead(filePath); |
|
630 |
if (not pfsEOF(f)) and allOK then |
|
631 |
pfsReadLn(f, read1stLn); |
|
632 |
pfsClose(f); |
|
633 |
f:= nil; |
|
634 |
end; |
|
635 |
end; |
|
636 |
||
11780
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
637 |
function readValueFromINI(key, filePath: shortstring): shortstring; |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
638 |
var f: pfsFile; |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
639 |
s: shortstring; |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
640 |
i: LongInt; |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
641 |
begin |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
642 |
s:= ''; |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
643 |
readValueFromINI:= ''; |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
644 |
|
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
645 |
if pfsExists(filePath) then |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
646 |
begin |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
647 |
f:= pfsOpenRead(filePath); |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
648 |
|
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
649 |
while (not pfsEOF(f)) and allOK do |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
650 |
begin pfsReadLn(f, s); |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
651 |
if Length(s) = 0 then |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
652 |
continue; |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
653 |
if s[1] = ';' then |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
654 |
continue; |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
655 |
|
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
656 |
i:= Pos('=', s); |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
657 |
if Trim(Copy(s, 1, Pred(i))) = key then |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
658 |
begin |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
659 |
Delete(s, 1, i); |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
660 |
readValueFromINI:= s; |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
661 |
end; |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
662 |
end; |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
663 |
pfsClose(f); |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
664 |
f:= nil; |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
665 |
end; |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
666 |
end; |
ee85798d6974
aggregate music credits into a single file (individual files can still be used to override. useful for .hwp etc.)
sheepluva
parents:
11775
diff
changeset
|
667 |
|
7896
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7565
diff
changeset
|
668 |
procedure initModule(isNotPreview: boolean); |
7027 | 669 |
{$IFDEF DEBUGFILE} |
670 |
var logfileBase: shortstring; |
|
8095 | 671 |
i: LongInt; |
7027 | 672 |
{$ENDIF} |
4374 | 673 |
begin |
674 |
{$IFDEF DEBUGFILE} |
|
7896
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7565
diff
changeset
|
675 |
if isNotPreview then |
7386
e82a076df09b
Fix bug with isInLag picture displayed at end of some videos.
Stepan777 <stepik-777@mail.ru>
parents:
7198
diff
changeset
|
676 |
begin |
e82a076df09b
Fix bug with isInLag picture displayed at end of some videos.
Stepan777 <stepik-777@mail.ru>
parents:
7198
diff
changeset
|
677 |
if GameType = gmtRecord then |
e82a076df09b
Fix bug with isInLag picture displayed at end of some videos.
Stepan777 <stepik-777@mail.ru>
parents:
7198
diff
changeset
|
678 |
logfileBase:= 'rec' |
e82a076df09b
Fix bug with isInLag picture displayed at end of some videos.
Stepan777 <stepik-777@mail.ru>
parents:
7198
diff
changeset
|
679 |
else |
10505 | 680 |
{$IFDEF PAS2C} |
681 |
logfileBase:= 'game_pas2c'; |
|
682 |
{$ELSE} |
|
683 |
logfileBase:= 'game'; |
|
684 |
{$ENDIF} |
|
7386
e82a076df09b
Fix bug with isInLag picture displayed at end of some videos.
Stepan777 <stepik-777@mail.ru>
parents:
7198
diff
changeset
|
685 |
end |
7027 | 686 |
else |
10502
a888e649bea2
Fix difference in map generation between fpc and pas2c engine
unc0rr
parents:
10280
diff
changeset
|
687 |
{$IFDEF PAS2C} |
10503 | 688 |
logfileBase:= 'preview_pas2c'; |
10502
a888e649bea2
Fix difference in map generation between fpc and pas2c engine
unc0rr
parents:
10280
diff
changeset
|
689 |
{$ELSE} |
10504 | 690 |
logfileBase:= 'preview'; |
10502
a888e649bea2
Fix difference in map generation between fpc and pas2c engine
unc0rr
parents:
10280
diff
changeset
|
691 |
{$ENDIF} |
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
692 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 693 |
InitCriticalSection(logMutex); |
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
694 |
{$ENDIF} |
11793
0327d20fa4a1
[BUG 66] - Create '/Logs' folder if not exists
antonc27 <antonc27@mail.ru>
parents:
11780
diff
changeset
|
695 |
if not pfsExists('/Logs') then |
0327d20fa4a1
[BUG 66] - Create '/Logs' folder if not exists
antonc27 <antonc27@mail.ru>
parents:
11780
diff
changeset
|
696 |
pfsMakeDir('/Logs'); |
11637 | 697 |
// if log is locked, write to the next one |
698 |
i:= 0; |
|
699 |
while(i < 7) do |
|
700 |
begin |
|
701 |
logFile:= pfsOpenWrite('/Logs/' + logfileBase + inttostr(i) + '.log'); |
|
702 |
if logFile <> nil then |
|
703 |
break; |
|
704 |
inc(i) |
|
705 |
end; |
|
11748
eefa04b23c3b
fallback to stdout if no writable logfile available
sheepluva
parents:
11637
diff
changeset
|
706 |
|
eefa04b23c3b
fallback to stdout if no writable logfile available
sheepluva
parents:
11637
diff
changeset
|
707 |
if logFile = nil then |
eefa04b23c3b
fallback to stdout if no writable logfile available
sheepluva
parents:
11637
diff
changeset
|
708 |
WriteLn(stdout, '[WARNING] Could not open log file for writing. Log will be written to stdout!'); |
4374 | 709 |
{$ENDIF} |
710 |
||
9300 | 711 |
//mobile stuff |
712 |
{$IFDEF IPHONEOS} |
|
713 |
mobileRecord.PerformRumble:= @AudioServicesPlaySystemSound; |
|
714 |
mobileRecord.GameLoading:= @startLoadingIndicator; |
|
715 |
mobileRecord.GameLoaded:= @stopLoadingIndicator; |
|
716 |
mobileRecord.SaveLoadingEnded:= @saveFinishedSynching; |
|
717 |
{$ELSE} |
|
718 |
mobileRecord.PerformRumble:= nil; |
|
719 |
mobileRecord.GameLoading:= nil; |
|
720 |
mobileRecord.GameLoaded:= nil; |
|
721 |
mobileRecord.SaveLoadingEnded:= nil; |
|
722 |
{$ENDIF} |
|
723 |
||
4374 | 724 |
end; |
725 |
||
726 |
procedure freeModule; |
|
727 |
begin |
|
728 |
{$IFDEF DEBUGFILE} |
|
11637 | 729 |
pfsWriteLn(logFile, 'halt at ' + inttostr(GameTicks) + ' ticks. TurnTimeLeft = ' + inttostr(TurnTimeLeft)); |
730 |
pfsFlush(logFile); |
|
731 |
pfsClose(logFile); |
|
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
732 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 733 |
DoneCriticalSection(logMutex); |
4374 | 734 |
{$ENDIF} |
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
735 |
{$ENDIF} |
4374 | 736 |
end; |
737 |
||
4453 | 738 |
end. |