594             else

   594             else

   595                 begin

   595                 begin

   596                 if (not CurrentTeam^.ExtDriven) and ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_Power) <> 0) then

   596                 if (not CurrentTeam^.ExtDriven) and ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_Power) <> 0) then

   597                     SendIPC(_S'a');

   597                     SendIPC(_S'a');

   598                 AfterAttack;

   598                 AfterAttack;

   600             end

   601             end

   601         else

   602         else

   602             Message:= Message and (not gmAttack);

   603             Message:= Message and (not gmAttack);

   603 

   604 

   604     ScriptCall('onHogAttack', ord(usedAmmoType));

   605     ScriptCall('onHogAttack', ord(usedAmmoType));

   605     end; // of with Gear^, Gear^.Hedgehog^ do

   606     end; // of with Gear^, Gear^.Hedgehog^ do

   608 end;

   607 end;

   609 

   608 

   610 procedure AfterAttack;

   609 procedure AfterAttack;

   611 var s: ansistring;

   610 var s: ansistring;

   612     a: TAmmoType;

   611     a: TAmmoType;