changeset 3924 | 2a9ace189288 |
parent 3904 | 22e4d74240e5 |
child 3926 | 668b71f31e51 |
3923:694e6f6e0e30 | 3924:2a9ace189288 |
---|---|
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, uMisc, uConsole, uTeams, uConsts, uChat, uGears, uSound, hwengine; |
16 uses uKeys, GLunit, uWorld, uMisc, uConsole, uTeams, uConsts, uChat, |
17 uGears, uSound, hwengine, uAmmos; // don't change the order! |
|
17 |
18 |
18 {$INCLUDE "config.inc"} |
19 {$INCLUDE "config.inc"} |
19 |
20 |
20 implementation |
21 implementation |
21 {$IFDEF HWLIBRARY} |
22 {$IFDEF HWLIBRARY} |
256 6: PlaySound(sndPiano6); |
257 6: PlaySound(sndPiano6); |
257 7: PlaySound(sndPiano7); |
258 7: PlaySound(sndPiano7); |
258 else PlaySound(sndPiano8); |
259 else PlaySound(sndPiano8); |
259 end; |
260 end; |
260 end; |
261 end; |
262 |
|
263 |
|
264 procedure HW_setWeapon(whichone: LongInt); cdecl; export; |
|
265 begin |
|
266 SetWeapon(TAmmoType(whichone)); |
|
267 end; |
|
261 {$ENDIF} |
268 {$ENDIF} |
262 |
269 |
263 end. |
270 end. |
264 |
271 |