медитация

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Sp
Posts: 83
Joined: 2005-07-22 13:43:25

медитация

Post by Sp »

нужен скриптик на медитацию..для шарда дрв...помогите плз..
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:

Re: медитация

Post by Kynep »

Sp wrote:нужен скриптик на медитацию..для шарда дрв...помогите плз..


вот посмотри:

Code: Select all

sub Medit() 
VAR CharHP=UO.STR
VAR cursa= #Тут тип курсы поставь (вида 0x0000)
UO.UnDress()
wait(200)
While not UO.dead()
UO.UseType(cursa)
While UO.GetHP()>CharHP-1
wait(500)
Wend
UO.UnDress()
wait(200)
UO.UseSkill('Meditation')
UO.DeleteJournal()
wait(5000)
Wend
end sub
Last edited by Kynep on 2006-03-28 11:32:45, edited 2 times in total.
Sp
Posts: 83
Joined: 2005-07-22 13:43:25

Post by Sp »

ну народ...помогите
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:

Post by Kynep »

Sp wrote:ну народ...помогите


вот посмотри:

Code: Select all

sub Medit() 
VAR CharHP=UO.STR
VAR cursa= #Тут тип курсы поставь (вида 0x0000)
UO.UnDress()
wait(200)
While not UO.dead()
UO.UseType(cursa)
While UO.GetHP()>CharHP-1
wait(500)
Wend
UO.UnDress()
wait(200)
UO.UseSkill('Meditation')
UO.DeleteJournal()
wait(3000)
Wend
end sub
Post Reply