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

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

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

Auto Scripti для PvP!
#####################################################################
#Автоматические касты
#####################################################################
#####################################################################
#При нападении противника кастуется в него стрелка, также убираем в скрипте # и скрипт после стрелки ставит в парализ!
sub AutoCastAR()
var Enemy = 0x00000000
uo.deletejournal()
repeat
if UO.InJournal("attacking you") Then
Enemy = UO.JournalSerial(UO.InJournal("attacking you")-1)
UO.Cast('Magic Arrow',Enemy)
wait(1500)
#UO.Cast('Paralyze',Enemy)
UO.DeleteJournal()
endif
Wait(1000)
until false
end sub

#Автоатака, если вас атачат выбирается цель кто атачит и вы переходите в вар.
sub Autoattack()
var Enemy = 0x00000000
var exit=1
uo.deletejournal()

repeat
if UO.InJournal("attacking you") Then
Enemy = UO.JournalSerial(UO.InJournal("attacking you")-1)
uo.attack(Enemy)
UO.DeleteJournal()
goto end
endif
Wait(100)
until exit<>1
end:
end sub

#Автопарализ.
#В скрипте где ("NICK: Des Mani") вместо NICK вписываем свой ник), аналогия во всех скриптах приведенных ниже!
sub autoparal()
uo.deletejournal()
repeat
if UO.InJournal("Des Mani") and not UO.InJournal("NICK: Des Mani") Then
Enemy = UO.JournalSerial(UO.InJournal("In Nox")-1)
UO.Cast('Paralyze','lastattack')
wait(4000)
UO.DeleteJournal()
endif
wait(100)
until false
end sub

sub autodesmani()
uo.deletejournal()
repeat
if UO.InJournal("An Ort") and not UO.InJournal("NICK: An Ort") Then
Enemy = UO.JournalSerial(UO.InJournal("An Ort")-1)
#if getserial(enemy)==getserial('lastattack') then
UO.Cast('Feeblemind','lastattack')
wait(4000)
UO.DeleteJournal()
#endif
endif
wait(100)
until false
end sub

sub autohide()
uo.deletejournal()
repeat
if UO.InJournal("An Ex Por") and not UO.InJournal("Grant: An Ex Por") Then
Enemy = UO.JournalSerial(UO.InJournal("An Ort")-1)
wait(10)
uo.exec('warmode 0')
UO.UseSkill('Hiding')
wait(2500)
UO.DeleteJournal()
endif
wait(100)
until false
end sub

sub Auto()
var enemyid
var Enemy = 0x00000000
var enemy2= 0x00000000
uo.deletejournal()
repeat
if UO.InJournal("In Nox") and not UO.InJournal("NICK: In Nox") Then
Enemy = UO.JournalSerial(UO.InJournal("In Nox")-1)
UO.Cast('Magic Arrow',Enemy)
wait(1000)
UO.DeleteJournal()
endif
#if UO.InJournal("In Por Ylem") and not UO.InJournal("NICK: In Por Ylem") Then
#Enemy = UO.JournalSerial(UO.InJournal("In Por Ylem")-1)
#enemyid=UO.GetSerial(Enemy)
#UO.Cast('Magic Arrow',Enemy)
#wait(1500)
#UO.Cast('Paralyze',Enemy)
#wait(2000)
#UO.DeleteJournal()
#endif
if uo.injournal("Rel Wis") and not UO.InJournal("NICK: Rel Wis") Then
Enemy = UO.JournalSerial(UO.InJournal("Rel Wis")-1)
enemyid=UO.GetSerial(Enemy)
#UO.Cast('Magic Arrow',Enemy)
#wait(1500)
UO.Cast('Paralyze',Enemy)
wait(2000)
UO.DeleteJournal()
endif
if UO.InJournal("An Ex Por") and not UO.InJournal("NICK: An Ex Por") Then
Enemy = UO.JournalSerial(UO.InJournal("An Ex Por")-1)
enemy2= uo.getserial('laststatus')
if enemy==enemy2 then
uo.msg('Paralize')
UO.Cast('Magic Arrow',Enemy)
wait(1500)
UO.DeleteJournal()
endif
endif
Wait(100)
until false
end sub

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

Поиск

Друзья сайта

Статистика

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