equal
deleted
inserted
replaced
286 while (ami <= cMaxSlotAmmoIndex) do |
286 while (ami <= cMaxSlotAmmoIndex) do |
287 begin |
287 begin |
288 with Hedgehog.Ammo^[Slot, ami] do |
288 with Hedgehog.Ammo^[Slot, ami] do |
289 if (AmmoType = Ammo) then |
289 if (AmmoType = Ammo) then |
290 if Hedgehog.Team^.Clan^.TurnNumber > Ammoz[AmmoType].SkipTurns then |
290 if Hedgehog.Team^.Clan^.TurnNumber > Ammoz[AmmoType].SkipTurns then |
291 begin |
291 exit(Count) |
292 HHHasAmmo:= Count; |
292 else |
293 exit; |
293 exit(0); |
294 end |
|
295 else exit; |
|
296 inc(ami) |
294 inc(ami) |
297 end; |
295 end; |
298 end; |
296 end; |
299 |
297 |
300 procedure ApplyAngleBounds(var Hedgehog: THedgehog; AmmoType: TAmmoType); |
298 procedure ApplyAngleBounds(var Hedgehog: THedgehog; AmmoType: TAmmoType); |