hedgewars/uGears.pas
changeset 8492 67d2ad3b3ce9
parent 8425 4f226963faef
child 8562 d9d1cb650ff8
child 8563 4d9d8287e601
equal deleted inserted replaced
8491:f0f167f7a4a6 8492:67d2ad3b3ce9
   440         end
   440         end
   441     end;
   441     end;
   442 
   442 
   443 if TurnTimeLeft > 0 then
   443 if TurnTimeLeft > 0 then
   444     if CurrentHedgehog^.Gear <> nil then
   444     if CurrentHedgehog^.Gear <> nil then
   445         if ((CurrentHedgehog^.Gear^.State and gstAttacking) = 0)
   445         if ((CurrentHedgehog^.Gear^.State and gstAttacking) = 0) then
   446             and (not isInMultiShoot) then
       
   447                 begin
   446                 begin
   448                 if (TurnTimeLeft = 5000)
   447                 if (TurnTimeLeft = 5000)
   449                 and (cHedgehogTurnTime >= 10000)
   448                 and (cHedgehogTurnTime >= 10000)
   450                 and (not PlacingHogs)
   449                 and (not PlacingHogs)
   451                 and (CurrentHedgehog^.Gear <> nil)
   450                 and (CurrentHedgehog^.Gear <> nil)