equal
deleted
inserted
replaced
58 procedure KickFlakes(dmgRadius, X, Y: LongInt); |
58 procedure KickFlakes(dmgRadius, X, Y: LongInt); |
59 procedure DrawVisualGears(Layer: LongWord); |
59 procedure DrawVisualGears(Layer: LongWord); |
60 procedure DeleteVisualGear(Gear: PVisualGear); |
60 procedure DeleteVisualGear(Gear: PVisualGear); |
61 procedure AddClouds; |
61 procedure AddClouds; |
62 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
62 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
|
63 procedure FreeVisualGears; |
63 |
64 |
64 var VisualGearsList: PVisualGear; |
65 var VisualGearsList: PVisualGear; |
65 vobFrameTicks, vobFramesCount: Longword; |
66 vobFrameTicks, vobFramesCount: Longword; |
66 vobVelocity, vobFallSpeed: LongInt; |
67 vobVelocity, vobFallSpeed: LongInt; |
67 |
68 |
743 begin |
744 begin |
744 for i:= 0 to cCloudsNumber - 1 do |
745 for i:= 0 to cCloudsNumber - 1 do |
745 AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + (LAND_WIDTH+256)) div (cCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud) |
746 AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + (LAND_WIDTH+256)) div (cCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud) |
746 end; |
747 end; |
747 |
748 |
|
749 procedure FreeVisualGears; |
|
750 begin |
|
751 while VisualGearsList <> nil do DeleteVisualGear(VisualGearsList); |
|
752 end; |
|
753 |
748 procedure initModule; |
754 procedure initModule; |
749 begin |
755 begin |
750 VisualGearsList:= nil; |
756 VisualGearsList:= nil; |
751 end; |
757 end; |
752 |
758 |
753 procedure freeModule; |
759 procedure freeModule; |
754 begin |
760 begin |
755 while VisualGearsList <> nil do DeleteVisualGear(VisualGearsList); |
|
756 end; |
761 end; |
757 |
762 |
758 end. |
763 end. |