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

Скрипт на мининг!!!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=15507		 Page 1 of 1
Author:  Sky525464 [ 2010-01-25 15:20:17 ]
Post subject:  Скрипт на мининг!!!
Помогите плиз возможно ли написать такой скрипт чтобы чар просто стоял на месте и копал вокруг себя просто вокруг себя без ходьбы реколов и тд.... помогите плиз если можно напишите!!! :oops:
Author:  Gromiz [ 2010-01-25 15:38:16 ]
Post subject:  Re: Скрипт на мининг!!!
есть такой, в поиск забей мининг или mining
Author:  Sky525464 [ 2010-01-25 15:57:15 ]
Post subject:  Re: Скрипт на мининг!!!
Gromiz wrote:
есть такой, в поиск забей мининг или mining

юзал поиск не нашел =( там в основном чар копает и после определенной нагрузки реколится, а мне надо стобы он просто вокруг себя все клетки капали стоял на месете
Author:  Sky525464 [ 2010-01-26 15:00:22 ]
Post subject:  Re: Скрипт на мининг!!!
sub minround()
VAR Kirka = '0x0E85' ; Тип Кирки
VAR MaxVes = 550 ; Максимальный вес, подымаемый чаром минус 10-15 стоунов
VAR TileNum = '1340' ; Тайл пола пещеры (наиболее распространенный тип)
VAR x, y, t, k
VAR MaxTime = 100 ; измеряется в 1/10 сек.
VAR ms1 = "There is no ore here to mine"
VAR ms2 = "There is no ore here to mine"
VAR ms3 = "There is no ore here to mine"
VAR ms4 = "There is no ore here to mine"
VAR ms5 = "You are too far away"
VAR ms6 = "There is no ore here to mine"
VAR ms7 = "You can't see that"
for y=-2 to 2
for x=-2 to 2

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

Помогите разобратся, как его зациклить ??? а то через несколько раз он вылетает де касяк, и еще он постоянно пишет ауто таргет канцелед ПОМОГИТЕ до ума довести плиззЗ!!???!
Author:  Mirage [ 2010-01-26 16:33:28 ]
Post subject:  Re: Скрипт на мининг!!!
ошибки в сообщениях. Попробуй вот так:

Code:
sub minround()
   VAR Kirka = '0x0E85' ; Тип Кирки
   VAR MaxVes = 550 ; Максимальный вес, подымаемый чаром минус 10-15 стоунов
   VAR TileNum = '1340' ; Тайл пола пещеры (наиболее распространенный тип)
   VAR x, y, t, k
   VAR MaxTime = 100 ; измеряется в 1/10 сек.
   var continue = "useable|выкопали|0xAD00|0xA867|0xA2DE|0xAD03|0x5DE0|0x5DE1|0x5DE2|0x5DE3|0x5DE4|0x5DE5|0x5DE6|0x5DE7|Вы положили|put the|is nothing here to mine|Wthere do you|Вам не удалось|У вас нет|have no line|ничего|Тут ничего|Попробуйте|Try mining elsewhere" ; сообщения о продолжении капания этого тайла
   var break = "0xAD00|0xA867|0xA2DE|Тут ничего|is nothing here to mine|нет руды|У вас нет|have no line|Попробуйте|Try mining elsewhere" ; сообщения о прекращении капания этого тайла
   for y=-2 to 2
      for x=-2 to 2
         k = 0
         repeat
            UO.DeleteJournal()
            t = UO.Timer()
            k = k + 1
            UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
            UO.UseType( Kirka )
            repeat
               wait(300)
            until UO.InJournal(continue) OR ((t + MaxTime) < UO.Timer())
            If UO.Weight > MaxVes Then
               UO.Print(" Overweight!" )
               return
            Endif
         until ( NOT UO.InJournal(break) OR (k > 10) )
      next
   next
endsub
Author:  Sky525464 [ 2010-01-26 16:36:34 ]
Post subject:  Re: Скрипт на мининг!!!
Mirage wrote:
ошибки в сообщениях. Попробуй вот так:

Code:
sub minround()
   VAR Kirka = '0x0E85' ; Тип Кирки
   VAR MaxVes = 550 ; Максимальный вес, подымаемый чаром минус 10-15 стоунов
   VAR TileNum = '1340' ; Тайл пола пещеры (наиболее распространенный тип)
   VAR x, y, t, k
   VAR MaxTime = 100 ; измеряется в 1/10 сек.
   var continue = "useable|выкопали|0xAD00|0xA867|0xA2DE|0xAD03|0x5DE0|0x5DE1|0x5DE2|0x5DE3|0x5DE4|0x5DE5|0x5DE6|0x5DE7|Вы положили|put the|is nothing here to mine|Wthere do you|Вам не удалось|У вас нет|have no line|ничего|Тут ничего|Попробуйте|Try mining elsewhere" ; сообщения о продолжении капания этого тайла
   var break = "0xAD00|0xA867|0xA2DE|Тут ничего|is nothing here to mine|нет руды|У вас нет|have no line|Попробуйте|Try mining elsewhere" ; сообщения о прекращении капания этого тайла
   for y=-2 to 2
      for x=-2 to 2
         k = 0
         repeat
            UO.DeleteJournal()
            t = UO.Timer()
            k = k + 1
            UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
            UO.UseType( Kirka )
            repeat
               wait(300)
            until UO.InJournal(continue) OR ((t + MaxTime) < UO.Timer())
            If UO.Weight > MaxVes Then
               UO.Print(" Overweight!" )
               return
            Endif
         until ( NOT UO.InJournal(break) OR (k > 10) )
      next
   next
endsub

щас попробую +) Спасибо!!
Author:  Sky525464 [ 2010-01-26 17:45:54 ]
Post subject:  Re: Скрипт на мининг!!!
всёравно почему то через какоето время макрос сбиватся и минеры тупго стоят =( :(
Author:  Mirage [ 2010-01-27 09:29:52 ]
Post subject:  Re: Скрипт на мининг!!!
они могут стоять потому что:
1)сломался инструмент а запасного нет
2)тебя атаковали - в вар режиме нельзя копать
3)чар перегружен
4)Чар выкапывает квадрат 2 на 2 и просто встанет - там нет цикла :)
Author:  Artusss [ 2011-01-03 14:39:15 ]
Post subject:  Re: Скрипт на мининг!!!
а как сделать чтоб оно сразу повторяло а не выключало скрипт?
Author:  Mirage [ 2011-01-03 15:47:53 ]
Post subject:  Re: Скрипт на мининг!!!
Code:
   WHILE NOT UO.Dead()
      for y=-2 to 2
.......
      next
      wait( 300 )
   wend
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/