Yoko

Спасибо большое, теперь выкладывает.
Значит ошибка была в строке if uo.findcount(Nado[r])>0 then
Будет проще и короче if uo.findcount() then
Странно при перекладывании с других мешков работает.
УУУ, щас допишу еще бегать из данжа в банк.

sub unload() ;
VAR r, t=1000
VAR mesok='0x40380CCF' ;mesok v banke
VAR zhuk ='0x4058A4E9' ;backpack zhuka
var endlist=11
Dim Nado[12]
    Nado[0]  = '0x1BD1'    ;feather
    Nado[1]  = '0x0EED'    ;gold
    Nado[2]  = '0x0EED'
    Nado[3] = '0x0F13' ;Ruby
    Nado[4] = '0x0F15' ;Citrine
    Nado[5] = '0x0F19' ;Sapfire
    Nado[6] = '0x0F26' ;diamond
    Nado[7] = '0x0F25' ;Amber
    Nado[8] = '0x0F10' ;Emerald
    Nado[9] = '0x0F2D' ;Turmaline
    Nado[10] = '0x0F21' ;Star sapfire
    Nado[11] = '0x0F16'  ;Ametist
 uo.useobject (zhuk)
 wait (1000)
 uo.useobject (mesok)
 wait (1000)
 For r = 0 to endlist
 uo.findtype( Nado[r] , -1 , zhuk)
    if uo.findcount() then
     uo.moveitem('finditem', -1, mesok)
     wait(t)
    else
     uo.Print ('netu')
     wait (50)
    endif
 next
end sub

втвоем варианте было не findcount а count это две разные вещи.