Держи, только в типе инвизок укажи вместо 15 штук 1, я не знаю ваш тип инвиза.
Code:
sub loot()
var currentX, i, quantity,REGBag = "0x410A7DA9", box = "0x410A7DA9"
dim Ore[4]
Ore[1]=0x19B9 ; 4 and more ore
Ore[2]=0x19B7 ; 1 ore
Ore[3]=0x19BA ; 2 ore
Ore[4]=0x19B8 ; 3 ore
uo.useobject("backpack")
wait(300)
for i = 1 to 4
repeat
if uo.findtype(Ore[i], -1, "backpack") then
uo.moveitem("finditem", 0, box)
wait(500)
end if
until not uo.findcount()
next
uo.useobject("backpack")
wait(300)
uo.useobject(REGBag)
wait(300)
mdim R[9][2]
R[1][0] = "0x0c77"
R[1][1] = 15
R[2][0] = "0x0F09"
R[2][1] = 15
R[3][0] = "0x0F8D"
R[3][1] = 15
R[4][0] = "0x0F8C"
R[4][1] = 15
R[5][0] = "0x0F84"
R[5][1] = 15
R[6][0] = "0x0F86"
R[6][1] = 15
R[7][0] = "0x0F7B"
R[7][1] = 15
R[8][0] = "0x0F7A"
R[8][1] = 15
for i = 1 to 8
quantity = R[i][1]
if uo.findtype(R[i][0], -1, "backpack") and uo.getquantity("finditem") < quantity then
quantity = R[i][1] - uo.getquantity("finditem")
if uo.findtype(R[i][0], -1, REGBag) and uo.getquantity("finditem") >= quantity then
uo.moveitem("finditem", quantity, "backpack")
wait(500)
else
uo.print("Слишком мало чтобы брать...")
wait(100)
end if
end if
next
currentX=uo.GetX()
uo.msg("Go")
wait(10000)
while currentX==uo.GetX()
uo.msg("Go")
wait(10000)
wend
end sub