Скрипт на беггинг+спирит спик

[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()

[Leo]

ID-то ты прописал?

[Kenny]

Угу. Пишет типа ошибка в 10 строке ...
Line 10. Parse error.

[Immelstorn]

Code: Select all

end sub()

Исправь на end sub. т.е кавычки убери

[Kenny]

Спасибо, работает.
Мой первый скрипт.)))

Еще подскажите плз, как сделать, чтобы беггинг юзался сразу после спирита, то бишь после надписи 'you failed' или 'you established'???
В теории знаю, а синтаксис еще не выучил ...

[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

[Kenny]

Спасибо.

[Immelstorn]

Спасибо.

пжлст

[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, то не происходит зацикливание ...

[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

[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

[Kenny]

Пасиб. %)

[Edred]

Code: Select all

UO.Useskill('Begging')
UO.Waittargetobject('ИД другого плеера')

Вот эти две строки надо поменять местами. Сначала ставим ловушку прицела, потом даем команду, этот прицел посылающую. Всегда так, а не наоборот.

[Kenny]

Fixed.
Snx.

[Destruction]

Fixed.
Snx.

А работало?

[Edred]

Fixed.
Snx.

А работало?

Наверняка работало. Просто на первом круге выдавало ошибку, а потом на каждом круге использовало прицел от предыдущего.