Помогите с лутом!

[Nightmar]

Вот скриптик с лутом. Работает все норм, но не лутает одинаковые вещи. Например в трупе ГХ,ТМ,Инвизки тип одинаковыи у них и он лутает токо ГХ или токо ТМ остальные бутылки остовляет. Как это исправить?

Code: Select all

sub remove() 
var n, lbag
Dim Loot[26] 
Loot[0]='0x0EED' ; gp 
Loot[1]='0x1B76' ; ueo 
Loot[2]='0x1B77' ; ueo2
Loot[3]='0x1415' ; aini
Loot[4]='0x1416' ; aini2 
Loot[5]='0x1411' ; iiae 
Loot[6]='0x141A' ; iiae2
Loot[7]='0x1410' ; ?oee 
Loot[8]='0x1414' ; ia??e 
Loot[9]='0x1418' ; ia??e2
Loot[10]='0x1413' ; ai?ei
Loot[11]='0x1412' ; oeai 0x20D6
Loot[12]='0x1419' ; oeai2 
Loot[13]='0x13FE' ; eaoaia 
Loot[14]='0x1086' ; a?aneao 
Loot[15]='0x0E21' ; aeiou 
Loot[16]='0x1406' ; iaena 
Loot[17]='0x0F4F' ; a?aaeao 
Loot[18]='0x13B9' ; aeeeia 
Loot[19]='0x13B1' ; eoe 
Loot[20]='0x13FC' ; oy?aeue a?a 
Loot[21]='0x13B5' ; neeieoa?
Loot[22]='0x0F0E' ; neeieoa?
Loot[23]='0x0E76' ; noiea
Loot[24]='0x20D6' ; a?ae 
Loot[25]='0x143E' ; aeaaa 
Loot[26]='0x0F03' ; aioeo?ec 

uo.findtype('0x0E75','0x0000','backpack')
If UO.GetQuantity('finditem') > 0 then
 lbag=uo.getserial('finditem')
   for n=0 to 26
   uo.findtype(Loot[n],"-1","lastcontainer") 
   if uo.findcount() > 0 then 
   uo.moveitem('finditem','0',lbag)
   Wait(600) 
   end if 
   next 
else
   for n=0 to 26
   uo.findtype(Loot[n],"-1","lastcontainer") 
   if uo.findcount() > 0 then 
   uo.moveitem('finditem','0','backpack')
   Wait(600) 
   end if 
   next 
end if

[p4104]

попробуй прописать этот тип пару раз, например в начале и в конец