equal
deleted
inserted
replaced
532 y:= hwRound(Me^.Y); |
532 y:= hwRound(Me^.Y); |
533 rate:= 0; |
533 rate:= 0; |
534 |
534 |
535 for i:= 0 to Pred(Targets.Count) do |
535 for i:= 0 to Pred(Targets.Count) do |
536 with Targets.ar[i] do |
536 with Targets.ar[i] do |
537 begin |
|
538 // hammer hit radius is 8, shift is 10 |
537 // hammer hit radius is 8, shift is 10 |
539 if abs(Point.x - x) + abs(Point.y - y) < 18 then |
538 if abs(Point.x - x) + abs(Point.y - y) < 18 then |
|
539 begin |
540 r:= trunc(sqrt(sqr(Point.x - x)+sqr(Point.y - y))); |
540 r:= trunc(sqrt(sqr(Point.x - x)+sqr(Point.y - y))); |
541 |
541 |
542 if r <= 18 then |
542 if r <= 18 then |
543 if Score > 0 then |
543 if Score > 0 then |
544 inc(rate, Score div 3) |
544 inc(rate, Score div 3) |
545 else |
545 else |
546 inc(rate, Score div 3 * friendlyfactor div 100) |
546 dec(rate, Score div 3 * friendlyfactor div 100) |
547 end; |
547 end; |
548 RateHammer:= rate * 1024; |
548 RateHammer:= rate * 1024; |
549 end; |
549 end; |
550 |
550 |
551 function HHJump(Gear: PGear; JumpType: TJumpType; var GoInfo: TGoInfo): boolean; |
551 function HHJump(Gear: PGear; JumpType: TJumpType; var GoInfo: TGoInfo): boolean; |
552 var bX, bY: LongInt; |
552 var bX, bY: LongInt; |