equal
deleted
inserted
replaced
34 HookAngle : GLfloat; |
34 HookAngle : GLfloat; |
35 ar : array[0..MAXROPEPOINTS] of Tar; |
35 ar : array[0..MAXROPEPOINTS] of Tar; |
36 rounded : array[0..MAXROPEPOINTS + 2] of TVertex2f; |
36 rounded : array[0..MAXROPEPOINTS + 2] of TVertex2f; |
37 end; |
37 end; |
38 procedure RenderGear(Gear: PGear; x, y: LongInt); |
38 procedure RenderGear(Gear: PGear; x, y: LongInt); |
|
39 procedure RenderGearTimer(Gear: PGear; x, y: LongInt); |
39 procedure DrawHHOrder(); |
40 procedure DrawHHOrder(); |
40 |
41 |
41 var RopePoints: record |
42 var RopePoints: record |
42 Count: Longword; |
43 Count: Longword; |
43 HookAngle: GLfloat; |
44 HookAngle: GLfloat; |
1530 end |
1531 end |
1531 end; |
1532 end; |
1532 gtDuck: DrawSpriteRotatedF(sprDuck, x, y, 1, Gear^.Tag, Gear^.Angle); |
1533 gtDuck: DrawSpriteRotatedF(sprDuck, x, y, 1, Gear^.Tag, Gear^.Angle); |
1533 gtGenericFaller: DrawCircle(x, y, 3, 3, $FF, $00, $00, $FF); // debug |
1534 gtGenericFaller: DrawCircle(x, y, 3, 3, $FF, $00, $00, $FF); // debug |
1534 end; |
1535 end; |
1535 if Gear^.RenderTimer and (Gear^.Tex <> nil) then |
|
1536 DrawTextureCentered(x + 8, y + 8, Gear^.Tex); |
|
1537 if Gear^.State and gstFrozen <> 0 then untint |
1536 if Gear^.State and gstFrozen <> 0 then untint |
1538 end; |
1537 end; |
1539 |
1538 |
|
1539 procedure RenderGearTimer(Gear: PGear; x, y: LongInt); |
|
1540 begin |
|
1541 if Gear^.RenderTimer and (Gear^.Tex <> nil) then |
|
1542 DrawTextureCentered(x + 8, y + 8, Gear^.Tex); |
|
1543 end; |
|
1544 |
1540 end. |
1545 end. |