Yoko

Code: Select all

UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0E85")

Code: Select all

sub minround()
VAR Kirka = '0x0f39'   ; Тип Кирки
VAR MaxVes = 650   ; Максимальный вес, подымаемый чаром минус 10-15 стоунов
VAR TileNum = '1339'   ; Тайл пола пещеры (наиболее распространенный тип)
VAR x, y, t, k
VAR MaxTime = 200   ; измеряется в 1/10 сек.
VAR ms1 = "Тут не осталось руды."
VAR ms2 = "You can't use"
VAR ms3 = "You put the"
VAR ms4 = "You loosen some rocks"
VAR ms5 = "Туда вам не дотянуться"
VAR ms6 = "Попробуйте добывать"
VAR ms7 = "Это слишком далеко отсюда."
for y=-4 to 4
for x=-4 to 4
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) or NOT UO.InJournal(ms3) OR (k > 10) 
         next
next
endsub 

Code: Select all

sub main()
var waittime = 4000
var mx, my, mz, i, j
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
While 1
for i = mx-4 to mx+4
for j = my-4 to my+4
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype('0x0F39')
wait(waittime)
next
next
wend
end sub

Code: Select all

sub main()
var waittime = 6000 ; время между ударами
var mx, my, mz, i, j
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
While 1
for i = mx-3 to mx+3
for j = my-3 to my+3
UO.Waittargettile("0", str(i), str(j), str(mz))
UO.Usetype('0x0F39')
wait(waittime)
next
next
wend
end sub

Code: Select all

sub mine()
 var x, y, i, t, tmp, inside, goto_x, st, first
 VAR ms1 = "there is nothing here to mine for"
 VAR ms2 = "you can't use"
 VAR ms3 = "you put "
 VAR ms4 = "you loosen some rocks but fail to find any useable ore"
 VAR ms5 = "òóò íå îñòàëîñü ðóäû"
 VAR ms6 = "òóäà âàì íå äîòÿíóòüñÿ"
 VAR ms7 = "you can't see that"
 VAR ms8 = "òóò íå îñòàëîñü ðóäû"
 VAR ms9 = "you loosen some rocks but fail to find any useable ore"
 first=UO.GetX()
 start:
 inside=0
 for y=-1 to 1
  for x=-1 to 1
   repeat
    uo.deletejournal()
    t = UO.Timer()
    UO.Exec ("waittargettile "+" 1343 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")
    UO.exec ("usetype 0x0E85")
    repeat
    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 UO.InJournal(ms9) OR ((t + 100) < UO.Timer())
   until not UO.InJournal(ms8)
  next
 next
end sub
sub main()
 var i
 While UO.Life>0
  for i=1 to 7
   mine()
   uo.press(34)
   wait(500)
   uo.press(34)
   wait(500)
   uo.press(34)
  next
  uo.press(33)
  wait(500)
  uo.press(33)
  wait(500)
  uo.press(33)
  mine()
  for i=1 to 7
   uo.press(36)
   wait(500)
   uo.press(36)
   wait(500)
   uo.press(36)
  next
  uo.press(33)
  wait(500)
  uo.press(33)
  wait(500)
  uo.press(33)
 wend
end sub
sub Tohide()
 while not uo.Hidden()
  uo.warmode(0)
  uo.UseSkill('Hiding')
  wait(4000)
 wend
end sub
sub CheckLag() 
 repeat
  UO.DeleteJournal() 
  UO.Click('backpack') 
 until backpack()==1
endsub