Ultima Online программы,советы,скрипты. Четверг, 03.07.2025, 19:48
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
Меню сайта

Категории каталога
Скрипты [22]
Интересное Чтиво. (советы) [3]
Публикации пользователей [2]
Проверенные статьи переношу в основные разделы.

Главная » Статьи » Скрипты

Прокачка медитации
sub main()
VAR kursa = 0x0E85 ; Рубашка курсовая
VAR eda = 0x09bb ; свинина
Var Mana = 100 ; Мана перца
VAR i=0;
VAR Localtime;
sub meditate()
UO.DeleteJournal()
repeat
if i>300 then
UO.Print("edaa")
uo.usetype(eda)
i=0
endif
i=i+1
uo.equipt("Shirt", kursa)
UO.Print("Equip")
repeat
wait(500)
test()
until UO.Mana < Mana
repeat
uo.unequip('Shirt')
wait(500)
Until NOT UO.InJournal("You have no")
UO.UseSkill('Meditation')
wait(500)
repeat
if UO.InJournal("You lose your concentration") then
UO.UseSkill('Meditation')
UO.SetJournalLine(UO.InJournal("You lose your concentration")-1,"Fixed")
endif
wait(500)
test()
Until UO.InJournal("at peace")

wait(500)
test()
UO.SetJournalLine(UO.InJournal("at peace")-1,"Fixed")
Until UO.SkillVal('Meditation',1)==1000
end sub

sub test()
var start;
if UO.InJournal("World save has been initiated.") then
UO.SetJournalLine(UO.InJournal("World save")-1,"Fixed")
UO.Click('self')
start=UO.Timer()
repeat
wait(500)
until UO.InJournal("TvoeImya: TvoeImya") or UO.Timer() - start > 300

end if
end sub
end sub


Категория: Скрипты | Добавил: cornor (23.03.2008)
Просмотров: 1613 | Рейтинг: 0.0/0 |
Всего комментариев: 0
Форма входа

Поиск

Друзья сайта

Copyright MyCorp © 2025 Сделать бесплатный сайт с uCoz