Stealth Client Forum

Code: Select all

function ReadStaticsXY(X,Y: Word; WorldNum: Byte): TStaticCell; // Возвращает слои статики по координатам

TStaticCell = packed record 
Statics : Array of TStaticItem; 
StaticCount : Byte; 
end; 

TStaticItem = record 
Tile : Word; 
X : Byte; 
Y : Byte; 
Z : ShortInt; 
Color : Word; 
end; 

function GetStaticTileData(Tile: Word): TStaticTileData; // Возвращает информацию по типу тайла 

TStaticTileData = record 
Flags : LongWord; 
Weight : Byte; 
Quality : Byte; 
wUnknown: Word; 
bUnknown: Byte; 
Quantity: Byte; 
AnimID : Word; 
bSpacer : Byte; 
Hue : Byte; 
wSpacer : Word; 
Height : Byte; 
Name : Array[0..19] of Char; 
end;

Code: Select all

Program FindTreesAndSaveTheyInFile;

var
treeTile: array [0 .. 34] of word;
myX, myY :    word;
x, y     :    word;
treesNumber , Range : integer;
List : TStringList; 


Const
   MaxTreesNumber=200;         // Максимальное кол-во деревьев, которое нам нужно пометить. ))) Пометить :)   
   
   MaxRange=180;                  // зона поиска деревьев. 
   TypesCount = 34;            // Количество типов деревьев в нашем массиве.

// checks tile. if that what we need, it save file parameters in text file.
function CheckTile(x,y : word): boolean;
var
   Tile0: TStaticCell;
   LayersCount: word;
   i,j: integer;
      
Begin
Result:=false;
Tile0:=ReadStaticsXY(X,Y,WorldNum); 
LayersCount:=GetLayerCount(X,Y,WorldNum);

i:=0;
While i < LayersCount Do
   begin
   For j:=0 to TypesCount do
       If Tile0.Statics[i].Tile=TreeTile[j] then
           begin
	   //AddToSystemJournal('Tree founded!');
           If moveXY(X,Y,false,1,true) then 
	      begin
	         List.Add(IntToStr(Tile0.Statics[i].Tile)+' '+IntToStr(X)+' '+IntToStr(Y)+' '+IntToStr(Tile0.Statics[i].Z));
                 List.SaveToFile('C:/StealthTrees.dat');
		 treesNumber:= treesNumber+1;
                 If (treesNumber >= MaxTreesNumber)  then 
		    begin  
		    AddToSystemJournal('Пометили достаточное количество деревьев!');  
		    Result:= true; 
		    Exit; 
		    end;
	      end;
	   end;
   i := i+1;
   end;
End;

BEGIN
TreeTile[0]:=3274; 
TreeTile[1]:=3275; 
TreeTile[2]:=3276; 
TreeTile[3]:=3277;

TreeTile[4]:=3280; 
TreeTile[5]:=3283; 
TreeTile[6]:=3286; 
TreeTile[7]:=3288;

TreeTile[8]:=3290; 
TreeTile[9]:=3293; 
TreeTile[10]:=3296; 
TreeTile[11]:=3299;

TreeTile[12]:=3302; 
TreeTile[13]:=3320; 
TreeTile[14]:=3323; 
TreeTile[15]:=3326; 
TreeTile[16]:=3329;
TreeTile[17]:=3393;
TreeTile[18]:=3394; 
TreeTile[19]:=3395; 
TreeTile[20]:=3396;

TreeTile[22]:=3438; 
TreeTile[23]:=3439; 
TreeTile[24]:=3440; 
TreeTile[25]:=3441; 
TreeTile[26]:=3442; 
TreeTile[27]:=3460; 
TreeTile[28]:=3462; 
TreeTile[29]:=3476;
TreeTile[30]:=3480;
TreeTile[31]:=3484;
TreeTile[32]:=3488;
TreeTile[33]:=3492;
TreeTile[34]:=3496;

List := TStringList.Create;

Range:=1;
TreesNumber:=0;
myX:=getX(self);
myY:=getY(self);

While Range < maxRange do
   begin
   y:= myY-range;
   For x:= myX-range to myX+range do begin If CheckTile(x,y) then break ; end; 
   If treesNumber >= MaxTreesNumber  then break;

   x:= myX+range;
   For y:= myY-range+1 to myY+range  do begin If CheckTile(x,y) then break ; end; 
   If treesNumber >= MaxTreesNumber  then break;

   y:= myY+range;
   For x:= myX+range-1 downTo myX-range do begin If CheckTile(x,y) then break ; end; 
   If treesNumber >= MaxTreesNumber then break;

   x:=myX-range;
   For y:= myY+range-1 downTo myY-range+1 do begin If CheckTile(x,y) then break ; end; 
   If treesNumber >= MaxTreesNumber then break;

   Range:= Range+1;
   end;

List.Clear;
END.

Code: Select all

R[1] = 3274;
R[2] = 3275;
R[3] = 3276;
R[4] = 3277;
R[5] = 3280;
R[6] = 3283;
R[7] = 3286;
R[8] = 3288;
R[9] = 3290;
R[10] = 3293;
R[11] = 3296;
R[12] = 3299;
R[13] = 3302;
R[14] = 3320;
R[15] = 3323;
R[16] = 3326;
R[17] = 3329;
R[18] = 3393;
R[19] = 3394;
R[20] = 3395;
R[21] = 3396;
R[22] = 3415;
R[23] = 3416;
R[24] = 3417;
R[25] = 3418;
R[26] = 3419;
R[27] = 3438;
R[28] = 3439;
R[29] = 3440;
R[30] = 3441;
R[31] = 3442;
R[32] = 3460;
R[33] = 3461;
R[34] = 3462;

Code: Select all

	if (theobj == 0x0c95 or theobj == 0x0c96 or theobj == 0x0c9e)
		return 1;
	elseif (theobj == 0x0ca8 or theobj == 0x0caa or theobj == 0x0cab)
		return 1;
	elseif (theobj >= 0x0cc8 and theobj <= 0x0cea)
		return 1;
	elseif (theobj >= 0x0cf8 and theobj <= 0x0d03)
		return 1;
	elseif (theobj == 0x0d37 or theobj == 0x0d38)
		return 1;
	elseif (theobj >= 0x0d41 and theobj <= 0x0dab)
		return 1;
	elseif (theobj >= 0x12b6 and theobj <= 0x12c7)
		return 1;

Code: Select all

тайл_модель х у z
тайл_модель(модель дерева) - это первое число, его и подставляй.

Code: Select all

function ReadStaticsXY(X,Y: Word; WorldNum: Byte): TStaticCell; // Возвращает тип тайла с координатами и цветом, а так же количество слоев
TStaticCell = packed record 
Statics : Array of TStaticItem; 
StaticCount : Byte; 
end; 

TStaticItem = record 
Tile : Word; 
X : Byte; 
Y : Byte; 
Z : ShortInt; 
Color : Word; 
end;

Code: Select all

a := ReadStaticsXY(X,Y: Word; WorldNum: Byte): TStaticCell;