Stealth Client Forum

Code: Select all

Const
	BowChest = $xxxxxxxx;
	PoleChest = $xxxxxxxx;

Code: Select all

6041 2970 1025 251
6040 2170 1026 251
6043 2971 1027 251
6044 2971 1028 251
6043 2972 1026 251
6043 2972 1027 251
6040 2972 1028 251

Code: Select all

Program Fishing;
type FishR = record
	tile:word;
	px,py,pz:integer;
end;

var
	ItemCount,i:Integer;
	FishP: array [0..150] of FishR;
	Pole,Eat:Cardinal;
Const
	BowChest = $xxxxxxxx;
	PoleChest = $xxxxxxxx;
{$Include 'all.inc'}

Procedure GetFishTiles(s:String;WPos:Integer);
begin
	s := s + ' ';
	FishP[WPos].tile:=StrToInt(Copy(s,1,Pos(' ',s)-1));
	Delete(s,1,Pos(' ',s));
	FishP[WPos].px:=StrToInt(Copy(s,1,Pos(' ',s)-1));
	Delete(s,1,Pos(' ',s));
	FishP[WPos].py:=StrToInt(Copy(s,1,Pos(' ',s)-1));
	Delete(s,1,Pos(' ',s));
	FishP[WPos].pz:=StrToInt(Copy(s,1,Pos(' ',s)-1));
	Delete(s,1,Pos(' ',s));
end;

Procedure GetCoord;
var
	List:TStringList;
	i:integer;
begin
	List:=TStringList.Create;
	List.LoadFromFile('Tiles.txt');
	for i := 0 to List.Count-1 do
		GetFishTiles(List.strings[i],i);
	ItemCount:=i;
end;

Procedure DeathR;
begin
	if life = 0 then
	begin
		WaitGump('1');
		while life = 0 do
		begin
			wait(1000);
		end;
		FindType($13B2,BowChest);
		if FindCount <> 0 then
			Grab(finditem,1);
		FindType($0F3F,ground);
		if FindCount <> 0 then
			Grab(finditem,100);
	end;
end;

Procedure Kill(Enemy:Cardinal);
var
	RTime:Cardinal;
begin
	Disarm;
	FindType($13B2,backpack);
	Equip(RhandLayer,finditem);
	Attack(Enemy);
	RTime:=Timer;
	While (GetDistance(Enemy)<15) and (Timer < (RTime + (30 *1000))) do
	begin
		if life <80 then
			UOSay('Heal');
		Wait(1000);
	end;
	Disarm;
	SetWarMode(false);
	Equip(LHandLayer,Pole);
end;

Procedure DangerCheak;
var
	Enemy:array[1..4] of Cardinal;
	i:Integer;
begin
	Enemy[1] := $0190;
	Enemy[2] := $0191;
	Enemy[3] := $0010;
	Enemy[4] := $0096;
	Ignore(Self);
	for i:=1 to 4 do
	begin
		FindType(Enemy[i],ground);
		if FindCount>0 then
			Kill(FindItem);
	end;
end;

Procedure Fish(tile:Word;x,y,z:Integer);
var
	FBegin:TDateTime;
begin
	FBegin:=Now;
	while (not InJournalBetweenTimes('seem to be',FBegin,Now)>=0) do
	begin
		If TargetPresent then
			CancelTarget;
		DeathR;
		UseObject(Pole);
		WaitForTarget(4000);
		TargetToTile(tile,x,y,z);
		WaitJournalLine(Now, 'a nice fish!|seem to be|You find a message|an old tattered|not a fish!', 20000);
		If (GetType(Pole) = 0) then
		begin
			FindType($0DBF,PoleChest);
			if FindCount > 0 then
				Pole:=finditem
			else
				FullDisconnect;
			
		end;
		DangerCheak;
		CheckSave;
		WaitConnection(10);
	end;
end;

Procedure FishS;
var
	i:Integer;
	FishT:array[1..4] of Cardinal;
begin
	FishT[1] := $09CC;
	FishT[2] := $09CE;
	FishT[3] := $09CD;
	FishT[4] := $09CF;
	for i := 1 to 4 do
		stack(FishT[i],$0000);
end;

begin
	UseObject(BowChest);
	UseObject(PoleChest);
	SetArStatus(true);
	Eat:=0;
	GetCoord;
	Disarm;
	while true do
	begin
		FindDistance := 12;
		FindVertical := 255;
		for i:=0 to ItemCount-1 do
		begin
			if (Timer > (Eat + (15 *60 *1000))) then
			begin
				Hungry(1,ground);
				Eat :=Timer;
			end;
			Fish(FishP[i].tile,FishP[i].px,FishP[i].py,FishP[i].pz);
			if Weight > 350 then FishS;
		end;
	end;
end.

Code: Select all

Procedure Fish(tile:Word;x,y,z:Integer); 
var 
   FBegin:TDateTime; 
begin 
   FBegin:=Now; 
   while (not InJournalBetweenTimes('seem to be',FBegin,Now)>=0) do 
   begin 
      DeathR; 
CheckTargetError(5, 2); 
      UseObject(Pole); 
      WaitForTarget(4000); 
      TargetToTile(tile,x,y,z); 
      WaitJournalLine(Now, 'a nice fish!|seem to be|You find a message|an old tattered|not a fish!', 20000); 
      If (GetType(Pole) = 0) then 
      begin 
SetARStatus(true); 
waitconnection(3000); 
CheckSave; 
wait(3000); 
SetARStatus(true); 
while WaitJournalLine(Now, 'I am already performing another action', 20000) do   // вот тут пытался вписать, чтобы дисконнектило если появляется фраща I am bla bla bla
 FullDisconnect;
         FindType($0DBF,PoleChest); 
         if FindCount > 0 then 
            Pole:=finditem 
         else 
            FullDisconnect; 
                end; 
      DangerCheak; 
      CheckSave; 
      WaitConnection(10); 
   end; 
end; 

Code: Select all

begin 
   FBegin:=Now; 
   while (not InJournalBetweenTimes('seem to be',FBegin,Now)>=0) do 
   begin 
      If TargetPresent then //то , что вы говорили указать
         CancelTarget;  // то, что вы говорили указать
      DeathR; 
      UseObject(Pole); 
      WaitForTarget(4000); 
      TargetToTile(tile,x,y,z); 
      WaitJournalLine(Now, 'a nice fish!|seem to be|You find a message|an old tattered|not a fish!', 20000); 
      If (GetType(Pole) = 0) then 
      begin 
         FindType($0DBF,PoleChest); 
         if FindCount > 0 then 
            Pole:=finditem 
         else 
            FullDisconnect;