hedgewars/uGearsHandlersMess.pas
changeset 10253 ea57f2f2b98d
parent 10251 a3b42e81803c
child 10286 1940e937fc08
equal deleted inserted replaced
10252:814e137625f7 10253:ea57f2f2b98d
  2592     AllInactive := false;
  2592     AllInactive := false;
  2593 
  2593 
  2594     HHGear := Gear^.Hedgehog^.Gear;
  2594     HHGear := Gear^.Hedgehog^.Gear;
  2595     if not TryPlaceOnLand(Gear^.Target.X - SpritesData[sprHHTelepMask].Width div 2,
  2595     if not TryPlaceOnLand(Gear^.Target.X - SpritesData[sprHHTelepMask].Width div 2,
  2596         Gear^.Target.Y - SpritesData[sprHHTelepMask].Height div 2,
  2596         Gear^.Target.Y - SpritesData[sprHHTelepMask].Height div 2,
  2597         sprHHTelepMask, 0, false, false) then
  2597         sprHHTelepMask, 0, false, false, not hasBorder, 0) then
  2598         begin
  2598         begin
  2599         HHGear^.Message := HHGear^.Message and (not gmAttack);
  2599         HHGear^.Message := HHGear^.Message and (not gmAttack);
  2600         HHGear^.State := HHGear^.State and (not gstAttacking);
  2600         HHGear^.State := HHGear^.State and (not gstAttacking);
  2601         HHGear^.State := HHGear^.State or gstHHChooseTarget;
  2601         HHGear^.State := HHGear^.State or gstHHChooseTarget;
  2602         DeleteGear(Gear);
  2602         DeleteGear(Gear);