var tar, cast = "Ort Sanct|Ort Rel|In Nox|Kal Ort Por|Por Ort Grav|An Ex Por|An Ort|Kal Vas Flam" ; слова, на которые следует реагировать
uo.deletejournal(cast)
repeat
tar =uo.injournal(cast)
if tar then
if isCast(tar) then
if not isFriend(tar) then
killCast(tar)
endif
endif
uo.deletejournal(cast)
endif
wait(100)
until false
endsub
; Функция кидает Magic Arrow в объект tar
Sub killCast(tar)
var mana = uo.mana
uo.cast('Magic Arrow',uo.journalserial(tar-1))
while mana==uo.mana
wait(100)
wend
end sub
; Функция проверяет объект tar на дружелюбность.
Sub isFriend(tar)
var i
DIM friends[100] ;Массив с ID друзей (100, чтобы не напрягатся, при перенастройке (если друзей больше ста, то поставь тогда большее число)
friends[0] = uo.getSerial()
friends[1] = 0x016ACCA4 #тут серийники френдов.
friends[2] = 0x0031FB21 ;
friends[3] = 0x000CCB01 #и тп...
if uo.GetNotoriety(uo.journalserial(tar-1))=="1" then
return true
endif
for i=0 to 3 # тут число друзей (включая себя) МИНУС ЕДИНИЦА, другими словами: номер последнего друга из массива friends[]
if uo.journalserial(tar-1) == friends[i] then
return true
endif
next
return false
endsub
; Функция - проверяет действительно ли строка в журнале tar вызвана чьим-либо кастом.
Sub isCast(tar)
if uo.journalcolor(tar-1) == "0x03B2" then
return true
endif
return false
endsub
Vot takoj vot script no ne hochet rabotatj vsjo vremja vidajot oshibki!!! Mozet kto smozet podkorektirovatj evo pod shard DRW ili podskazatj gde imejutsja oshibki tak kak ja v scriptinge ne ochenj siljon !!!
Zaranee blagodaren!!!
