hedgewars/CCHandlers.inc
changeset 2608 cebfea02f8b5
parent 2592 d86618629e20
child 2617 ef0d93cd61b2
equal deleted inserted replaced
2607:dbeaba78e676 2608:cebfea02f8b5
   579      with Hedgehogs[CurrHedgehog] do
   579      with Hedgehogs[CurrHedgehog] do
   580           begin
   580           begin
   581           bSelected:= false;
   581           bSelected:= false;
   582 
   582 
   583           if bShowAmmoMenu then bShowAmmoMenu:= false
   583           if bShowAmmoMenu then bShowAmmoMenu:= false
   584           else if ((Gear^.State and (gstAttacking or gstAttacked)) <> 0) or (AttacksNum > 0)
   584           else if ((Gear^.State and (gstAttacking or gstAttacked)) <> 0) or (MultiShootAttacks > 0)
   585                or ((Gear^.State and gstHHDriven) = 0) then else bShowAmmoMenu:= true
   585                or ((Gear^.State and gstHHDriven) = 0) then else bShowAmmoMenu:= true
   586           end
   586           end
   587 end;
   587 end;
   588 
   588 
   589 procedure chFullScr(var s: shortstring);
   589 procedure chFullScr(var s: shortstring);