Не могу понять в чем проблема?

[mustdie7]

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

Code: Select all

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

[kostjan]

так у тебя же даже не прописана там что неудача.

[mustdie7]

Где ?

[kostjan]

Ну что пишеться в журнале об ошибке ? fail или как ?

[mustdie7]

That creature looks

[kostjan]

Вроде всё впорядке попробуй так.

Code: Select all

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 с телефона пишу!

[Mirage]

что ты наваял У тебя циклы не закрыты. По отступам даже видно.

[kostjan]

C телефона пишу!

[mustdie7]

Дак и я пробую чето не то )) ну я видел что циклов нет.

А проблема так и не решена(

[Mirage]

потому что у тебя первый скрипт почикан шиворот навыворот.

Code: Select all

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

[kostjan]

Шас прочитал что я накалякал вобще в шоке был! Мда с мобилы писать не удобно!

P.S Конечно айфон много функционален но не на стоко.

[mustdie7]

потому что у тебя первый скрипт почикан шиворот навыворот.

Code: Select all

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 неудачи и не выключается тоже

[Mirage]

потому что
1) у НАС на шарде этот скрипт тамит до удачи и выключается
2) я ХЗ с какого ты шарда.
3) ты так и не задал вопрос что тебе от скрипта надо

[mustdie7]

вопрос где поставить сообщение о неудаче чтобы он продолжал тамить как я понимаю после not UO.INJournal

[Mirage]

в until UO.InJournal('fail|It seems|already|rememb') прописать ВСЕ ВОЗМОЖНЫЕ сообщения (получилось|не получилось|не видно зверька|уже притамлен|помнит вас... и так далее)
в while not UO.InJournal('It seems|see the creature|already|rememb') прописать ТОЛЬКО сообщения при удачном приручении.

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

[mustdie7]

в until UO.InJournal('fail|It seems|already|rememb') прописать ВСЕ ВОЗМОЖНЫЕ сообщения (получилось|не получилось|не видно зверька|уже притамлен|помнит вас... и так далее)
в while not UO.InJournal('It seems|see the creature|already|rememb') прописать ТОЛЬКО сообщения при удачном приручении.

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

спасибо тебе ) молодца

[Mirage]

просто 1 скрипт какаято безумная кастрация моего другого скрипта