Irina E wrote:
этот пример меня не устраевает потому что при поевеления пк он не сможет улететь
Почему не улетит кстати. Поставь проверку в ходилке на ПК после каждого шага или зацикли отдельной процедурой. При появлении терминэйт на основной скрипт, инвиз по желанию и реколл... все элементарно вообщем
Вот пример зацикленной проверки:
Code:
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
Отредактируй под себя и запускай вместе с основным... дерзай
Register
Login
FAQ
Search
