Yoko

All sides of Injection
It is currently 2026-03-06 19:58:15

All times are UTC+02:00




Post new topic  Reply to topic  [ 5 posts ] 
Author Message
PostPosted: 2009-02-17 11:49:55 
Offline

Joined: 2009-02-10 10:18:14
Posts: 10
Имеется вот такой вот скриптик от Дестракшена...
Code:
sub FoulToScreen()
   var i, name, nc_msg, msg = '', words_count = 1
   DIM foul[1]
   foul[0] = "attacking";
   repeat
      if not msg == uo.lastmessage() then
         msg = uo.lastmessage()
         nc_msg = strtolower( msg )
         name = uo.getname( uo.journalserial( 0 ) )
         for i=0 to words_count-1
            if FindEntry( foul[ i ], nc_msg, false ) > -1 then
               uo.print( "Матерное слово обнаружено, в строке:");
               wait(1000)
               uo.snap("BMP", "D:\Mining\["+name+' - '+UO.asmGetTime("h.n.s") +"].bmp")
               i = words_count-1
            endif
         next
      endif
      wait( 500 )
   until false
endsub

Sub inArray( str, arr, nocase, arr_len )
   var i
   if nocase then
      str = StrToLower( str )
   endif
   for i=0 to arr_len-1
      if nocase then
         if StrToLower( arr[i] ) == str then
            return i
         endif
      else
         if arr[i] == str then
            return i
         endif
      endif
   next
   return -1
endsub
sub StrToLower( str )
   var num, i, j
   DIM lower[59]
   lower = LowerWords( lower )
   DIM upper[59]
   upper = UpperWords( upper )
   for i=0 to strlen( str )-1
      num = inArray( str[i], upper, 0, 59)
      if num > -1 then
         str = left( str, i ) + lower[ num ] + right( str, strlen( str ) -i -1 )
      endif
   next
   return str
endsub
sub StrToUpper( str )
   var num, i, j
   DIM lower[59]
   lower = LowerWords( lower )
   DIM upper[59]
   upper = UpperWords( upper )
   for i=0 to strlen( str )-1
      num = inArray( str[i], lower, 0, 59)
      if num > -1 then
         str = left( str, i ) + upper[ num ] + right( str, strlen( str ) -i -1 )
      endif
   next
   return str
endsub
Sub FindEntry( entry, str, nocase )
   var i
   if nocase then
      entry = strtolower( entry )
      str = strotolower( str )
   endif
   for i=0 to strlen( str ) -strlen( entry )
      if MID( str, i, strlen( entry ) ) == entry then
         return i
      endif
   next
   return -1
endsub
Sub LowerWords(words)
   words[0] = "q"
   words[1] = "w"
   words[2] = "e"
   words[3] = "r"
   words[4] = "t"
   words[5] = "y"
   words[6] = "u"
   words[7] = "i"
   words[8] = "o"
   words[9] = "p"
   words[10] = "a"
   words[11] = "s"
   words[12] = "d"
   words[13] = "f"
   words[14] = "g"
   words[15] = "h"
   words[16] = "j"
   words[17] = "k"
   words[18] = "l"
   words[19] = "z"
   words[20] = "x"
   words[21] = "c"
   words[22] = "v"
   words[23] = "b"
   words[24] = "n"
   words[25] = "m"
   words[26] = "й"
   words[27] = "ц"
   words[28] = "у"
   words[29] = "к"
   words[30] = "е"
   words[31] = "н"
   words[32] = "г"
   words[33] = "ш"
   words[34] = "щ"
   words[35] = "з"
   words[36] = "х"
   words[37] = "ъ"
   words[38] = "ф"
   words[39] = "ы"
   words[40] = "в"
   words[41] = "а"
   words[42] = "п"
   words[43] = "р"
   words[44] = "о"
   words[45] = "л"
   words[46] = "д"
   words[47] = "ж"
   words[48] = "э"
   words[49] = "я"
   words[50] = "ч"
   words[51] = "с"
   words[52] = "м"
   words[53] = "и"
   words[54] = "т"
   words[55] = "ь"
   words[56] = "б"
   words[57] = "ю"
   words[58] = "ё"
   return words
endsub
Sub UpperWords(words)
   words[0] = "Q"
   words[1] = "W"
   words[2] = "E"
   words[3] = "R"
   words[4] = "T"
   words[5] = "Y"
   words[6] = "U"
   words[7] = "I"
   words[8] = "O"
   words[9] = "P"
   words[10] = "A"
   words[11] = "S"
   words[12] = "D"
   words[13] = "F"
   words[14] = "G"
   words[15] = "H"
   words[16] = "J"
   words[17] = "K"
   words[18] = "L"
   words[19] = "Z"
   words[20] = "X"
   words[21] = "C"
   words[22] = "V"
   words[23] = "B"
   words[24] = "N"
   words[25] = "M"
   words[26] = "Й"
   words[27] = "Ц"
   words[28] = "У"
   words[29] = "К"
   words[30] = "Е"
   words[31] = "Н"
   words[32] = "Г"
   words[33] = "Ш"
   words[34] = "Щ"
   words[35] = "З"
   words[36] = "Х"
   words[37] = "Ъ"
   words[38] = "Ф"
   words[39] = "Ы"
   words[40] = "В"
   words[41] = "А"
   words[42] = "П"
   words[43] = "Р"
   words[44] = "О"
   words[45] = "Л"
   words[46] = "Д"
   words[47] = "Ж"
   words[48] = "Э"
   words[49] = "Я"
   words[50] = "Ч"
   words[51] = "С"
   words[52] = "М"
   words[53] = "И"
   words[54] = "Т"
   words[55] = "Ь"
   words[56] = "Б"
   words[57] = "Ю"
   words[58] = "Ё"
   return words
endsub


Вот с нимто и проблема....... Когда его без какого либо скрипта запускаю... то супер... Если конить начинает драться он сразу скриншотит....
Но вот беда... когда я его exec'ю из скрипта на майнинг то он вообще перестаёт реагировать на надпись attacking....
Помогите пожалуйста... Очень уж нужна подобная фенька =)))

Либо конечно же порекомендуйте чего другого... но это единственное что мне подошло.


Top
   
 Post subject:
PostPosted: 2009-02-17 17:49:43 
Offline
User avatar

Joined: 2008-09-12 05:07:34
Posts: 247
Мининг журнал вытирает, а этот скрипт в журнале ищет слово attacking, и не нужен такой здоровый скрипт для поиска единственного слова, Дестр этим скриптом матерщинников фоткал, походу...
Code:
sub snap()
 var name
   while 1==1
       if uo.injournal('attacking you') then
             name=uo.getname(uo.journalserial(uo.injournal('attacking you')-1))
             uo.snap("BMP", "D:\Mining\"+name+str(uo.date())+str(uo.time())+".bmp")
             deljournal('attacking you')
        else
              wait(1000)
        endif
    wend
endsub
Sub deljournal(msg)
   while uo.injournal(msg)
      uo.setjournalline(uo.injournal(msg)-1,"")
   wend
endsub


Top
   
 Post subject:
PostPosted: 2009-02-17 21:43:43 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
Это такой древний скрипт, в котором я зачем-то юзаю массив.. Строкой все гораздо короче -)

Суть всего изврата, как я сейчас вижу по коду - палить регистронезависимо.

Для простых attacking - достаточно того, что сообщением выше -)

_________________
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.
Skype: d119060


Top
   
 Post subject:
PostPosted: 2009-02-17 22:27:20 
Offline
User avatar

Joined: 2008-09-12 05:07:34
Posts: 247
А приятно наблюдать, что народ твоими произведениями пользуется до сих пор :)


Top
   
 Post subject:
PostPosted: 2009-02-18 06:36:42 
Offline

Joined: 2009-02-10 10:18:14
Posts: 10
Просто тот единственный который удалось найти =))))

То что ты дал работает на УРА!

Большое спасибо за помощь =)


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 5 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 2 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited