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
Вот нашел,по 50 регов кладет(сколько выставить)!
А можно еще и с манками,ГХ,рефреш и Антифризками сделать???
Пжалуйста!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|