1741 end |
1741 end |
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: DrawSprite(sprSentry, x, y, 0, 0); |
1746 gtSentry: begin |
|
1747 DrawSprite(sprSentry, x - 16, y - 16, 0, 0); |
|
1748 DrawCircle(x, y, Gear^.Radius, 1, 255, 0, 0, 255); |
|
1749 end; |
1747 gtGenericFaller: begin |
1750 gtGenericFaller: begin |
1748 // DEBUG: draw gtGenericFaller |
1751 // DEBUG: draw gtGenericFaller |
1749 if Gear^.Tag <> 0 then |
1752 if Gear^.Tag <> 0 then |
1750 DrawCircle(x, y, max(3, Gear^.Radius), 3, $FF, $00, $00, $FF) |
1753 DrawCircle(x, y, max(3, Gear^.Radius), 3, $FF, $00, $00, $FF) |
1751 else |
1754 else |