Подскажите по медитации

[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
 

З.Ы. Мне нужно не готовый скрипт, а обьяснение почему так...

[Kynep]

Почему чар не снимает курсу?

З.Ы. Мне нужно не готовый скрипт, а обьяснение почему так...

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]

[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

[Kynep]

Лучше вот так ))

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

Потому что дальше у тебя идет

Code: Select all

UO.UseType(cursa) 

Если хочешь все таки оставить ID, то поменяй на:

Code: Select all

UO.UseObject(cursa) 

[uisran]

Это не надо, оставь тип:

Code: Select all

VAR cursa = 0x400F31C7  ; тип поставь 0х0000

Потому что дальше у тебя идет

Code: Select all

UO.UseType(cursa) 

точно.. забыл

[Kynep]

точно.. забыл

Бывает )))

[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