--- a/hedgewars/PascalExports.pas	Mon Oct 11 00:08:48 2010 +0200
+++ b/hedgewars/PascalExports.pas	Mon Oct 11 03:28:15 2010 +0200
@@ -179,11 +179,16 @@
     y^:= CursorPoint.Y;
 end;
 
-function HW_isAmmoOpen: boolean; cdecl; export;
+function HW_isAmmoMenuOpen: boolean; cdecl; export;
 begin
     exit(bShowAmmoMenu);
 end;
 
+function HW_isAmmoMenuNotAllowed: boolean; cdecl; export;
+begin;
+    exit ( (TurnTimeLeft = 0) or (not CurrentTeam^.ExtDriven and (((CurAmmoGear = nil) or ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) = 0)) and hideAmmoMenu)) );
+end;
+
 function HW_isPaused: boolean; cdecl; export;
 begin
     exit( isPaused );
@@ -265,6 +270,11 @@
         SetWeapon(TAmmoType(whichone+1));
 end;
 
+function HW_isWeaponAnEffect(whichone: LongInt): boolean; cdecl; export;
+begin
+    exit(Ammoz[TAmmoType(whichone+1)].Ammo.Propz and ammoprop_Effect <> 0)
+end;
+
 function HW_getAmmoCounts(counts: PLongInt): LongInt; cdecl; export;
 var a : PHHAmmo;
     slot, index: LongInt;