| Alligatorkr | Дата: Суббота, 03.09.2011, 21:26 | Сообщение # 1 |
 Сержант
Группа: Администраторы
Сообщений: 21
Статус: 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
|
| |
| |
