--- a/hedgewars/PascalExports.pas	Tue Oct 19 19:46:43 2010 -0400
+++ b/hedgewars/PascalExports.pas	Tue Oct 19 19:47:17 2010 -0400
@@ -267,6 +267,16 @@
     exit (str2pchar(trammo[Ammoz[TAmmoType(whichone+1)].NameId]));
 end;
 
+function HW_getWeaponCaptionByIndex(whichone: LongInt): PChar; cdecl; export;
+begin
+    exit (str2pchar(trammoc[Ammoz[TAmmoType(whichone+1)].NameId]));
+end;
+
+function HW_getWeaponDescriptionByIndex(whichone: LongInt): PChar; cdecl; export;
+begin
+    exit (str2pchar(trammod[Ammoz[TAmmoType(whichone+1)].NameId]));
+end;
+
 function HW_getNumberOfWeapons:LongInt; cdecl; export;
 begin
     exit(ord(high(TAmmoType)));