Если кто заметил ошибку - отпишитесь.
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.