hedgewars/uGearsList.pas
changeset 6792 f72c8b5d421c
parent 6700 e04da46ee43c
child 6982 8d41d22a291d
equal deleted inserted replaced
6791:6907194f2c57 6792:f72c8b5d421c
   494         CurAmmoGear^.Message:= gmDestroy;
   494         CurAmmoGear^.Message:= gmDestroy;
   495         exit
   495         exit
   496         end
   496         end
   497     else*)
   497     else*)
   498         begin
   498         begin
       
   499         if (Gear <> CurrentHedgehog^.Gear) or (CurAmmoGear = nil) or (CurAmmoGear^.Kind <> gtKamikaze) then
       
   500             Gear^.Hedgehog^.Team^.Clan^.Flawless:= false;
   499         if (hwRound(Gear^.Y) >= cWaterLine) then
   501         if (hwRound(Gear^.Y) >= cWaterLine) then
   500             begin
   502             begin
   501             t:= max(Gear^.Damage, Gear^.Health);
   503             t:= max(Gear^.Damage, Gear^.Health);
   502             Gear^.Damage:= t;
   504             Gear^.Damage:= t;
   503             if ((not SuddenDeathDmg and (cWaterOpacity < $FF)) or (SuddenDeathDmg and (cWaterOpacity < $FF)))
   505             if ((not SuddenDeathDmg and (cWaterOpacity < $FF)) or (SuddenDeathDmg and (cWaterOpacity < $FF)))