Помогите с минингом

[t1m3]

Сообственно вот скрипт

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() 
      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("nothing here to mine") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("cannot mine so close") and not UO.InJournal("in rock") and not UO.InJournal("iron") 
               UO.DeleteJournal() 
               UO.Waittargettile("1341", str(i), str(j), str(mz)) 
               UO.Usetype("0x0e85") 
               while not UO.InJournal("Вы положили") and not UO.InJournal("location") and not UO.InJournal("nothing here to mine") and not UO.InJournal("but fail") and not UO.InJournal("cannot mine so close") and not UO.InJournal("nothing here to mine") and not UO.InJournal("far away") and not UO.InJournal("in rock") 
                  wait (100) 
               wend 
            wend 
            UO.DeleteJournal() 
         next 
      next 
   next 
end sub

Нужно туда добавить ходилку по шахте и при полном весе, например 500 персонаж должен юзать такой тайп 0x1F14


Перепробовал много скриптов и пробовал сам редактировать, ну, как не странна чар копает только с этим сприктом, ибо остольных скриптов пищет что якобы невозможно достать иной тайл и тупо не копает. Понимаю что причина в том что Администратор сделал некую защиту, ибо при нажатие ,infotile показивает что я на высотье 30 и даже когда я это ставлю в скрипт он один хер не копает, а этот как не странно капает. Потому рещил спросить чтобы в этот скрипт добавили ходилку и чтобы юзал руну при полном весе.

За ранее спасибо.

[Incorrect User]

При чем тут высота, если пишет что не может достать? Нет никакой защиты, просто на разных шардах разное расстояние, через которое можно достать киркой. На некоторых 3 тайла в любую сторону от чара, на некоторых два, ты взял скрипт на 3 тайла, вот тебе и пишет что не может достать.

Ходилка x - Координата X места куда нужно стать, y - координата Y места куда нужно стать. distance - расстояние в тайлах, на которое необходимо подойти к указанной точке, 0 - стать на нее.

Code: Select all

uo.pmove(x, y, distance)

500 веса

Code: Select all

if uo.weight >= 500 then
  uo.usetype("0x1F14")
end if

[t1m3]

Видимо я ошибся в англиском, вообще поставил так же копку в 2 -2 в другой скрипт, он мне пищет такое - You have no line of sight to that location

Сам скрипт вот:

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"

VAR ms5 = "location"

VAR ms6 = "Try mining"

VAR ms7 = "You can't see that"

VAR ms8 = "You stop"

VAR ms9 = "That is too"

first=UO.GetX()

start:

inside=0

for y=-2 to 2

for x=-2 to 2

repeat

uo.deletejournal()

t = UO.Timer()

UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")

UO.exec ("usetype 0x0E85")

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  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

[Incorrect User]

Может из за Z = 0 или номер тайла не нравится. Попробуй замени это

Code: Select all

UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")

UO.exec ("usetype 0x0E85")

на это

Code: Select all

uo.waittargettile("1341", uo.getx() + x, uo.gety() + y, uo.getz())

uo.usetype("0x0E85")

[t1m3]

Спасибо, работает.

[t1m3]

Только ещё вопрос, куда в этот скрипт всунуть вот это

Code: Select all

if uo.weight >= 500 then
  uo.usetype("0x1F14")
end if

чтобы он улител при этом весе )

[Incorrect User]

Перед

Code: Select all

until not UO.InJournal(ms8)

[t1m3]

Большое спасибо )
Кстате ну уже второй раз, когда-то пару лет назад именно Ты мне помог с автоботом, добрый человек, зачет!