1742 end; |
1742 end; |
1743 gtCreeper: if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) then |
1743 gtCreeper: if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) then |
1744 DrawSpriteRotatedF(sprCreeper, x, y, 1, hwRound(SignAs(_1,Gear^.Hedgehog^.Gear^.X-Gear^.X)), 0) |
1744 DrawSpriteRotatedF(sprCreeper, x, y, 1, hwRound(SignAs(_1,Gear^.Hedgehog^.Gear^.X-Gear^.X)), 0) |
1745 else DrawSpriteRotatedF(sprCreeper, x, y, 1, hwRound(SignAs(_1,Gear^.dX)), 0); |
1745 else DrawSpriteRotatedF(sprCreeper, x, y, 1, hwRound(SignAs(_1,Gear^.dX)), 0); |
1746 gtSentry: begin |
1746 gtSentry: begin |
1747 DrawSprite(sprSentry, x - 16, y - 16, 0, 0); |
1747 DrawSpriteRotated(sprSentry, x, y, hwSign(Gear^.dX), 0); |
1748 DrawCircle(x, y, Gear^.Radius, 1, 255, 0, 0, 255); |
1748 DrawCircle(x, y, Gear^.Radius, 1, 255, 0, 0, 255); |
1749 end; |
1749 end; |
1750 gtGenericFaller: begin |
1750 gtGenericFaller: begin |
1751 // DEBUG: draw gtGenericFaller |
1751 // DEBUG: draw gtGenericFaller |
1752 if Gear^.Tag <> 0 then |
1752 if Gear^.Tag <> 0 then |