Ultima Online программы,советы,скрипты. Суббота, 05.07.2025, 06:49
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
Меню сайта

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

Главная » Статьи » Публикации пользователей

Alchemy для пвп.
sub Alchemy(Reagent,MinimumReags,Choice)
while uo.Count('0x0F0E','0x0000')>0 and uo.Count(Reagent)>=MinimumReags
uo.DeleteJournal()
uo.Exec("waitmenu 'What sort of potion do you want to' "+Choice)
uo.UseType(reagent)
while not uo.InJournal('You put') and not uo.InJournal('You toss the failed')
wait(300)
wend
wend
end sub
#####################
### Deadly Poison ###
#####################
sub MakeDeadlyPoison()
Alchemy('0x0F88', 8, "'Deadly Poison'")
end sub

######################
### Poison ###
######################
sub MakePoison()
Alchemy('0x0F0E', 2, "'Poison'")
end sub

####################
### Invisibility ###
####################
sub MakeInvisibility()
Alchemy('0x0F91', 4, "'Invisibility'")
end sub

##################
### Total Mana ###
##################
sub MakeTotalMana()
Alchemy('0x0F87', 6, "'Total Mana'")
end sub

####################
### Greater Heal ###
####################
sub MakeGreaterHeal()
Alchemy('0x0F85', 7, "'Greater Heal'")
end sub

####################
### Greater Cure ###
####################
sub MakeGreaterCure()
Alchemy('0x0F84', 6, "'Greater Cure'")
end sub

#####################
### Total Refresh ###
#####################
sub MakeTotalRefresh()
Alchemy('0x0F7A', 6, "'Total Refresh'")
end sub

Категория: Публикации пользователей | Добавил: StrikeR (29.06.2009) | Автор: StrikeR
Просмотров: 1387 | Рейтинг: 0.0/0 |
Всего комментариев: 0
Форма входа

Поиск

Друзья сайта

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