Yoko
http://forum.yoko.com.ua/

Скрипт на медитацию
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1378		 Page 1 of 1
Author:  WhiteDemon [ 2004-09-14 20:11:01 ]
Post subject:  Скрипт на медитацию
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 - вставить тайп Курсы
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/