MakeFull для DRW

prof · Post by **prof** » 2007-06-03 23:34:48

Переделал скрипт. Не помню кто автор. Надеюсь он не обидется.
Кидаете чару в сумку инги. В руки даете молоток. Запускаете 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