Yoko

Code: Select all

var sc = "./sc/" ; директория, куда записывать скриншоты

sub FoulToScreen()
   var i, name, nc_msg, msg = '', words_count = 1 ; количество слов
   DIM foul[1]
   ; Далее - слова в НИЖНЕМ регистре
   foul[0] = "тест";
   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( "Матерное слово обнаружено, в строке:");
               uo.print( msg )
               uo.print( "Было найдено слово '"+foul[i]+"'" )
               uo.print( "Дата: "+date(uo.date(),'.') + " в " + time(uo.time(), ":") + " времени.." )
               wait(1000)
               uo.snap( "BMP", sc + date(uo.date(),'.') + " " + time(uo.time(), "-")+" ["+name+' - '+foul[i]+"].bmp" )
               i = words_count-1
            endif
         next
      endif
      wait( 500 )
   until false
endsub