Posted: 2008-10-04 16:15:46
Спасибо большое, теперь выкладывает.
Значит ошибка была в строке if uo.findcount(Nado[r])>0 then
Будет проще и короче if uo.findcount() then
Странно при перекладывании с других мешков работает.
УУУ, щас допишу еще бегать из данжа в банк.
Значит ошибка была в строке if uo.findcount(Nado[r])>0 then
Будет проще и короче if uo.findcount() then
Странно при перекладывании с других мешков работает.
УУУ, щас допишу еще бегать из данжа в банк.
Code: Select all
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