equal
deleted
inserted
replaced
35 function CheckCJKFont(s: ansistring; font: THWFont): THWFont; |
35 function CheckCJKFont(s: ansistring; font: THWFont): THWFont; |
36 |
36 |
37 {$IFDEF DEBUGFILE} |
37 {$IFDEF DEBUGFILE} |
38 procedure AddFileLog(s: shortstring); |
38 procedure AddFileLog(s: shortstring); |
39 {$ENDIF} |
39 {$ENDIF} |
|
40 |
|
41 function CheckNoTeamOrHH: boolean; inline; |
40 |
42 |
41 procedure initModule; |
43 procedure initModule; |
42 procedure freeModule; |
44 procedure freeModule; |
43 |
45 |
44 function GetLaunchX(at: TAmmoType; dir: LongInt; angle: LongInt): LongInt; |
46 function GetLaunchX(at: TAmmoType; dir: LongInt; angle: LongInt): LongInt; |
282 GetLaunchY:= hwRound(AngleSin(angle) * Ammoz[at].ejectY) - hwRound(AngleCos(angle) * Ammoz[at].ejectX) - 2 |
284 GetLaunchY:= hwRound(AngleSin(angle) * Ammoz[at].ejectY) - hwRound(AngleCos(angle) * Ammoz[at].ejectX) - 2 |
283 else |
285 else |
284 GetLaunchY:= 0 |
286 GetLaunchY:= 0 |
285 end; |
287 end; |
286 |
288 |
|
289 function CheckNoTeamOrHH: boolean; |
|
290 var bRes: boolean; |
|
291 begin |
|
292 CheckNoTeamOrHH:= (CurrentTeam = nil) or (CurrentHedgehog^.Gear = nil); |
|
293 end; |
287 |
294 |
288 procedure initModule; |
295 procedure initModule; |
289 {$IFDEF DEBUGFILE}{$IFNDEF IPHONEOS}var i: LongInt;{$ENDIF}{$ENDIF} |
296 {$IFDEF DEBUGFILE}{$IFNDEF IPHONEOS}var i: LongInt;{$ENDIF}{$ENDIF} |
290 begin |
297 begin |
291 {$IFDEF DEBUGFILE} |
298 {$IFDEF DEBUGFILE} |