equal
deleted
inserted
replaced
252 |
252 |
253 procedure Walk(Me: PGear; var Actions: TActions); |
253 procedure Walk(Me: PGear; var Actions: TActions); |
254 const FallPixForBranching = cHHRadius; |
254 const FallPixForBranching = cHHRadius; |
255 var |
255 var |
256 ticks, maxticks, oldticks, steps, tmp: Longword; |
256 ticks, maxticks, oldticks, steps, tmp: Longword; |
257 BaseRate, BestRate, Rate: integer; |
257 BaseRate, BestRate, Rate: LongInt; |
258 GoInfo: TGoInfo; |
258 GoInfo: TGoInfo; |
259 CanGo: boolean; |
259 CanGo: boolean; |
260 AltMe: TGear; |
260 AltMe: TGear; |
261 BotLevel: Byte; |
261 BotLevel: Byte; |
262 a: TAmmoType; |
262 a: TAmmoType; |