Yoko

Code: Select all

;===---====----===---===---= Mining =---=-=-=-=-=--=-=-=-=-=-=- 
sub mine() 
   VAR i,TileY,TileX,DirX,DirY 
   UO.Exec('exec alarm') 
 

   While NOT UO.Dead() 
      DirX=1 
      DirY=1 

      For TileY=1 to 4 
         For TileX=1 to 17  
            ToHide()             
            digit() 
            walk(1*DirX,0) 
         next 

         ToHide() 
         digit() 
         DirX=-1*DirX 
         walk(0,1*DirY) 
      next 
      ToHide() 
      digit() 
      DirY=-1*DirY 
      walk(989-UO.GetX(),1584-UO.GetY()) 
   wend 
end sub 


sub digit() 
   VAR Last=0,LastTimer 
   VAR MaxWeight=290

   if UO.Weight>MaxWeight then 
      unloadore() 
   endif 

    
 repeat 
      CheckLag() 
      UO.WaitTargetSelf() 
      UO.UseType('0x0e85') ;add pickaxe to object type 
      LastTimer=UO.Timer() 

      repeat 
         wait(100) 
         
      until 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() 
      wait(1000)    
 

      if UO.InJournal('You put') then 
         repeat 
            wait(100) 
         until UO.InJournal("You put") OR LastTimer+105<UO.Timer() 
      endif 
       
   until UO.InJournal('You loosen') OR UO.InJournal("There is no") OR UO.InJournal("That is too") 
   wait(1000) 
 
end sub 


sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 

   repeat 
      wait(50) 
   until UO.InJournal('backpack') 
end sub 

sub unloadore() 
   VAR TempX,TempY,i,Exit 
   DIM Ore[5] 
    
   TempX=UO.GetX() 
   TempY=UO.GetY() 
   walk(5298-TempX,2024-TempY) 
   ToHide() 

 Ore[0]=0x19b9; 4 and more ore 
Ore[1]=0x19B7 ; 1 ore 
Ore[2]=0x19BA ; 2 ore 
Ore[3]=0x19B8 ; 3 ore 

   UO.SetReceivingContainer('0x4004570A') ; serial of store container 

   wait(500) 
   Exit=0 

   For i=0 to 3 
      repeat 
       
         UO.FindType(Ore[i]) 
         CheckLag() 
          
         if UO.GetQuantity('finditem')>0 then 
            UO.Grab('0','finditem') 
            CheckLag() 
            wait(2000) 
         Else 
            Exit=1 
         endif 
      until Exit==1 
   Next 

   UO.UnSetReceivingContainer() 

   walk(TempX-5292,TempY-2021) 
   ToHide() 
end sub 

 




sub tohide() 
   while NOT UO.Hidden() 
      UO.DeleteJournal() 
      UO.UseSkill('Hiding') 
      repeat 
         wait(50) 
      until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') 
   wend 
end sub 

sub walk(dx,dy) 
   VAR i, walkwait=400 
   If dx<>0 then 
      If dx>0 then 
         If UO.GetDir()<>2 then 
            UO.Press(34) 
            wait(walkwait) 
         Endif 
         For i=1 to dx 
            UO.Press(34) 
            wait(walkwait) 
         next 
      Else 
         If UO.GetDir()<>6 then 
            UO.Press(36) 
            wait(walkwait) 
         Endif 
         For i=1 to dx*-1 
            UO.Press(36) 
            wait(walkwait) 
         next 
      Endif 

   endif 
    
   If dy<>0 then 
      If dy>0 then 
         If UO.GetDir()<>4 then 
            UO.Press(35) 
            wait(walkwait) 
         Endif 
         For i=1 to dy 
            UO.Press(35) 
            wait(walkwait) 
         next 
      Else 
         If UO.GetDir()<>0 then 
            UO.Press(33) 
            wait(walkwait) 
         Endif 
         For i=1 to dy*-1 
            UO.Press(33) 
            wait(walkwait) 
         next 
      Endif 
   endif 
   wait(1000) 
end sub 

sub alarm() 
   while NOT UO.Dead() 
      wait(1000) 
      if UO.Life<50 then 
         gong(1) 
      endif       
   wend 
end sub 

sub gong(times) 
   VAR i 
   for i=1 to times 
      UO.Exec("playwav C:\cow") 
      wait(1200) 
   next 
end sub