Yoko

All sides of Injection
It is currently 2024-03-28 11:24:20

All times are UTC+02:00




Post new topic  Reply to topic  [ 6 posts ] 
Author Message
PostPosted: 2012-05-02 02:19:12 
Offline

Joined: 2006-11-15 18:45:31
Posts: 27
Location: in Moscow (west)
Скрипт работает хорошо, за исключением одного, очень часто, не дождавшись завершения копки начинает новую, тем самым сбивая предыдушую... Помогите исправить, чтобы он дожидался результатов первой копки и не фейлил последуюшие .....))))))

Code:
 sub mining() 
    Var mnPickaxe, mnR, mnXSt, mnXEnd, mnYSt, mnYEnd, mnXMy, mnYMy, mnZMy, mnX, mnY, mnXCur, mnYCur, mnCheck
    mnPickaxe = "0x0E85" # Тип кирки
    mnR = 3              # Радиус копания

    mnXSt = - mnR
    mnXEnd = mnR
    mnYSt = - mnR
    mnYEnd = mnR

    For mnXCur = mnXSt To mnXEnd
     For mnYCur = mnYSt To mnYEnd
      hiding()
      Repeat
       UO.DeleteJournal()
       mnXMy = UO.GetX()
       mnYMy = UO.GetY()
       mnZMy = UO.GetZ()
       mnX = mnXCur + mnXMy
       mnY = mnYCur + mnYMy

       UO.Print("Current position (" + Str(mnX) + ";" + Str(mnY) + ";" + Str(mnZMy) + ")")
       UO.WaitTargetTile("1530", Str(mnX), Str(mnY), Str(mnZMy))
       UO.UseType(mnPickaxe)

       mnCheck = 0
       Repeat
        mnCheck = mnCheck + 1
        Wait(100)
       Until mnCheck >= 120 Or UO.InJournal("You put") Or UO.InJournal("You loose") Or UO.InJournal("Try mining") Or UO.InJournal("no line") Or UO.InJournal("no ore") Or UO.InJournal("no line")
      Until UO.InJournal("no ore") Or UO.InJournal("no line") Or UO.InJournal("Try mining")
     Next
    Next
end sub

sub hiding()
    Var hdntim
    If Not UO.Hidden() Then
     hdnst:
      UO.DeleteJournal()
      hdntim = 0
      UO.UseSkill('Hiding')
      Repeat
       hdntim = hdntim + 1
       Wait(100)
      Until UO.InJournal("You have hidden yourself well") Or hdntim >= 36
      If Not UO.InJournal("You have hidden yourself well") Then
       Goto hdnst
      End If
    End If
end sub
.


Top
   
PostPosted: 2012-05-02 06:22:02 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
Code:
mnCheck = 0 
 Repeat
 mnCheck = mnCheck + 1
 Wait(100)
 Until mnCheck >= 200 Or UO.InJournal("You put") Or UO.InJournal("You loose") Or UO.InJournal("Try mining") Or UO.InJournal("no line") Or UO.InJournal("no ore") Or UO.InJournal("no line")
 Until UO.InJournal("no ore") Or UO.InJournal("no line") Or UO.InJournal("Try mining")
 Next
 Next
end sub

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Top
   
PostPosted: 2012-05-02 11:46:14 
Offline

Joined: 2006-11-15 18:45:31
Posts: 27
Location: in Moscow (west)
Спасибо, теперь догнал в чем трабл был ))


Top
   
PostPosted: 2012-05-03 19:22:20 
Offline

Joined: 2006-11-15 18:45:31
Posts: 27
Location: in Moscow (west)
Брр... Теперь перестает копать, копнет, раз, два и стоит, кирку юзает но непонятно куда он ее юзает, получается так, раз копнул, два копнул, третий раз в журнале пишет куда ее ткнуть и стоит, проходит 20 сек и опять, и так раза 3-4, потом опять копнет и опять поражняком стоит по минуте..... Тайлы менял, но они не влияюют на это....В чем может быть проблема? В вердате с пеньками??)))) Помоготи плиз уже неделю марочюсь, весь форум перерыл ничего не получается, играю на оскоме...


Top
   
PostPosted: 2012-05-03 19:28:53 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
1) не полный набор фраз в журнале. Копай руками - сверяй сообщения не удачи, поломки, слишком далеко и прочего. На новых сферах например по умолчанию нельзя копать 3 тайл по диагоналям и под собой. Скрипт на это не рассчитан.
2) Некоторые деятели - админы затирают сообщения при добыче - соответственно скрипту не на что реагировать кроме счетчика - который у тебя теперь 20 секунд.
Мораль: проверяй фразы и играй со счетчиком. Замерь сколько длится копание 1 тайла с полным изъятием руды.


PS причем тут пеньки? О_о

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
PostPosted: 2012-05-03 22:50:25 
Offline

Joined: 2006-11-15 18:45:31
Posts: 27
Location: in Moscow (west)
Все сообщения проходят, ограничений на копку нет, скрипт реагирует на все сообщения, но реагирует не до конца, он как-то выборочно выбирает тайл, копать или нет, выкопал, подожил в пак, скрипт моментом отреагировал, задействовал кирку, но.... не стал копать, простоял 20 сек, опять задействовал кирку и опять не стал копать, в следующий раз может и капнуть...


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 6 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 20 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited