equal
deleted
inserted
replaced
33 |
33 |
34 function endian(independent: LongWord): LongWord; inline; |
34 function endian(independent: LongWord): LongWord; inline; |
35 |
35 |
36 function CheckCJKFont(s: ansistring; font: THWFont): THWFont; |
36 function CheckCJKFont(s: ansistring; font: THWFont): THWFont; |
37 |
37 |
38 {$IFDEF DEBUGFILE} |
|
39 procedure AddFileLog(s: shortstring); |
38 procedure AddFileLog(s: shortstring); |
40 {$ENDIF} |
39 |
41 |
40 function CheckNoTeamOrHH: boolean; inline; |
42 function CheckNoTeamOrHH: boolean; inline; |
|
43 |
41 |
44 function GetLaunchX(at: TAmmoType; dir: LongInt; angle: LongInt): LongInt; |
42 function GetLaunchX(at: TAmmoType; dir: LongInt; angle: LongInt): LongInt; |
45 function GetLaunchY(at: TAmmoType; angle: LongInt): LongInt; |
43 function GetLaunchY(at: TAmmoType; angle: LongInt): LongInt; |
46 |
44 |
47 procedure initModule; |
45 procedure initModule; |
229 ((independent and $000000FF) shl 24)) |
227 ((independent and $000000FF) shl 24)) |
230 {$ENDIF} |
228 {$ENDIF} |
231 end; |
229 end; |
232 |
230 |
233 |
231 |
|
232 procedure AddFileLog(s: shortstring); |
|
233 begin |
|
234 s:= s; |
234 {$IFDEF DEBUGFILE} |
235 {$IFDEF DEBUGFILE} |
235 procedure AddFileLog(s: shortstring); |
|
236 begin |
|
237 writeln(f, GameTicks: 6, ': ', s); |
236 writeln(f, GameTicks: 6, ': ', s); |
238 flush(f) |
237 flush(f) |
239 end; |
238 {$ENDIF} |
240 {$ENDIF} |
239 end; |
241 |
240 |
242 |
241 |
243 function CheckCJKFont(s: ansistring; font: THWFont): THWFont; |
242 function CheckCJKFont(s: ansistring; font: THWFont): THWFont; |
244 var l, i : LongInt; |
243 var l, i : LongInt; |
245 u: WideChar; |
244 u: WideChar; |