Stealth Client Forum

Code: Select all

Program Fishing;
// Ловля рыбы с корабля
// by Unholy
// for Dragon World (Drw.ru)

cons Ydochka = $ ;// ID Удочьки
FishBox = $ ;// ID Сундука для Карт, рыбы, сетей...

procedure Fishing_heare;
begin
var fX, fY : integer;
for fX := (GetX(self) - 6) to (GetX(self) + 6) do
for fY := (GetY(self) - 6) to (GetY(self) + 6) do
begin 
ClearJournal;
while not (InJournal('no fish here') and InJournal('location') and InJournal('far away') and InJournal('in water') and InJournal('You pull')) do
begin 
UseObject(Ydochka);
WaitForTarget(5000);
TargetToXYZ(fX,fY,0);
while not (InJournal('no fish here') and InJournal('location') and InJournal('far away') and InJournal('in water') and InJournal('You pull')) do
wait(100);
end;
end;  
end;  
end;

Begin
Fishing_heare;
end.