Здравствуйте, я недавно начала играть в ультиму, потому много ещё не понимаю особенно что качается макросов... можете подсказать по макросу на фишинг, в целом он хорошо работает но после окончания скрипта выключается и приходится снова открывать окно и запускать, если можно подправьте пожалуйста чтоб он не выключался, ходилку не прошу понимаю что сложно, заранее спасибо! var TryToHide=1 ## 1 - Включить хаид перед рыбалкои , 0 - Отключить. var TakeFish=0 ## 1 - Собирать рыбку, 0 - Не нужна она нам. var Chest="0x406A344A " #Куда кладём рыбку?
sub main() var mX=0, mY=0, mZ=0, i, j, r=0 mX=uo.getX("self") mY=uo.getY("self") mZ=uo.getZ("self") uo.print('Olmer auto fishing 5x5 bot v.1.0') uo.setreceivingcontainer(Chest) for i = mX-5 to mX+5 for j = mY-5 to mY+5 if TryToHide==1 then ToHide() endif uo.Print("Сейчас ловим: "+str(mx-i)+" "+str(my-j)) repeat if uo.Dead() then return endif uo.DeleteJournal() uo.Waittargettile("0",str(i),str(j),'-5') UsePole() r=Wait4Result() until r next next GetFish() uo.unsetreceivingcontainer(Chest) end sub
Sub Wait4Result() var allmsg='лишком далеко|лишком близко|ы что-то выловили|опробуйте порыбачить в другом месте|десь нет рыбы|ы не можете ловить рыбу здесь|ry fishing elsewher|here are no fish here|fish from where you are standing|ry fishing in water|ou cannot fish so close to yourself|ou have no line of sight to that location|hat is too far away|ou are too far away|ou pull out a|ou can not fish here|ou fish a while, but fail to catch anythin|ou are too close' var finmsg='ы что-то выловили|ou pull out a|put the' var i for i=0 to 50 if uo.injournal(allmsg) then if uo.injournal('е клюёт') or uo.injournal(finmsg) then return 0 endif return 1 endif wait(1000) next return 0 end sub
Sub GetFish() dim Fish[7] Fish[0]='0x09CC' Fish[1]='0x09CD' Fish[2]='0x09CE' Fish[3]='0x09CF' Fish[4]='0x14EB' Fish[5]='0x0DD6' Fish[6]='0x0DD6' var f if TakeFish==1 then uo.Print('Собираем рыбу.') for f=0 to 6 uo.FindType(Fish[f],"-1","ground") if uo.findcount() then repeat uo.grab('0',"finditem") wait(500) uo.FindType(Fish[f],"-1","ground") until not uo.findcount() endif next endif end sub
Sub UsePole() dim t[2] t[0]='0x0DBF' t[1]='0x0DC0' var i,obj='' obj=uo.objatlayer('Lhand') if obj<>'' then for i=0 to 1 if uo.getgraphic(obj)==t[i] then uo.useobject(obj) return endif next uo.moveitem(obj) wait(100) endif for i=0 to 1 if uo.count(t[i]) then uo.usetype(t[i]) return endif next uo.print('Нет удочки.') end sub
sub ToHide() while not uo.Hidden() uo.Print('Пытаемся уйти в хайд...') uo.DeleteJournal() uo.UseSkill('Stealth') wait(4500) wend end sub Зы. другие макросы с форума пробовала-не работают у меня, и сразу отвечу на вопрос зачем мне это, чтобы я его поставила в укромном месте и не вспоминала, он ловит по КД, пару раз в сутки я прихожу и собираю то что надо.
|