Yoko

Code: Select all

sub main() 
      
#korabl 
#NewFishing(353,179,6,2) 
#Fenix House 
NewFishing(290,160,5,3) 
 
end sub 
 
sub do_one_loop(x,y) 
 
UO.Exec("usetype 0xDBF") 
Wait(300) 
UO.LClick(x,y) 
Wait(3000) 
      
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

Code: Select all

sub loot()
 uo.set('finddistance','3')
 
 uo.exec('addobject bag1')
 uo.print('Bag for Money')
  while uo.targeting()
  wait(100)
 wend
 
 uo.exec('addobject bag2')
 uo.print('Bag for maps')
  while uo.targeting()
  wait(100)
 wend

 uo.exec('addobject bag3')
 uo.print('Bag for SOS bottles')
  while uo.targeting()
  wait(100)
 wend

  UO.FindType( -1 , -1 ,'ground')
  while UO.FindCount()
  If uo.GetGraphic('finditem') == '0x4574a70e' then
  uo.moveitem('finditem', 0 ,'bag1')
  uo.ignore('finditem')
  Endif
  Wait(500)
  UO.FindType( -1 , -1 ,'ground')
 wend
 wait(100)
wend

  UO.FindType( -1 , -1 ,'ground')
  while UO.FindCount()
  If uo.GetGraphic('finditem') == '0x45b15d1b' then
  uo.moveitem('finditem', 0 ,'bag2')
  uo.ignore('finditem')
  Endif
  Wait(500)
  UO.FindType( -1 , -1 ,'ground')
 wend
 wait(100)
wend

  UO.FindType( -1 , -1 ,'my')
  while UO.FindCount()
  If uo.GetGraphic('finditem') == '0x45cd9243' then
  uo.moveitem('finditem', 0 ,'bag3')
  uo.ignore('finditem')
  Endif
  Wait(500)
  UO.FindType( -1 , -1 ,'my')
 wend
 wait(100)
wend

end sub