Yoko

Code: Select all

sub BS()  #Êó¸ì äàããåðû... 
var maxweight=(uo.str*4 + 30) 
var   xxx,óóó,time,done,bsstart 
bsstart=uo.skillval('Blacksmithing') 
Wait(500) 
time=8 
done=1 
#UO.automenu('Blacksmithing','Weapons') #ïî÷åìó-òî ïåðåñòàëî ðàáîòàòü ñ íèìè... 
#UO.automenu('Weapons','Fencing') 
#UO.automenu('Fencing','dagger') 
repeat 
 if uo.hidden() == 0 then 
  repeat 
   uo.useskill('Hiding') 
   uo.deletejournal() 
   wait(1000) 
    while not uo.injournal("You can't seem") and not uo.injournal("You have hidden") 
     wait(100) 
    wend  
  until uo.hidden() == 1 
 end if 
# Íà÷èíàåì âûâîä íèêîìó íå íóæíûõ ñîîáùåíèé =) 
 uo.print('You have '+str(uo.count("0x1BEF"))+' ings left') 
 uo.setglobal('xxx',uo.count("0x1BEF")/3) 
 uo.print('It will be enough for '+uo.getglobal('xxx')+' daggers') 
 uo.print('Average time per dagger : '+str(time/done)+' sec') 
 uo.setglobal('óóó',time/done*uo.count("0x1BEF")/180) 
 uo.print('Expectably time left : '+uo.getglobal('óóó')+' min') 
 uo.print('Skill raised during this script by : '+str((uo.skillval('Blacksmithing')-bsstart)/10)) 
 uo.print('And is now equal : '+str(uo.skillval('Blacksmithing')/10)) 
# Çàêàí÷èâàåì âûâîä 
 UO.Set('quiet', '1') 
# wait(50) 
 UO.WaitMenu('Blacksmithing','Weapons','Weapons','Fencing','Fencing','dagger') 
 UO.usetype("0x1BEF") 
# Ïîþçàëè èíãè 
 UO.DeleteJournal() 
 time=time+0.1 
 while not UO.InJournal("You put the dagger") and not UO.InJournal("You fail") and not UO.InJournal("You have fail") 
  Wait(100) 
  time=time+0.1 
 wend 
# È ïðîæäàëè "óìíóþ" ïàóçó 
 done=done+1  
 UO.Set('quiet', '0') 
# wait(50) 
until (UO.Count('0x1BEF',0) < 20) # åñëè ìåíüøå, òî ïî÷åìó-òî çàòûêàåòñÿ íà âûáîðå äàããåðà 
end sub 

Code: Select all

sub Blacksmithing() 
var Exit=0, LastTimer 
while Exit<>1 
uo.DeleteJournal() 
LastTimer=uo.Timer() 
uo.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') 
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 
repeat 
wait(100) 
until uo.Timer()>=LastTimer+100 
end if 

uo.FindType('0x0F51',-1,'backpack') 
wait(500) 

if uo.GetQuantity('finditem') then 
uo.WaitTargetObject('finditem') 
uo.UseObject('0x40001072') ; Форж 
end if 

uo.FindType('0x1BEF',-1,'backpack') 
if uo.GetQuantity('finditem')<10 then 
uo.FindType('0x1BEF','0x0000','0x40001234') ;Cундук с ингами 
wait(1000) 
uo.Grab('1000','finditem') 
Endif 
wait(1000) 
wend    
end sub