Stealth Client Forum

Code: Select all

Program Fishing;
	var i : Integer;			
	x : array [1..33] of integer;		
	y : array [1..33] of integer;		
	z : integer;				
	tile : array [1..33] of integer;	
	k : integer;				
	fish : array [1..4] of cardinal;
	t : integer;
	fp_type : cardinal;

{$Include 'all.inc'}

Begin

i := 1;
fp_type := $0DBF;

x[1] := 3036;
x[2] := 3036;
x[3] := 3036;
x[4] := 3036;
x[5] := 3036;
x[6] := 3036;
x[7] := 3036;
x[8] := 3036;
x[9] := 3036;
x[10] := 3036;
x[11] := 3036;
x[12] := 3037;
x[13] := 3037;
x[14] := 3037;
x[15] := 3037;
x[16] := 3037;
x[17] := 3037;
x[18] := 3037;
x[19] := 3037;
x[20] := 3037;
x[21] := 3037;
x[22] := 3037;
x[23] := 3038;
x[24] := 3038;
x[25] := 3038;
x[26] := 3038;
x[27] := 3038;
x[28] := 3038;
x[29] := 3038;
x[30] := 3038;
x[31] := 3038;
x[32] := 3038;
x[33] := 3038;

y[1] := 771;
y[2] := 772;
y[3] := 773;
y[4] := 774;
y[5] := 775;
y[6] := 776;
y[7] := 777;
y[8] := 778;
y[9] := 779;
y[10] := 780;
y[11] := 781;
y[12] := 771;
y[13] := 772;
y[14] := 773;
y[15] := 774;
y[16] := 775;
y[17] := 776;
y[18] := 777;
y[19] := 778;
y[20] := 779;
y[21] := 780;
y[22] := 781;
y[23] := 771;
y[24] := 772;
y[25] := 773;
y[26] := 774;
y[27] := 775;
y[28] := 776;
y[29] := 777;
y[30] := 778;
y[31] := 779;
y[32] := 780;
y[33] := 781;

z := 251;

tile[1] := 6040;
tile[2] := 6044;
tile[3] := 6042;
tile[4] := 6041;
tile[5] := 6044;
tile[6] := 6040;
tile[7] := 6044;
tile[8] := 6041;
tile[9] := 6042;
tile[10] := 13616;
tile[11] := 6044;
tile[12] := 13615;
tile[13] := 13616;
tile[14] := 6040;
tile[15] := 6040;
tile[16] := 6043;
tile[17] := 6040;
tile[18] := 6042;
tile[19] := 13616;
tile[20] := 6041;
tile[21] := 13616;
tile[22] := 13616;
tile[23] := 6042;
tile[24] := 13616;
tile[25] := 13616;
tile[26] := 13616;
tile[27] := 13615;
tile[28] := 13616;
tile[29] := 13616;
tile[30] := 6044;
tile[31] := 13615;
tile[32] := 6043;
tile[33] := 6044;

fish[1] := $09CC;
fish[2] := $09CD;
fish[3] := $09CE;
fish[4] := $09CF;

SetARStatus(true);
clearjournal;

while not Dead do
begin
	if Connected then
	begin
		UseObject(backpack);				
		Wait(500);	

		If FindType(fp_type, backpack) <> 0 Then	
		begin						
			equip(RhandLayer, finditem); 
			wait(500); 
		end 
		else 
		begin 
			AddToSystemJournal('Не нашел удочку!'); 
			exit; 
		end;

		canceltarget;
		
		while (i < 34) do				
		begin
			CheckSave;
	
			while (inJournal('There') <> 0) do
			begin
				ClearJournal;
				CancelTarget;
				k := 0;
				Wait(500);
				UseObject(ObjAtLayerEx(RhandLayer, self));
				wait(500);
				WaitTargetTile(tile[i], x[i], y[i], z);
				repeat
					wait(100);
					k := k + 1;
				until (inJournal('You|They|There') <> 0) OR (k > 450);
			end;
			
			if (Weight > 400) then
			begin
				for t := 1 to 4 do
				begin
					FindType(fish[t],backpack);
					Wait(500);
					DropHere(FindItem);
					Wait(500);
				end
			end;
			
			Hungry(1,backpack);
			i := i+1;
		end;
	end;
end;

End. 

Code: Select all

If FindType(fp_type, backpack) <> 0 Then
begin
   equip(RhandLayer, finditem);
   wait(500);
end
else
begin
   AddToSystemJournal('Не нашел удочку!');
   exit;
end;

Code: Select all

161.				UseObject(ObjAtLayerEx(RhandLayer, self));
162.				wait(500);

Code: Select all

TargetToTile(Tile,getx(self)+x,gety(self)+y,z);