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

fiShing
http://forum.yoko.com.ua/viewtopic.php?f=20&t=90		 Page 1 of 1
Author:  Kazoo [ 2004-04-14 08:36:26 ]
Post subject:  fiShing
Code:
sub fishing() 
var mx, my, mz, i, j 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
UO.DeleteJournal() 
hide()
for i = mx+2 to mx+6 
for j = my-6 to my+6
UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j)) 
while not UO.InJournal("no fish here") and not UO.InJournal("You pull out a fish!") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water") 
UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0DBF") 
while not UO.InJournal("You pull") and not UO.InJournal("location") and not UO.InJournal("no fish") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in water") 
wait (100) 
if UO.InJournal("You pull") then 
UO.findtype('0x14EB','0x0000','ground') ;tattered map 
UO.grab ('1','finditem') 
UO.findtype('0x09CE','0x0000','ground') ;tattered map 
UO.grab ('1','finditem')
UO.findtype('0x09CD','0x0000','ground') ;tattered map 
UO.grab ('1','finditem')
UO.findtype('0x09CF','0x0000','ground') ;tattered map 
UO.grab ('1','finditem')
UO.findtype('0x09CC','0x0000','ground') ;tattered map 
UO.grab ('1','finditem')
wait (500) 
UO.findtype('0x0DD6','0x05F6','ground') ;Truly rare fish 
UO.grab ('1','finditem') 
wait (500) 
UO.findtype('0x0DD6','0x01BB','ground') ;Prize fish 
UO.grab ('1','finditem') 
wait (500) 
end if 
wend 
wend 
UO.DeleteJournal() 
next 
next
end sub 


sub hide() 
while NOT UO.Hidden() 
UO.DeleteJournal() 
UO.Exec('warmode 0') 
UO.UseSkill('Stealth') 
repeat 
wait(50) 
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupi
ed') 
endif


немогли бы дописать вигрузку? и если можно штобы каждие 20 минут летал по разним рунам и ловил ? заранее спосибо !
Author:  Kifirkin [ 2004-04-18 19:57:40 ]
Post subject: 
я переделал етот скрипт под корабль,вот тока проблема,вылавливаются монстры =((((
мона ли передалать скрипт так чтоб он их килял ,и лутал все что в них есть??????
Author:  ZloyLuter [ 2004-04-25 10:37:31 ]
Post subject:  На попробуй етот скрипт если что у меня есть еще !!!!!
sub main()
NewFishing(307,147,5,3) # первые 2 числа - координаты вашего чара, если стоите на суше, то киньте таргет координатов на середину воды, если на корабле, то координаты на себя.
end sub
sub do_one_loop(446,278)
UO.Exec("usetype 0xDBF")
Wait(750)
UO.LClick(396,206)
Wait(5500)
end sub
sub NewFishing(startx, starty, dx, dy)
var i, j, x, y
while true
for j=0 to dx
x = startx - 24*j
y = starty + 22*j
for i=0 to dy
do_one_loop(x + 24*i ,y + 22*i)
next
next
wend
end sub

sub attack()
while not UO.dead()
if UO.InJournal("attacking") then
UO.DeleteJournal()
UO.Say(".guards")
endif
wait (500)
wend
end sub

sub attack2()
while not UO.dead()
if UO.Life < 30 then
UO.Say(".guards")
endif
wait (500)
wend
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/