Yoko

Code: Select all

sub Maning() 
var mx, my, mz, i, j, jor, ser, noto 
dim runes[2] 
runes[0]=88 
runes[1]=94 
runes[2]=1025 
var cavenumber=0 
var maxcaves=3 

Uo.exec("set norbcheck 1"); ??? ?????? 
uo.exec("set norbcalc 1"); ???? 

uo.print('!!?????? ??????!! ') 
uo.exec('addobject Shovel') 
while uo.targeting() 
wait(100) 
wend 

uo.print('!!?????? ??????!! ') 
uo.exec('addobject Runebook') 
while uo.targeting() 
wait(100) 
wend 

uo.print('!!????-?????????!! ') 
uo.exec('addobject runeHome') 
while uo.targeting() 
wait(100) 
wend 

na4alo: 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
UO.DeleteJournal() 
for i = mx-4 to mx+4 
for j = my -4 to my+4 
while not UO.Hidden() 
UO.Warmode(0) 
uo.print("????????...") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 
UO.Print("?????? ? ???????????: "+str(mx-i)+" "+str(my-j)) 
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("Iron Ore") and not UO.InJournal("Copper") and not UO.InJournal("Old Copper") and not UO.InJournal("Dull Copper") and not UO.InJournal("Silver") and not UO.InJournal("Gold") and not UO.InJournal("Bronze") and not UO.InJournal("Rusty Ore") 
UO.DeleteJournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Useobject("Shovel") 
while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock") 
wait (500) 
for jor = 0 to 99 
ser = uo.journalserial(jor) 
noto = uo.getnotoriety(ser) 
if noto <> 0 and noto <> 2 and not uo.injournal("loosen") then
cavenumber=cavenumber+1 
if cavenumber==maxcaves then 
cavenumber=0 
endif 
Save() 
loot() 
wait(3000) 
goto reccal 
endif 
next 
wend 
if uo.weight > 650 then  ; ???????????? ??? ??? ??????? ????? ? ????? 
goto end 
endif 
wend 
UO.DeleteJournal() 
next 
next 
goto na4alo 
end: 
if uo.waiting() then 
uo.canceltarget() 
endif 
uo.exec("recall Runebook 21") ; ????? ( ? ??????? ???? 1 ) 
wait(10000) 
loot() 
wait(3000) 
Reagents()
wait(3000) 
reccal: 
uo.deletejournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
uo.exec("recall Runebook " + Str(runes[cavenumber])) 
mx = UO.GetX("self") 
my = UO.GetY("self") 
wait(10000) 
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then 
goto reccal 
endif 
goto na4alo 
end sub 

sub loot()    ; ?????????? ???? ? ?????? 
if uo.waiting() then 
uo.canceltarget() 
endif 
VAR a,Exit 
VAR UnloadCont='0x4041b0d1';--------???? ??????? ???? ?????? ????    
DIM Ore[13] 
Ore[0]=0x19B9 ; 4 and more ore 
Ore[1]=0x19B7 ; 1 ore 
Ore[2]=0x19BA ; 2 ore 
Ore[3]=0x19B8 ; 3 ore 
Ore[4]=0x0F10
Ore[5]=0x0F0F 
Ore[6]=0x0F16
Ore[7]=0x0F18
Ore[8]=0x0F15
Ore[9]=0x0F26
Ore[10]=0x0F11
Ore[11]=0x0EED
Ore[12]=0x0F0E
UO.SetReceivingContainer(UnloadCont) 
wait(500) 
For a=0 to 10 
Exit=0 
repeat 
UO.FindType(Ore[a]) 
if UO.GetQuantity('finditem')>0 then 
UO.Grab('0','finditem') 
wait(1500) 
Else 
Exit=1 
endif 
until Exit==1 
Next 
UO.UnSetReceivingContainer() 
end sub 

sub Save() ; ?????? ?? ?? ??? ?? ????????? 
var mx, my
uo.UseType('0x0F0E','0x0631') 
wait(100)
reccal: 
uo.deletejournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
mx = UO.GetX("self") 
my = UO.GetY("self") 
UO.DeleteJournal() 
uo.waittargetobject('runeHome') ; ????? 
wait(500)
uo.cast('Recall') 
wait(2000)
Screen() 
pwav()
wait(2500) 
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then 
goto reccal 
endif 
wait(2000)
Reagents()
end sub 

sub time() 
var hh,mm,ss,hms,t=str(UO.Time()) 
if len(t)<=2 then 
hh="0" 
mm="0" 
ss=t 
endif 
if len(t)==3 then 
hh="0" 
mm=left(t,len(t)-2) 
ss=right(t,len(t)-1) 
endif 
if len(t)==4 then 
hh="0" 
mm=left(t,len(t)-2) 
ss=right(t,len(t)-2) 
endif 
if len(t)==5 then 
hh=left(t,len(t)-4) 
hms=left(t,len(t)-2) 
mm=right(hms,len(hms)-1) 
ss=right(t,len(t)-3) 
endif 
if len(t)==6 then 
hh=left(t,len(t)-4) 
hms=left(t,len(t)-2) 
mm=right(hms,len(hms)-2) 
ss=right(t,len(t)-4) 
endif 
return hh+":"+mm+":"+ss 
end sub 

sub Hide()
repeat 
while not UO.Hidden()
wait(100)
UO.Warmode("1")
uo.print("????????...")
UO.UseSkill("Stealth")
wait(4100)
wend
wait(100)
until false 
end sub

sub Reagents()
uo.exec("recall Runebook 2")
UO.UnsetReceivingContainer()
VAR StoreRegCont=0x4041b0d1;-------???? ?????????? ? ??????? ? ????? ??? ?????  ???? ? ??????
   VAR CharRegBag='backpack'
   VAR CountReg=10
   VAR WaitTime=600
VAR MainSafe=0x401B1D95;---------???? ?????????? ??? ????

UO.UseObject(MainSafe)
UO.UseObject(StoreRegCont)
UO.SetReceivingContainer('backpack')
wait(WaitTime)
if UO.BM<CountReg then
UO.FindType('0x0F7B','-1',StoreRegCont) ; BM
UO.Grab(STR((CountReg-UO.BM)),'finditem')
wait(WaitTime)
endif
if UO.BP<CountReg then
UO.FindType('0x0F7A','-1',StoreRegCont) ; BP
UO.Grab(STR(CountReg-UO.BP),'finditem')
wait(WaitTime)
endif
if UO.MR<CountReg then
UO.FindType('0x0F86','-1',StoreRegCont) ; MR
UO.Grab(STR(CountReg-UO.MR),'finditem')
wait(WaitTime)
endif
UO.FindType('0x0F0E','0x0631','backpack') ; invisible
While UO.GetQuantity('finditem')<2 
UO.FindType('0x0F0E','0x0631',StoreRegCont) 
wait(200) 
UO.Grab('1','finditem') 
wait(WaitTime) 
wend

UO.FindType('0x1F4C','0x000',StoreRegCont)
wait(WaitTime) 
UO.Grab('1','finditem') 

uo.exec("recall Runebook 1")
UO.UnsetReceivingContainer()
end:
end sub

sub Screen() 
;while not uo.dead() 
;wait(50) 
;wend 
uo.snap() 
end sub


sub pwav() 
      
     uo.playwav("C:\1.wav")
   
    
   
end sub


sub Reconnect() 
var ReconnectTime,rFlag 
ReconnectTime='0' 
rFlag=1 
repeat 
while (uo.ObjAtLayer('Bpack')=='') 
if rFlag then 
ReconnectTime=MakeTime() 
rFlag=0 
end if 
wait(20000) 
uo.Say('') 
wait(3000) 
uo.Say('') 
wait(3000) 
uo.Say('') 
wait(3000) 
uo.LDblClick(357,164) 
uo.LClick(616,459) 
wait(3000) 
wend 
wait(3000) 
if (rFlag==0) and (ReconnectTime<>'0') then 
uo.TextOpen() 
uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
rFlag=1 
ReconnectTime='0' 
end if 
until false 
end sub