решил попробовать написать что нибудь свое и вот что получилось:
Code
###Эээээ... А куда это я попал?###
bind pubm - "*куда*я*попал*" pub:raznfaqv
proc pub:raznfaqv {nick uhost hand chan text} {
if {![channel get $chan faqsystem]} { return }
putserv "privmsg $chan :Вы попали на канал $chan посвященный наукам ктулхологии и криветковедению Если Вы мальчик напишите 1# если злой валасытый мужыГ - 2# если вы милая дефочка -3# если злая мигера -4# если вы не определились кто вы напишите -5# ежели вы не относите себя к выше указаным -6# ну а если чего-то стесняетесь -7# если вам нужна помощь в выборе -8# если нужна просто помощь -9# если кто-то еще - Alt+F4 :)"; return; }
на канале выглядит почему то так:
Quote
02:54:41 <Evil_Moderate> а куда это я попал?
02:54:44 <{O_o}> Вы сейчас на канале #inetvl посвященный наукам ктулхологии и криветковедению Если Вы мальчик напишите 1# если злой валасытый мужыГ - 2# если вы милая дефочка -3# если злая мигера -4# если вы не определились кто вы напишите -5# ежели вы не относите себя к выше указаным -6# ну а если чего-то стесняетесь -7# если вам нужна помощь в выборе -8# если нужна просто помощь -9# если кто-то еще - Alt+F4 :)
02:54:46 <{O_o}> Вы сейчас на канале #inetvl посвященный наукам ктулхологии и криветковедению Если Вы мальчик напишите 1# если злой валасытый мужыГ - 2# если вы милая дефочка -3# если злая мигера -4# если вы не определились кто вы напишите -5# ежели вы не относите себя к выше указаным -6# ну а если чего-то стесняетесь -7# если вам нужна помощь в выборе -8# если нужна просто помощь -9# если кто-то еще - Alt+F4 :)
дальше в скрипте идет следущее:
Code
###1###
bind pubm - "*1#*" pub:raznfaqv1
proc pub:raznfaqv1 {nick uhost hand chan text} {
if {![channel get $chan faqsystem]} { return }
putserv "privmsg $chan :да ты клефый мальчиК $nick :)"; return; }
###2###
bind pubm - "*2#*" pub:raznfaqv2
proc pub:raznfaqv2 {nick uhost hand chan text} {
if {![channel get $chan faqsystem]} { return }
putserv "privmsg $chan :йа боюсь тя $nick (пОбРеЙсО ЧтОлЬ) :)"; return; }
###3###
bind pubm - "*3#*" pub:raznfaqv3
proc pub:raznfaqv3 {nick uhost hand chan text} {
if {![channel get $chan faqsystem]} { return }
putserv "privmsg $chan :$nick ДаФаЙ ЗнАкОмИтЬсО??? :)"; return; }
###4###
bind pubm - "*4#*" pub:raznfaqv4
proc pub:raznfaqv4 {nick uhost hand chan text} {
if {![channel get $chan faqsystem]} { return }
set rnick [lindex $nicks [rand [llength $nicks]]]
while {($rnick == $nick) || ($rnick == $botnick)} { set rnick [lindex $nicks [rand [llength $nicks]]] }
putserv "privmsg $chan :СпРяТоЛсО оТ $nick За СпИнОй У $rnick :)"; return; }
###5###
set sd(info) [::egglib::readdata data/sd.txt]
bind pubm - "*5#*" pub:raznfaqv5
proc pub:raznfaqv5 {nick uhost hand chan text} {
if {![channel get $chan faqsystem]} { return }
putserv "privmsg $chan :$nick по моему скромному вычислению ты .... :)
putserv "privmsg $chan :\00306[lindex $sd(info) [rand [llength $sd(info)]]]
putserv "privmsg $chan : ;-)"; return; }
###6###
bind pubm - "*6#*" pub:raznfaqv6
proc pub:raznfaqv6 {nick uhost hand chan text} {
if {![channel get $chan faqsystem]} { return }
putserv "privmsg $chan :$nick Оу ФаК Да Ты ОнО О_о :)"; return; }
###7###
bind pubm - "*7#*" pub:raznfaqv7
proc pub:raznfaqv7 {nick uhost hand chan text} {
if {![channel get $chan faqsystem]} { return }
putserv "privmsg $chan :$nick ВаУ Да Ти СтЕфНяШкА :-[ :)
putserv "privmsg $chan : ДаФаЙ ДлУжИтЬ $nick ??"; return; }
###8###
bind pubm - "*8#*" pub:raznfaqv8
proc pub:raznfaqv8 {nick uhost hand chan text} {
if {![channel get $chan faqsystem]} { return }
putserv "privmsg $chan :$nick если ваш праздник 8 марта и вам дарят цветы и конфеты, вы очаровательная девушка!!! :)
putserv "privmsg $chan :$nick если ваш праздник 23 февраля то вы определенно мужиК ЗашитнеГ!!!!! :)"; return; }
###9###
bind pubm - "*9#*" pub:raznfaqv9
proc pub:raznfaqv9 {nick uhost hand chan text} {
if {![channel get $chan faqsystem]} { return }
putserv "privmsg $chan :$nick ЧеМ МоГу БыТь ПоЛеЗеН???
putserv "privmsg $chan :$nick мои команды !хелп :)"; return; }
но работают только 3 первых посдкажите мои ошибки