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

Помогите с простым скриптом...
http://forum.yoko.com.ua/viewtopic.php?f=20&t=11012		 Page 1 of 1
Author:  dyspater [ 2007-01-08 02:04:24 ]
Post subject:  Помогите с простым скриптом...
Требуется простой скрипт на беггинг, на форуме ничего подходящего не нашел...
Условия: ввести ид нескольких вендоров и что бы просто по очереди просил у них...
Author:  Nmy [ 2007-01-08 02:18:57 ]
Post subject: 
Code:
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
Author:  dyspater [ 2007-01-08 02:25:13 ]
Post subject: 
NMY wrote:
Code:
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


пасиб но я такой сам писал и он у меня переодически крошился...
Author:  Dimage [ 2007-01-08 17:22:41 ]
Post subject: 
Code:
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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/