equal
deleted
inserted
replaced
48 alpha, scale: GLfloat; |
48 alpha, scale: GLfloat; |
49 Hedgehog: pointer; |
49 Hedgehog: pointer; |
50 Text: shortstring |
50 Text: shortstring |
51 end; |
51 end; |
52 |
52 |
53 procedure init_uVisualGears; |
53 procedure initModule; |
54 procedure free_uVisualGears; |
54 procedure freeModule; |
55 |
55 |
56 function AddVisualGear(X, Y: LongInt; Kind: TVisualGearType): PVisualGear; |
56 function AddVisualGear(X, Y: LongInt; Kind: TVisualGearType): PVisualGear; |
57 procedure ProcessVisualGears(Steps: Longword); |
57 procedure ProcessVisualGears(Steps: Longword); |
58 procedure KickFlakes(dmgRadius, X, Y: LongInt); |
58 procedure KickFlakes(dmgRadius, X, Y: LongInt); |
59 procedure DrawVisualGears(Layer: LongWord); |
59 procedure DrawVisualGears(Layer: LongWord); |
743 begin |
743 begin |
744 for i:= 0 to cCloudsNumber - 1 do |
744 for i:= 0 to cCloudsNumber - 1 do |
745 AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + (LAND_WIDTH+256)) div (cCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud) |
745 AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + (LAND_WIDTH+256)) div (cCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud) |
746 end; |
746 end; |
747 |
747 |
748 procedure init_uVisualGears; |
748 procedure initModule; |
749 begin |
749 begin |
750 VisualGearsList:= nil; |
750 VisualGearsList:= nil; |
751 end; |
751 end; |
752 |
752 |
753 procedure free_uVisualGears; |
753 procedure freeModule; |
754 begin |
754 begin |
755 while VisualGearsList <> nil do DeleteVisualGear(VisualGearsList); |
755 while VisualGearsList <> nil do DeleteVisualGear(VisualGearsList); |
756 end; |
756 end; |
757 |
757 |
758 end. |
758 end. |