Yoko
http://forum.yoko.com.ua/

Pomogite so scriptom plsss!!!
http://forum.yoko.com.ua/viewtopic.php?f=17&t=11392
Page 1 of 1

Author:  smileme [ 2007-02-05 16:05:03 ]
Post subject:  Pomogite so scriptom plsss!!!

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

Author:  Nmy [ 2007-02-05 17:06:23 ]
Post subject: 

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

Author:  smileme [ 2007-02-05 22:35:09 ]
Post subject: 

:) :) :) Toze verno, no hotelosj bi so scriptom!!! :D

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/