equal
deleted
inserted
replaced
45 procedure ChangeToSDFlakes; |
45 procedure ChangeToSDFlakes; |
46 |
46 |
47 procedure KickFlakes(Radius, X, Y: LongInt); |
47 procedure KickFlakes(Radius, X, Y: LongInt); |
48 |
48 |
49 implementation |
49 implementation |
50 uses uVariables, uRender, Math, uRenderUtils, uStore, uUtils |
50 uses uVariables, uRender, Math, uRenderUtils, uUtils |
51 , uVisualGearsList; |
51 , uVisualGearsList; |
52 |
52 |
53 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
53 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
54 var Gear: PVisualGear; |
54 var Gear: PVisualGear; |
55 begin |
55 begin |