equal
deleted
inserted
replaced
56 BestActions.Count:= 0; |
56 BestActions.Count:= 0; |
57 BestActions.Pos:= 0 |
57 BestActions.Pos:= 0 |
58 end; |
58 end; |
59 |
59 |
60 procedure TestAmmos(var Actions: TActions; Me: PGear; isMoved: boolean); |
60 procedure TestAmmos(var Actions: TActions; Me: PGear; isMoved: boolean); |
61 var Time, BotLevel: Longword; |
61 var BotLevel: Longword; |
62 ap: TAttackParams; |
62 ap: TAttackParams; |
63 Score, i: LongInt; |
63 Score, i: LongInt; |
64 a, aa: TAmmoType; |
64 a, aa: TAmmoType; |
65 begin |
65 begin |
66 BotLevel:= PHedgehog(Me^.Hedgehog)^.BotLevel; |
66 BotLevel:= PHedgehog(Me^.Hedgehog)^.BotLevel; |