Yoko

Code: Select all

##===============================================================##
##========================Kopalka================================##
##===============================================================##
sub mine() 
var x, y, i, tmp, inside, goto_x, st, first , posit
st=0 

first=UO.GetX() 

start: 
inside=0 
for y=-2 to 2
for x=-2 to 2
try: 
UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0") 
UO.exec ("usetype 0x0E85") 
#UO.Print (""+STR(x)) 
#UO.Print (""+STR(y)) 
i=0 
while i< 100 
if UO.InJournal("You loosen some rocks but fail to find any useable ore") then 
wait (1000) 
i=200 
UO.DeleteJournal() 
goto try 
endif
if UO.InJournal("Try mining elsewhere") then 
i=200 
UO.DeleteJournal() 
endif 
if UO.InJournal("You cant mine in this Region.") then 
i=200 
UO.DeleteJournal() 
endif 
if UO.InJournal("Your pickaxe is destroyed") then
i=200
UO.DeleteJournal()
endif
if UO.InJournal("You must wait to perform another action") then 
wait (1000) 
i=200 
UO.DeleteJournal() 
goto try 
endif 
if uo.InJournal("Elemental") or uo.InJournal("is attacking you")then
uo.playwav("C:\injection\alert.wav")
killelem() 
wait(1000)
loot()
i=200 
UO.DeleteJournal() 
goto try 
endif 
if uo.InJournal("till")then
uo.playwav("C:\injection\alert.wav")
gumpclick()
wait(1000)
i=200 
UO.DeleteJournal()
goto try
endif
if UO.InJournal("There is nothing here to mine for")  then 
wait (1000) 
i=200 
UO.DeleteJournal() 
endif 
if UO.InJournal("You have no line of sight to that location") then 
wait (1000) 
i=200 
UO.DeleteJournal() 
endif 
wait (500) 
i=i+1 
if UO.Weight>700 then
UO.print ( 'maxweight reached' )
recalltohouse()
hodjba()
dropores()
recalltocave()
return 1
UO.print ("Your weight is "+STR(UO.Weight))
goto try
end if
wend 
next 
next 

if st == 0 then 
 posit=UO.GetX()
 posit=posit+5
 while UO.GetX() < posit 
  UO.Press (39, 1, 500) 
 wend  
 st=1 
 goto start
endif 

if st == 1 then 
 posit=UO.GetY()
 posit=posit+5
 while UO.GetY() < posit 
  UO.Press (40, 1, 500) 
 wend  
 st=2 
 goto start
endif 

if st == 2 then 
 posit=UO.GetX()
 posit=posit-5
 while UO.GetX() > posit 
  UO.Press (37, 1, 500) 
 wend  
 st=3 
 goto start
endif 

if st == 3 then 
 posit=UO.GetY()
 posit=posit-5
 while UO.GetY() > posit 
  UO.Press (38, 1, 500) 
 wend  
 st=0 
 goto start
endif 


goto start
finish:
wait(1000)
recalltohouse()
wait(1000)
Goto(4586,3312)
dropores()
wait(1000)
recalltocave()
end sub
sub recalltohouse()
uo.say ( ',recall 0x4005A74D 2' )
wait(15000)
end sub

sub recalltocave()
var Chest='0x4005A74D'
uo.FindType('0x1F4C','-1',Chest) 
uo.Grab('3','finditem')
wait(3000)
uo.say ( ',recall 0x4005A74D 3' )
wait(25000)
uo.Exec('exec mine') 
wait(15000)
end sub

##==================================================================##
sub DropOres() 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
var a, Exit 
var UnloadChest='0x4001B28B' ## - ID noiaoea aey na?ina ?oau. 
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(UnloadChest) 
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 
end if 
until Exit==1 
next 
uo.UnSetReceivingContainer() 
end sub 

#============================================================== 
#  CheckLag() - click on backpack and awaiting "backpack" 
#               message in journal. 
# 
#  Journal has been deleted!!! 
#-------------------------------------------------------------- 
sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 

   Repeat 
      wait(1000) 
   Until UO.InJournal('backpack') 
end sub

sub killelem() 
   VAR Count,Elem 
    
   uo.equipt('Rhand','0x0F51') 
   UO.DeleteJournal() 
   UO.Exec('warmode 1') 

   UO.FindType('0x000E',-1,'ground') 
   Elem=UO.GetSerial('finditem') 
wait (300)
   UO.Attack(Elem) 
    
   repeat 
      wait(1000) 
      If UO.Life<150 Then 
        UO.WaitMenu('Camping','Healing Campfie') 
        UO.UseType(0x0DE1) 
      Endif 
       If UO.Life<50 Then 
        UO.UseType(0x182B) 
      Endif 
   until UO.IsNPC(Elem)==0 
   wait(3000) 
   UO.Exec('warmode 0') 
   wait(1000) 

   UO.Print("poka!") 

end sub 

sub loot() 
 var corpse='0x2006' ; objtype ??? ???? ??????, ?????????? ?? ????, ??? ????. 
 var waittime=1000 
 var body,bodypack,i 
 DIM Loot[12] 
 Loot[0]=0x19B9
 Loot[1]=0x19BA
 Loot[2]=0x19B7 
 Loot[3]=0x19B8
 Loot[4]=0x141A 
 Loot[5]=0x1416 
 Loot[6]=0x1410 
 Loot[7]=0x1417 
 Loot[8]=0x1418 
 Loot[9]=0x1419 
 Loot[10]=0x0E76 
 Loot[11]=0x1413 
 Loot[12]=0x1086 
 uo.set('finddistance','2') 
  while uo.countonground(corpse)>0 
   uo.findtype(corpse,'-1','ground') 
   body=uo.getserial('finditem') 
#-----------????????? ???? ??? 
   uo.useobject('backpack') 
#-----------???? ???????? ?????? ???? 
   repeat 
    wait(100) 
   until uo.getserial('lastcontainer')==uo.getserial('backpack') 
#-----------????????? ???? 
   uo.useobject(body) 
   repeat 
    wait(100) 
   until uo.getserial('lastcontainer')<>uo.getserial('backpack') 
#------------ 
   bodypack=uo.getserial('lastcontainer') 
   For i=0 to 12 
    repeat 
     UO.FindType(Loot[i],-1,bodypack) 
     if UO.GetQuantity('finditem') then 
      UO.MoveItem('finditem','backpack') 
      repeat 
       wait(100) 
      until uo.containerof('finditem')==uo.getserial('backpack') 
      wait(waittime) 
     endif 
    until uo.findcount()==0 
   next 
   uo.ignore(body) 
  wend 
endsub 
sub hodjba()
var x, y, i, tmp, inside, goto_x, st, first , posit
first=UO.GetX() 
posit=UO.GetX()
posit=posit+5
while UO.GetX() < posit 
UO.Press (39, 1, 500) 
wend  
endif 

Code: Select all

var UnloadChest='0x4001B28B' ## - ID noiaoea aey na?ina ?oau.