equal
deleted
inserted
replaced
796 for p:= 0 to Pred(TeamsCount) do |
796 for p:= 0 to Pred(TeamsCount) do |
797 with TeamsArray[p]^ do |
797 with TeamsArray[p]^ do |
798 begin |
798 begin |
799 for i:= 0 to cMaxHHIndex do |
799 for i:= 0 to cMaxHHIndex do |
800 with Hedgehogs[i] do |
800 with Hedgehogs[i] do |
801 if Gear <> nil then FindPlace(Gear, false, t, t + 1024); |
801 if (Gear <> nil) and (Gear^.X.QWordValue = 0) then FindPlace(Gear, false, t, t + 1024); |
802 inc(t, 1024); |
802 inc(t, 1024); |
803 end |
803 end |
804 end else // mix hedgehogs |
804 end else // mix hedgehogs |
805 begin |
805 begin |
806 Count:= 0; |
806 Count:= 0; |
807 for p:= 0 to Pred(TeamsCount) do |
807 for p:= 0 to Pred(TeamsCount) do |
808 with TeamsArray[p]^ do |
808 with TeamsArray[p]^ do |
809 begin |
809 begin |
810 for i:= 0 to cMaxHHIndex do |
810 for i:= 0 to cMaxHHIndex do |
811 with Hedgehogs[i] do |
811 with Hedgehogs[i] do |
812 if Gear <> nil then |
812 if (Gear <> nil) and (Gear^.X.QWordValue = 0) then |
813 begin |
813 begin |
814 ar[Count]:= Gear; |
814 ar[Count]:= Gear; |
815 inc(Count) |
815 inc(Count) |
816 end; |
816 end; |
817 end; |
817 end; |