Скрипт на медитацию

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
WhiteDemon
Posts: 16
Joined: 2004-04-09 19:07:00

Скрипт на медитацию

Post by WhiteDemon »

sub main()
var Food = '0x097B' ;type of food
var Curse = '0x1F03' ;type of curse
var typeCurse = 'Robe'
var int, i=1, time
UO.Undress()
Repeat
wait(500)
Until UO.ObjAtLayer(typeCurse)=='' OR time+100<UO.Timer()
int=UO.INT

While True
UO.DeleteJournal()

if UO.Mana>=int then
UO.UseType(Curse)
time=UO.Timer()
While UO.Mana>=int AND time+100>UO.Timer()
wait(500)
Wend
endif

time=UO.Timer()
UO.Undress()
Repeat
wait(500)
Until UO.ObjAtLayer(typeCurse)=='' OR time+100<UO.Timer()
int=UO.INT

time=UO.Timer()
UO.UseSkill("Meditation")
Repeat
wait(500)
Until UO.InJournal('You attempt') OR time+100<UO.Timer()

time=UO.Timer()
UO.UseType(Curse)
Repeat
wait(500)
Until UO.InJournal('You lose') OR UO.InJournal('You are') OR time+100<UO.Timer()

if i==50 then
UO.DeleteJournal()
repeat
UO.UseType(Food)
wait(500)
until UO.InJournal("simply too full")
i=1
else
i=i+1
endif

Wend
end sub


var Food = '0x097B' ;type of food - вставить тайп еды
var Curse = '0x1F03' ;type of curse - вставить тайп Курсы
Post Reply