Code: Select all
sub GetOffRegs()
VAR i=0
VAR sunduk3='0x403E7D7E' ; сундук с регами
DIM Regs[8]
Regs[0]='0x0F7A' ; Black Pearl
Regs[1]='0x0F7B' ; Bood Moss
Regs[2]='0x0F86' ; Mandrake Root
Regs[3]='0x0F84' ; garlic
Regs[4]='0x0F85' ; Ginseng
Regs[5]='0x0F88' ; Night Shade
Regs[6]='0x0F8C' ; Sulphorous Ash
Regs[7]='0x0F8D' ; Spiders Silk
for i = 0 to 7
UO.FindType(Regs[i],'-1','backpack')
UO.MoveItem( 'finditem', '1000' , sunduk3)
wait( 1000 )
next
endsub
sub GetOnRegs()
VAR i=0
VAR sunduk3='0x403E7D7E' ; сундук с регами
DIM Regs[8]
Regs[0]='0x0F7A' ; Black Pearl
Regs[1]='0x0F7B' ; Bood Moss
Regs[2]='0x0F86' ; Mandrake Root
Regs[3]='0x0F84' ; garlic
Regs[4]='0x0F85' ; Ginseng
Regs[5]='0x0F88' ; Night Shade
Regs[6]='0x0F8C' ; Sulphorous Ash
Regs[7]='0x0F8D' ; Spiders Silk
for i = 0 to 7
UO.FindType(Regs[i],'-1',sunduk3)
UO.MoveItem( 'finditem', '30' , 'backpack')
wait( 1000 )
next
endsub