Автолоот, что там не хвотает добавь Опции

[KaPeIkA]

Если не трудно добавьте что там не хватает а то я не понимаю ((( если не трудно это на инжу плс

Код

sub Loot()
var t,l
t=200
uo.UseObject('lastcorpse')
wait(t)
dim Loot[35]
uo.Print('Nu kas?...')
### Magic Looting Items ###
Loot[1]=0x27A5; Anshuar shield 
Loot[2]=0x26C2; Shroud
Loot[3]=0x2B04; Cloak of huj :D
Loot[4]=0x0EFA; Book
Loot[5]=0x140E; RINGMEILS
Loot[6]=0x13EC; $
Loot[7]=0x13F0; $
Loot[8]=0x13EE; $
Loot[9]=0x13EB; $
Loot[10]=0x1412; Platmeils
Loot[11]=0x1413; #
Loot[12]=0x1415; #
Loot[13]=0x1411; #
Loot[14]=0x1414; #
Loot[15]=0x1410; #
Loot[16]=0x317A; Elven boots
Loot[17]=0x1DB9; STUDENTS
Loot[18]=0x13DB; @
Loot[19]=0x13D4; @
Loot[20]=0x13C6; @
Loot[21]=0x13CB; @
Loot[22]=0x2b01; PARALIZE BOW
Loot[23]=0x1BC4; INVUL ShIELD
Loot[24]=0x27A8; DO katana
Loot[25]=0x2FB9; KRUSTS 0x26C2
Loot[26]=0x26C2; Noble elven bow
Loot[27]=0x2D2F; Paralize sword
Loot[28]=0x1B77; Shield
Loot[29]=0x2F5B; Cinture
Loot[30]=0x2647; JAUNAIS ARMORS
Loot[31]=0x2641; #
Loot[32]=0x2645; #
Loot[33]=0x2657; #
Loot[34]=0x2643; #
Loot[35]=0x2B01; #

[UO._.Detected]

For i=1 to 1 <<<< i=1 to 31 извини
Exit=0
repeat
UO.FindType(LootingItem[i],-1,'lastcontainer')
if UO.GetQuantity ('finditem') then
UO.Grab('0','finditem')
wait(100)
Else
Exit=1
endif
until Exit==1 OR uo.injournal("loot")
Next
UO.UnSetReceivingContainer()
end sub