Возник Вопрос..

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
-=WOLVERINE=-
Posts: 66
Joined: 2004-05-27 18:19:17
Contact:

Возник Вопрос..

Post by -=WOLVERINE=- »

Вообщем задумка такая :
Если В Журнале Появляется определенная надпись,то записываеться время появления этои надписи и желательно в какой то отдельный Фаил...Вот что то не нашел ничего подобного..помогите ктонибудь:)) :oops: стыдна очень:( :roll: :roll:
Yura
Posts: 71
Joined: 2008-03-03 09:19:21
Location: SPB

Post by Yura »

Code: Select all

sub mesg()
var msg = 'test msg'
DJournal(msg)
UO.TextClear()
UO.TextOpen()
  while 1==1
    if UO.InJournal(msg) then
      UO.textprint(msg +' : ' + Maketime())
      DJournal(msg)
    endif 
  wend
endsub

Sub DJournal(msg )
   VAR tmp = UO.InJournal( msg )
   If tmp > 0 Then
      UO.SetJournalLine(tmp - 1, ' ' )
      DJournal(msg)
   Endif
endsub

Sub MakeTime()
var d,t,ret,i
ret=str(uo.Time())
t=""
for i=0 to Len(ret)
  t=ret[Len(ret)-i]+t
  if (i==2) or (i==4) then
    t=":"+t
  end if
next
ret=str(uo.Date())
d=""
for i=0 to Len(ret)
  d=ret[Len(ret)-i] + d
  if (i==2) or (i==4) then
    d="."+d
  end if
next
ret=t+" @ "+d
return ret
end sub


запускать mesg

попробуй
Last edited by Yura on 2008-03-25 21:48:53, edited 2 times in total.
-=WOLVERINE=-
Posts: 66
Joined: 2004-05-27 18:19:17
Contact:

Post by -=WOLVERINE=- »

Ого не думал что так можно...только вот у меня никак не хватит места на харде если он так будет три четыре дня работать :lol:
Можно сделать как то чтобы он увидел надпись то записал ,а то я попробовал.....так он в пару секунд мне выдал список на три страницы времени:) вообщем суть такая мне нужно знать когда появляеться в моем доме определенныи человек ...так как он лаин его не могу никак застать а подругому мне его не наити:(
Yura
Posts: 71
Joined: 2008-03-03 09:19:21
Location: SPB

Post by Yura »

исправил
-=WOLVERINE=-
Posts: 66
Joined: 2004-05-27 18:19:17
Contact:

Post by -=WOLVERINE=- »

Спасибо огромное!Надеюсь мне поможет!скрипт работает!
-=WOLVERINE=-
Posts: 66
Joined: 2004-05-27 18:19:17
Contact:

Post by -=WOLVERINE=- »

блин парсер выдает...и в конечном итогде сносит инжектион хмл :(
Yura
Posts: 71
Joined: 2008-03-03 09:19:21
Location: SPB

Post by Yura »

Code: Select all

 while 1==1 
    wait(500)
    if UO.InJournal(msg) then
      UO.textprint(msg +' : ' + Maketime())
      DJournal(msg)
    endif 
  wend

таймер добавь, можеш посмотреть нагруку на проц, если сильно после запуска скрипта вырастает, увеличивай
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Post by Destruction »

Sub DJournal(msg )
VAR tmp = UO.InJournal( msg )
If tmp > 0 Then
UO.SetJournalLine(tmp - 1, ' ' )
DJournal(msg)
Endif
endsub


Ересь. Рекурсия. Чем вас мой deljournal() не устроил?
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Telegram: @tatikom
Yura
Posts: 71
Joined: 2008-03-03 09:19:21
Location: SPB

Post by Yura »

Destruction wrote:Ересь. Рекурсия. Чем вас мой deljournal() не устроил?

2Destruction
Я его и не видел)). Врятли ошибка из-за этого, или инжа криво работает с рекурсией?

2-=WOLVERINE=-
если ошибка будет все равно вылазить замени Djournal на скрипт Destructiona

Code: Select all

Sub DJournal(msg )
while uo.injournal(msg)
  uo.setjournalline(uo.injournal(msg)-1,"")
wend
endsub
-=WOLVERINE=-
Posts: 66
Joined: 2004-05-27 18:19:17
Contact:

Post by -=WOLVERINE=- »

блин ..все равно вдает парсер..может бть дело в инжекте?или в железке?играю с ноут бука :?
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

Destruction wrote:Ересь. Рекурсия.


Рекурсия - не ересь, а нормальный инструмент программиста. Просто пользоваться надо аккуратно.

В журнале инжекта максимум 100 строк, так что у рекурсии максимум 100 вложений. Ничего страшного с инжектом от этого не случится (проблемы могут начаться после 220-250 вложений).

ЗЫ: UO.textprint(msg +' : ' + Maketime()) - это здорово, но рекомендую поэкспериментировать и убедиться, что длина окна для текстовых выводов не такая уж и длинная. Результат 4-дневной работы в него точно не поместится. Кажись (счас не помню точно) там всего 4096 байт можно записать...
Ни один скрипт не работает? Пора обновить Инжект...
Все работает, но хочется большего? Пора переходить на стелс...
-=WOLVERINE=-
Posts: 66
Joined: 2004-05-27 18:19:17
Contact:

Post by -=WOLVERINE=- »

Edred wrote:
Destruction wrote:Ересь. Рекурсия.


Рекурсия - не ересь, а нормальный инструмент программиста. Просто пользоваться надо аккуратно.

В журнале инжекта максимум 100 строк, так что у рекурсии максимум 100 вложений. Ничего страшного с инжектом от этого не случится (проблемы могут начаться после 220-250 вложений).

ЗЫ: UO.textprint(msg +' : ' + Maketime()) - это здорово, но рекомендую поэкспериментировать и убедиться, что длина окна для текстовых выводов не такая уж и длинная. Результат 4-дневной работы в него точно не поместится. Кажись (счас не помню точно) там всего 4096 байт можно записать...

И это с учетом что просто напросто выводиться одна строка с цифрами..тоесть когда появляеться эта надпись?кстати человека нашол:)нашел бонально..по телефоннои книжке...а скрипт я думаю можно использовать..ну допустим отслеживать время респауна живности...чем сеичас и занимаюсь)на уникорна:) :lol:
Post Reply