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

Мининг обкопка клиент 2.0.3
http://forum.yoko.com.ua/viewtopic.php?f=3&t=16971		 Page 1 of 1
Author:  Mafia [ 2012-04-15 09:39:01 ]
Post subject:  Мининг обкопка клиент 2.0.3
Code:
sub kopat()
VAR ms1 = "There is no ore here to mine"
VAR ms2 = "You can't use"
VAR ms3 = "You put the"
VAR ms4 = "You loosen"
VAR ms5 = "You have no"
VAR ms6 = "Ooo ia inoaeinu"
VAR ms7 = "Oi.." 
VAR TileNum = '400' 
VAR Kirka = 0x0f39
var x,y,k,q,xs,ys,zs,xt,yt,coords
UO.DeleteJournal() 
for y=-2 to 2
   for x=-2 to 2
      repeat
      xs = UO.GetX()
      ys = UO.GetY()
      zs = UO.GetZ()
      xt = xs + x
      yt = ys + y
        q=0
        UO.DeleteJournal()
      uo.waittargettile('0',str(xt),str(yt),str(zs))
        UO.UseType( Kirka )   
        repeat      
            q=q+1
            wait(200)
         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 (q>50)
      until ( UO.InJournal(ms6) AND UO.InJournal(ms7))
   next
next 
end sub

Кто подскажет, в чем ошибка? То не капает, то покапает и перестанет.
Author:  Андрюха из Одессы [ 2012-04-15 11:30:33 ]
Post subject:  Re: Мининг обкопка клиент 2.0.3
Сообщения в журнале проверял? Может отличаются от сообщений на твоем сервере.
Тип кирки не верный (если склероз не изменяет, то вписан тип топора), тип тайла не указан.

Если нужна обкопка, я всегда беру за основу этот скрипт.
И совет тебе. У нас на форуме принято скрипты обрамлять тегом Code.
Author:  Mafia [ 2012-04-15 11:45:20 ]
Post subject:  Re: Мининг обкопка клиент 2.0.3
Сообщения проверял, тем более если он копает, то действительно начинает копать заного когда выкапывает. Тип - лопата, просто назвал неудачно, не суть важно тем более, что с киркой также не работает. Тип тайла указывал самый разный, но дело в том, что его не угадаешь. Тем более скрипт иногда работает и он начинает копать - копает пару раз и останавливается. Проблема в том, что он не всегда вообще начинает и бросает после нескольких попыток.

Я тоже этот скрипт брал за основу.
Author:  Mirage [ 2012-04-15 14:44:34 ]
Post subject:  Re: Мининг обкопка клиент 2.0.3
Если "то копает, то не копает" значит стопроцентно виноваты сообщения - пролетает какая то месага которой нет в списке и скрипт вырубается. Типо "это слишком далеко".
Author:  Mafia [ 2012-04-15 16:45:12 ]
Post subject:  Re: Мининг обкопка клиент 2.0.3
В коде специально на этот случай стоит параметр q, даж если сообщения не воспринимаются - через определённое время цикл останавливается. Но чар даже первого удара не делает. Или делает, но потом останавливается, хотя тайл не выкопан.
Author:  ZeroDX [ 2012-04-16 10:42:32 ]
Post subject:  Re: Мининг обкопка клиент 2.0.3
Code:
until ( UO.InJournal(ms6) AND UO.InJournal(ms7))
сюда бы добавить ms1 и 2 и 5
Author:  Mafia [ 2012-04-19 07:27:29 ]
Post subject:  Re: Мининг обкопка клиент 2.0.3
Не работает..
Author:  Successful [ 2012-04-19 18:27:59 ]
Post subject:  Re: Мининг обкопка клиент 2.0.3
Потому что они у тебя через "and" перечислены. Убери общую скобку и замени на "or" + добавь месаги которые Зеро посоветовал
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/