98 var t: LongInt;

    98 var t: LongInt;

    99     weap: TAmmoType;

    99     weap: TAmmoType;

   100     Hedgehog: PHedgehog;

   100     Hedgehog: PHedgehog;

   101     s: boolean;

   101     s: boolean;

   102 begin

   102 begin

   103 weap:= TAmmoType(Gear^.MsgParam);

   105 weap:= TAmmoType(Gear^.MsgParam);

   104 Hedgehog:= Gear^.Hedgehog;

   106 Hedgehog:= Gear^.Hedgehog;

   105 

   107 

   106 if Hedgehog^.Team^.Clan^.TurnNumber <= Ammoz[weap].SkipTurns then exit; // weapon is not activated yet

   108 if Hedgehog^.Team^.Clan^.TurnNumber <= Ammoz[weap].SkipTurns then exit; // weapon is not activated yet

   107 

   109 

   400     if (Gear^.Timer mod frametime) = 0 then inc(Gear^.Pos)

   402     if (Gear^.Timer mod frametime) = 0 then inc(Gear^.Pos)

   401     end else

   403     end else

   402 if Gear^.Timer = 1 then

   404 if Gear^.Timer = 1 then

   403     begin

   405     begin

   404     Gear^.State:= Gear^.State or gstNoDamage;

   406     Gear^.State:= Gear^.State or gstNoDamage;

   406     AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtGrave, 0, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog;

   408     AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtGrave, 0, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog;

   407     DeleteGear(Gear);

   409     DeleteGear(Gear);

   408     SetAllToActive

   410     SetAllToActive

   409     end else // Gear^.Timer = 0

   411     end else // Gear^.Timer = 0

   410     begin

   412     begin