3139                         FrameTicks:= random(400) + 250

  3139                         FrameTicks:= random(400) + 250

  3140                         end

  3140                         end

  3141                 end;

  3141                 end;

  3142         s:= ansistring(Gear^.Hedgehog^.Name);

  3142         s:= ansistring(Gear^.Hedgehog^.Name);

  3143         AddCaption(FormatA(GetEventString(eidKamikaze), s), cWhiteColor, capgrpMessage);

  3143         AddCaption(FormatA(GetEventString(eidKamikaze), s), cWhiteColor, capgrpMessage);

  3144         AfterAttack;

  3145         AfterAttack;

  3145         HHGear^.Message:= HHGear^.Message or gmDestroy;

  3146         HHGear^.Message:= HHGear^.Message or gmDestroy;

  3146         DeleteGear(Gear);

  3147         DeleteGear(Gear);

  3147     end

  3148     end

  3148     else

  3149     else

  4834         Gear^.Y := Gear^.Y + Gear^.dY;

  4835         Gear^.Y := Gear^.Y + Gear^.dY;

  4835         if CheckGearDrowning(Gear) then

  4836         if CheckGearDrowning(Gear) then

  4836             begin

  4837             begin

  4837             Gear^.Y:= Gear^.Y + _50;

  4838             Gear^.Y:= Gear^.Y + _50;

  4838             OnUsedAmmo(CurrentHedgehog^);

  4839             OnUsedAmmo(CurrentHedgehog^);

  4839             if CurrentHedgehog^.Gear <> nil then

  4841             if CurrentHedgehog^.Gear <> nil then

  4840                 begin

  4842                 begin

  4841                 // Drown the hedgehog.  Could also just delete it, but hey, this gets a caption

  4843                 // Drown the hedgehog.  Could also just delete it, but hey, this gets a caption

  4842                 CurrentHedgehog^.Gear^.Active := true;

  4844                 CurrentHedgehog^.Gear^.Active := true;

  4843                 CurrentHedgehog^.Gear^.X := Gear^.X;

  4845                 CurrentHedgehog^.Gear^.X := Gear^.X;

  4857 

  4859 

  4858     if (Gear^.State and gstDrowning) <> 0 then

  4860     if (Gear^.State and gstDrowning) <> 0 then

  4859         begin

  4861         begin

  4860         Gear^.Y:= Gear^.Y + _50;

  4862         Gear^.Y:= Gear^.Y + _50;

  4861         OnUsedAmmo(CurrentHedgehog^);

  4863         OnUsedAmmo(CurrentHedgehog^);

  4862         if CurrentHedgehog^.Gear <> nil then

  4865         if CurrentHedgehog^.Gear <> nil then

  4863             begin

  4866             begin

  4864             // Drown the hedgehog.  Could also just delete it, but hey, this gets a caption

  4867             // Drown the hedgehog.  Could also just delete it, but hey, this gets a caption

  4865             CurrentHedgehog^.Gear^.Active := true;

  4868             CurrentHedgehog^.Gear^.Active := true;

  4866             CurrentHedgehog^.Gear^.X := Gear^.X;

  4869             CurrentHedgehog^.Gear^.X := Gear^.X;