Ищу скрипт на медитацию!
Posted: 2005-08-16 07:34:29
Дюди дайте скрипт на медитацию!Описание:при загрузке скрипта чтоб попросил указать курсанутую вещь а не так чтоб вписывает id этой вещи.Благодарю заранее. 
Code: Select all
sub Meditation()
var Exit, LastTimer, CharMana
uo.Print('Выбери Курсу: ')
uo.Exec('addobject Curse')
while uo.Targeting()
wait(100)
wend
wait(300)
uo.DisArm()
wait(2000)
exit=0
while Exit <> 1
CharMana=uo.INT
CheckLag()
uo.WaitTargetType('0x0190')
uo.UseObject('Curse')
wait(500)
uo.Canceltarget()
if uo.InJournal('no target to cansel') then
uo.DeleteJornal()
end if
repeat
wait(500)
until uo.Mana<CharMana
CheckLag()
LastTimer=uo.Timer()
repeat
uo.DisArm()
uo.Print('Медитируем...')
uo.Useskill('Meditation')
wait(4000)
until uo.Mana==uo.INT or LastTimer+300<uo.Timer()
wend
end sub
sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
end sub