28.05.2009, 10:18
|
|
Постоянный
Регистрация: 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
}
}
}
|
|
|