Help With uo.moveitem()
Posted: 2007-10-07 13:58:50
Code: Select all
sub main()
DIM bagserial[10];
bagserial[0]=0x71E039FA; ########################
bagserial[1]=0x71EA88E9; ########################
bagserial[2]=0x71EA88E7; ########################
bagserial[3]=0x71EA88EA; ### Id das Bag's ###
bagserial[4]=0x71EA88E4; ### que estão a sua ###
bagserial[5]=0x71EA88E6; ### volta. ###
bagserial[6]=0x71EA88E2; ### ###
bagserial[7]=0x71EA88E3; ########################
bagserial[8]=0x71EA88E8; ########################
bagserial[9]=0x58DAD597;
var k;
inicio:
uo.deletejournal()
uo.exec("waitmenu 'O' 'Ferramentas' 'O' 'Machadinho'")
uo.exec("waittargettype 0x1BF2") ###Lings
uo.exec("usetype 0x1ebc") ### Ferramenta
wait(3000)
uo.say("10")
wait(1000)
UO.Ongump('withtext', 'Marcar os itens?', '(1') ###Marca o Item
repeat
wait(1000)
until uo.injournal('Voce parou de trabalhar.')
goto contar:
contar:
UO.FindType("0x0F43","-1","my")
if UO.FindCount()>0 then
goto mover:
endif
wait(500)
goto inicio:
mover:
for k=0 to 9
repeat
UO.FindType("0x0F43","-1","my") ##ID Machadinho
uo.moveitem('finditem', '1', 'bagserial[k]')
wait(100)
if Uo.InJournal('full') then ###Verificar a msg qnd a bag tá full.
next
endif
until UO.FindCount() == 0
goto inicio:
end subWhat's wrong with this macro, when I press 'Run Function' it Runs normally, but when come the part mover: the macro don't move the item to the bagserial[k].
If I put the bagserial direct in the place of bagserial[k] it's runs normally.
Somebody can help me with this ?
[]'s