1602 DrawLineWrapped(hwRound(HHGear^.X), hwRound(HHGear^.Y), hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, hwSign(HHGear^.dX) < 0, Gear^.FlightTime, i, i, $FF, $40); |
1602 DrawLineWrapped(hwRound(HHGear^.X), hwRound(HHGear^.Y), hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, hwSign(HHGear^.dX) < 0, Gear^.FlightTime, i, i, $FF, $40); |
1603 end; |
1603 end; |
1604 end |
1604 end |
1605 end |
1605 end |
1606 end; |
1606 end; |
1607 gtDuck: DrawSpriteRotatedF(sprDuck, x, y, 1, Gear^.Tag, |
1607 gtDuck: if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) then |
1608 // replace with something based on dx/dy? |
1608 DrawSpriteRotatedF(sprDuck, x, y, 1, hwRound(SignAs(_1,Gear^.Hedgehog^.Gear^.X-Gear^.X)), 0) |
1609 Gear^.DirAngle + 10-round(20 * abs(1 - (RealTicks mod round(0.1/max(0.00005,cWindSpeedf))) / round(0.05/max(0.00005,cWindSpeedf))) )); |
1609 else DrawSpriteRotatedF(sprDuck, x, y, 1, hwRound(SignAs(_1,Gear^.dX)), 0); |
|
1610 |
1610 gtGenericFaller: begin |
1611 gtGenericFaller: begin |
1611 // DEBUG: draw gtGenericFaller |
1612 // DEBUG: draw gtGenericFaller |
1612 if Gear^.Tag <> 0 then |
1613 if Gear^.Tag <> 0 then |
1613 DrawCircle(x, y, max(3, Gear^.Radius), 3, $FF, $00, $00, $FF) |
1614 DrawCircle(x, y, max(3, Gear^.Radius), 3, $FF, $00, $00, $FF) |
1614 else |
1615 else |