hedgewars/uVisualGears.pas
changeset 4380 b78638b36b89
parent 4379 6cd6b77df8b8
child 4390 f219628ed666
equal deleted inserted replaced
4379:6cd6b77df8b8 4380:b78638b36b89
    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 
    35 
    36 implementation
    36 implementation
    37 uses uMisc, uStore, uSound, uMobile, uVariables, uTextures, uRender, uUtils, Math;
    37 uses uMisc, uStore, uSound, uMobile, uVariables, uTextures, uRender, uUtils, Math, uRenderUtils;
    38 
    38 
    39 const cExplFrameTicks = 110;
    39 const cExplFrameTicks = 110;
    40 
    40 
    41 {$INCLUDE "VGSHandlers.inc"}
    41 {$INCLUDE "VGSHandlers.inc"}
    42 
    42