медитация
Posted: 2006-03-28 09:17:16
нужен скриптик на медитацию..для шарда дрв...помогите плз..
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