equal
deleted
inserted
replaced
682 t:= 0; |
682 t:= 0; |
683 while (t < TeamsCount) and (p = 0) do |
683 while (t < TeamsCount) and (p = 0) do |
684 begin |
684 begin |
685 h:= 0; |
685 h:= 0; |
686 with TeamsArray[t]^ do |
686 with TeamsArray[t]^ do |
687 while (h < cMaxHHIndex) and (p = 0) do |
687 while (h <= cMaxHHIndex) and (p = 0) do |
688 begin |
688 begin |
689 if (Hedgehogs[h].Gear <> nil) then |
689 if (Hedgehogs[h].Gear <> nil) then |
690 begin |
690 begin |
691 rdx:=Gear^.X-Hedgehogs[h].Gear^.X; |
691 rdx:=Gear^.X-Hedgehogs[h].Gear^.X; |
692 rdy:=Gear^.Y-Hedgehogs[h].Gear^.Y; |
692 rdy:=Gear^.Y-Hedgehogs[h].Gear^.Y; |