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

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

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

Спарринг.
###################################################################
# #
# Sparring ver. 1.0 #
# #
###################################################################

VAR Char1='0x003668CA' # ID первого чара
VAR Char2='0x0035152A' # ID второго чара
VAR MinLife=90 # минимальная жизнь
VAR TazikType='0x1008' # Тип тазика с водой
VAR BloodBndg='0x0E20' # тип кровавых бинтов

##################################################################
#
VAR Enemy, GO, STOP #
VAR GO1= 'GOO-1' #
VAR GO2= 'GOO-2' #
VAR STOP1='STOP-1' #
VAR STOP2='STOP-2' #
#
##################################################################

sub Start() #####################################################
uo.DeleteJournal()
if UO.GetSerial('self')==Char1 then
Enemy=Char2
GO=GO2
STOP=STOP2
else
Enemy=Char1
GO=GO1
STOP=STOP1
endif
uo.DeleteJournal()
wait(4000)
While not uo.InJournal(GO1) or not uo.InJournal(GO2)
uo.say(GO)
wait(3000)
wend

IF uo.InJournal('Ready') then
wait(3200)
Sparring()
else
uo.Say('Ready')
wait(5000)
Sparring()

end sub ########################################################


sub Sparring() #################################################

UO.Exec('warmode 1')
uo.DeleteJournal()
uo.DeleteJournal()
REPEAT
if uo.InJournal('apply bandages to self') then
StopWar()
else
wait(5000)
UO.Attack(Enemy)
end if
until uo.Life<=MinLife or uo.InJournal(STOP1) or uo.InJournal(STOP2) or uo.InJournal('apply bandages to self')
StopWar()

end sub ########################################################

sub StopWar() ##################################################

IF uo.InJournal(STOP1) or uo.InJournal(STOP2) then
UO.Exec("warmode 0")
wait(1000)
UO.Exec("warmode 0")
Heling()
else

# While not uo.InJournal('apply bandages to self')
# UO.Say(STOP)
# UO.Exec("warmode 0")
# wait(2000)
# wend

UO.Say(STOP)
UO.Exec("warmode 0")
wait(2000)
UO.Say(STOP)
UO.Exec("warmode 0")
wait(2000)
UO.Say(STOP)
UO.Exec("warmode 0")
wait(2000)
UO.Say(STOP)
UO.Exec("warmode 0")
wait(1000)
UO.Exec("warmode 0")
wait(200)
UO.Say(STOP)
UO.Exec("warmode 0")
wait(1000)
UO.Exec("warmode 0")
wait(200)
end if
Heling()

end sub ########################################################

sub Heling() ##################################################

UO.FindType('0x0E21','0x0000','backpack')
If UO.GetQuantity('finditem')<50 Then
UO.FindType('0x0E20','0x0000','backpack')
UO.WaitTargetType(TazikType)
UO.UseObject('finditem')
wait(1000)
Endif



while uo.Life uo.SetArm('armset')
uo.disarm()
wait(200)
while uo.Life uo.bandageself()
wait(3000)
UO.Exec("warmode 0")
wend
uo.arm('armset')
wait(2000)
wend
UO.Exec("warmode 0")
wait(200)

Start()

end sub ######################################################






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

Поиск

Друзья сайта

Статистика

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