Yoko
http://forum.yoko.com.ua/

фишинг
http://forum.yoko.com.ua/viewtopic.php?f=17&t=45055
Page 1 of 1

Author:  9na [ 2019-05-21 16:53:04 ]
Post subject:  фишинг

Здравствуйте, я недавно начала играть в ультиму, потому много ещё не понимаю особенно что качается макросов... можете подсказать по макросу на фишинг, в целом он хорошо работает но после окончания скрипта выключается и приходится снова открывать окно и запускать, если можно подправьте пожалуйста чтоб он не выключался, ходилку не прошу понимаю что сложно, заранее спасибо!
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
Зы. другие макросы с форума пробовала-не работают у меня, и сразу отвечу на вопрос зачем мне это, чтобы я его поставила в укромном месте и не вспоминала, он ловит по КД, пару раз в сутки я прихожу и собираю то что надо.

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/