equal
deleted
inserted
replaced
494 if (TurnTimeLeft > 0) then |
494 if (TurnTimeLeft > 0) then |
495 dec(TurnTimeLeft) |
495 dec(TurnTimeLeft) |
496 else |
496 else |
497 begin |
497 begin |
498 DeleteGear(Gear); |
498 DeleteGear(Gear); |
499 AfterAttack |
499 AfterAttack; |
|
500 TurnTimeLeft:= 0 |
500 end; |
501 end; |
501 end; |
502 end; |
502 |
503 |
503 //////////////////////////////////////////////////////////////////////////////// |
504 //////////////////////////////////////////////////////////////////////////////// |
504 procedure doStepActionTimer(Gear: PGear); |
505 procedure doStepActionTimer(Gear: PGear); |