Yoko

Code: Select all

sub minround() 
VAR Kirka = '0x0E86' ; Тип Кирки 
VAR MaxVes = 600 ; Максимальный вес, подымаемый чаром минус 10-15 стоунов 
VAR TileNum = '1339' ; Тайл пола пещеры (наиболее распространенный тип, чтобы узнать тип воспользуйся командой ,infotile и таргетом на тайл в пещере) 
VAR x, y, t, k 
VAR MaxTime = 100 ; измеряется в 1/10 сек. 
VAR ms1 = "There is no ore here to mine" 
VAR ms2 = "You can't use" 
VAR ms3 = "You put the" 
VAR ms4 = "You loosen some rocks" 
VAR ms5 = "You are too far away" 
VAR ms6 = "Try mining in rock" 
VAR ms7 = "You can't see that" 
for y=-2 to 2
for x=-2 to 2 
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("Прячемся...") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 
k = 0 
repeat 
UO.DeleteJournal() 
t = UO.Timer() 
k = k + 1 
UO.CancelTarget() 
wait(300) 
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0) 
UO.UseType( Kirka ) 
repeat 
wait(300) 
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer()) 
If UO.Weight > MaxVes Then 
UO.Print(" Overweight!" ) 
return 
Endif 
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) ) 
next 
next 
endsub 

Code: Select all

sub Mining()
var mx, my, mz, i, j, z
for z = 1 to 100 
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
hide()
for i = mx-2 to mx+2
   for j = my -2 to my +2
      UO.Print("Now Mining In: "+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("where") and not UO.InJournal("in rock") and not UO.InJournal("iron")
hide()         
UO.DeleteJournal()
         UO.Waittargettile("1341", str(i), str(j), str(mz))
         UO.Usetype("0x0e85")
         while not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("where") and not UO.InJournal("no ore here") and not UO.InJournal("far away") and not UO.InJournal("in rock") 
            wait (100)
         wend
      wend
      UO.DeleteJournal()
   next
next
      UO.Press(34)
         wait(100)
      UO.Press(34)
         wait(100)
      UO.Press(34)
         wait(100)
      UO.Press(34)
         wait(100)
next
end sub

sub hide() 
 while not UO.Hidden() 
   uo.WarMode("0") 
   uo.UseSkill("Hiding") 
     wait(1500) 
 wend 
end sub