Page 1 of 1

Помогите с простым скриптом...

Posted: 2007-01-08 02:04:24
by dyspater
Требуется простой скрипт на беггинг, на форуме ничего подходящего не нашел...
Условия: ввести ид нескольких вендоров и что бы просто по очереди просил у них...

Posted: 2007-01-08 02:18:57
by Nmy

Code: Select all

sub Begging()
uo.exec('addobject TOT1')
while uo.targeting()
wait(100)
wend

uo.exec('addobject TOT2')
while uo.targeting()
wait(100)
wend

uo.exec('addobject TOT3')
while uo.targeting()
wait(100)
wend

repeat
uo.waittargetobject('TOT1')
UO.Useskill('Begging')
wait(4000)

uo.waittargetobject('TOT2')
UO.Useskill('Begging')
wait(4000)

uo.waittargetobject('TOT3')
UO.Useskill('Begging')
wait(4000)
until UO.Dead()
end sub

Posted: 2007-01-08 02:25:13
by dyspater
NMY wrote:

Code: Select all

sub Begging()
uo.exec('addobject TOT1')
while uo.targeting()
wait(100)
wend

uo.exec('addobject TOT2')
while uo.targeting()
wait(100)
wend

uo.exec('addobject TOT3')
while uo.targeting()
wait(100)
wend

repeat
uo.waittargetobject('TOT1')
UO.Useskill('Begging')
wait(4000)

uo.waittargetobject('TOT2')
UO.Useskill('Begging')
wait(4000)

uo.waittargetobject('TOT3')
UO.Useskill('Begging')
wait(4000)
until UO.Dead()
end sub


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

Posted: 2007-01-08 17:22:41
by Dimage

Code: Select all

sub Begging() 
var count=0
uo.Print('Выберите обьект...')
uo.Exec('addobject Creature')
while uo.Targeting()
wait(100)
wend
uo.DeleteJournal()
repeat
uo.WaitTargetObject('Creature')
uo.Useskill('Begging')
wait(2700)
until uo.Dead()
end sub