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

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
dyspater
Posts: 7
Joined: 2007-01-07 07:11:47

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

Post by dyspater »

Требуется простой скрипт на беггинг, на форуме ничего подходящего не нашел...
Условия: ввести ид нескольких вендоров и что бы просто по очереди просил у них...
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post 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
dyspater
Posts: 7
Joined: 2007-01-07 07:11:47

Post 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


пасиб но я такой сам писал и он у меня переодически крошился...
Dimage
Posts: 36
Joined: 2006-12-04 00:23:37
Contact:

Post 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
Post Reply