Спасибо за гайд! Допиплил чуток скрипт на фишинг, добавил Tracking ( 5 суток, полет нормальный ) и принятие реса от лодки, ибо ГЗ в моей округе дырявое. Program Fishing; type FishR = record tile:word; px,py,pz:integer; end; var ItemCount,i:Integer; FishP: array [0..150] of FishR; Pole,Eat,Tracktimer...