equal
deleted
inserted
replaced
190 y:= y + vY; |
190 y:= y + vY; |
191 rx:= hwRound(x); |
191 rx:= hwRound(x); |
192 ry:= hwRound(y); |
192 ry:= hwRound(y); |
193 if TestColl(rx, ry, 2) then |
193 if TestColl(rx, ry, 2) then |
194 begin |
194 begin |
195 Result:= RateShove(Me, rx, ry, 25, 25) * 2; |
195 x:= x + vX * 8; |
|
196 y:= y + vY * 8; |
|
197 Result:= RateShotgun(Me, rx, ry) * 2; |
196 if Result = 0 then Result:= - Metric(Targ.X, Targ.Y, rx, ry) div 64 |
198 if Result = 0 then Result:= - Metric(Targ.X, Targ.Y, rx, ry) div 64 |
197 else dec(Result, Level * 4000); |
199 else dec(Result, Level * 4000); |
198 exit(Result) |
200 exit(Result) |
199 end |
201 end |
200 until (Abs(Targ.X - hwRound(x)) + Abs(Targ.Y - hwRound(y)) < 4) or (x < _0) or (y < _0) or (x > _2048) or (y > _1024); |
202 until (Abs(Targ.X - hwRound(x)) + Abs(Targ.Y - hwRound(y)) < 4) or (x < _0) or (y < _0) or (x > _2048) or (y > _1024); |