hedgewars/uCommandHandlers.pas
changeset 12216 5b525d041fb4
parent 11919 e0476802c8b5
child 12488 c19e5ece5b3f
equal deleted inserted replaced
12215:2cbc57db82e1 12216:5b525d041fb4
   552             begin
   552             begin
   553             bSelected:= false;
   553             bSelected:= false;
   554 
   554 
   555             if bShowAmmoMenu then
   555             if bShowAmmoMenu then
   556                 bShowAmmoMenu:= false
   556                 bShowAmmoMenu:= false
   557             else if not(CurrentTeam^.Extdriven) and (((Gear^.State and (gstAttacking or gstAttacked)) <> 0)
   557             else if not(CurrentTeam^.Extdriven) and ((Gear = nil) or ((Gear^.State and (gstAttacking or gstAttacked)) <> 0)
   558             or ((Gear^.State and gstHHDriven) = 0)) then
   558             or ((Gear^.State and gstHHDriven) = 0)) then
   559                 begin
   559                 begin
   560                 end
   560                 end
   561             else
   561             else
   562                 bShowAmmoMenu:= true
   562                 bShowAmmoMenu:= true