Выручайте - Мининг

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Carte Blanche
Posts: 7
Joined: 2009-12-14 17:50:28
Location: Рига сити

Выручайте - Мининг

Post by Carte Blanche »

Доброе время суток господа .
Проблема , перепробовал "наверное" все скрипты с вашего уважаемого сайта , на minround .
Постоянно выкидывает разнообразные ошибки .

Вот последний скрипт , который использовал :

Code: Select all

sub mini()
VAR Kirka = '0x0E85'   ; Тип Кирки
VAR MaxVes = 550   ; Максимальный вес, подымаемый чаром минус 10-15 стоунов
VAR TileNum = '1339'   ; Тайл пола пещеры (наиболее распространенный тип)
VAR x, y, t, k
VAR MaxTime = 100   ; измеряется в 1/10 сек.
VAR ms1 = "There is no ore here to mine"
VAR ms2 = "You can't use"
VAR ms3 = "You put the"
VAR ms4 = "You loosen some rocks"
VAR ms5 = "You are too far away"
VAR ms6 = "Try mining in rock"
VAR ms7 = "You can't see that"
for y=-2 to 2
for x=-2 to 2
while not UO.Hidden()
UO.Warmode("0")
uo.print("Прячемся...")
UO.UseSkill("Hiding")
wait(4000)
wend
      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


Этот же просто , всё начинается хорошо , становиться в хайд , берёт кирку , начинает копать . Он начинает слишком торопиться , и делает фейл раскопке , после чего начинается флуд типа -

Code: Select all

You loosen some rocks but fail to find any useable ore.
Error: No target to cancel
Where do you want to use the pickaxe ?


зы . - Поиском пользовался , всё пробовал . В скриптах профан .
Пожелания , если есть возможность . Простейшее копание вокруг перса с хайдом . Да даже и без хайда .
зыы . - Шард Оском .

зыы . - что бы было совсем ясна проблема - http://img.bagem.lv/images/537366161.jpg
Last edited by Carte Blanche on 2009-12-14 20:29:23, edited 1 time in total.
Carte Blanche
Posts: 7
Joined: 2009-12-14 17:50:28
Location: Рига сити

Post by Carte Blanche »

Прошу прощения , я еще и форумом ошибся ...
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

Попробуй этот

не тестил, отпишись как работать будет
Carte Blanche
Posts: 7
Joined: 2009-12-14 17:50:28
Location: Рига сити

Post by Carte Blanche »

Откапывает один раз , с одной точки , и всё ... Хотя скрипт еще как бы запущен .

Забыл упомянуть - YokoInjection 501.??(4VI)
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

702.11

Скрипт поправил - должен бесконечно копать вокруг себя
Carte Blanche
Posts: 7
Joined: 2009-12-14 17:50:28
Location: Рига сити

Post by Carte Blanche »

Огромное спасибо . Всё работает почти прекрасно ...
Не считая постоянной надписи -

Code: Select all

Error: No target to cancel
Post Reply