I need scp
Posted: 2007-08-20 15:51:44
In my box are about 150 Bags, in each are reagents, and i can't find here script for moving reagents from bags to some other bag or chest.
Can somebody help?
Can somebody help?
Code: Select all
sub Sort_Regs()
var Sunduk= #id where are bags
var Sunduk2= #id where to put regs
var bag= #type of bags
var i, bagg
DIM reg[9]
reg[0]= #type of reg
reg[1]= #type of reg
...
reg[8]= #type of reg
uo.FindType(bag,'-1',Sunduk)
while uo.FindCount()
if uo.FindCount() then
uo.moveitem('finditem')
wait(500)
uo.UseObject('finditem')
wait(500)
bagg=uo.GetSerial('finditem')
for i=0 to 8
uo.FindType(reg[i],'-1',bagg)
if uo.FindCount() then
uo.moveitem('finditem','all',Sunduk2)
wait(1000)
end if
wait(500)
next
end if
uo.FindType(bag,'-1',Sunduk)
wend
end sub