hedgewars/PascalExports.pas
changeset 6580 6155187bf599
parent 6415 af2047bb4f70
child 6700 e04da46ee43c
--- a/hedgewars/PascalExports.pas	Mon Jan 16 10:22:21 2012 +0100
+++ b/hedgewars/PascalExports.pas	Tue Jan 17 09:01:31 2012 -0500
@@ -32,9 +32,13 @@
 
 {$INCLUDE "config.inc"}
 procedure HW_versionInfo(netProto: PLongInt; versionStr: PPChar); cdecl; export;
+
 function HW_getNumberOfWeapons:LongInt; cdecl; export;
+
 function HW_getMaxNumberOfTeams:LongInt; cdecl; export;
+
 function HW_getMaxNumberOfHogs:LongInt; cdecl; export;
+
 procedure HW_terminate(closeFrontend: Boolean); cdecl; export;
 
 implementation
@@ -225,8 +229,8 @@
 
 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)) );
+    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_isWeaponRequiringClick: boolean; cdecl; export;
@@ -270,7 +274,7 @@
 begin
     // this most likely won't work in network game
     if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Ammo <> nil) and (CurrentHedgehog^.BotLevel = 0)
-       and (CurrentHedgehog^.CurAmmoType = amPiano) then
+        and (CurrentHedgehog^.CurAmmoType = amPiano) then
         case snd of
             0: PlaySound(sndPiano0);
             1: PlaySound(sndPiano1);