equal
deleted
inserted
replaced
242 until (Abs(Targ.X - trunc(x)) + Abs(Targ.Y - trunc(y)) < 22) |
242 until (Abs(Targ.X - trunc(x)) + Abs(Targ.Y - trunc(y)) < 22) |
243 or (x < 0) |
243 or (x < 0) |
244 or (y < 0) |
244 or (y < 0) |
245 or (trunc(x) > LAND_WIDTH) |
245 or (trunc(x) > LAND_WIDTH) |
246 or (trunc(y) > LAND_HEIGHT) |
246 or (trunc(y) > LAND_HEIGHT) |
247 or not TestCollWithLand(trunc(x), trunc(y), 5) |
247 or (not TestCollWithLand(trunc(x), trunc(y), 5)) |
248 or (timer = 0) |
248 or (timer = 0) |
249 end; |
249 end; |
250 EX:= trunc(x); |
250 EX:= trunc(x); |
251 EY:= trunc(y); |
251 EY:= trunc(y); |
252 if Level = 1 then |
252 if Level = 1 then |