equal
deleted
inserted
replaced
11 {$INCLUDE "options.inc"} |
11 {$INCLUDE "options.inc"} |
12 |
12 |
13 unit PascalExports; |
13 unit PascalExports; |
14 |
14 |
15 interface |
15 interface |
16 uses uKeys, GLunit, uWorld, hwengine; |
16 uses uKeys, GLunit, uWorld, uMisc, uConsole, hwengine; |
17 |
17 |
18 {$INCLUDE "config.inc"} |
18 {$INCLUDE "config.inc"} |
19 |
19 |
20 implementation |
20 implementation |
21 |
21 |
150 else |
150 else |
151 begin |
151 begin |
152 cOffsetY:= 120; |
152 cOffsetY:= 120; |
153 end; |
153 end; |
154 end; |
154 end; |
|
155 |
|
156 procedure HW_setCursor(x,y: LongInt); cdecl; export; |
|
157 begin |
|
158 CursorPoint.X:= x; |
|
159 CursorPoint.Y:= y; |
|
160 end; |
|
161 |
|
162 function HW_isAmmoOpen:boolean; cdecl; export; |
|
163 begin |
|
164 exit(bShowAmmoMenu); |
|
165 end; |
155 {$ENDIF} |
166 {$ENDIF} |
156 |
167 |
157 end. |
168 end. |
158 |
169 |