Yoko

sub fazerplate()
Var ingot = '0x1BEF'
VAR Plate = 0
Var n
DIM ID[6]
ID[1] = '0x1410'
ID[2] = '0x1411'
ID[3] = '0x1412'
ID[4] = '0x1413'
ID[5] = '0x1414'
ID[6] = '0x1415'
Uo.print("PlateBuilder v1.0 by Kalyl Lamarck - Editado por CoXiNhA xD")
wait(2000)
Uo.print('Deixe os ingots que ira usar em sua bag e alguns no Container')
wait(2000)
UO.print('Selecione o CONTAINER aonde quer que guarde as Plates e onde ficaram o restante dos ingots')
UO.exec('addobject CONTAINER')
while UO.targeting()
wait(100)
wend
recomeco:
Plate = Plate + 1
Chest:
uo.exec("usetype 'ingot'")
uo.exec("waitmenu 'Blacksmithing' 'Armadura de' 'Armadura de' 'Platemail Chest'")
wait(8000)
if (UO.InJournal('Platemail Chest')) then
goto Gorget
else
goto Chest
end if
Gorget:
uo.exec("usetype 'ingot'")
uo.exec("waitmenu 'Blacksmithing' 'Armadura de' 'Armadura de' 'Platemail Gorget'")
wait(8000)
if (UO.InJournal('Platemail Gorget')) then
goto Gloves
else
goto Gorget
end if
Gloves:
uo.exec("usetype 'ingot'")
uo.exec("waitmenu 'Blacksmithing' 'Armadura de' 'Armadura de' 'Platemail Gloves'")
wait(8000)
if (UO.InJournal('Platemail Gloves')) then
goto Helmet
else
goto Gloves
end if
Helmet:
uo.exec("usetype 'ingot'")
uo.exec("waitmenu 'Blacksmithing' 'Armadura de' 'Armadura de' 'Platemail Helmet'")
wait(8000)
if (UO.InJournal('Platemail Helmet')) then
goto Legs
else
goto Helmet
end if
Legs:
uo.exec("usetype 'ingot'")
uo.exec("waitmenu 'Blacksmithing' 'Armadura de' 'Armadura de' 'Platemail Legs'")
wait(8000)
if (UO.InJournal('Platemail Legs')) then
goto Arms
else
goto Legs
end if
Arms:
uo.exec("usetype 'ingot'")
uo.exec("waitmenu 'Blacksmithing' 'Armadura de' 'Armadura de' 'Platemail Arms'")
wait(8000)
if (UO.InJournal('Platemail Arms')) then
goto guardar
else
goto Arms
guardar:
UO.Msg('Guardando a Plate completa...')
For n=1 To 6
repeat
uo.findtype(ID[n],-1,'backpack')
UO.MoveItem('finditem',1,'CONTAINER')
Wait(1000)
Until UO.Count(ID[n]) < 1
Next
endif
if true then
else
UO.FindType(ingot,-1,'CONTAINER')
If UO.GetQuantity('finditem') > 175 then
UO.SetReceivingContainer('backpack')
UO.Msg('Puxando 1000 Ingots!')
wait(1200)
UO.Grab('1000','finditem')
wait(1000)
end if
goto recomeco
endif
if true then
else
if uo.count("ingot") < 35 then
uo.print("Voce nao possui ingots necessarios para finalizar a plate o macro foi encerrado.")
uo.print("O Macro fez " + STR(Plate) + " Plates.")
goto es
end if
es:
endif
end sub