267 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog] do

   267 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog] do

   268      if (Ammo[CurSlot, CurAmmo].Propz and ammoprop_Timerable) <> 0 then

   268      if (Ammo[CurSlot, CurAmmo].Propz and ammoprop_Timerable) <> 0 then

   269         begin

   269         begin

   270         Ammo[CurSlot, CurAmmo].Timer:= 1000 * (byte(s[1]) - 48);

   270         Ammo[CurSlot, CurAmmo].Timer:= 1000 * (byte(s[1]) - 48);

   271         with CurrentTeam^ do

   271         with CurrentTeam^ do

   273         if not CurrentTeam.ExtDriven then SendIPC(s);

   273         if not CurrentTeam.ExtDriven then SendIPC(s);

   274         end

   274         end

   275 end;

   275 end;

   276 

   276 

   277 procedure chSlot(var s: shortstring);

   277 procedure chSlot(var s: shortstring);

   300                 caSlot^:= slot;

   300                 caSlot^:= slot;

   301                 caAmmo^:= 0;

   301                 caAmmo^:= 0;

   302                 end;

   302                 end;

   303           TargetPoint.X:= NoPointX;

   303           TargetPoint.X:= NoPointX;

   304           end;

   304           end;

   306      end

   306      end

   307 end;

   307 end;

   308 

   308 

   309 procedure chPut(var s: shortstring);

   309 procedure chPut(var s: shortstring);

   310 begin

   310 begin