equal
deleted
inserted
replaced
45 procedure AddFlakes; |
45 procedure AddFlakes; |
46 procedure ChangeToSDFlakes; |
46 procedure ChangeToSDFlakes; |
47 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
47 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
48 |
48 |
49 implementation |
49 implementation |
50 uses uSound, uMobile, uVariables, uTextures, uRender, Math, uRenderUtils, uStore; |
50 uses uSound, uMobile, uVariables, uTextures, uRender, Math, uRenderUtils, uStore, uUtils; |
51 |
51 |
52 const cExplFrameTicks = 110; |
52 const cExplFrameTicks = 110; |
53 |
53 |
54 // For better maintainability the step handlers of visual gears are stored |
54 // For better maintainability the step handlers of visual gears are stored |
55 // in a separate file. |
55 // in a separate file. |