hedgewars/uCommandHandlers.pas
branchtransitional_engine
changeset 15900 128ace913837
parent 15875 d7b53d08ad9c
child 15975 2146cb7be36f
equal deleted inserted replaced
15899:73cdc306888f 15900:128ace913837
   584             begin
   584             begin
   585             bSelected:= false;
   585             bSelected:= false;
   586 
   586 
   587             if bShowAmmoMenu then
   587             if bShowAmmoMenu then
   588                 bShowAmmoMenu:= false
   588                 bShowAmmoMenu:= false
   589             else if not(CurrentTeam^.Extdriven) and ((Gear = nil) or ((Gear^.State and (gstAttacking or gstAttacked)) <> 0)
   589             else if ((Gear = nil) or ((Gear^.State and (gstAttacking or gstAttacked)) <> 0)
   590             or ((Gear^.State and gstHHDriven) = 0)) then
   590             or ((Gear^.State and gstHHDriven) = 0)) then
   591                 begin
   591                 begin
   592                 end
   592                 end
   593             else
   593             else
   594                 bShowAmmoMenu:= true
   594                 bShowAmmoMenu:= true