30 procedure KickFlakes(Radius, X, Y: LongInt);

    30 procedure KickFlakes(Radius, X, Y: LongInt);

    31 procedure DrawVisualGears(Layer: LongWord);

    31 procedure DrawVisualGears(Layer: LongWord);

    32 procedure DeleteVisualGear(Gear: PVisualGear);

    32 procedure DeleteVisualGear(Gear: PVisualGear);

    33 procedure AddClouds;

    33 procedure AddClouds;

    34 procedure AddDamageTag(X, Y, Damage, Color: LongWord);

    34 procedure AddDamageTag(X, Y, Damage, Color: LongWord);

    39 

    35 

    40 implementation

    36 implementation

    41 uses uWorld, uMisc, uStore, uSound, uMobile, uVariables;

    37 uses uWorld, uMisc, uStore, uSound, uMobile, uVariables;

    42 

    38 

    43 const cExplFrameTicks = 110;

    39 const cExplFrameTicks = 110;