1552 end |
1552 end |
1553 end; |
1553 end; |
1554 gtDuck: DrawSpriteRotatedF(sprDuck, x, y, 1, Gear^.Tag, |
1554 gtDuck: DrawSpriteRotatedF(sprDuck, x, y, 1, Gear^.Tag, |
1555 // replace with something based on dx/dy? |
1555 // replace with something based on dx/dy? |
1556 Gear^.DirAngle + 10-round(20 * abs(1 - (RealTicks mod round(0.1/max(0.00005,cWindSpeedf))) / round(0.05/max(0.00005,cWindSpeedf))) )); |
1556 Gear^.DirAngle + 10-round(20 * abs(1 - (RealTicks mod round(0.1/max(0.00005,cWindSpeedf))) / round(0.05/max(0.00005,cWindSpeedf))) )); |
1557 gtGenericFaller: DrawCircle(x, y, max(3, Gear^.Radius), 3, $FF, $00, $00, $FF); // debug |
1557 gtGenericFaller: begin |
|
1558 // DEBUG: draw gtGenericFaller |
|
1559 if Gear^.Tag <> 0 then |
|
1560 DrawCircle(x, y, max(3, Gear^.Radius), 3, $FF, $00, $00, $FF) |
|
1561 else |
|
1562 DrawCircle(x, y, max(3, Gear^.Radius), 3, $80, $FF, $80, $8F); |
|
1563 end; |
1558 end; |
1564 end; |
1559 if Gear^.State and gstFrozen <> 0 then untint |
1565 if Gear^.State and gstFrozen <> 0 then untint |
1560 end; |
1566 end; |
1561 |
1567 |
1562 procedure RenderGearTimer(Gear: PGear; x, y: LongInt); |
1568 procedure RenderGearTimer(Gear: PGear; x, y: LongInt); |