Страница 1 из 1

Помоги со скриптом информации о канале и нике

СообщениеДобавлено: 16 апр 2011 14:46
team
ребят вот скрипт небольшой взял с сайта,дописал для ника


TCL: [ Скачать ] [ Скрыть ]
################## НИК #######################

bind pub - !нинфо nsinfo
bind pub - !ninfo nsinfo
proc nsinfo {nick uhost hand chan text} {
global nschan
putserv "nickserv info $text all"
set nschan $chan
return 0
}

bind notc - "*" nsnotc
proc nsnotc {nick uhost hand text dest} {
global botnick nschan
    if {$dest == $botnick && $nick == "NickServ"} {
        putserv "PRIVMSG $nschan :$text"
    }
}

################## КАНАЛ ######################

bind pub - !кинфо chinfo
bind pub - !kinfo chinfo
proc chinfo {nick uhost hand chan text} {
global chchan
putserv "chanserv info $text all"
set chchan $chan
return 0
}

bind notc - "*" csnotc
proc csnotc {nick uhost hand text dest} {
global botnick chchan
    if {$dest == $botnick && $nick == "ChanServ"} {
        putserv "PRIVMSG $chchan :$text"
    }
}


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

Re: Помогите поправить

СообщениеДобавлено: 16 апр 2011 14:55
tvrsh
Название темы измени на нормальное, чтобы из него было ясно о каком скрипте говориться. Не надо захламлять форум темами вроде "Нужна помощь" или "Помогите поправить".
При показе кода используй подсветку синтаксиса, чтобы это выглядело так:
TCL: [ Скачать ] [ Скрыть ]
bind pub - !нинфо nsinfo
bind pub - !ninfo nsinfo
proc nsinfo {nick uhost hand chan text} {
    global nschan nsnick
    putserv "nickserv info $text all"
    set nschan $chan
    set nsnick $nick
    return 0
}

bind notc - "*" nsnotc
proc nsnotc {nick uhost hand text dest} {
    global botnick nschan nsnick
    if {$dest == $botnick && $nick == "NickServ"} {
        putserv "NOTICE $nsnick :$text"
    }
}

Re: Помоги со скриптом информации о канале и нике

СообщениеДобавлено: 17 апр 2011 18:40
team
Скопировал твоё для ника,все ок,поправил для канала свое и получилось так

TCL: [ Скачать ] [ Скрыть ]
################## КАНАЛ ######################

bind pub - !кинфо csinfo
bind pub - !cinfo csinfo
proc csinfo {nick uhost hand chan text} {
    global cchan csnick
    putserv "ChanServ info $text all"
    set cchan $chan
    set csnick $nick
    return 0
}

bind notc - "*" csnotc
proc csnotc {nick uhost hand text dest} {
    global botnick cchan csnick
    if {$dest == $botnick && $nick == "NickServ"} {
        putserv "NOTICE $csnick :$text"
    }
}
################# НИК ###################
bind pub - !нинфо nsinfo
bind pub - !ninfo nsinfo
proc nsinfo {nick uhost hand chan text} {
    global nschan nsnick
    putserv "nickserv info $text all"
    set nschan $chan
    set nsnick $nick
    return 0
}

bind notc - "*" nsnotc
proc nsnotc {nick uhost hand text dest} {
    global botnick nschan nsnick
    if {$dest == $botnick && $nick == "NickServ"} {
        putserv "NOTICE $nsnick :$text"
    }
}


и когда рехашнул бота то не работают не ninfo не cinfo,и пишет ошибку
[18:45:06] Tcl error [csnotc]: can't read "csnick": no such variable
[18:45:07] Tcl error [nsnotc]: can'
t read "nsnick": no such variable

Re: Помоги со скриптом информации о канале и нике

СообщениеДобавлено: 17 апр 2011 20:24
tvrsh
В процедуре csnotc надо проверять на ChanServ а не на NickServ. Остальное должно нормально работать.