hedgewars/GSHandlers.inc
changeset 8061 c08e9c3e0737
parent 8030 165aeaaaf445
parent 7958 c031c3e2eb2a
child 8096 453917e94e55
child 8204 9a6030d96273
equal deleted inserted replaced
8060:341fa76d0749 8061:c08e9c3e0737
  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;