Yoko

Code: Select all

sub DangerCtrl()
var Message1,Message2,Message3,Message4
Message1=":"
Message2="cking you"
Message3="Cast"
Message4=UO.GetName()+":"
caster='' ; обнуление ID кастующего
while 1==1
UO.DeleteJournal()

repeat 
wait(100)
until UO.InJournal(Message1) and not UO.InJournal(Message4)

danger=UO.GetNotoriety(UO.JournalSerial(0))
if UnderAttack==1 and UO.InJournal(Message2) then ; Атака
ToLog('UnderAttack')
ToRecall('DangerCtrl')
end if
if SeeCasting==1 and UO.InJournal(Message3) then ; Каст
ToLog('SeeCasting')
caster=UO.JournalSerial(UO.InJournal(Message3)-1)
UO.Cast('Magic Arrow',caster) ; Кастуем Стрелку
ToRecall('DangerCtrl')
end if
if ComingRed==1 and danger==6 and UO.JournalSerial(0)<>UO.GetSerial() then ; Красный
ToLog('ComingRed')
ToRecall('DangerCtrl')
end if
if ComingGrey==1 and danger==4 and UO.JournalSerial(0)<>UO.GetSerial() then ; Серый
ToLog('ComingGrey')
ToRecall('DangerCtrl')
end if
if ComingBlue==1 and danger==1 and UO.JournalSerial(0)<>UO.GetSerial() then ; Синий
ToLog('ComingBlue')
ToRecall('DangerCtrl')
end if
if ComingAny==1 and danger==1 and UO.JournalSerial(0)<>UO.GetSerial() then ; Кто угодно
ToLog('ComingAny')
ToRecall('DangerCtrl')
end if
wend
end sub