421              ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_Power) <> 0) then SendIPC('a');

   421              ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_Power) <> 0) then SendIPC('a');

   422            AfterAttack;

   422            AfterAttack;

   423            end

   423            end

   424         end else Message:= Message and not gmAttack;

   424         end else Message:= Message and not gmAttack;

   425      end;

   425      end;

   427 end;

   428 end;

   428 

   429 

   429 procedure AfterAttack;

   430 procedure AfterAttack;

   430 var s: shortstring;

   431 var s: shortstring;

   431     a: TAmmoType;

   432     a: TAmmoType;