Форум о ботах Eggdrop/Windrop

[team]

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

ребят вот скрипт небольшой взял с сайта,дописал для ника

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"
    }
}

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

[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"
    }
}

[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,и пишет ошибку

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

[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

[tvrsh]

В процедуре csnotc надо проверять на ChanServ а не на NickServ. Остальное должно нормально работать.