Yoko

Code: Select all

sub rune_move()###  
   uo.exec('addobject Gde') 
   while uo.targeting() 
      wait(100) 
   wend
   uo.useobject('Gde')
   UO.FindType('rune',-1, 'Gde')
   uo.deletejournal() 
   Wait(200)
      UO.FindType('rune',-1, 'Gde')
      if uo.findcount() then
         uo.click('finditem')
         Wait(100)
         if UO.InJournal('Minoc')   then
            UO.DeleteJournal( 'Minoc' ) 
            Wait(100)
            UO.MoveItem('finditem', '1', 'backpack')
            uo.ignore("finditem")
         else 
            uo.deletejournal() 
            uo.ignore("finditem")
            Wait(100)
         end if
      end if
 end sub

Code: Select all

sub rune_move()###  
   uo.exec('addobject Gde') 
   while uo.targeting() 
      wait(100) 
   wend
   uo.useobject('Gde')
   wait(500)
   UO.FindType('rune',-1,'Gde')
   while uo.findcount()
      uo.click('finditem')
      wait(500)
      if UO.InJournal('Minoc|Brit|Vesper|Moon|Jelom|Ev|Oclo')   then
            UO.MoveItem('finditem',0,'backpack')          
        end if
      uo.ignore("finditem")
      uo.deletejournal()
      UO.FindType('rune',-1,'Gde')
    wend
 end sub

Code: Select all

dim cX[5]
cX[1]=100
cX[2]=110
....
dim nameS[5]
nameS[1] = 'Britain'
nameS[2] = 'Minoc'
....
for c = 1 to 5
for n = 1 to 5
ищем руну с названием 1 
кладем в координату 1

Code: Select all

sub test()
   var i, Y=100, Z=0
   DIM X[3]
   X[0] = 50
   X[1] = 90
   X[2] = 120
   Dim r[3]
   r[0] = '0x0F7A'
   r[1] = '0x0F7B'
   r[2] = '0x0F86'
   For i = 0 To 2
      UO.FindType( r[i] , -1 ,'lastcontainer')
      if uo.findcount() then
         uo.MoveItem('finditem',1,'backpack',X[i],Y,Z)
         wait(1000)
      endif
   next
end sub