hedgewars/uGearsHandlersMess.pas
changeset 10659 79e466c393f7
parent 10657 f2507005be87
child 10663 9bbb29d2bd68
equal deleted inserted replaced
10658:a3872ffdeab1 10659:79e466c393f7
  4620         y := hwRound(Gear^.Y);
  4620         y := hwRound(Gear^.Y);
  4621 
  4621 
  4622         if WorldEdge = weWrap then
  4622         if WorldEdge = weWrap then
  4623             begin
  4623             begin
  4624             if x > LongInt(rightX) then
  4624             if x > LongInt(rightX) then
  4625                 repeat;
  4625                 repeat
  4626                 dec(x,  playWidth);
  4626                     dec(x,  playWidth);
  4627                 dec(rx, playWidth);
  4627                     dec(rx, playWidth);
  4628                 until x <= LongInt(rightX)
  4628                 until x <= LongInt(rightX)
  4629             else if x < LongInt(leftX) then
  4629             else if x < LongInt(leftX) then
  4630                 repeat;
  4630                 repeat
  4631                 inc(x,  playWidth);
  4631                     inc(x,  playWidth);
  4632                 inc(rx, playWidth);
  4632                     inc(rx, playWidth);
  4633                 until x >= LongInt(leftX);
  4633                 until x >= LongInt(leftX);
  4634             end
  4634             end
  4635         else if (WorldEdge = weBounce) then
  4635         else if (WorldEdge = weBounce) then
  4636             begin
  4636             begin
  4637             if (not justBounced) and ((x > LongInt(rightX)) or (x < LongInt(leftX))) then
  4637             if (not justBounced) and ((x > LongInt(rightX)) or (x < LongInt(leftX))) then