hedgewars/GSHandlers.inc
changeset 7767 d1ea9b3f543e
parent 7759 b64afd109cf7
child 7777 e0be9fbc21b4
equal deleted inserted replaced
7766:98edc0724a28 7767:d1ea9b3f543e
  5292         AddGearCI(Gear)
  5292         AddGearCI(Gear)
  5293         end
  5293         end
  5294     else if GameTicks and $3F = 0 then
  5294     else if GameTicks and $3F = 0 then
  5295         begin
  5295         begin
  5296         if  (TestCollisionYwithGear(Gear, -1) = 0)
  5296         if  (TestCollisionYwithGear(Gear, -1) = 0)
  5297         and not TestCollisionXwithGear(Gear, 1)
  5297         and (not TestCollisionXwithGear(Gear, 1))
  5298         and not TestCollisionXwithGear(Gear, -1)
  5298         and (not TestCollisionXwithGear(Gear, -1))
  5299         and (TestCollisionYwithGear(Gear, 1) = 0) then Gear^.State:= Gear^.State and (not gstCollision) or gstMoving;
  5299         and (TestCollisionYwithGear(Gear, 1) = 0) then Gear^.State:= Gear^.State and (not gstCollision) or gstMoving;
  5300         end
  5300         end
  5301 end;
  5301 end;
  5302 (*
  5302 (*
  5303  This didn't end up getting used, but, who knows, might be reasonable for javellin or something
  5303  This didn't end up getting used, but, who knows, might be reasonable for javellin or something