hedgewars/GSHandlers.inc
changeset 3953 fd7ced2071a1
parent 3915 c05855146440
child 3954 ae3583ad6ea9
equal deleted inserted replaced
3951:c9a63db3e603 3953:fd7ced2071a1
  1454             exit
  1454             exit
  1455         end;
  1455         end;
  1456         dec(Gear^.Timer);
  1456         dec(Gear^.Timer);
  1457     end
  1457     end
  1458     else // gsttmpFlag = 0
  1458     else // gsttmpFlag = 0
  1459         if TurnTimeLeft = 0 then Gear^.State := Gear^.State or gsttmpFlag;
  1459         if (TurnTimeLeft = 0) or ((GameFlags and gfInfAttack) <> 0) then Gear^.State := Gear^.State or gsttmpFlag;
  1460 end;
  1460 end;
  1461 
  1461 
  1462 ////////////////////////////////////////////////////////////////////////////////
  1462 ////////////////////////////////////////////////////////////////////////////////
  1463 procedure doStepSMine(Gear: PGear);
  1463 procedure doStepSMine(Gear: PGear);
  1464 begin
  1464 begin