1. На проекте открылась регистрация только для продавцов. Для обычных пользователей будет открыта позже. Подробнее.
    P.S. Не надо скидывать ссылки на форумы, где у вас ноль сообщений. Подобные заявки будут отклонятся.
Скрыть объявление
Привет, Незнакомец! У тебя есть возможность Оставить комментарий в теме

Скриптинг ЗабавЫ для IRCop'ов

Тема в разделе "PR0GRAMM1NG", создана пользователем ddd, 12 сен 2009.

  1. ddd (•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

    ddd
    TS
    Команда форума WebOwner WebVoice
    Регистрация:
    5 мар 2007
    Сообщения:
    2.897
    Симпатии:
    191
    ICQ:
    943084
    вЫкладЫваем скриптЫ :)

    Код:
    on *:snotice:*:if ($1 == ***) && ($4- == did a /whois on you.) { echo 4 -a $timestamp Тебя хуизнул - $2 $3 | /SetHost $gettok($mask($2 $+ ! $+ $remove($3,$chr(40),$chr(41)),2),2,64) }
    
    Скрипт в свою очередь и полезнЫй, он вЫводит в активном окне кто тебя хуизнул, чтоб каждЫй раз в окно статуса не лесть. Ну и чтоб он работал, должна на ИРЦопе висеть мода +W.
    Вторая команда в скрипте меняет тебе вхост на хост сделавшего вхуиз. Тобишь следующий кто тебя хуизнет увидит хост предЫдущего любопЫтного.
     
  2. ddd (•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

    ddd
    TS
    Команда форума WebOwner WebVoice
    Регистрация:
    5 мар 2007
    Сообщения:
    2.897
    Симпатии:
    191
    ICQ:
    943084
    Для начала с чего все началось:
    Вот собственно сам скрипт, который по бырому написал:
    Код:
    menu channel,menubar {
      Материлка:/OPERmat
    }
    alias OPERmat { dialog -m OPERmat OPERmat }
    dialog OPERmat {
      title "OPER-ская материлка v0.1"
      size -1 -1 96 34
      option dbu
      text "by ddd © 2011", 1, 57 25 37 8
      edit "", 2, 49 1 45 10
      link "www.webcriminal.ru", 3, 2 25 49 8
      text "Кого материть:", 4, 4 2 40 8
      button "Набраться матов", 5, 2 11 47 12
      button "Обматерить", 6, 49 11 45 12
    }
    
    on *:dialog:OPERmat:sclick:2:set %offend
    on *:dialog:OPERmat:sclick:5:{ msg chanserv list * | timerBADWORDS 1 10 /badlist }
    on *:dialog:OPERmat:sclick:6:{ set %offend $did(OPERmat,2,text) | offendnick }
    
    on 1:NOTICE:*#*:?:if ($nick == chanserv) && ( [Forbidden] != $gettok($1-,2,32) ) { write chanlist.txt $remove($gettok($1-,1,32),$chr(33)) }
    on 1:NOTICE:*(*)*:?:if ($nick == botserv) { write badwordslist.txt $gettok($1-,2,32) }
    
    alias badlist {
     set %chanlist 1
     while (%chanlist <= $lines(chanlist.txt)) {
       bs badwords $read(chanlist.txt,%chanlist) list
       inc %chanlist 1
     }
    }
    
    alias offendnick {
     set %badlist 1
     while (%badlist <= $lines(badwordslist.txt)) {
       msg %offend $read(badwordslist.txt,%badlist)
       inc %badlist 1
     }
    }
    
    Либо сразу в скрипты пихаете, либо сохраняете в папке с mirc.exe например как opermat.mrc и потом загрузите его командой:
    /load -rs opermat.mrc
    Запускать через менюбар либо правой кнопкой по каналу и выбрать Материлка.
     
  3. ddd (•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

    ddd
    TS
    Команда форума WebOwner WebVoice
    Регистрация:
    5 мар 2007
    Сообщения:
    2.897
    Симпатии:
    191
    ICQ:
    943084
    Заранее я не подготовился, а на само 1 апреля времени выдумывать что-то изощренное не было. По этому набросал такой скрипт:

    Код:
    on *:snotice:*:if ($1 == ***) && ($4- == did a /whois on you.) { echo 4 -a $timestamp Тебя хуизнул - $2 $3 | inc -u1200 $+(%, glap., $2) 1 | if ((1 == $eval($+(%, glap., $2),2)) && (%glap == 1)) /timerGLAP 1 5 os global $read(glap.txt) }
    on *:text:!glapON:?: if ($nick == GR) set %glap 1 | /msg $nick Врубил
    on *:text:!glapOFF:?: if ($nick == GR) set %glap 2 | /msg $nick Отрубил
    
    Собственно что в файле glap.txt
    Код:
    Отдам почку в хорошее тело, обращаться4 /query $2
    Появился новый официальный сервис сети!!! Приватный секс чат с4 $2 $+ ! Обращайтесь круглосуточно4 /query $2
    Предлагаю услуги экстрасенса, снимаю порчу с каналов, поднимаю вашу карму в акцес листе, обращаться4 /query $2
    Вы считаете себя неудачником, у вас нечего не получается, все говорят что у вас руки из одного места растут? Не расстраивайтесь! Присоединяйтесь к секте Жопоруков! Все вопросы по вступлению задавать в приват к4 /query $2
    Вас кикнули с канала, и добавили в банлист без причины? Не беда, с сегодняшнего дня у нас предоставляется бесплатный IRC адвокат, все вопросы к4 /query $2
    Ура!4 $2 наконец-то увеличило себе грудь до $len($2) $+ -го размера!
    Встречаем4 $2 ! Он новый обладатель самой большой письки в сети, длина которой составляет $calc(10+$len($2)) см. У прошлого рекордсмена скукожился!
    Раздаю WMZ бонусы, свои кошельки отправляйте мне в приват4 /query $2
    Пользователи сети! У нас произошло восстание, мы хотим свергнуть режим диктатора _Gr3h0ff_ (GR). Войска коалиции уже на подходе, авиация США уже наносит точечные удары по серверам в Украине. Вступайте в наши ряды. Все вопросы к повстанцу4 /query $2 ! К сожалению прошлый предводитель был жестоко заглайнен!
    Разыскивается особо опасный IRC преступник4 $2 $+ ! Если у вас имеются данные о месте нахождении данного человека, то немедленно сообщите на канал #Abuse
    
    Поясняю что он делает. После того как меня вхуизнут, срабатывает таймер и через 5 секунд ГЛОБОЛОМ (сообщение для всей сети) выдаст какуе-нить строчку из файла glap.txt
    И создастся переменная с ником, на 20 минут, чтоб пользователь не зафлудил глобалами, если прошарит в чем дело.
    В конце идут два события для включения и отрубания скрипта, я просто убегал и не мог следить за тем как пользователи будут наглеть, по этому дал возможность отрубить из вне, правда этим не воспользовались :)
    Как все написал, сменил ник на НЕВхуиЗНУТЫЙ, сменил себе хост и идент, в результате получилось:
    Код:
    НЕВхуиЗНУТЫЙ это tsohlacol@1.0.0.721 * кто я?
    
    И зашел на все топовые каналы, и нацепил на себя моду +q чтоб кикнуть могли только через консерву...

    Далее логи:
    Status
    Наверн обиделся за секту жопоруков :)


    Логи с каналов: