Page 1 of 1
Не могу понять в чем проблема?
Posted: 2010-04-17 22:47:38
by 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
Re: Не могу понять в чем проблема?
Posted: 2010-04-17 23:17:22
by kostjan
так у тебя же даже не прописана там что неудача.
Re: Не могу понять в чем проблема?
Posted: 2010-04-18 08:22:23
by mustdie7
Где ?
Re: Не могу понять в чем проблема?
Posted: 2010-04-18 11:12:36
by kostjan
Ну что пишеться в журнале об ошибке ? fail или как ?
Re: Не могу понять в чем проблема?
Posted: 2010-04-18 12:21:13
by mustdie7
That creature looks
Re: Не могу понять в чем проблема?
Posted: 2010-04-18 12:54:39
by 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 с телефона пишу!
Re: Не могу понять в чем проблема?
Posted: 2010-04-18 18:14:18
by Mirage
что ты наваял
У тебя циклы не закрыты. По отступам даже видно.
Re: Не могу понять в чем проблема?
Posted: 2010-04-18 20:10:26
by kostjan
C телефона пишу!
Re: Не могу понять в чем проблема?
Posted: 2010-04-19 16:05:57
by mustdie7
Дак и я пробую чето не то )) ну я видел что циклов нет.
А проблема так и не решена(
Re: Не могу понять в чем проблема?
Posted: 2010-04-19 17:33:01
by 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
Re: Не могу понять в чем проблема?
Posted: 2010-04-19 22:16:44
by kostjan
Шас прочитал что я накалякал вобще в шоке был!
Мда с мобилы писать не удобно!
P.S Конечно айфон много функционален но не на стоко.
Re: Не могу понять в чем проблема?
Posted: 2010-04-20 16:41:24
by mustdie7
Mirage wrote:потому что у тебя первый скрипт почикан шиворот навыворот.
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 неудачи и не выключается тоже
Re: Не могу понять в чем проблема?
Posted: 2010-04-20 19:44:40
by Mirage
потому что
1) у НАС на шарде этот скрипт тамит до удачи и выключается
2) я ХЗ с какого ты шарда.
3) ты так и не задал вопрос что тебе от скрипта надо
Re: Не могу понять в чем проблема?
Posted: 2010-04-21 16:05:33
by mustdie7
вопрос где поставить сообщение о неудаче чтобы он продолжал тамить как я понимаю после not UO.INJournal
Re: Не могу понять в чем проблема?
Posted: 2010-04-21 16:28:40
by Mirage
в until UO.InJournal('fail|It seems|already|rememb') прописать ВСЕ ВОЗМОЖНЫЕ сообщения (получилось|не получилось|не видно зверька|уже притамлен|помнит вас... и так далее)
в while not UO.InJournal('It seems|see the creature|already|rememb') прописать ТОЛЬКО сообщения при удачном приручении.
в твоем первом скрипте (если его нормально написать) в 1 until все сообщения во втором нижнем только удачное приручение.
Re: Не могу понять в чем проблема?
Posted: 2010-04-23 22:45:10
by mustdie7
Mirage wrote:в until UO.InJournal('fail|It seems|already|rememb') прописать ВСЕ ВОЗМОЖНЫЕ сообщения (получилось|не получилось|не видно зверька|уже притамлен|помнит вас... и так далее)
в while not UO.InJournal('It seems|see the creature|already|rememb') прописать ТОЛЬКО сообщения при удачном приручении.
в твоем первом скрипте (если его нормально написать) в 1 until все сообщения во втором нижнем только удачное приручение.
спасибо тебе ) молодца
Re: Не могу понять в чем проблема?
Posted: 2010-04-24 06:03:31
by Mirage
просто 1 скрипт какаято безумная кастрация моего другого скрипта
