Stealth Client Forum

Code: Select all

Procedure CheckLumberTiles;
begin
  totalSum := 0;
  for i:=0 to 5 do begin                                           
    CheckTiles := GetStaticTilesArray(LumberX-SqFL, LumberY-SqFL, LumberX+SqFL, LumberY+SqFL, WorldNum, LumberTile[i], a);
    if CheckTiles>0 then begin
      for k:=0 to CheckTiles-1 do LTCoords[totalSum+k]:=a[k];
    end;
    totalSum:=totalSum+CheckTiles;
  end;
end;

Code: Select all

  for k:=0 to totalsum do begin
    for i:=0 to totalsum-1 do begin
      if LTCoords[i].X > LTCoords[i+1].X then begin
        a[0].tile := LTCoords[i].tile;
        a[0].X := LTCoords[i].X;
        a[0].Y := LTCoords[i].Y;
        a[0].Z := LTCoords[i].Z;
        LTCoords[i].tile := LTCoords[i+1].tile;
        LTCoords[i].X := LTCoords[i+1].X;
        LTCoords[i].Y := LTCoords[i+1].Y;
        LTCoords[i].Z := LTCoords[i+1].Z;
        LTCoords[i+1].tile := a[0].tile;
        LTCoords[i+1].X := a[0].X;
        LTCoords[i+1].Y := a[0].Y;
        LTCoords[i+1].Z := a[0].Z;
      end;
    end;
  end;
  for k:=0 to totalsum do begin
    for i:=0 to totalsum-1 do begin
      if LTCoords[i].X = LTCoords[i+1].X then begin
        if LTCoords[i].Y > LTCoords[i+1].Y then begin
          a[0].tile := LTCoords[i].tile;
          a[0].X := LTCoords[i].X;
          a[0].Y := LTCoords[i].Y;
          a[0].Z := LTCoords[i].Z;
          LTCoords[i].tile := LTCoords[i+1].tile;
          LTCoords[i].X := LTCoords[i+1].X;
          LTCoords[i].Y := LTCoords[i+1].Y;
          LTCoords[i].Z := LTCoords[i+1].Z;
          LTCoords[i+1].tile := a[0].tile;
          LTCoords[i+1].X := a[0].X;
          LTCoords[i+1].Y := a[0].Y;
          LTCoords[i+1].Z := a[0].Z;
        end;
      end;
    end;
  end;

Code: Select all

type
ArrayType = Array[0..100] of Cardinal;

var 
StrubsList: TStringList;
A : ArrayType;
flag : Boolean;
i,j  : Integer;
tempValue: Cardinal;

....
....
//сортировка пузырьковым методом
  j := StrubsList.Count-1;
  flag := True;
  while ((j >= 1) and flag) do
  begin
        j := j - 1;
        flag := False;
        for i := 0 to j - 1 do
         begin
            if ((i < (StrubsList.Count -2)) and ((GetX(A[i]) > GetX(A[i+1])) or ((GetX(A[i]) = GetX(A[i+1])) and (GetY(A[i]) > GetY(A[i+ 1]))))) then
            begin
	  tempValue := A[I];
	  A[I] := A[i+1];
	  A[i+1] := tempValue;
               flag := True;
	  end
	end
  end
  end;
//конец сортировки