Yoko :: Скрипт на собитание регов в мешок

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

Скрипт на собитание регов в мешок http://forum.yoko.com.ua/viewtopic.php?f=20&t=9309	Page 1 of 1

Author:

discon [ 2006-11-08 10:48:10 ]

Post subject:

Скрипт на собитание регов в мешок

Народ, я тут написал скрипт на хватание регов, каждого вида, из общей кучи и складывание их в мешок в бэкпаке. Если кому нужен пользуйтесь, а то я тут такого скриптика не нашел, а с ним хоть немного, но легче стало )))

Code:

sub grab_regs()
; CopyRight(R) #DiscoN#

var count='50'  ; сколько брать 
uo.print('Otkuda?')
UO.Exec('addobject TmpBag1') 
While UO.Targeting() 
Wait(100) 
wend 
uo.print('Kuda?')
UO.Exec('addobject Tmpbag2') 
While UO.Targeting() 
Wait(100) 
wend

   UO.FindType('0x0F88','0x0000','TmpBag1') ; NS
   wait(100) 
   UO.Grab(count,'finditem')
   wait(600) 
   UO.FindType('0x0F88','0x0000','backpack')
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(300)


   UO.FindType('0x0F86','0x0000','TmpBag1') ; MR
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F86','0x0000','backpack')
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(300)

   UO.FindType('0x0F8D','0x0000','TmpBag1') ; SS
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F8D','0x0000','backpack')
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(600)

   UO.FindType('0x0F8C','0x0000','TmpBag1') ; SA
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F8C','0x0000','backpack')
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(300)

   UO.FindType('0x0F84','0x0000','TmpBag1') ; GA
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F84','0x0000','backpack')
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(300)

   UO.FindType('0x0F85','0x0000','TmpBag1') ; GI
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F85','0x0000','backpack')
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(300)

   UO.FindType('0x0F7B','0x0000','TmpBag1') ; BM
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F7B','0x0000','backpack')
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(300)

   UO.FindType('0x0F7A','0x0000','TmpBag1') ; BP
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F7A','0x0000','backpack')
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(300)
   
uo.print('!!!!!!!!!!!!!!!!!!!!!!!')
uo.print('!!!!!GRAB COMPLETE!!!!!')
uo.print('!!!!!!!!!!!!!!!!!!!!!!!')

end sub

Author:	slonopotam [ 2006-11-08 11:39:26 ]
Post subject:
Скриптов на добор регов говориш ненашел???

Author:	Askaneli [ 2006-11-08 12:27:20 ]
Post subject:
А в цикле не судьба сделать ???

Author:	Nmy [ 2006-11-08 13:01:41 ]
Post subject:
баз массива

Author:	discon [ 2006-11-08 13:06:29 ]
Post subject:
Askaneli wrote: А в цикле не судьба сделать ??? знал бы как, сделал бы.....

Author:

Nmy [ 2006-11-08 13:11:42 ]

Post subject:

Code:

sub grab_regs()
; CopyRight(R) #DiscoN#

var n, count='50'  ; сколько брать
uo.print('Otkuda?')
UO.Exec('addobject TmpBag1')
While UO.Targeting()
Wait(100)
wend
uo.print('Kuda?')
UO.Exec('addobject Tmpbag2')
While UO.Targeting()
Wait(100)
wend

Dim r[8]
r[1] = '0x0F88'
r[2] = '0x0F86'
r[3] = '0x0F8D'
r[4] = '0x0F8C'
r[5] = '0x0F84'
r[6] = '0x0F85'
r[7] = '0x0F7B'
r[8] = '0x0F7A'

For n = 1 To 8
   UO.FindType( r[n] , -1 ,'TmpBag1')
   If UO.Findcount() then
   UO.MoveItem( 'finditem', -1 , 'Tmpbag2' )
   wait(300)
Endif
next
   
uo.print('!!!!!!!!!!!!!!!!!!!!!!!')
uo.print('!!!!!GRAB COMPLETE!!!!!')
uo.print('!!!!!!!!!!!!!!!!!!!!!!!')

end sub

Author:	discon [ 2006-11-08 13:17:45 ]
Post subject:
Прикольно, спасибо. А можно как-нибудь сделать чтоб он добирал до конкретного числа?

Author:	discon [ 2006-11-08 13:18:48 ]
Post subject:
да и еще объясните плиз что -1 тут значит? Code: UO.FindType( r[n] , -1 ,'TmpBag1')

Author:	Scripts Writer [ 2006-11-08 13:19:43 ]
Post subject:
Иди и читай уроки. После этого вопроса, последует следующий в новой теме-а ты даже не понимаешь что написал ...

Author:	Nmy [ 2006-11-08 14:15:18 ]
Post subject:
discon wrote: Прикольно, спасибо. А можно как-нибудь сделать чтоб он добирал до конкретного числа? а это я уже выкладывал

Author:	Scripts Writer [ 2006-11-08 15:58:25 ]
Post subject:
NMY wrote: discon wrote: Прикольно, спасибо. А можно как-нибудь сделать чтоб он добирал до конкретного числа? а это я уже выкладывал И я помню даже. Автор-ищи.

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/