sub empter()
VAR Sunduk1 = '0x409D4F31' ;сундук для мешков
VAR Sunduk2 = '0x407917ED' ;сундук для хлама
VAR Meshok = '0x0E76'     ;тип мешка
VAR MeshSer
repeat 
 uo.findtype(Meshok,-1,'backpack')
 MeshSer = UO.GetSerial( 'finditem' )
 uo.useobject(MeshSer)
 wait(500)
 repeat    
     uo.findtype(-1,-1,MeshSer)
     uo.moveitem('finditem',0,Sunduk2)
     wait(200)
 until not UO.GetQuantity('finditem')
 wait(200)
 uo.moveitem(MeshSer,0,Sunduk1)
until not UO.count(Meshok)
end sub

VAR sunduk1 = '0x407917ED'
VAR sunduk2 = '0x40790AFD'
sub looting()
   DIM Items[50]
   Items[1] = '0x09AA'      ; прандорки  
   Items[2] = '0x0F26'      ; гранаты
   Items[3] = '0x0F25'      ; амберы
   Items[4] = '0x0F13'      ; рубины
   Items[5] = '0x0F11'      ; сапфиры
   Items[6] = '0x0F18'      ; турмалины
   Items[6] = '0x0F15'      ; цытрины
   Items[7] = '0x0F10'      ; эмералды
   Items[9] = '0x0F16'      ; аметисты
   Items[10] = '0x0F26'      ; диамонды
   Items[11] = '0x14FB'     ; отмычки
   Items[12] = '0x1B76'     ; плате щит 
   Items[13] = '0x1415'     ; плате арм   
   Items[14] = '0x1410'     ; плате руки 
   Items[15] = '0x1411'     ; плате ноги   
   Items[16] = '0x1414'     ; плате перчи 
   Items[17] = '0x1412'     ; плате шлем 
   Items[18] = '0x1413'     ; плате горжетка 
   Items[19] = '0x1087'     ; серьги
   Items[20] = '0x108A'     ; кольца
   Items[21] = '0x14EF'     ; диды   
   Items[22] = '0x9999'     ; дефенс арм   ---
   Items[23] = '0x9999'     ; дефенс голова ---
   Items[24] = '0x9999'     ; дефенс ноги   ---
   Items[25] = '0x13C5'     ; дефенс руки
   Items[26] = '0x9999'     ; дефенс горжетка ---
   Items[27] = '0x13C6'     ; дефенс перчи
   Items[28] = '0x103B'     ; хлеб
   Items[29] = '0x1869'     ; энчаты
   Items[30] = '0x140C'     ; стальной шлем
   Items[31] = '0x13BE'     ; чайн ноги
   Items[32] = '0x1442'     ; вар топор
   Items[33] = '0x1406'     ; вар мейса
   Items[34] = '0x143A'     ; мейса
   Items[35] = '0x0F5C'     ; мейса2
   Items[36] = '0x13BB'     ; чайн голова
   Items[37] = '0x13BF'     ; чайн арм
   Items[38] = '0x140E'     ; стальной шлем2
   Items[39] = '0x140A'     ; хелм
   Items[40] = '0x1B74'     ; кити шилд
   Items[41] = '0x1B73'     ; букер шилд
   Items[42] = '0x0F4B'     ; дабл акс
   Items[43] = '0x9999'     ; 
   Items[44] = '0x9999'     ; 
   Items[45] = '0x9999'     ; 
   Items[46] = '0x9999'     ; 
   Items[47] = '0x9999'     ; 
   Items[48] = '0x9999'     ; 
   Items[49] = '0x9999'     ; 
   Items[50] = '0x9999'     ; 
VAR i
   For i = 1 To 50
      UO.FindType( Items[ i ], '-1', sunduk1 )
      while uo.findcount()
         UO.MoveItem('finditem','0',sunduk2)
         wait(100)
checklag()
         uo.findtype(Items[i],'-1',sunduk1)
      wend
   Next
endsub
Sub checklag()
uo.DeleteJournal()
repeat
    uo.click('backpack')
    wait(200)
until UO.InJournal("backpack|Backpack")
end sub