hedgewars/uVisualGears.pas
changeset 4371 ae172b2b03ed
parent 4368 b89235e401e5
child 4373 fe0e3903bb9e
equal deleted inserted replaced
4370:d1d5c1a57a50 4371:ae172b2b03ed
    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);
    35 
       
    36 var VisualGearsList: PVisualGear;
       
    37     vobFrameTicks, vobFramesCount, vobCount: Longword;
       
    38     vobVelocity, vobFallSpeed: LongInt;
       
    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;