equal
deleted
inserted
replaced
54 procedure KickFlakes(Radius, X, Y: LongInt); |
54 procedure KickFlakes(Radius, X, Y: LongInt); |
55 procedure DrawVisualGears(Layer: LongWord); |
55 procedure DrawVisualGears(Layer: LongWord); |
56 procedure DeleteVisualGear(Gear: PVisualGear); |
56 procedure DeleteVisualGear(Gear: PVisualGear); |
57 procedure AddClouds; |
57 procedure AddClouds; |
58 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
58 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
59 procedure FreeVisualGears; |
|
60 |
59 |
61 var VisualGearsList: PVisualGear; |
60 var VisualGearsList: PVisualGear; |
62 vobFrameTicks, vobFramesCount, vobCount: Longword; |
61 vobFrameTicks, vobFramesCount, vobCount: Longword; |
63 vobVelocity, vobFallSpeed: LongInt; |
62 vobVelocity, vobFallSpeed: LongInt; |
64 |
63 |
473 begin |
472 begin |
474 for i:= 0 to cCloudsNumber - 1 do |
473 for i:= 0 to cCloudsNumber - 1 do |
475 AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + (LAND_WIDTH+256)) div (cCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud) |
474 AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + (LAND_WIDTH+256)) div (cCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud) |
476 end; |
475 end; |
477 |
476 |
478 procedure FreeVisualGears; |
477 procedure initModule; |
|
478 begin |
|
479 VisualGearsList:= nil; |
|
480 end; |
|
481 |
|
482 procedure freeModule; |
479 begin |
483 begin |
480 while VisualGearsList <> nil do DeleteVisualGear(VisualGearsList); |
484 while VisualGearsList <> nil do DeleteVisualGear(VisualGearsList); |
481 end; |
485 end; |
482 |
486 |
483 procedure initModule; |
|
484 begin |
|
485 VisualGearsList:= nil; |
|
486 end; |
|
487 |
|
488 procedure freeModule; |
|
489 begin |
|
490 end; |
|
491 |
|
492 end. |
487 end. |