equal
deleted
inserted
replaced
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit uWorld; |
21 unit uWorld; |
22 interface |
22 interface |
23 uses SDLh, uGears, uConsts, uFloat, uRandom, uTypes; |
23 uses SDLh, uGears, uConsts, uFloat, uRandom, uTypes; |
24 |
|
25 |
|
26 var FollowGear: PGear; |
|
27 WindBarWidth: LongInt; |
|
28 bShowAmmoMenu: boolean; |
|
29 bSelected: boolean; |
|
30 bShowFinger: boolean; |
|
31 Frames: Longword; |
|
32 WaterColor, DeepWaterColor: TSDL_Color; |
|
33 SkyOffset: LongInt; |
|
34 HorizontOffset: LongInt; |
|
35 {$IFDEF COUNTTICKS} |
|
36 cntTicks: LongWord; |
|
37 {$ENDIF} |
|
38 cOffsetY: LongInt; |
|
39 |
24 |
40 procedure initModule; |
25 procedure initModule; |
41 procedure freeModule; |
26 procedure freeModule; |
42 |
27 |
43 procedure InitWorld; |
28 procedure InitWorld; |