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