Script for mIRC

28.05.2009, 10:18

$Аватар для CrazyStudentS_Mi}{$

CrazyStudentS_Mi}{

Постоянный

Регистрация: 04.07.2007

Сообщений: 827

С нами: 9923367

Репутация: 882

Spam Script v2.3 by ScorpLeX

PHP код:


		
			
on *:start:echo --== Spam Script v2.3 by ScorpLeX (icq 875880) ] ==--

menu status {

  Спам:

  .Запустить:set %spam 0 | set %ktxt kanal.txt | set %ntxt nick.txt | /list -min 100 | remove %ktxt | if ($?!="Начать сбор ников и спам?") { set %kt2 $read(%ktxt, 1) | join %kt2 }

  .Текст сообщения:set %msgf $?="Введите текст сообщения:"

  .Отключить:set %spam 1

}

raw 322:*:{

  write %ktxt $2

  /write -ds #admin %ktxt

  /write -ds #* %ktxt



}

on *:join:%kt2:{

  if ($nick == $me && %spam == 0) {

    .timerkt2 1 2 part %kt2

    /write -ds %kt2 %ktxt

  }

}

on *:part:%kt2:{

  if ($nick == $me && %spam == 0) {

    set %snick 1

    :next

    if ($nhnick(%kt2, %snick, a) == $null) goto done

    if ($nhnick(%kt2, %snick, a) != $me) { write -ds $nhnick(%kt2, %snick, a) %ntxt | write %ntxt $nhnick(%kt2, %snick, a) }

    inc %snick

    goto next

    :done

    unset %kt2

    set %kt2 $read(%ktxt, 1)

    if ( %kt2 != null ) { join %kt2 } else {

      set %linz 1

      :n1

      if ($read(%ntxt, %linz) == $null) goto f1

      if ( %msgf != null ) { .timer $+ $read(%ntxt, %linz) 1 $calc(%linz * 15) msg $read(%ntxt, %linz) %msgf }

      inc %linz

      goto n1

      :f1

    }

  }

}