hedgewars/GSHandlers.inc
branch0.9.18
changeset 7958 c031c3e2eb2a
parent 7874 c8aba48f38dc
child 8061 c08e9c3e0737
equal deleted inserted replaced
7954:a5f0a6d46c52 7958:c031c3e2eb2a
  2454     hasWishes:= ((Gear^.Message and (gmPrecise or gmSwitch)) = (gmPrecise or gmSwitch));
  2454     hasWishes:= ((Gear^.Message and (gmPrecise or gmSwitch)) = (gmPrecise or gmSwitch));
  2455     if hasWishes then
  2455     if hasWishes then
  2456         Gear^.AdvBounce:= 1;
  2456         Gear^.AdvBounce:= 1;
  2457 
  2457 
  2458     HHGear := Gear^.Hedgehog^.Gear;
  2458     HHGear := Gear^.Hedgehog^.Gear;
       
  2459     if HHGear = nil then
       
  2460         begin
       
  2461         DeleteGear(Gear);
       
  2462         exit
       
  2463         end;
       
  2464 
  2459     HHGear^.State := HHGear^.State or gstNoDamage;
  2465     HHGear^.State := HHGear^.State or gstNoDamage;
  2460     DeleteCI(HHGear);
  2466     DeleteCI(HHGear);
  2461 
  2467 
  2462     Gear^.X := HHGear^.X;
  2468     Gear^.X := HHGear^.X;
  2463     Gear^.Y := HHGear^.Y;
  2469     Gear^.Y := HHGear^.Y;