author | koda |
Wed, 12 Jun 2013 11:18:20 +0200 | |
changeset 9209 | 2c1e00a764bd |
parent 9080 | 9b42757d7e71 |
child 9127 | e350500c4edb |
child 9295 | f8819c3dde54 |
permissions | -rw-r--r-- |
4976 | 1 |
(* |
2 |
* Hedgewars, a free turn based strategy game |
|
9080 | 3 |
* Copyright (c) 2004-2013 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 |
|
16 |
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
|
17 |
*) |
|
18 |
||
4374 | 19 |
{$INCLUDE "options.inc"} |
4976 | 20 |
|
4374 | 21 |
unit uUtils; |
22 |
||
23 |
interface |
|
5661
45618bdce725
Fixed AddFileLog, there's now a log created in /sdcard/Android/data/org.hedgewars.mobile/cache/Data/
Xeli
parents:
5639
diff
changeset
|
24 |
uses uTypes, uFloat, GLunit; |
4374 | 25 |
|
26 |
procedure SplitBySpace(var a, b: shortstring); |
|
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7151
diff
changeset
|
27 |
procedure SplitByChar(var a, b: shortstring; c: char); |
4374 | 28 |
procedure SplitByChar(var a, b: ansistring; c: char); |
29 |
||
30 |
function EnumToStr(const en : TGearType) : shortstring; overload; |
|
4453 | 31 |
function EnumToStr(const en : TVisualGearType) : shortstring; overload; |
4374 | 32 |
function EnumToStr(const en : TSound) : shortstring; overload; |
33 |
function EnumToStr(const en : TAmmoType) : shortstring; overload; |
|
34 |
function EnumToStr(const en : THogEffect) : shortstring; overload; |
|
5118 | 35 |
function EnumToStr(const en : TCapGroup) : shortstring; overload; |
4374 | 36 |
|
37 |
function Min(a, b: LongInt): LongInt; inline; |
|
38 |
function Max(a, b: LongInt): LongInt; inline; |
|
39 |
||
40 |
function IntToStr(n: LongInt): shortstring; |
|
7151 | 41 |
function StrToInt(s: shortstring): LongInt; |
4374 | 42 |
function FloatToStr(n: hwFloat): shortstring; |
43 |
||
7548
c7a21fc530de
This one gets called a lot when drawing rotated sprites
nemo
parents:
7547
diff
changeset
|
44 |
function DxDy2Angle(const _dY, _dX: hwFloat): GLfloat; inline; |
4374 | 45 |
function DxDy2Angle32(const _dY, _dX: hwFloat): LongInt; |
46 |
function DxDy2AttackAngle(const _dY, _dX: hwFloat): LongInt; |
|
6894 | 47 |
function DxDy2AttackAnglef(const _dY, _dX: extended): LongInt; |
4374 | 48 |
|
49 |
procedure SetLittle(var r: hwFloat); |
|
50 |
||
51 |
function Str2PChar(const s: shortstring): PChar; |
|
52 |
function DecodeBase64(s: shortstring): shortstring; |
|
53 |
||
54 |
function isPowerOf2(i: Longword): boolean; |
|
55 |
function toPowerOf2(i: Longword): Longword; inline; |
|
56 |
||
57 |
function endian(independent: LongWord): LongWord; inline; |
|
58 |
||
4380 | 59 |
function CheckCJKFont(s: ansistring; font: THWFont): THWFont; |
60 |
||
4374 | 61 |
procedure AddFileLog(s: shortstring); |
7180 | 62 |
procedure AddFileLogRaw(s: pchar); cdecl; |
4374 | 63 |
|
4900 | 64 |
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
|
65 |
|
4403 | 66 |
function GetLaunchX(at: TAmmoType; dir: LongInt; angle: LongInt): LongInt; |
67 |
function GetLaunchY(at: TAmmoType; angle: LongInt): LongInt; |
|
68 |
||
7151 | 69 |
procedure Write(var f: textfile; s: shortstring); |
70 |
procedure WriteLn(var f: textfile; s: shortstring); |
|
71 |
||
8204 | 72 |
function isPhone: Boolean; inline; |
73 |
function getScreenDPI: Double; inline; //cdecl; external; |
|
74 |
||
75 |
{$IFDEF IPHONEOS} |
|
76 |
procedure startLoadingIndicator; cdecl; external; |
|
77 |
procedure stopLoadingIndicator; cdecl; external; |
|
78 |
procedure saveFinishedSynching; cdecl; external; |
|
79 |
function isApplePhone: Boolean; cdecl; external; |
|
80 |
procedure AudioServicesPlaySystemSound(num: LongInt); cdecl; external; |
|
81 |
{$ENDIF} |
|
82 |
||
8498
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
83 |
function sanitizeForLog(s: shortstring): shortstring; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
84 |
function sanitizeCharForLog(c: char): shortstring; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
85 |
|
7896
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7565
diff
changeset
|
86 |
procedure initModule(isNotPreview: boolean); |
4374 | 87 |
procedure freeModule; |
88 |
||
4385 | 89 |
|
4374 | 90 |
implementation |
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
|
91 |
uses typinfo, Math, uConsts, uVariables, SysUtils; |
4374 | 92 |
|
93 |
{$IFDEF DEBUGFILE} |
|
4437
05192cdbce9b
un-break build (wrong merge in uConsole) and update project file with the new sources
koda
parents:
4403
diff
changeset
|
94 |
var f: textfile; |
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
95 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 96 |
logMutex: TRTLCriticalSection; // mutex for debug file |
4374 | 97 |
{$ENDIF} |
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
98 |
{$ENDIF} |
7028 | 99 |
var CharArray: array[byte] of Char; |
4374 | 100 |
|
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7151
diff
changeset
|
101 |
procedure SplitBySpace(var a,b: shortstring); |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7151
diff
changeset
|
102 |
begin |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7151
diff
changeset
|
103 |
SplitByChar(a,b,' '); |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7151
diff
changeset
|
104 |
end; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7151
diff
changeset
|
105 |
|
4374 | 106 |
// should this include "strtolower()" for the split string? |
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7151
diff
changeset
|
107 |
procedure SplitByChar(var a, b: shortstring; c : char); |
4374 | 108 |
var i, t: LongInt; |
109 |
begin |
|
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7151
diff
changeset
|
110 |
i:= Pos(c, a); |
4374 | 111 |
if i > 0 then |
112 |
begin |
|
113 |
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
|
114 |
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
|
115 |
Inc(a[t], 32); |
4374 | 116 |
b:= copy(a, i + 1, Length(a) - i); |
7074 | 117 |
a[0]:= char(Pred(i)) |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
118 |
end |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
119 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
120 |
b:= ''; |
4374 | 121 |
end; |
122 |
||
123 |
procedure SplitByChar(var a, b: ansistring; c: char); |
|
124 |
var i: LongInt; |
|
125 |
begin |
|
126 |
i:= Pos(c, a); |
|
127 |
if i > 0 then |
|
128 |
begin |
|
129 |
b:= copy(a, i + 1, Length(a) - i); |
|
130 |
setlength(a, Pred(i)); |
|
131 |
end else b:= ''; |
|
132 |
end; |
|
133 |
||
134 |
function EnumToStr(const en : TGearType) : shortstring; overload; |
|
135 |
begin |
|
136 |
EnumToStr:= GetEnumName(TypeInfo(TGearType), ord(en)) |
|
137 |
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
|
138 |
|
4453 | 139 |
function EnumToStr(const en : TVisualGearType) : shortstring; overload; |
140 |
begin |
|
141 |
EnumToStr:= GetEnumName(TypeInfo(TVisualGearType), ord(en)) |
|
142 |
end; |
|
4374 | 143 |
|
144 |
function EnumToStr(const en : TSound) : shortstring; overload; |
|
145 |
begin |
|
146 |
EnumToStr:= GetEnumName(TypeInfo(TSound), ord(en)) |
|
147 |
end; |
|
148 |
||
149 |
function EnumToStr(const en : TAmmoType) : shortstring; overload; |
|
150 |
begin |
|
151 |
EnumToStr:= GetEnumName(TypeInfo(TAmmoType), ord(en)) |
|
152 |
end; |
|
153 |
||
154 |
function EnumToStr(const en: THogEffect) : shortstring; overload; |
|
155 |
begin |
|
5118 | 156 |
EnumToStr := GetEnumName(TypeInfo(THogEffect), ord(en)) |
157 |
end; |
|
158 |
||
159 |
function EnumToStr(const en: TCapGroup) : shortstring; overload; |
|
160 |
begin |
|
161 |
EnumToStr := GetEnumName(TypeInfo(TCapGroup), ord(en)) |
|
4374 | 162 |
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
|
163 |
|
4374 | 164 |
|
165 |
function Min(a, b: LongInt): LongInt; |
|
166 |
begin |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
167 |
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
|
168 |
Min:= a |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
169 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
170 |
Min:= b |
4374 | 171 |
end; |
172 |
||
173 |
function Max(a, b: LongInt): LongInt; |
|
174 |
begin |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
175 |
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
|
176 |
Max:= a |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
177 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
178 |
Max:= b |
4374 | 179 |
end; |
180 |
||
181 |
||
182 |
function IntToStr(n: LongInt): shortstring; |
|
183 |
begin |
|
184 |
str(n, IntToStr) |
|
185 |
end; |
|
186 |
||
7151 | 187 |
function StrToInt(s: shortstring): LongInt; |
188 |
var c: LongInt; |
|
189 |
begin |
|
8370 | 190 |
val(s, StrToInt, c); |
191 |
{$IFDEF DEBUGFILE} |
|
192 |
if c <> 0 then |
|
193 |
writeln(f, 'Error at position ' + IntToStr(c) + ' : ' + s[c]) |
|
194 |
{$ENDIF} |
|
7151 | 195 |
end; |
196 |
||
4374 | 197 |
function FloatToStr(n: hwFloat): shortstring; |
198 |
begin |
|
199 |
FloatToStr:= cstr(n) + '_' + inttostr(Lo(n.QWordValue)) |
|
200 |
end; |
|
201 |
||
202 |
||
7548
c7a21fc530de
This one gets called a lot when drawing rotated sprites
nemo
parents:
7547
diff
changeset
|
203 |
function DxDy2Angle(const _dY, _dX: hwFloat): GLfloat; inline; |
4374 | 204 |
var dY, dX: Extended; |
205 |
begin |
|
7547 | 206 |
dY:= hwFloat2Float(_dY); |
207 |
dX:= hwFloat2Float(_dX); |
|
4374 | 208 |
DxDy2Angle:= arctan2(dY, dX) * 180 / pi |
209 |
end; |
|
210 |
||
211 |
function DxDy2Angle32(const _dY, _dX: hwFloat): LongInt; |
|
212 |
const _16divPI: Extended = 16/pi; |
|
213 |
var dY, dX: Extended; |
|
214 |
begin |
|
7547 | 215 |
dY:= hwFloat2Float(_dY); |
216 |
dX:= hwFloat2Float(_dX); |
|
4374 | 217 |
DxDy2Angle32:= trunc(arctan2(dY, dX) * _16divPI) and $1f |
218 |
end; |
|
219 |
||
220 |
function DxDy2AttackAngle(const _dY, _dX: hwFloat): LongInt; |
|
221 |
const MaxAngleDivPI: Extended = cMaxAngle/pi; |
|
222 |
var dY, dX: Extended; |
|
223 |
begin |
|
7547 | 224 |
dY:= hwFloat2Float(_dY); |
225 |
dX:= hwFloat2Float(_dX); |
|
4374 | 226 |
DxDy2AttackAngle:= trunc(arctan2(dY, dX) * MaxAngleDivPI) |
227 |
end; |
|
228 |
||
6894 | 229 |
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
|
230 |
begin |
6894 | 231 |
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
|
232 |
end; |
cbadb9fa52fc
An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents:
5130
diff
changeset
|
233 |
|
4374 | 234 |
|
235 |
procedure SetLittle(var r: hwFloat); |
|
236 |
begin |
|
237 |
r:= SignAs(cLittle, r) |
|
238 |
end; |
|
239 |
||
240 |
||
241 |
function isPowerOf2(i: Longword): boolean; |
|
242 |
begin |
|
4981
0c60ade27a0a
Optimize check (not like it is called much, just ffs; not tested)
unc0rr
parents:
4976
diff
changeset
|
243 |
isPowerOf2:= (i and (i - 1)) = 0 |
4374 | 244 |
end; |
245 |
||
246 |
function toPowerOf2(i: Longword): Longword; |
|
247 |
begin |
|
248 |
toPowerOf2:= 1; |
|
249 |
while (toPowerOf2 < i) do toPowerOf2:= toPowerOf2 shl 1 |
|
250 |
end; |
|
251 |
||
252 |
||
253 |
function DecodeBase64(s: shortstring): shortstring; |
|
254 |
const table = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'; |
|
255 |
var i, t, c: Longword; |
|
256 |
begin |
|
257 |
c:= 0; |
|
258 |
for i:= 1 to Length(s) do |
|
259 |
begin |
|
260 |
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
|
261 |
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
|
262 |
inc(c); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
263 |
if t > 0 then |
7074 | 264 |
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
|
265 |
else |
7074 | 266 |
s[i]:= #0 |
4374 | 267 |
end; |
268 |
||
269 |
i:= 1; |
|
270 |
t:= 1; |
|
271 |
while i <= length(s) do |
|
272 |
begin |
|
273 |
DecodeBase64[t ]:= char((byte(s[i ]) shl 2) or (byte(s[i + 1]) shr 4)); |
|
274 |
DecodeBase64[t + 1]:= char((byte(s[i + 1]) shl 4) or (byte(s[i + 2]) shr 2)); |
|
275 |
DecodeBase64[t + 2]:= char((byte(s[i + 2]) shl 6) or (byte(s[i + 3]) )); |
|
276 |
inc(t, 3); |
|
277 |
inc(i, 4) |
|
278 |
end; |
|
279 |
||
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
280 |
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
|
281 |
t:= t - c; |
4374 | 282 |
|
7074 | 283 |
DecodeBase64[0]:= char(t - 1) |
4374 | 284 |
end; |
285 |
||
286 |
||
287 |
function Str2PChar(const s: shortstring): PChar; |
|
288 |
begin |
|
289 |
CharArray:= s; |
|
290 |
CharArray[Length(s)]:= #0; |
|
291 |
Str2PChar:= @CharArray |
|
292 |
end; |
|
293 |
||
294 |
||
295 |
function endian(independent: LongWord): LongWord; inline; |
|
296 |
begin |
|
297 |
{$IFDEF ENDIAN_LITTLE} |
|
298 |
endian:= independent; |
|
299 |
{$ELSE} |
|
300 |
endian:= (((independent and $FF000000) shr 24) or |
|
301 |
((independent and $00FF0000) shr 8) or |
|
302 |
((independent and $0000FF00) shl 8) or |
|
303 |
((independent and $000000FF) shl 24)) |
|
304 |
{$ENDIF} |
|
305 |
end; |
|
306 |
||
307 |
||
308 |
procedure AddFileLog(s: shortstring); |
|
309 |
begin |
|
4900 | 310 |
s:= s; |
311 |
{$IFDEF DEBUGFILE} |
|
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
312 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 313 |
EnterCriticalSection(logMutex); |
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
314 |
{$ENDIF} |
7151 | 315 |
writeln(f, inttostr(GameTicks) + ': ' + s); |
7180 | 316 |
flush(f); |
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
317 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 318 |
LeaveCriticalSection(logMutex); |
4900 | 319 |
{$ENDIF} |
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
320 |
{$ENDIF} |
4374 | 321 |
end; |
322 |
||
7180 | 323 |
procedure AddFileLogRaw(s: pchar); cdecl; |
324 |
begin |
|
325 |
s:= s; |
|
326 |
{$IFDEF DEBUGFILE} |
|
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
327 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 328 |
EnterCriticalSection(logMutex); |
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
329 |
{$ENDIF} |
7180 | 330 |
write(f, s); |
331 |
flush(f); |
|
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
332 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 333 |
LeaveCriticalSection(logMutex); |
334 |
{$ENDIF} |
|
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
335 |
{$ENDIF} |
7180 | 336 |
end; |
4374 | 337 |
|
4380 | 338 |
function CheckCJKFont(s: ansistring; font: THWFont): THWFont; |
339 |
var l, i : LongInt; |
|
340 |
u: WideChar; |
|
341 |
tmpstr: array[0..256] of WideChar; |
|
342 |
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
|
343 |
CheckCJKFont:= font; |
4380 | 344 |
|
5639 | 345 |
{$IFNDEF MOBILE} |
4380 | 346 |
// remove chinese fonts for now |
347 |
if (font >= CJKfnt16) or (length(s) = 0) then |
|
348 |
{$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
|
349 |
exit; |
4380 | 350 |
|
351 |
l:= Utf8ToUnicode(@tmpstr, Str2PChar(s), length(s))-1; |
|
352 |
i:= 0; |
|
4737 | 353 |
|
4380 | 354 |
while i < l do |
355 |
begin |
|
356 |
u:= tmpstr[i]; |
|
4737 | 357 |
if (#$1100 <= u) and ( |
358 |
(u <= #$11FF ) or // Hangul Jamo |
|
359 |
((#$2E80 <= u) and (u <= #$2FDF)) or // CJK Radicals Supplement / Kangxi Radicals |
|
8575 | 360 |
((#$2FF0 <= u) and (u <= #$31FF)) or // Ideographic Description Characters / CJK Radicals Supplement / Hiragana / Hangul Compatibility Jamo / Katakana |
4380 | 361 |
((#$31C0 <= u) and (u <= #$31EF)) or // CJK Strokes |
8575 | 362 |
((#$3200 <= u) and (u <= #$4DBF)) or // Enclosed CJK Letters and Months / CJK Compatibility / CJK Unified Ideographs Extension A / Circled Katakana |
4380 | 363 |
((#$4E00 <= u) and (u <= #$9FFF)) or // CJK Unified Ideographs |
4737 | 364 |
((#$AC00 <= u) and (u <= #$D7AF)) or // Hangul Syllables |
4380 | 365 |
((#$F900 <= u) and (u <= #$FAFF)) or // CJK Compatibility Ideographs |
8575 | 366 |
((#$FE30 <= u) and (u <= #$FE4F)) or // CJK Compatibility Forms |
367 |
((#$FF66 <= u) and (u <= #$FF9D))) // halfwidth katakana |
|
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
|
368 |
then |
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
|
369 |
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
|
370 |
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
|
371 |
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
|
372 |
end; |
4380 | 373 |
inc(i) |
374 |
end; |
|
375 |
(* two more to check. pascal WideChar is only 16 bit though |
|
376 |
((#$20000 <= u) and (u >= #$2A6DF)) or // CJK Unified Ideographs Extension B |
|
377 |
((#$2F800 <= u) and (u >= #$2FA1F))) // CJK Compatibility Ideographs Supplement *) |
|
378 |
end; |
|
379 |
||
4385 | 380 |
|
381 |
function GetLaunchX(at: TAmmoType; dir: LongInt; angle: LongInt): LongInt; |
|
382 |
begin |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
383 |
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
|
384 |
(* |
4385 | 385 |
if (Ammoz[at].ejectX <> 0) or (Ammoz[at].ejectY <> 0) then |
386 |
GetLaunchX:= sign(dir) * (8 + hwRound(AngleSin(angle) * Ammoz[at].ejectX) + hwRound(AngleCos(angle) * Ammoz[at].ejectY)) |
|
387 |
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
|
388 |
GetLaunchX:= 0 *) |
4385 | 389 |
end; |
390 |
||
391 |
function GetLaunchY(at: TAmmoType; angle: LongInt): LongInt; |
|
392 |
begin |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6444
diff
changeset
|
393 |
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
|
394 |
(* |
4385 | 395 |
if (Ammoz[at].ejectX <> 0) or (Ammoz[at].ejectY <> 0) then |
396 |
GetLaunchY:= hwRound(AngleSin(angle) * Ammoz[at].ejectY) - hwRound(AngleCos(angle) * Ammoz[at].ejectX) - 2 |
|
397 |
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
|
398 |
GetLaunchY:= 0*) |
4385 | 399 |
end; |
400 |
||
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
|
401 |
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
|
402 |
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
|
403 |
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
|
404 |
end; |
4385 | 405 |
|
7151 | 406 |
procedure Write(var f: textfile; s: shortstring); |
407 |
begin |
|
408 |
system.write(f, s) |
|
409 |
end; |
|
410 |
||
411 |
procedure WriteLn(var f: textfile; s: shortstring); |
|
412 |
begin |
|
413 |
system.writeln(f, s) |
|
414 |
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
|
415 |
|
7151 | 416 |
|
8204 | 417 |
// this function is just to determine whether we are running on a limited screen device |
418 |
function isPhone: Boolean; inline; |
|
419 |
begin |
|
420 |
isPhone:= false; |
|
421 |
{$IFDEF IPHONEOS} |
|
422 |
isPhone:= isApplePhone(); |
|
423 |
{$ENDIF} |
|
424 |
{$IFDEF ANDROID} |
|
425 |
//nasty nasty hack. TODO: implement callback to java to have a unified way of determining if it is a tablet |
|
426 |
if (cScreenWidth < 1000) and (cScreenHeight < 500) then |
|
427 |
isPhone:= true; |
|
428 |
{$ENDIF} |
|
429 |
end; |
|
430 |
||
431 |
//This dummy function should be reimplemented (externally). |
|
432 |
function getScreenDPI: Double; inline; |
|
433 |
begin |
|
434 |
{$IFDEF ANDROID} |
|
435 |
// getScreenDPI:= Android_JNI_getDensity(); |
|
436 |
getScreenDPI:= 1; |
|
437 |
{$ELSE} |
|
438 |
getScreenDPI:= 1; |
|
439 |
{$ENDIF} |
|
440 |
end; |
|
441 |
||
8498
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
442 |
function sanitizeForLog(s: shortstring): shortstring; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
443 |
var i: byte; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
444 |
r: shortstring; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
445 |
begin |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
446 |
r[0]:= s[0]; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
447 |
for i:= 1 to length(s) do |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
448 |
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
|
449 |
r[i]:= '?' |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
450 |
else |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
451 |
r[i]:= s[i]; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
452 |
|
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
453 |
sanitizeForLog:= r |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
454 |
end; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
455 |
|
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
456 |
function sanitizeCharForLog(c: char): shortstring; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
457 |
var r: shortstring; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
458 |
begin |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
459 |
if (c < #32) or (c > #127) then |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
460 |
r:= '#' + inttostr(byte(c)) |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
461 |
else |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
462 |
r:= c; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
463 |
|
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
464 |
sanitizeCharForLog:= r |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
465 |
end; |
eecadca7db50
Bring back full log strings for commands, just a bit sanitized
unc0rr
parents:
8425
diff
changeset
|
466 |
|
7896
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7565
diff
changeset
|
467 |
procedure initModule(isNotPreview: boolean); |
7027 | 468 |
{$IFDEF DEBUGFILE} |
469 |
var logfileBase: shortstring; |
|
8095 | 470 |
i: LongInt; |
7027 | 471 |
{$ENDIF} |
4374 | 472 |
begin |
473 |
{$IFDEF DEBUGFILE} |
|
7896
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7565
diff
changeset
|
474 |
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
|
475 |
begin |
e82a076df09b
Fix bug with isInLag picture displayed at end of some videos.
Stepan777 <stepik-777@mail.ru>
parents:
7198
diff
changeset
|
476 |
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
|
477 |
logfileBase:= 'rec' |
e82a076df09b
Fix bug with isInLag picture displayed at end of some videos.
Stepan777 <stepik-777@mail.ru>
parents:
7198
diff
changeset
|
478 |
else |
e82a076df09b
Fix bug with isInLag picture displayed at end of some videos.
Stepan777 <stepik-777@mail.ru>
parents:
7198
diff
changeset
|
479 |
logfileBase:= 'game'; |
e82a076df09b
Fix bug with isInLag picture displayed at end of some videos.
Stepan777 <stepik-777@mail.ru>
parents:
7198
diff
changeset
|
480 |
end |
7027 | 481 |
else |
482 |
logfileBase:= 'preview'; |
|
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
483 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 484 |
InitCriticalSection(logMutex); |
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
485 |
{$ENDIF} |
4374 | 486 |
{$I-} |
8425
4f226963faef
restored ios project file, updated Game() interface, tweaked arg parsing, updated log writing, minor warnings
koda
parents:
8370
diff
changeset
|
487 |
f:= stderr; // if everything fails, write to stderr |
5831 | 488 |
if (UserPathPrefix <> '') then |
4374 | 489 |
begin |
8425
4f226963faef
restored ios project file, updated Game() interface, tweaked arg parsing, updated log writing, minor warnings
koda
parents:
8370
diff
changeset
|
490 |
// create directory if it doesn't exist |
8095 | 491 |
if not FileExists(UserPathPrefix + '/Logs/') then |
492 |
CreateDir(UserPathPrefix + '/Logs/'); |
|
8425
4f226963faef
restored ios project file, updated Game() interface, tweaked arg parsing, updated log writing, minor warnings
koda
parents:
8370
diff
changeset
|
493 |
|
4f226963faef
restored ios project file, updated Game() interface, tweaked arg parsing, updated log writing, minor warnings
koda
parents:
8370
diff
changeset
|
494 |
// if log is locked, write to the next one |
8095 | 495 |
i:= 0; |
496 |
while(i < 7) do |
|
4374 | 497 |
begin |
8095 | 498 |
assign(f, UserPathPrefix + '/Logs/' + logfileBase + inttostr(i) + '.log'); |
499 |
if IOResult = 0 then |
|
500 |
break; |
|
501 |
inc(i) |
|
4374 | 502 |
end; |
8095 | 503 |
end; |
504 |
Rewrite(f); |
|
4374 | 505 |
{$I+} |
506 |
{$ENDIF} |
|
507 |
||
508 |
end; |
|
509 |
||
510 |
procedure freeModule; |
|
511 |
begin |
|
512 |
{$IFDEF DEBUGFILE} |
|
7151 | 513 |
writeln(f, 'halt at ' + inttostr(GameTicks) + ' ticks. TurnTimeLeft = ' + inttostr(TurnTimeLeft)); |
4374 | 514 |
flush(f); |
515 |
close(f); |
|
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
516 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 517 |
DoneCriticalSection(logMutex); |
4374 | 518 |
{$ENDIF} |
7198
5debd5fe526e
1. Add IFDEFs for video recording
Stepan777 <stepik-777@mail.ru>
parents:
7194
diff
changeset
|
519 |
{$ENDIF} |
4374 | 520 |
end; |
521 |
||
4453 | 522 |
end. |