Yoko

All sides of Injection
It is currently 2019-09-22 00:18:28

All times are UTC+02:00




Post new topic  Reply to topic  [ 1 post ] 
Author Message
 Post subject: фишинг
PostPosted: 2019-05-21 16:53:04 
Offline

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


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 1 post ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 1 guest


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited