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

Скрипт на беггинг+спирит спик
http://forum.yoko.com.ua/viewtopic.php?f=3&t=3707		 Page 1 of 1
Author:  Kenny [ 2005-04-16 13:20:15 ]
Post subject:  Скрипт на беггинг+спирит спик
Сабж.
Только громко не ржите плз ... %)
Я в инже 0, поэтому не понимаю, почему мой мегаскрипт работать не хочет ...
Code:
sub begging() 
while NOT UO.Dead() 
UO.DeleteJournal()
UO.Useskill('Spirit Speak')
wait(5000)
UO.Useskill('Begging')
UO.Waittargetobject('ИД другого плеера')
wait(1000)
wend
end sub()
Author:  Leo [ 2005-04-16 14:13:46 ]
Post subject: 
ID-то ты прописал?
Author:  Kenny [ 2005-04-16 15:28:50 ]
Post subject: 
Угу. Пишет типа ошибка в 10 строке ... :(
Line 10. Parse error.
Author:  Immelstorn [ 2005-04-16 15:35:49 ]
Post subject:  Re: Скрипт на беггинг+спирит спик
Code:
end sub()

Исправь на end sub. т.е кавычки убери
Author:  Kenny [ 2005-04-16 15:42:23 ]
Post subject: 
Спасибо, работает. :D
Мой первый скрипт.)))

Еще подскажите плз, как сделать, чтобы беггинг юзался сразу после спирита, то бишь после надписи 'you failed' или 'you established'???
В теории знаю, а синтаксис еще не выучил ... :oops:
Author:  Immelstorn [ 2005-04-16 15:50:37 ]
Post subject:  Re: Скрипт на беггинг+спирит спик
Code:
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
Author:  Kenny [ 2005-04-16 15:52:07 ]
Post subject: 
Спасибо. :)
Author:  Immelstorn [ 2005-04-16 15:53:04 ]
Post subject: 
Kenny wrote:
Спасибо. :)

пжлст
Author:  Kenny [ 2005-04-16 16:13:29 ]
Post subject: 
Еще вопрос.
Я по шаблонам намастерил скрипт на Инскрипт Фсов...
Не пашет. Пишет 'Line 6 Parse error'...
Если не задолбал еще, помогите плз.)
Code:
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, то не происходит зацикливание ...
Author:  Kenny [ 2005-04-16 16:56:09 ]
Post subject: 
Все, разобрался.
Тока теперь, когда скрипт врубаю, УО начинает тормозить ...
Code:
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
Author:  Immelstorn [ 2005-04-16 17:59:53 ]
Post subject: 
Code:
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
Author:  Kenny [ 2005-04-16 18:42:40 ]
Post subject: 
Пасиб. %)
Author:  Edred [ 2005-04-17 00:26:02 ]
Post subject:  Re: Скрипт на беггинг+спирит спик
Immelstorn wrote:
Code:
UO.Useskill('Begging')
UO.Waittargetobject('ИД другого плеера')


Вот эти две строки надо поменять местами. Сначала ставим ловушку прицела, потом даем команду, этот прицел посылающую. Всегда так, а не наоборот.
Author:  Kenny [ 2005-04-17 08:35:56 ]
Post subject: 
Fixed.
Snx.
Author:  Destruction [ 2005-04-20 18:07:54 ]
Post subject: 
Kenny wrote:
Fixed.
Snx.

А работало? :twisted:
Author:  Edred [ 2005-04-20 22:56:49 ]
Post subject: 
Destruction wrote:
Kenny wrote:
Fixed.
Snx.

А работало? :twisted:


Наверняка работало. Просто на первом круге выдавало ошибку, а потом на каждом круге использовало прицел от предыдущего.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/