--- a/hedgewars/PascalExports.pas	Sun Oct 03 00:23:05 2010 +0200
+++ b/hedgewars/PascalExports.pas	Mon Oct 04 00:00:42 2010 +0200
@@ -13,7 +13,8 @@
 unit PascalExports;
 
 interface
-uses uKeys, GLunit, uWorld, uMisc, uConsole, uTeams, uConsts, uChat, uGears, uSound, hwengine;
+uses uKeys, GLunit, uWorld, uMisc, uConsole, uTeams, uConsts, uChat, 
+     uGears, uSound, hwengine, uAmmos; // don't change the order!
 
 {$INCLUDE "config.inc"}
 
@@ -258,6 +259,12 @@
             else PlaySound(sndPiano8);
         end;
 end;
+
+
+procedure HW_setWeapon(whichone: LongInt); cdecl; export;
+begin
+    SetWeapon(TAmmoType(whichone));
+end;
 {$ENDIF}
 
 end.