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