equal
deleted
inserted
replaced
630 (TestCollisionXwithGear(Gear, 1) = 0) and |
630 (TestCollisionXwithGear(Gear, 1) = 0) and |
631 (TestCollisionXwithGear(Gear,-1) = 0) and |
631 (TestCollisionXwithGear(Gear,-1) = 0) and |
632 (TestCollisionYwithGear(Gear, 1) = 0) then |
632 (TestCollisionYwithGear(Gear, 1) = 0) then |
633 begin |
633 begin |
634 t:= 0; |
634 t:= 0; |
635 h:= 0; |
|
636 while (t < TeamsCount) and (p = 0) do |
635 while (t < TeamsCount) and (p = 0) do |
637 begin |
636 begin |
|
637 h:= 0; |
638 with TeamsArray[t]^ do |
638 with TeamsArray[t]^ do |
639 while (h < cMaxHHIndex) and (p = 0) do |
639 while (h < cMaxHHIndex) and (p = 0) do |
640 begin |
640 begin |
641 if (Hedgehogs[h].Gear <> nil) then |
641 if (Hedgehogs[h].Gear <> nil) then |
642 begin |
642 begin |
645 if (Gear^.Angle < $FFFFFFFF) and |
645 if (Gear^.Angle < $FFFFFFFF) and |
646 ((rdx.Round+rdy.Round < Gear^.Angle) and |
646 ((rdx.Round+rdy.Round < Gear^.Angle) and |
647 (hwRound(hwSqr(rdx) + hwSqr(rdy)) < sqr(Gear^.Angle))) then |
647 (hwRound(hwSqr(rdx) + hwSqr(rdy)) < sqr(Gear^.Angle))) then |
648 begin |
648 begin |
649 // Debug line. Remove later |
649 // Debug line. Remove later |
650 AddFileLog('Too Close to Hog @ (' + inttostr(rx) + ',' + inttostr(ry) + ')'); |
650 // AddFileLog('Too Close to Hog @ (' + inttostr(rx) + ',' + inttostr(ry) + ')'); |
651 |
651 |
652 p:= 1 |
652 p:= 1 |
653 end |
653 end |
654 end; |
654 end; |
655 inc(h) |
655 inc(h) |