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