equal
deleted
inserted
replaced
309 with CurrentTeam^ do |
309 with CurrentTeam^ do |
310 begin |
310 begin |
311 with Hedgehogs[CurrHedgehog] do |
311 with Hedgehogs[CurrHedgehog] do |
312 begin |
312 begin |
313 if ((Gear^.State and (gstAttacking or gstAttacked)) <> 0) or (AttacksNum > 0) |
313 if ((Gear^.State and (gstAttacking or gstAttacked)) <> 0) or (AttacksNum > 0) |
314 or ((Gear^.State and gstHHDriven) = 0) then exit; // во время стрельбы исключает смену оружия |
314 or ((Gear^.State and gstHHDriven) = 0) then exit; |
315 Gear^.Message:= 0; |
315 Gear^.Message:= Gear^.Message and not (gm_LJump or gm_HJump); |
316 if CurAmmoGear = nil then begin caSlot:= @CurSlot; caAmmo:= @CurAmmo end |
316 if CurAmmoGear = nil then begin caSlot:= @CurSlot; caAmmo:= @CurAmmo end |
317 else begin caSlot:= @AltSlot; caAmmo:= @AltAmmo end; |
317 else begin caSlot:= @AltSlot; caAmmo:= @AltAmmo end; |
318 if caSlot^ = slot then |
318 if caSlot^ = slot then |
319 begin |
319 begin |
320 inc(caAmmo^); |
320 inc(caAmmo^); |