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

Не могу понять в чем проблема?
http://forum.yoko.com.ua/viewtopic.php?f=17&t=15705		 Page 1 of 1
Author:  mustdie7 [ 2010-04-17 22:47:38 ]
Post subject:  Не могу понять в чем проблема?
Значит пробую переделать но не выходит вроде должен продолжать попытки при неудаче а он останавливается после первого раза. Прошу вашей помощи ребята. Помогите пожалуйста если не трудно. Заранее Благодарен за помощь.

Code:
sub AnimalTaming()
    VAR animal = '0x0047' 
    var COLanimal = '0x0000' 
    uo.Set('finddistance', '2')
    Repeat
        uo.FindType(animal, COLanimal, 'ground')
        If uo.FindCount()>0 Then
            Uo.warmode(0)
            Wait(500)
            UO.DeleteJournal()
            Repeat
                UO.DeleteJournal()
                UO.WaitTargetObject('finditem')  
                UO.Useskill('Animal Taming')
                Wait(11000)
            Until UO.Journal('looks|see the creature|already|Вы успешно')
        Else
        Wait(500)
        Endif
        Wait(500)
    Until UO.Journal('That creature looks|see the creature|already|Вы успешно')
end sub
Author:  kostjan [ 2010-04-17 23:17:22 ]
Post subject:  Re: Не могу понять в чем проблема?
так у тебя же даже не прописана там что неудача.
Author:  mustdie7 [ 2010-04-18 08:22:23 ]
Post subject:  Re: Не могу понять в чем проблема?
Где ?
Author:  kostjan [ 2010-04-18 11:12:36 ]
Post subject:  Re: Не могу понять в чем проблема?
Ну что пишеться в журнале об ошибке ? fail или как ? :?:
Author:  mustdie7 [ 2010-04-18 12:21:13 ]
Post subject:  Re: Не могу понять в чем проблема?
That creature looks
Author:  kostjan [ 2010-04-18 12:54:39 ]
Post subject:  Re: Не могу понять в чем проблема?
Вроде всё впорядке попробуй так.

Code:
sub AnimalTaming()
    VAR animal = '0x0047'
    var COLanimal = '0x0000'
    uo.Set('finddistance', '2')
    Repeat
        uo.FindType(animal, COLanimal, 'ground')
        If uo.FindCount()>0 Then
            Uo.warmode(0)
            Wait(500)
            UO.DeleteJournal()
                UO.WaitTargetObject('finditem') 
                UO.Useskill('Animal Taming')
                Wait(100)
            Until UO.Journal('That creature|looks|see the creature|already|Вы успешно')
end if #поправил
end sub


P.S с телефона пишу!
Author:  Mirage [ 2010-04-18 18:14:18 ]
Post subject:  Re: Не могу понять в чем проблема?
что ты наваял :) У тебя циклы не закрыты. По отступам даже видно.
Author:  kostjan [ 2010-04-18 20:10:26 ]
Post subject:  Re: Не могу понять в чем проблема?
C телефона пишу! :|
Author:  mustdie7 [ 2010-04-19 16:05:57 ]
Post subject:  Re: Не могу понять в чем проблема?
Дак и я пробую чето не то )) ну я видел что циклов нет.

А проблема так и не решена(
Author:  Mirage [ 2010-04-19 17:33:01 ]
Post subject:  Re: Не могу понять в чем проблема?
потому что у тебя первый скрипт почикан шиворот навыворот.


Code:
sub AnimalTaming()
UO.Print('Где эта скотина?')
UO.Exec('addobject Animal')
  while uo.Targeting()
     wait(100)
  wend
UO.DeleteJournal()
while not UO.InJournal('It seems|see the creature|already|rememb')
  UO.DeleteJournal()
  UO.WaitTargetObject('Animal')  
  UO.Useskill('Animal Taming')
     repeat
        wait(100)
     until UO.InJournal('fail|It seems|already|rememb')
wend
end sub
Author:  kostjan [ 2010-04-19 22:16:44 ]
Post subject:  Re: Не могу понять в чем проблема?
Шас прочитал что я накалякал вобще в шоке был! :evil: Мда с мобилы писать не удобно!

P.S Конечно айфон много функционален но не на стоко.
Author:  mustdie7 [ 2010-04-20 16:41:24 ]
Post subject:  Re: Не могу понять в чем проблема?
Mirage wrote:
потому что у тебя первый скрипт почикан шиворот навыворот.


Code:
sub AnimalTaming()
UO.Print('Где эта скотина?')
UO.Exec('addobject Animal')
  while uo.Targeting()
     wait(100)
  wend
UO.DeleteJournal()
while not UO.InJournal('It seems|see the creature|already|rememb')
  UO.DeleteJournal()
  UO.WaitTargetObject('Animal')  
  UO.Useskill('Animal Taming')
     repeat
        wait(100)
     until UO.InJournal('fail|It seems|already|rememb')
wend
end sub

дак ето вообще другой скрипт ( и он не тамит после 1 неудачи и не выключается тоже
Author:  Mirage [ 2010-04-20 19:44:40 ]
Post subject:  Re: Не могу понять в чем проблема?
потому что
1) у НАС на шарде этот скрипт тамит до удачи и выключается
2) я ХЗ с какого ты шарда.
3) ты так и не задал вопрос что тебе от скрипта надо
Author:  mustdie7 [ 2010-04-21 16:05:33 ]
Post subject:  Re: Не могу понять в чем проблема?
вопрос где поставить сообщение о неудаче чтобы он продолжал тамить как я понимаю после not UO.INJournal
Author:  Mirage [ 2010-04-21 16:28:40 ]
Post subject:  Re: Не могу понять в чем проблема?
в until UO.InJournal('fail|It seems|already|rememb') прописать ВСЕ ВОЗМОЖНЫЕ сообщения (получилось|не получилось|не видно зверька|уже притамлен|помнит вас... и так далее)
в while not UO.InJournal('It seems|see the creature|already|rememb') прописать ТОЛЬКО сообщения при удачном приручении.

в твоем первом скрипте (если его нормально написать) в 1 until все сообщения во втором нижнем только удачное приручение.
Author:  mustdie7 [ 2010-04-23 22:45:10 ]
Post subject:  Re: Не могу понять в чем проблема?
Mirage wrote:
в until UO.InJournal('fail|It seems|already|rememb') прописать ВСЕ ВОЗМОЖНЫЕ сообщения (получилось|не получилось|не видно зверька|уже притамлен|помнит вас... и так далее)
в while not UO.InJournal('It seems|see the creature|already|rememb') прописать ТОЛЬКО сообщения при удачном приручении.

в твоем первом скрипте (если его нормально написать) в 1 until все сообщения во втором нижнем только удачное приручение.

спасибо тебе ) молодца
Author:  Mirage [ 2010-04-24 06:03:31 ]
Post subject:  Re: Не могу понять в чем проблема?
просто 1 скрипт какаято безумная кастрация моего другого скрипта :mrgreen:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/