##### sub Fishtest() VAR f=1 DIM X[12] DIM Y[12] X[1]="320" Y[1]="305" X[2]="365" Y[2]="242" X[3]="407" Y[3]="200" X[4]="359" Y[4]="171" X[5]="313" Y[5]="219" X[6]="268" Y[6]="260" X[7]="398" Y[7]="381" X[8]="458" Y[8]="333" X[9]="507" Y[9]="283" X[10]="445" Y[10]="437" X[11]="498" Y[11]="375" X[12]="557" Y[12]="329"
start:
for f = 1 to 12 wait(500) repeat UO.DeleteJournal() UO.Exec("setcatchbag box") wait(200) UO.Exec("useobject pole") wait(1000) UO.LClick(X[f],Y[f]) wait(4600) UO.ShowJournal() wait(500) until UO.InJournal("0xAD84") UO.Print("Vse vilovleno") next
movef() goto start endsub
sub movef() UO.Say("Forward") wait(500) UO.Say("Forward") wait(10000) UO.Say("Stop") endsub
####
Почему то чар не ловит рыбьу. Появляеться таргет, но не тыкаеться на воду =\ всё ли тут правильно, а если нет, то что нужно исправить?
Заранее сенкс.
fishst: y=-6 repeat x=-6 repeat fw=0 fishl1: uo.DeleteJournal() uo.exec('waittargettile tile '+Str(uo.GetX()+x)+' '+Str(uo.GetY()+y)+' 251'); 251-высота уровня моря. uo.useObject(pole) j=0 repeat wait(200) j=j+1 until uo.InJournal("You pull") or uo.InJournal("You fish a while") or uo.InJournal("There are no fish") or uo.InJournal("That is too far") or j>100 if uo.InJournal("There are no fish") or uo.InJournal("That is too far") then uo.print("fishln1") goto fishln1 end if if uo.InJournal("You fish a while") then fw=fw+1 uo.print("Попытка "+str(fw)) if fw>9 then goto fishlnl end if end if if uo.InJournal("You pull") then fw=0 ; goto fishln1 end if goto fishl1 fishln1: x=x+1 until x>6
Вот кусок вырванный из моего скрипта на фишинг. Ловит с корабля 13х13 клеток вокруг себя. x,y пробегают от -6 до +6.
Всё правильно.
Сначала выставляешь ловушку - следующий прицел получит в качестве цели тайл с номером tile (т.е. 0) и координатами такими же, как у персонажа, но смещенными на 1 в отрицательном напрвлении по оси Х (во загнул короче, это налево-вверх, по-моему)
А потом используется объект (кстати, я всегда думал, что серийники надо писать в кавычках...)
Без труда не выловишь и рыбку из пруда,
А без пруда не выловишь её и с трудом...