мининг

[Exist]

этот пример меня не устраевает потому что при поевеления пк он не сможет улететь

Почему не улетит кстати. Поставь проверку в ходилке на ПК после каждого шага или зацикли отдельной процедурой. При появлении терминэйт на основной скрипт, инвиз по желанию и реколл... все элементарно вообщем
Вот пример зацикленной проверки:

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

Отредактируй под себя и запускай вместе с основным... дерзай

[Mirage]

чтобы не было "сразу креш" в свойствах инжекта поставь совместимость с WinXPsp3

[Irina E]

чтобы не было "сразу креш" в свойствах инжекта поставь совместимость с WinXPsp3

мне установили видус 7 и куда надо захадить где ставить

крЭшит когда копает

[Exist]

чтобы не было "сразу креш" в свойствах инжекта поставь совместимость с WinXPsp3

мне установили видус 7 и куда надо захадить где ставить

крЭшит когда копает

Свойства файла - Совместимость - Запустить программу в режиме .... Windows XP (ПО 3)

[Irina E]

спс Exist и Миражу вы помогли мне очень сильна

[Exist]

спс Exist и Миражу вы помогли мне очень сильна

Былоб за что. Главное что все работает:)

[Irina E]

Былоб за что. Главное что все работает:)

ты играеш на дрв?

[Exist]

Былоб за что. Главное что все работает:)

ты играеш на дрв?

Да потихоньку начал после 5 лет