Суббота, 24.02.2018, 14:54Главная | Регистрация | Вход

Меню сайта

Ссылки

Наш опрос

Как Вам наш гильдийный цвет?
Всего ответов: 74
Спаринг с лечилкой с оппонентом - Форум
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Скрипты » Скрипты » Спаринг с лечилкой с оппонентом (Спаринг)
Спаринг с лечилкой с оппонентом
AlligatorkrДата: Суббота, 03.09.2011, 21:26 | Сообщение # 1
Сержант
Группа: Администраторы
Сообщений: 21
Репутация: 0
Статус: Offline
У оппонента в руках должен быть лук, для того что бы он не наносил урона. Лучше всего Елвин лук (добавляет +10 к тактике). Забиваем в скрипте,3 строчка (var ID = '0x002D8D27'), айди оппонента и запускаем скрипт. В руках перед началом скрипта должно быть то оружие, соответствующее прокачиваемому скиллу.

sub main()
var selfID = UO.GetSerial('self')
var ID = '0x002D8D27'
UO.Exec("exec reconnector")
UO.Exec("setarm wp")
while not UO.Dead()
if GetHP(ID) < 30 then
UO.WarMode(0)
UO.Disarm()
while GetHP(ID) < 95
UO.WarMode(0)
Healing(ID)
wait(100)
wend
UO.Exec("arm wp")
wait(1000)
UO.WarMode(1)
end if
wait(500)
UO.Attack(ID)
wend
end sub

sub GetHP(ID)
var maxhp, result
UO.GetStatus(ID)
maxhp = UO.GetMaxHP(ID)
if maxhp > 0 then
result = (UO.GetHP(ID) * 100) / maxhp
else
result = 0
end if
return result
end sub

sub Healing(ID)
var b=0x0E21
;if UO.Life < UO.Str then
UO.WaitTargetObject(ID)
UO.UseType(b)
CheckLag()
UO.WarMode(0)
wait(1000)
UO.WarMode(0)
wait(1000)
UO.WarMode(0)
wait(1000)
return true
;end if
return true
end sub

sub CheckLag()
DeleteJournal('backpack')
repeat
UO.Click('backpack')
wait(500)
until UO.InJournal('backpack')
end sub

sub DeleteJournal(msg)
var num
while UO.InJournal(msg)
num = UO.InJournal(msg)
UO.SetJournalLine(num - 1,' ')
wend
end sub

sub CheckBandage()
VAR Banka='0x402C277D' ; ID of wash basin
UO.waittargetobject(banka)
UO.usetype(0x0e20)
Wait(1000)
end sub

sub Reconnector()
var RFlag
RFlag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if RFlag Then
RFlag = 0
endif
Wait(20000) # WorldSave Protection
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LDblClick(357,164)
UO.LClick(616,459)
Wait(3000)
WEnd
Wait(3000)
if (RFlag == 0) Then
RFlag = 1
endif
Until false
end sub
 
Форум » Скрипты » Скрипты » Спаринг с лечилкой с оппонентом (Спаринг)
Страница 1 из 11
Поиск:

Copyright Reflection © 2018 | Конструктор сайтов - uCoz