Не тестил
Code:
sub loot1()
var i=0,n
Dim A[38]
A[1] = 0x13B1 ;Heru
A[2] = 0x13BF ; Chainmail Tunic
A[3] = 0x13BE ; Chainmail Leggings
A[4] = 0x13BB ; Chainmail Coif
A[5] = 0x13EE ; Chainmail Sleeves
A[6] = 0x13EB ; Chainmail Gloves
A[7] = 0x0eed ;gold
A[8] = 0x1F1C ; Sid
A[9] = 0x13FA ; Topor
A[10] = 0x1406 ; Meisa
A[11] = 0x1415 ; Plate Chest
A[12] = 0x1411 ; Plate Leggings
A[13] = 0x1410 ; Plate Arms
A[14] = 0x1414 ; Plate Gauntlets
A[15] = 0x1412 ; Plate Helmet
A[16] = 0x1413 ; Plate Gorget
A[17] = 0x1B76 ; Plate Shield
A[18] = 0x0E76 ; Kruglaya Sumka
A[19] = 0x0E75 ; Vendorskaya Sumka
A[20] = 0x0F3F ; Strela
A[21] = 0x0F0C ; Alximiya
A[22] = 0x0F0E ; Alximiya
A[23] = 0x0F09 ; Alximiya
A[24] = 0x1515 ; Plash
A[25] = 0x1F03 ; Roba
A[26] = 0x0F88 ; NS
A[27] = 0x0F7B ; BM
A[28] = 0x0F7A ; BP
A[29] = 0x0F8C ; SA
A[30] = 0x0F8D ; SS
A[31] = 0x0F86 ; MR
A[32] = 0x0F84 ; GA
A[33] = 0x0F85 ; GS
A[34] = 0x0E21 ; Binti
A[35] = 0x1078
A[36] = 0x1BD1
A[37] = 0x1BFB
A[38] = 0x14EB
if (uo.getserial('backpack') <> uo.getserial('lastcontainer')) then
for n=1 to 38
while uo.getquantity('<'+A[n])
uo.moveitem('<'+A[n])
if i<4 then
i=i+1
else
wait(500)
i=0
endif
wend
next
endif
end sub