Скрипт на мининг!!!

[Sky525464]

Помогите плиз возможно ли написать такой скрипт чтобы чар просто стоял на месте и копал вокруг себя просто вокруг себя без ходьбы реколов и тд.... помогите плиз если можно напишите!!!

[Gromiz]

есть такой, в поиск забей мининг или mining

[Sky525464]

есть такой, в поиск забей мининг или mining

юзал поиск не нашел =( там в основном чар копает и после определенной нагрузки реколится, а мне надо стобы он просто вокруг себя все клетки капали стоял на месете

[Sky525464]

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

Помогите разобратся, как его зациклить ??? а то через несколько раз он вылетает де касяк, и еще он постоянно пишет ауто таргет канцелед ПОМОГИТЕ до ума довести плиззЗ!!???!

[Mirage]

ошибки в сообщениях. Попробуй вот так:

Code: Select all

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

[Sky525464]

ошибки в сообщениях. Попробуй вот так:

Code: Select all

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

щас попробую +) Спасибо!!

[Sky525464]

всёравно почему то через какоето время макрос сбиватся и минеры тупго стоят =(

[Mirage]

они могут стоять потому что:
1)сломался инструмент а запасного нет
2)тебя атаковали - в вар режиме нельзя копать
3)чар перегружен
4)Чар выкапывает квадрат 2 на 2 и просто встанет - там нет цикла

[Artusss]

а как сделать чтоб оно сразу повторяло а не выключало скрипт?

[Mirage]

Code: Select all

   WHILE NOT UO.Dead()
      for y=-2 to 2
.......
      next
      wait( 300 )
   wend