Yoko

Code: Select all

 sub mining() 
VAR x,y,z='0',TileNum='1339' 
VAR Last=0,LastTimer 
For x=-4 to 4 
For y=-4 to 4 
Repeat 
CheckLag() 
ToHide() 
UO.WaitTargetTile(TileNum,STR(UO.GetX()+x),STR(UO.GetY()+Y),z) 
UO.UseType('0x0e85') 
LastTimer=UO.Timer() 
repeat 
wait(2000) 
until UO.InJournal("Try mining") OR UO.InJournal("You put") OR UO.InJournal("You loosen") OR UO.InJournal("There is no") OR UO.InJournal("That is too") OR UO.InJournal("OOPS") OR UO.InJournal("attacking you") OR LastTimer+150<UO.Timer() 
if UO.InJournal('You loosen') then 
repeat 
wait (500) 
until UO.InJournal("You put") OR LastTimer+105<UO.Timer() 
endif 
until UO.InJournal("There is no") OR UO.InJournal("That is too") OR UO.InJournal("Try mining") 

Next 
Next 
mining() 
end sub 


sub tohide() 
while NOT UO.Hidden() 
UO.DeleteJournal() 
UO.FindType('0x0F0E','0x0631','my') 
if UO.Life<UO.STR/2 AND UO.GetQuantity('finditem')>0 then 
UO.UseType('0x0F0E','0x0631') 
UO.Exec('warmode 0') 
wait(2000) 
else 
UO.Exec('warmode 0') 
UO.UseSkill('Stealth') 
repeat 
wait(50) 
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied') 
endif 
wend 
end sub 
  
sub CheckLag() 
UO.DeleteJournal() 

Code: Select all

############################################ 
### Oa?a Dragon World / www.drw.ru 
############################################ 
### Aaoi? ne?eioa: BETEP[WOD] or BETEPAH ### 
############################################ 
### NE?EIO AE? EIIEE A IANEIEUEEO IAUA?AO. 
sub Maning() 
#BETEP# 
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"); aey ?aeiea 
uo.exec("set norbcalc 1"); oi?a 

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

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

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

na4alo: 
UO.DeleteJournal() 
UO.UseSkill("Detect Hidden") 
UO.Print("!!IIENE!!") 
wait(3200) 
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("I?y?ainy...") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 
UO.Print("Eiiaai a eii?aeiaoao: "+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("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 9 
ser = uo.journalserial(jor) 
noto = uo.getnotoriety(ser) 
if noto <> 5 and noto <> 0 and not uo.injournal("elemental") and ser <> uo.GetSerial() then 
cavenumber=cavenumber+1 
if cavenumber==maxcaves then 
cavenumber=0 
endif 
Save() 
loot() 
wait(3000) 
goto reccal 
endif 
next 
wend 
if uo.weight > 625 then ; Iaeneiaeuiue aan i?e eioi?ii aiiie n ?oaie 
goto end 
endif 
wend 
UO.DeleteJournal() 
next 
next 
goto na4alo 
end: 
if uo.waiting() then 
uo.canceltarget() 
endif 
uo.exec("recall Runebook 21") ; aiiie ( a ?oiaoea neio 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 
#BETEP# 
end sub 

sub loot() ; ia?aeeaaea ?oau a noiaoe 
if uo.waiting() then 
uo.canceltarget() 
endif 
VAR a,Exit 
VAR UnloadCont='0x40354CB7';--------aeae noiaoea eoaa eeaaou ?oao 
DIM Ore[5] 
Ore[0]=0x19B9 ; 4 and more ore 
Ore[1]=0x19B7 ; 1 ore 
Ore[2]=0x19BA ; 2 ore 
Ore[3]=0x19B8 ; 3 ore 
UO.SetReceivingContainer(UnloadCont) 
wait(500) 
For a=0 to 3 
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() ; ?aeiee io IE i?e eo iiyaeaiee 
var mx, my 
reccal: 
uo.deletejournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
mx = UO.GetX("self") 
my = UO.GetY("self") 
UO.DeleteJournal() 
uo.waittargetobject('runeHome') ; aiiie 
wait(500) 
uo.cast('Recall') 
wait(4500) 
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then 
goto reccal 
endif 
wait(2000) 
if uo.injournal("fade")then 
uo.waittargetobject('runeHome') ; aiiie 
wait(500) 
uo.cast('Mark') 
wait(4500) 
uo.deletejournal() 
endif 
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("I?y?ainy...") 
UO.UseSkill("Stealth") 
wait(4100) 
wend 
wait(100) 
until false 
end sub 

sub Reagents() 
VAR StoreRegCont=0x4021C9DC;-------aeae eiioaeia?a a noiaoea n ?oaie aaa ea?ao ?aae e aeaiee 
VAR CharRegBag='backpack' 
VAR CountReg=10 
VAR WaitTime=600 
VAR MainSafe=0x40354CB7;---------aeae eiioaeia?a aaa ?oaa 
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.GA<CountReg then 
UO.FindType('0x0F84','-1',StoreRegCont) ; GA 
UO.Grab(STR(CountReg-UO.GA),'finditem') 
wait(WaitTime) 
endif 
if UO.GS<CountReg then 
UO.FindType('0x0F85','-1',StoreRegCont) ; GS 
UO.Grab(STR(CountReg-UO.GS),'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 
if UO.NS<CountReg then 
UO.FindType('0x0F88','-1',StoreRegCont) ; NS 
UO.Grab(STR(CountReg-UO.NS),'finditem') 
wait(WaitTime) 
endif 
if UO.SA<CountReg then 
UO.FindType('0x0F8C','-1',StoreRegCont) ; SA 
UO.Grab(STR(CountReg-UO.SA),'finditem') 
wait(WaitTime) 
endif 
if UO.SS<CountReg then 
UO.FindType('0x0F8D','-1',StoreRegCont) ; SS 
UO.Grab(STR(CountReg-UO.SS),'finditem') 
wait(WaitTime) 
endif 
UO.FindType('0x1F4C','-1',StoreRegCont) ; 
UO.Grab('2','finditem') 
wait(WaitTime) 
uo.exec("recall Runebook 1") 
UO.UnsetReceivingContainer() 
end: 
end sub