Page 1 of 1
Подскажите по медитации
Posted: 2006-04-09 13:25:27
by uisran
Почему чар не снимает курсу?
Code: Select all
sub Medit()
VAR CharM=UO.Mana
VAR cursa = 0x1F03
UO.UnDress()
wait(200)
While not UO.dead()
UO.UseType(cursa)
wait(200)
If CharM < 100 Then
UO.UnDress()
Else
wait (50)
Endif
While UO.Mana < 100
UO.UseSkill('Meditation')
UO.DeleteJournal()
wait(5000)
Wend
UO.DeleteJournal()
Wend
end sub
З.Ы. Мне нужно не готовый скрипт, а обьяснение почему так...
Re: Подскажите по медитации
Posted: 2006-04-09 13:37:28
by Kynep
uisran wrote:Почему чар не снимает курсу?
З.Ы. Мне нужно не готовый скрипт, а обьяснение почему так...
Code: Select all
sub Medit()
VAR CharM=UO.Mana
VAR cursa = 0x1F03
UO.UnDress()
wait(200)
While not UO.dead()
UO.UseType(cursa)
wait(200)
repeat
wait(100)
until CharM < 100
UO.UnDress()
While UO.Mana < 100
UO.UseSkill('Meditation')
UO.DeleteJournal()
wait(5000)
Wend
UO.DeleteJournal()
Wend
end sub
[/code]
Posted: 2006-04-09 14:56:12
by uisran
Лучше вот так ))
Code: Select all
sub Medit()
VAR CharM=UO.Mana
VAR cursa = 0x400F31C7 ; ID курсы
UO.UnDress()
wait(200)
While not UO.dead()
UO.UseType(cursa)
wait(200)
repeat
wait(100)
until UO.Mana < 97
UO.UnDress()
While UO.Mana < 100
UO.UseSkill('Meditation')
UO.DeleteJournal()
wait(5000)
Wend
UO.DeleteJournal()
Wend
end sub
Posted: 2006-04-09 15:26:35
by Kynep
uisran wrote:Лучше вот так ))
Code: Select all
sub Medit()
VAR CharM=UO.Mana
VAR cursa = 0x400F31C7 ; ID курсы
UO.UnDress()
wait(200)
While not UO.dead()
UO.UseType(cursa)
wait(200)
repeat
wait(100)
until UO.Mana < 97
UO.UnDress()
While UO.Mana < 100
UO.UseSkill('Meditation')
UO.DeleteJournal()
wait(5000)
Wend
UO.DeleteJournal()
Wend
end sub
Это не надо, оставь тип:
Code: Select all
VAR cursa = 0x400F31C7 ; тип поставь 0х0000
Потому что дальше у тебя идет
Если хочешь все таки оставить ID, то поменяй на:
Posted: 2006-04-09 16:12:43
by uisran
Cooper wrote:
Это не надо, оставь тип:
Code: Select all
VAR cursa = 0x400F31C7 ; тип поставь 0х0000
Потому что дальше у тебя идет
точно.. забыл
Posted: 2006-04-09 16:22:41
by Kynep
uisran wrote:
точно.. забыл
Бывает )))
Posted: 2006-04-09 22:55:54
by uisran
Добавил спирит
Code: Select all
sub Medit()
VAR CharM=UO.Mana
VAR cursa = 0x400F31C7 ; ID ъєЁё√
VAR LastTimer=UO.Timer()
UO.UnDress()
wait(200)
While not UO.dead()
wait(3000)
UO.UseObject(cursa)
wait(200)
uo.print("Spirit Speak")
uo.useskill ("Spirit Speak")
repeat
wait(10)
until UO.Mana < 99
repeat
wait(100)
until UO.Mana < 99
UO.UnDress()
While UO.Mana < 100
UO.UseSkill('Meditation')
UO.DeleteJournal()
wait(5000)
Wend
UO.DeleteJournal()
Wend
end sub