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