equal
deleted
inserted
replaced
17 *) |
17 *) |
18 |
18 |
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit uVisualGears; |
21 unit uVisualGears; |
|
22 (* |
|
23 * This unit defines the behavior and the appearance of visual gears. |
|
24 * |
|
25 * Visual gears are "things"/"objects" in the game that do not need to be |
|
26 * perfectly synchronized over all clients since their effect is only |
|
27 * of visual nature. |
|
28 * |
|
29 * E.g.: background flakes, visual effects: explosion, smoke trails, etc. |
|
30 *) |
22 interface |
31 interface |
23 uses uConsts, uFloat, GLunit, uTypes; |
32 uses uConsts, uFloat, GLunit, uTypes; |
24 |
33 |
25 procedure initModule; |
34 procedure initModule; |
26 procedure freeModule; |
35 procedure freeModule; |
40 implementation |
49 implementation |
41 uses uSound, uMobile, uVariables, uTextures, uRender, Math, uRenderUtils; |
50 uses uSound, uMobile, uVariables, uTextures, uRender, Math, uRenderUtils; |
42 |
51 |
43 const cExplFrameTicks = 110; |
52 const cExplFrameTicks = 110; |
44 |
53 |
|
54 // For better maintainability the step handlers of visual gears are stored |
|
55 // in a separate file. |
45 {$INCLUDE "VGSHandlers.inc"} |
56 {$INCLUDE "VGSHandlers.inc"} |
46 |
57 |
47 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
58 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
48 var s: shortstring; |
59 var s: shortstring; |
49 Gear: PVisualGear; |
60 Gear: PVisualGear; |