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

Ищу скрипт на медитацию!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=4836
Page 1 of 1

Author:  Danik15 [ 2005-08-16 07:34:29 ]
Post subject:  Ищу скрипт на медитацию!

Дюди дайте скрипт на медитацию!Описание:при загрузке скрипта чтоб попросил указать курсанутую вещь а не так чтоб вписывает id этой вещи.Благодарю заранее. :wink:

Author:  Lord [ 2005-08-16 10:36:19 ]
Post subject: 

Что конкретно хочешь? Что должен делать скрипт? У меня есть пару скриптов. Скажи что тебе конкретно надо я выложу нужный.

Author:  Leo [ 2005-08-16 11:11:48 ]
Post subject: 

Code:
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

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/