Дайте основу фишинга

[xDohertyx]

Смотрел готовые скрипты, так и не понял как написать скрипт чтоб просто стоя на лодке облавливал по краям лодки...
Как вообще реализуется загрузка из файла и дальнейшая ловля по этим координатам...
Без выбора удочки, без складывания, без нарезки...
Просто чтоб ловил по кругу.
Заранее спасибо

[Angel]

Тайлы в которых ловить обозначаются так:

type frecord = record
x,y:integer;
end;

Var
t,i:Integer;
fishtile: array [0..170] of frecord;
c,d,j,g,f: Integer;
stime,stimed,stime1,stime2: TDateTime;
u:cardinal;

координаты на месте заносятся так:

t:=0;
FOR i:=-6 TO 6 do
begin
FOR j:=-6 TO 6 do
begin
t:= t + 1;
fishtile[t].x:=GetX(self)+i;
fishtile[t].y:=GetY(self)+j;
end;
end;

ловится так:

g:=0;
While g < 170 do
{---FOR g:=1 to 170 do---}
Begin
g:=g+1;
wait(1000);
stime2 := now;
While InJournalBetweenTimes('[здесь сообщения при которых нада чтобы чар прикратил ловить на этом тайле и перешел на следующий]',stime2,Now) < 0 do
Begin
If TargetPresent then
Begin
CancelTarget;
wait(200);
end;
stime := now;
WaitTargetTile(6049,fishtile[g].x,fishtile[g].y,GetZ(self));
UseObject(u); // в переменную u нада занести ID удочки
repeat
c := InJournalBetweenTimes('You fish a |You pull out |There are no fish here.|You must wait to perform another action.',stime,Now);
wait(500);
until (LineCount >= 1) or (Now > stime + (1.0/1440)) or (c > 0);
end;
end;

Вылавливает рыбу во круг себя в 170 тайлах. Как сделать чтобы по краям корабля ну уж извини это гемор.