equal
deleted
inserted
replaced
27 * of visual nature. |
27 * of visual nature. |
28 * |
28 * |
29 * E.g.: background flakes, visual effects: explosion, smoke trails, etc. |
29 * E.g.: background flakes, visual effects: explosion, smoke trails, etc. |
30 *) |
30 *) |
31 interface |
31 interface |
32 uses uConsts, uFloat, GLunit, uTypes, uWorld; |
32 uses uConsts, GLunit, uTypes; |
33 |
33 |
34 procedure initModule; |
34 procedure initModule; |
35 procedure freeModule; |
35 procedure freeModule; |
36 |
36 |
37 procedure ProcessVisualGears(Steps: Longword); |
37 procedure ProcessVisualGears(Steps: Longword); |
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 uSound, uVariables, uTextures, uRender, Math, uRenderUtils, uStore, uUtils |
50 uses uVariables, uRender, Math, uRenderUtils, uStore, uUtils |
51 , uVisualGearsHandlers, uVisualGearsList; |
51 , uVisualGearsList; |
52 |
52 |
53 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
53 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
54 var s: shortstring; |
54 var s: shortstring; |
55 Gear: PVisualGear; |
55 Gear: PVisualGear; |
56 begin |
56 begin |