Кидаете чару в сумку инги. В руки даете молоток. Запускаете Blacksmithing_название_нужного_инга, после этого укажите мешок куда складывать готовые фулы. Как только инги закончатся (станет меньше 100 шт.) скрипт остановится.
Code: Select all
sub Blacksmithing_Full_Rusty()
bsarm("Rusty",'0x1BEF')
end sub
sub Blacksmithing_Full_Old_Copper()
bsarm("Old Copper",'0x1BEF')
end sub
sub Blacksmithing_Full_Copper()
bsarm("Copper",'0x1BE3')
end sub
sub Blacksmithing_Full_Dull_Copper()
bsarm("Dull Copper",'0x1BEF')
end sub
sub Blacksmithing_Full_Silver()
bsarm("Silver",'0x1BF5')
end sub
sub Blacksmithing_Full_Gold()
bsarm("Golden",'0x1BE9')
end sub
sub Blacksmithing_Full_Shadow()
bsarm("Shadow",'0x1BEF')
end sub
sub Blacksmithing_Full_Rose()
bsarm("Rose",'0x1BEF')
end sub
sub Blacksmithing_Full_Agapite()
bsarm("Agapite",'0x1BEF')
end sub
sub Blacksmithing_Full_Blood_Rock()
bsarm("Blood Rock",'0x1BEF')
end sub
sub Blacksmithing_Full_Verite()
bsarm("Verite",'0x1BEF')
end sub
sub Blacksmithing_Full_Valorite()
bsarm("Valorite",'0x1BEF')
end sub
sub Blacksmithing_Full_Mytheril()
bsarm("Mytheril",'0x1BEF')
end sub
sub Blacksmithing_Full_Black_Rock()
bsarm("Black Rock",'0x1BEF')
end sub
sub Blacksmithing_Full_Obsidian()
bsarm("Obsidian",'0x1BEF')
end sub
sub Blacksmithing_Full_Plutonium()
bsarm("Plutonium",'0x08AF')
end sub
sub Make_Heater()
UO.cancelmenu()
UO.AutoMenu('Blacksmithing','Colored')
UO.AutoMenu('Colored','Armor')
UO.AutoMenu('Armor','first')
UO.AutoMenu('Plate','10')
Heater:
UO.DeleteJournal()
UO.UseType(0x1BEF)
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend
if UO.InJournal("You have failed") then
goto Heater
endif
UO.CancelMenu()
wait(3000)
endsub
sub bsarm(IngName,ing)
VAR Delay=3000
uo.concolor('0x09DA')
uo.print("Выбери контейнер для фулов:")
uo.concolor('0x09A4')
uo.Exec('addobject CurrentBag')
while uo.Targeting()
wait(100)
wend
while not uo.Dead()
UO.FindType('0x1BEF','-1','backpack')
if UO.GetQuantity('finditem')<=100 then
;if ing < 100 then
uo.concolor('0x09DA')
uo.print("Недостаточное количество ингов в паке")
uo.concolor('0x09A4')
wait(200)
uo.exec("terminate all")
;uo.closeuo()
else
uo.concolor('0x09DA')
uo.print("Делаем фул")
uo.concolor('0x09A4')
UO.cancelmenu()
UO.AutoMenu(IngName+' Plate','Platemail (25')
UO.AutoMenu(IngName+' Armor','Plate')
UO.AutoMenu('Colored','Armor')
UO.AutoMenu('Blacksmithing','Colored')
Plate:
UO.DeleteJournal()
UO.UseType(ing)
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend
if UO.InJournal("You have failed") then
goto Plate
endif
UO.CancelMenu()
wait(Delay)
UO.AutoMenu(IngName+' Plate','Platemail Legs')
UO.AutoMenu(IngName+' Armor','Plate')
UO.AutoMenu('Colored','Armor')
UO.AutoMenu('Blacksmithing','Colored')
Legs:
UO.DeleteJournal()
UO.UseType(ing)
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend
if UO.InJournal("You have failed") then
goto Legs
endif
UO.CancelMenu()
wait(Delay)
UO.AutoMenu(IngName+' Plate','Platemail Arms')
UO.AutoMenu(IngName+' Armor','Plate')
UO.AutoMenu('Colored','Armor')
UO.AutoMenu('Blacksmithing','Colored')
Arms:
UO.DeleteJournal()
UO.UseType(ing)
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend
if UO.InJournal("You have failed") then
goto Arms
endif
UO.CancelMenu()
wait(Delay)
UO.AutoMenu(IngName+' Plate','Platemail Gauntlets')
UO.AutoMenu(IngName+' Armor','Plate')
UO.AutoMenu('Colored','Armor')
UO.AutoMenu('Blacksmithing','Colored')
Gloves:
UO.DeleteJournal()
UO.UseType(ing)
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend
if UO.InJournal("You have failed") then
goto Gloves
endif
UO.CancelMenu()
wait(Delay)
UO.AutoMenu(IngName+' Plate','Plate Helm')
UO.AutoMenu(IngName+' Armor','Plate')
UO.AutoMenu('Colored','Armor')
UO.AutoMenu('Blacksmithing','Colored')
Helm:
UO.DeleteJournal()
UO.UseType(ing)
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend
if UO.InJournal("You have failed") then
goto Helm
endif
UO.CancelMenu()
wait(Delay)
UO.AutoMenu(IngName+' Plate','Platemail Gorget')
UO.AutoMenu(IngName+' Armor','Plate')
UO.AutoMenu('Colored','Armor')
UO.AutoMenu('Blacksmithing','Colored')
Gorget:
UO.DeleteJournal()
UO.UseType(ing)
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend
if UO.InJournal("You have failed") then
goto Gorget
endif
UO.CancelMenu()
wait(Delay)
UO.AutoMenu(IngName+' Plate','Heater')
UO.AutoMenu(IngName+' Armor','Plate')
UO.AutoMenu('Colored','Armor')
UO.AutoMenu('Blacksmithing','Colored')
Heater:
UO.DeleteJournal()
UO.UseType(ing)
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend
if UO.InJournal("You have failed") then
goto Heater
endif
UO.CancelMenu()
wait(Delay)
putitem('0x1416')#????????
putitem('0x141A')#????
putitem('0x1411')#????
putitem('0x1413')#?????
putitem('0x1B76')#???
putitem('0x1410')#????
putitem('0x1414')#????????
putitem('0x1418')#????????
putitem('0x1412')#????
putitem('0x1B77')#???
putitem('0x1415')#????????
endif
checklag()
wend
end sub
sub putitem(item)
UO.SetReceivingContainer('CurrentBag')
UO.FindType(item,"-1",'backpack')
while UO.FindCount()>0
UO.Grab("0","finditem")
wait(1000)
UO.FindType(item,"-1",'backpack')
CheckLag()
wend
UO.UnSetReceivingContainer()
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub