equal
deleted
inserted
replaced
356 else |
356 else |
357 dec(rate, KillScore * friendlyfactor div 100) |
357 dec(rate, KillScore * friendlyfactor div 100) |
358 else |
358 else |
359 if Score > 0 then |
359 if Score > 0 then |
360 inc(rate, dmg+fallDmg) |
360 inc(rate, dmg+fallDmg) |
361 else |
361 else dec(rate, (dmg+fallDmg) * friendlyfactor div 100) |
362 dec(rate, (dmg+fallDmg) * friendlyfactor div 100) |
|
363 end; |
362 end; |
364 end; |
363 end; |
365 RateExplosion:= rate * 1024; |
364 RateExplosion:= rate * 1024; |
366 end; |
365 end; |
367 |
366 |
473 for i:= 0 to Pred(Targets.Count) do |
472 for i:= 0 to Pred(Targets.Count) do |
474 with Targets.ar[i] do |
473 with Targets.ar[i] do |
475 begin |
474 begin |
476 // hammer hit radius is 8, shift is 10 |
475 // hammer hit radius is 8, shift is 10 |
477 if abs(Point.x - x) + abs(Point.y - y) < 18 then |
476 if abs(Point.x - x) + abs(Point.y - y) < 18 then |
478 r:= trunc(sqrt(sqr(Point.x - x)+sqr(Point.y - y))); |
477 r:= trunc(sqrt(sqr(Point.x - x)+sqr(Point.y - y))); |
479 |
478 |
480 if r <= 18 then |
479 if r <= 18 then |
481 if Score > 0 then |
480 if Score > 0 then |
482 inc(rate, Score div 3) |
481 inc(rate, Score div 3) |
483 else |
482 else |