Yoko
http://forum.yoko.com.ua/

Помогите с минингом
http://forum.yoko.com.ua/viewtopic.php?f=17&t=17721
Page 1 of 1

Author:  t1m3 [ 2016-02-13 13:13:59 ]
Post subject:  Помогите с минингом

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

Code:
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 и даже когда я это ставлю в скрипт он один хер не копает, а этот как не странно капает. Потому рещил спросить чтобы в этот скрипт добавили ходилку и чтобы юзал руну при полном весе.

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

Author:  Incorrect User [ 2016-02-13 14:05:07 ]
Post subject:  Re: Помогите с минингом

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

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

500 веса
Code:
if uo.weight >= 500 then
  uo.usetype("0x1F14")
end if

Author:  t1m3 [ 2016-02-13 15:32:48 ]
Post subject:  Re: Помогите с минингом

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

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

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

Author:  Incorrect User [ 2016-02-13 21:25:53 ]
Post subject:  Re: Помогите с минингом

Может из за Z = 0 или номер тайла не нравится. Попробуй замени это
Code:
UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")

UO.exec ("usetype 0x0E85")

на это
Code:
uo.waittargettile("1341", uo.getx() + x, uo.gety() + y, uo.getz())

uo.usetype("0x0E85")

Author:  t1m3 [ 2016-02-14 11:28:11 ]
Post subject:  Re: Помогите с минингом

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

Author:  t1m3 [ 2016-02-14 11:32:01 ]
Post subject:  Re: Помогите с минингом

Только ещё вопрос, куда в этот скрипт всунуть вот это
Code:
if uo.weight >= 500 then
  uo.usetype("0x1F14")
end if


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

Author:  Incorrect User [ 2016-02-14 23:07:48 ]
Post subject:  Re: Помогите с минингом

Перед
Code:
until not UO.InJournal(ms8)

Author:  t1m3 [ 2016-02-15 06:33:27 ]
Post subject:  Re: Помогите с минингом

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

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/