Помощь в переделке скрипта...
Posted: 2009-09-10 17:10:17
Помогите переделать скрипт для ПВП-АЛЬФа
Скрипт писался под оском,там работает отлично,а вот на альфе почему-то идёт проверка только пожурналу,а надо чтобы также по систменый сообщениям,если кто может помогите плиз.......
sub antifriz()
uo.print("AntiParaliz Loading")
del("You are frozen and can not move.")
repeat
if isSystemMsg2("You are frozen and can not move.") then
del("You are frozen and can not move.")
uo.cast('Magic Arrow','self')
wait(1600)
del("You are frozen and can not move.")
end if
wait(100)
until 0
end sub
sub isSystemMsg2(msg) ;AdmiR™
if (uo.InJournal(msg) > 0) and (uo.JournalSerial(uo.InJournal(msg)-1) == '0x00000000') then
return 1
else
return 0
end if
end sub
Sub del(msg)
while uo.injournal(msg)
uo.setjournalline(uo.injournal(msg)-1,'')
wend
end sub
Скрипт писался под оском,там работает отлично,а вот на альфе почему-то идёт проверка только пожурналу,а надо чтобы также по систменый сообщениям,если кто может помогите плиз.......
sub antifriz()
uo.print("AntiParaliz Loading")
del("You are frozen and can not move.")
repeat
if isSystemMsg2("You are frozen and can not move.") then
del("You are frozen and can not move.")
uo.cast('Magic Arrow','self')
wait(1600)
del("You are frozen and can not move.")
end if
wait(100)
until 0
end sub
sub isSystemMsg2(msg) ;AdmiR™
if (uo.InJournal(msg) > 0) and (uo.JournalSerial(uo.InJournal(msg)-1) == '0x00000000') then
return 1
else
return 0
end if
end sub
Sub del(msg)
while uo.injournal(msg)
uo.setjournalline(uo.injournal(msg)-1,'')
wend
end sub