hedgewars/HHHandlers.inc
changeset 2040 7c366fc3c099
parent 2024 2985f3bd18b7
child 2041 9e0b5a6bcecf
equal deleted inserted replaced
2039:3001445b4500 2040:7c366fc3c099
   710 	begin
   710 	begin
   711 	DeleteGear(Gear);
   711 	DeleteGear(Gear);
   712 	exit
   712 	exit
   713 	end;
   713 	end;
   714 
   714 
   715 if (Gear^.State and gstHHDriven) = 0 then doStepHedgehogFree(Gear)
   715 if (Gear^.State and gstHHDriven) = 0 then
   716                                      else doStepHedgehogDriven(Gear)
   716 	doStepHedgehogFree(Gear)
   717 end;
   717 else
       
   718 	begin
       
   719 	TeamGoneEffect(PHedgehog(Gear^.Hedgehog)^.Team^);
       
   720 	doStepHedgehogDriven(Gear)
       
   721 	end
       
   722 end;