Yoko

sub AntiMagic()

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!!!

руками надо играть

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net

Toze verno, no hotelosj bi so scriptom!!!