Yoko

Code: Select all

var book1='0x403DF607'  
var ydochka='0x0DBF' 
var time 

sub main() 
var i 
 while not uo.dead() 
  for i=1 to 9 
   repeat 
     port(i,book1) 
     fish() 
   next 
 wend 
endsub 

sub port(n,book) 
var oldX=UO.GetX() 
var oldY=UO.GetY() 
   NoTarget() 
   UO.UseObject(book) 
   FastLootCheck() 
   CheckLag() 
   UO.LClick(135, n*15+55) 
   time=UO.Timer() 
   Repeat 
     wait(500) 
   Until oldX<>UO.GetX() OR oldY<>UO.GetY() OR time+200<UO.Timer() 
end sub 

sub FastLootCheck() 
   UO.DeleteJournal() 
   wait(600) 
   if UO.InJournal("FastLoot") OR UO.InJournal("World save") then 
      CheckLag() 
   endif 
end sub 

sub NoTarget() 
   if UO.Waiting() then 
      UO.CancelTarget() 
   endif 
end sub 

sub fish()  
var mx, my, mz, i, j, k 
var spining='0x0DBF'
var ms1="no fish here"
var ms2="location"
var ms3="far away"
var ms4="in water"
var ms5="You pull"
var ms6="but fail"
var ms7="no fish"
var ms8="Unexpected"
dim fish[4]
fish[0]='0x09CC'
fish[1]='0x09CD'
fish[2]='0x09CE'
fish[3]='0x09CF'
hiding() 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
UO.DeleteJournal()
repeat
for i = mx-6 to mx+6 
for j = my -6 to my+6 
while not UO.InJournal(ms1) and not UO.InJournal(ms2) and not UO.InJournal(ms3) and not UO.InJournal(ms4) and not UO.InJournal(ms8) 
UO.DeleteJournal() 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Usetype(spining)
while not UO.InJournal(ms5) and not UO.InJournal(ms2) and not UO.InJournal(ms7) and not UO.InJournal(ms6) and not UO.InJournal(ms3) and not UO.InJournal(ms4) and not UO.InJournal(ms8)  
wait (50)
for k = 0 to 3
UO.findtype(fish[k],'-1','ground')
if uo.findcount()>0 then
 UO.moveitem('finditem','all','backpack')
 wait(250)
endif
next
wend 
wend 
UO.DeleteJournal() 
next 
next 
until 1
end sub 


sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
endsub 

sub hiding()  
   UO.Warmode("0") 
   while not UO.Hidden() 
      UO.DeleteJournal() 
      UO.UseSkill("Hiding") 
      while NOT UO.InJournal("You") 
         wait(1000) 
      wend 
   wend  
end sub 

Code: Select all

sub main() 
var i 
 while not uo.dead() 
  for i=1 to 9 
   repeat 
     port(i,book1) 
     fish() 
   next 
 wend 
endsub