; COMPRAR ITENS COM RECALL

sub scriptComprar(num, nome, lista) while uo.weight < num uo.useobject('Vendor') wait(300) uo.buy(lista,nome) wait(1500) wend uo.charprint('self','0x0048','Compras Finalizadas')endsub

sub comprarbp() uo.charprint('self','0x0048','Iniciando Macro') wait(500) scriptComprar(320, 'Van', 'bp')endsub

sub comprargs() uo.charprint('self','0x0048','Iniciando Macro') wait(500) scriptComprar(320, 'Van', 'gs')endsub

sub comprareye() uo.charprint('self','0x0048','Iniciando Macro') wait(500) scriptComprar(320, 'Van', 'eye')endsub

sub comprarinv() uo.charprint('self','0x0048','Iniciando Macro') wait(500) scriptComprar(320, 'Van', 'invis')endsub

sub comprarscrool() uo.charprint('self','0x0048','Iniciando Macro') wait(500) scriptComprar(320, 'Bertram', 'scroll')endsub

sub guardador() var n,nome DIM ID[7] ID[1]='0x0F87' #bote os types do itens a serem guardados ID[2]='0x0F7A' #bote os types do itens a serem guardados ID[3]='0x0F85' #bote os types do itens a serem guardados ID[4]='0x0F91' #bote os types do itens a serem guardados ID[5]='0x0E34' #bote os types do itens a serem guardados ID[6]='0x0000' #bote os types do itens a serem guardados ID[7]='0x0000' #bote os types do itens a serem guardados for n = 1 to 7 while uo.count(ID[n]) >= 1 wait(1600) UO.FindType(ID[n],'-1','my') nome = uo.getname('finditem') uo.charprint('self','0x0122',"Movendo: "+nome) uo.moveitem('finditem',-1, 'CONTAINER') wait(1200)

wend next endsub

sub comprarecall() while true if uo.mana < 30 then uo.msg('.drinkmana') end if UO.WaitTargetObject("runebook2") uo.cast('Recall') wait(11500) comprarinv() if uo.mana < 30 then uo.msg('.drinkmana') end if UO.WaitTargetObject("runebook") uo.cast('Recall') wait(11500) guardador() wend endsub