equal
deleted
inserted
replaced
503 inc(step) |
503 inc(step) |
504 end; |
504 end; |
505 stChDmg: if CheckNoDamage then inc(step) else step:= stDelay; |
505 stChDmg: if CheckNoDamage then inc(step) else step:= stDelay; |
506 stSweep: if SweepDirty then |
506 stSweep: if SweepDirty then |
507 begin |
507 begin |
508 SetAllToActive; |
|
509 step:= stChDmg |
508 step:= stChDmg |
510 end else inc(step); |
509 end else inc(step); |
511 stTurnReact: begin |
510 stTurnReact: begin |
512 if (not bBetweenTurns) and (not isInMultiShoot) then |
511 if (not bBetweenTurns) and (not isInMultiShoot) then |
513 begin |
512 begin |
669 7, |
668 7, |
670 0); |
669 0); |
671 defaultPos:= false |
670 defaultPos:= false |
672 end else |
671 end else |
673 |
672 |
674 if (Gear^.State and gstWinner) <> 0 then |
673 if ((Gear^.State and gstWinner) <> 0) and |
|
674 ((CurAmmoGear = nil) or (CurAmmoGear^.Kind <> gtPickHammer)) then |
675 begin |
675 begin |
676 DrawHedgehog(sx, sy, |
676 DrawHedgehog(sx, sy, |
677 hwSign(Gear^.dX), |
677 hwSign(Gear^.dX), |
678 2, |
678 2, |
679 0, |
679 0, |
747 1, |
747 1, |
748 4, |
748 4, |
749 0); |
749 0); |
750 defaultPos:= false |
750 defaultPos:= false |
751 end; |
751 end; |
752 gtPickHammer, |
752 gtPickHammer: begin |
|
753 defaultPos:= false; |
|
754 dec(sy,20); |
|
755 end; |
753 gtTeleport: defaultPos:= false; |
756 gtTeleport: defaultPos:= false; |
754 gtWhip: begin |
757 gtWhip: begin |
755 DrawRotatedF(sprWhip, |
758 DrawRotatedF(sprWhip, |
756 sx, |
759 sx, |
757 sy, |
760 sy, |