equal
deleted
inserted
replaced
489 if(HHGear^.Angle + 1 <= cMaxAngle) then inc(HHGear^.Angle) |
489 if(HHGear^.Angle + 1 <= cMaxAngle) then inc(HHGear^.Angle) |
490 end |
490 end |
491 else |
491 else |
492 if(HHGear^.Angle - 1 >= 0) then dec(HHGear^.Angle); |
492 if(HHGear^.Angle - 1 >= 0) then dec(HHGear^.Angle); |
493 |
493 |
494 if (TurnTimeLeft > 0) then dec(TurnTimeLeft) |
494 if (TurnTimeLeft > 0) then |
|
495 dec(TurnTimeLeft) |
|
496 else |
|
497 begin |
|
498 DeleteGear(Gear); |
|
499 AfterAttack |
|
500 end; |
495 end; |
501 end; |
496 |
502 |
497 //////////////////////////////////////////////////////////////////////////////// |
503 //////////////////////////////////////////////////////////////////////////////// |
498 procedure doStepActionTimer(Gear: PGear); |
504 procedure doStepActionTimer(Gear: PGear); |
499 begin |
505 begin |