equal
deleted
inserted
replaced
680 until (Abs(Targ.X - trunc(x)) + Abs(Targ.Y - trunc(y)) < 4) |
680 until (Abs(Targ.X - trunc(x)) + Abs(Targ.Y - trunc(y)) < 4) |
681 or (x < 0) |
681 or (x < 0) |
682 or (y < 0) |
682 or (y < 0) |
683 or (trunc(x) > LAND_WIDTH) |
683 or (trunc(x) > LAND_WIDTH) |
684 or (trunc(y) > LAND_HEIGHT) |
684 or (trunc(y) > LAND_HEIGHT) |
685 or (d > 23); |
685 or (d > 22); |
686 |
686 |
687 if Abs(Targ.X - trunc(x)) + Abs(Targ.Y - trunc(y)) < 4 then |
687 if Abs(Targ.X - trunc(x)) + Abs(Targ.Y - trunc(y)) < 4 then |
688 begin |
688 begin |
689 fallDmg:= TraceShoveFall(Targ.X, Targ.Y, vX * 0.00166 * dmg, vY * 0.00166 * dmg); |
689 fallDmg:= TraceShoveFall(Targ.X, Targ.Y, vX * 0.00166 * dmg, vY * 0.00166 * dmg); |
690 if fallDmg < 0 then |
690 if fallDmg < 0 then |