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

[tvrsh]

Это Tcl быть изменены, чтобы сделать информацию не из "SeenServ" a из "seenmod"

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

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

##########################################################################
# Seen.tcl
# Za da raboti tcla za daden kanal to trqbva da set-nete chan flag seenserv
# s drugi dumi .chanset #kanala +seenserv ( na partyline )
# Kak da izprashta bota msg-tata?
# 1 - na private
# 2 - v kanala
# 3 - kato notice na nicka
# 4 - kato notice v kanala ( nepreporychitelno )
# Tova moje da go nastroite ot partyline s .chanset #kanala seen:meth 2
# seen.tcl e oshte v testove period , vyzmojni sa nqkoi bugove <img src="https://forum.egghelp.ru/images/smilies/icon_e_smile.gif" alt=":)" title="Smile" />
##########################################################################

# kakvi iskate da bydat msg-tata ?
# 1 - pokazva msg-ta na seenserv 1 kym 1 ( by default )
# 2 - pokazva msg-tata po razlichen nachin <img src="https://forum.egghelp.ru/images/smilies/icon_e_wink.gif" alt=";)" title="Wink" />)
set msgmeth 1

# nedei bara nadolu ako ne razbirash <img src="https://forum.egghelp.ru/images/smilies/icon_e_smile.gif" alt=":)" title="Smile" />
bind pub -|- seen serv:seen
bind msgm -|- "*is*currently*online*" success:seen
bind msgm -|- "*was*" offline:seen
bind msgm -|- "*sorry*have*recently*" nosucc:seen
setudef flag seenserv
setudef int seen:meth

proc msg:seen {nick chan msg} {
  switch [channel get $chan seen:meth] {
    1 { putquick "PRIVMSG $nick :$msg" }
    2 { putquick "PRIVMSG $chan :$msg" }
    3 { putquick "NOTICE $nick :$msg" }
    4 { putquick "NOTICE $chan :$msg" }
    default { putquick "PRIVMSG $chan :$msg" }
  }
}
proc serv:seen {n u h c t} {
if { [channel get $c seenserv] } {
        if {$t == ""} {
                set msg "$n, a nick ?"
                msg:seen $n $c $msg
                return 0
        }
        if {[onchan [split $t] $c]} {
                set msg "$n, [split $t] e v kanala, ogledai se <img src="https://forum.egghelp.ru/images/smilies/icon_e_smile.gif" alt=":)" title="Smile" />"
                msg:seen $n $c $msg
                return 0
        }
        putquick "PRIVMSG SeenServ :seen $t"
        set ::schan "$c"
        set ::rnick "$n"
}
}
proc success:seen {n u h t} {
if { $n == "SeenServ" } {
if {$::msgmeth == 1 } { set msg $t }
if {$::msgmeth == 2 } { set msg "[lindex [split $t] 0] [lindex $t 1] shtyka iz chata <img src="https://forum.egghelp.ru/images/smilies/icon_e_smile.gif" alt=":)" title="Smile" />"}
        msg:seen $::rnick $::schan $msg
        return 0
        }
}
proc offline:seen {n u h t} {
if { $n == "SeenServ" } {
if {$::msgmeth == 1 } { set msg $t }
if {$::msgmeth == 2 } { regsub -nocase {ago} [lrange $t 6 end] "" koga;set msg "[lindex [split $t] 0] [lindex $t 1] mina prez chata predi $koga" }
        msg:seen $::rnick $::schan $msg
        return 0
        }
}
proc nosucc:seen {n u h t} {
if { $n == "SeenServ" } {
if {$::msgmeth == 1 } { set msg $t }
if {$::msgmeth == 2 } { set msg "Nqmam informaciq , moje bi [lindex [chanlist $::schan] [rand [llength [chanlist $::schan]]]] znae neshto ?"}
        msg:seen $::rnick $::schan $msg
        return 0
        }
}
# malko credits =)
putlog "seen.tcl 0.99 loaded

[tvrsh]

Если ты хотел поменять скрипт так, чтобы она работал не с ником SeenServ а с ником Seenmod то вот. Пробуй.

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

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

##########################################################################
# Seen.tcl
# Za da raboti tcla za daden kanal to trqbva da set-nete chan flag seenserv
# s drugi dumi .chanset #kanala +seenserv ( na partyline )
# Kak da izprashta bota msg-tata?
# 1 - na private
# 2 - v kanala
# 3 - kato notice na nicka
# 4 - kato notice v kanala ( nepreporychitelno )
# Tova moje da go nastroite ot partyline s .chanset #kanala seen:meth 2
# seen.tcl e oshte v testove period , vyzmojni sa nqkoi bugove
##########################################################################

# kakvi iskate da bydat msg-tata ?
# 1 - pokazva msg-ta na seenserv 1 kym 1 ( by default )
# 2 - pokazva msg-tata po razlichen nachin
set msgmeth 1

# nedei bara nadolu ako ne razbirash
bind pub -|- seen serv:seen
bind msgm -|- "*is*currently*online*" success:seen
bind msgm -|- "*was*" offline:seen
bind msgm -|- "*sorry*have*recently*" nosucc:seen
setudef flag seenserv
setudef int seen:meth

proc msg:seen {nick chan msg} {
  switch [channel get $chan seen:meth] {
    1 { putquick "PRIVMSG $nick :$msg" }
    2 { putquick "PRIVMSG $chan :$msg" }
    3 { putquick "NOTICE $nick :$msg" }
    4 { putquick "NOTICE $chan :$msg" }
    default { putquick "PRIVMSG $chan :$msg" }
  }
}
proc serv:seen {n u h c t} {
if { [channel get $c seenserv] } {
        if {$t == ""} {
                set msg "$n, a nick ?"
                msg:seen $n $c $msg
                return 0
        }
        if {[onchan [split $t] $c]} {
                set msg "$n, [split $t] e v kanala, ogledai se"
                msg:seen $n $c $msg
                return 0
        }
        putquick "PRIVMSG Seenmod :seen $t"
        set ::schan "$c"
        set ::rnick "$n"
}
}
proc success:seen {n u h t} {
if { $n == "Seenmod" } {
if {$::msgmeth == 1 } { set msg $t }
if {$::msgmeth == 2 } { set msg "[lindex [split $t] 0] [lindex $t 1] shtyka iz chata "}
        msg:seen $::rnick $::schan $msg
        return 0
        }
}
proc offline:seen {n u h t} {
if { $n == "Seenmod" } {
if {$::msgmeth == 1 } { set msg $t }
if {$::msgmeth == 2 } { regsub -nocase {ago} [lrange $t 6 end] "" koga
set msg "[lindex [split $t] 0] [lindex $t 1] mina prez chata predi $koga" }
        msg:seen $::rnick $::schan $msg
        return 0
        }
}
proc nosucc:seen {n u h t} {
if { $n == "Seenmod" } {
if {$::msgmeth == 1 } { set msg $t }
if {$::msgmeth == 2 } { set msg "Nqmam informaciq , moje bi [lindex [chanlist $::schan] [rand [llength [chanlist $::schan]]]] znae neshto ?"}
        msg:seen $::rnick $::schan $msg
        return 0
        }
}
# malko credits =)
putlog "seen.tcl 0.99 loaded"

[Stefan]

[02/10/2010|15:14:45] <F> [15:14] missing "
[02/10/2010|15:14:45] <F> while executing
[02/10/2010|15:14:45] <F> "putlog "seen.tcl 0.99 loaded"
[02/10/2010|15:14:45] <F> (file "scripts/seenx.tcl" line 78)
[02/10/2010|15:14:45] <F> invoked from within
[02/10/2010|15:14:45] <F> "source scripts/seenx.tcl"
[02/10/2010|15:14:45] <F> (file "eggdrop.conf" line 1431)
[02/10/2010|15:14:45] <F> [15:14] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

[Stefan]

Если вы хотите, когда у вас есть время написать tcl как Вас принять информацию из "seenmod"

[tvrsh]

[02/10/2010|15:14:45] <F> [15:14] missing "
[02/10/2010|15:14:45] <F> while executing
[02/10/2010|15:14:45] <F> "putlog "seen.tcl 0.99 loaded"
[02/10/2010|15:14:45] <F> (file "scripts/seenx.tcl" line 78)
[02/10/2010|15:14:45] <F> invoked from within
[02/10/2010|15:14:45] <F> "source scripts/seenx.tcl"
[02/10/2010|15:14:45] <F> (file "eggdrop.conf" line 1431)
[02/10/2010|15:14:45] <F> [15:14] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

Исправил скрипт в своем посте.

[tvrsh]

Если вы хотите, когда у вас есть время написать tcl как Вас принять информацию из "seenmod"

Ты говоришь про gseen.mod? Do you speak english? Maybe it'll be better to use english than russian, I can hardly understand you.

[Stefan]

seenmod is a nickname/bot/ as seenserv .

[tvrsh]

So, you need to use script from my post
If you find any errors post it here with .set errorInfo

This scripts binds SeenServ answers:

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

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

bind msgm -|- "*is*currently*online*" success:seen
bind msgm -|- "*was*" offline:seen
bind msgm -|- "*sorry*have*recently*" nosucc:seen

If your SeenServ gives you other replys than this, this script wont work. What did your SeenServ tells you when you use it?