Page 1 of 1
Скрипт на беггинг+спирит спик
Posted: 2005-04-16 13:20:15
by Kenny
Сабж.
Только громко не ржите плз ... %)
Я в инже 0, поэтому не понимаю, почему мой мегаскрипт работать не хочет ...
Code: Select all
sub begging()
while NOT UO.Dead()
UO.DeleteJournal()
UO.Useskill('Spirit Speak')
wait(5000)
UO.Useskill('Begging')
UO.Waittargetobject('ИД другого плеера')
wait(1000)
wend
end sub()
Posted: 2005-04-16 14:13:46
by Leo
ID-то ты прописал?
Posted: 2005-04-16 15:28:50
by Kenny
Угу. Пишет типа ошибка в 10 строке ...
Line 10. Parse error.
Re: Скрипт на беггинг+спирит спик
Posted: 2005-04-16 15:35:49
by Immelstorn
Исправь на end sub. т.е кавычки убери
Posted: 2005-04-16 15:42:23
by Kenny
Спасибо, работает.
Мой первый скрипт.)))
Еще подскажите плз, как сделать, чтобы беггинг юзался сразу после спирита, то бишь после надписи 'you failed' или 'you established'???
В теории знаю, а синтаксис еще не выучил ...
Re: Скрипт на беггинг+спирит спик
Posted: 2005-04-16 15:50:37
by Immelstorn
Code: Select all
sub begging()
while NOT UO.Dead()
UO.DeleteJournal()
uo.useskill('Sp')
repeat
wait(200)
until UO.InJournal("You establish a connection to the netherworld.") or UO.InJournal("You fail your attempt at contacting the netherworld.")
UO.Useskill('Begging')
UO.Waittargetobject('ИД другого плеера')
wait(1000)
wend
end sub
Posted: 2005-04-16 15:52:07
by Kenny
Спасибо.
Posted: 2005-04-16 15:53:04
by Immelstorn
Kenny wrote:Спасибо.
пжлст
Posted: 2005-04-16 16:13:29
by Kenny
Еще вопрос.
Я по шаблонам намастерил скрипт на Инскрипт Фсов...
Не пашет. Пишет 'Line 6 Parse error'...
Если не задолбал еще, помогите плз.)
Code: Select all
sub makeFS()
While NOT UO.Dead()
UO.DeleteJournal()
UO.WaitMenu ('Spell Circles', 'Seventh Circle', 'Spell Circle 7', 'Flamestrike')
UO.UseType('0x0E34')
IF UO.InJournal('You put') or UO.Journal('You failed') Then wend
end sub
Если IF поменять на While, то не происходит зацикливание ...
Posted: 2005-04-16 16:56:09
by Kenny
Все, разобрался.
Тока теперь, когда скрипт врубаю, УО начинает тормозить ...
Code: Select all
sub makeFS()
Function:
UO.FindType('0x0E34')
If UO.FindCount() == 0 Then
UO.Print("There are not any blank scrolls")
return
Endif
UO.DeleteJournal()
UO.WaitMenu ('Spell Circles', 'Seventh Circle', 'Spell Circle 7', 'Flamestrike')
UO.UseType('0x0E34')
While NOT UO.InJournal('You put') AND NOT UO.InJournal('You fail to')
wend
Goto Function
end sub
Posted: 2005-04-16 17:59:53
by Immelstorn
Code: Select all
sub makeFS()
Function:
UO.FindType('0x0E34')
If UO.FindCount() == 0 Then
UO.Print("There are not any blank scrolls")
return
Endif
UO.DeleteJournal()
UO.WaitMenu ('Spell Circles', 'Seventh Circle', 'Spell Circle 7', 'Flamestrike')
UO.UseType('0x0E34')
While NOT UO.InJournal('You put') AND NOT UO.InJournal('You fail to')
wait(200)
wend
Goto Function
end sub
Posted: 2005-04-16 18:42:40
by Kenny
Пасиб. %)
Re: Скрипт на беггинг+спирит спик
Posted: 2005-04-17 00:26:02
by Edred
Immelstorn wrote:Code: Select all
UO.Useskill('Begging')
UO.Waittargetobject('ИД другого плеера')
Вот эти две строки надо поменять местами. Сначала ставим ловушку прицела, потом даем команду, этот прицел посылающую. Всегда так, а не наоборот.
Posted: 2005-04-17 08:35:56
by Kenny
Fixed.
Snx.
Posted: 2005-04-20 18:07:54
by Destruction
Kenny wrote:Fixed.
Snx.
А работало?
Posted: 2005-04-20 22:56:49
by Edred
Destruction wrote:Kenny wrote:Fixed.
Snx.
А работало?
Наверняка работало. Просто на первом круге выдавало ошибку, а потом на каждом круге использовало прицел от предыдущего.