hedgewars/uVisualGears.pas
changeset 8204 9a6030d96273
parent 8145 6408c0ba4ba1
child 8330 aaefa587e277
child 8370 0c79946e96f8
equal deleted inserted replaced
8203:2c98ec41697a 8204:9a6030d96273
    51 procedure ChangeToSDFlakes;
    51 procedure ChangeToSDFlakes;
    52 
    52 
    53 procedure KickFlakes(Radius, X, Y: LongInt);
    53 procedure KickFlakes(Radius, X, Y: LongInt);
    54 
    54 
    55 implementation
    55 implementation
    56 uses uSound, uMobile, uVariables, uTextures, uRender, Math, uRenderUtils, uStore, uUtils;
    56 uses uSound, uVariables, uTextures, uRender, Math, uRenderUtils, uStore, uUtils;
    57 
    57 
    58 const 
    58 const 
    59     cExplFrameTicks = 110;
    59     cExplFrameTicks = 110;
    60     cSmokeZ = 499;
    60     cSmokeZ = 499;
    61 var VGCounter: LongWord;
    61 var VGCounter: LongWord;