Медитация! =)
Posted: 2006-03-07 09:07:37
При запуске пишется "Медитируем..." и скрипт вырубается(
помогите плиз! раньше помоему он у меня работал а щас хз почему непашет(
помогите плиз! раньше помоему он у меня работал а щас хз почему непашет(
Code: Select all
sub Meditation()
var Food = '0x097B' ;Тип еды
var Curse = '0x1515' ;Тип курсы
var typeCurse = 'cloak'
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