Salutare am un tcl de chaninfo creat de Hawke ... uitatzi tcl`ul
Code:
proc pub:chaninfo {hand chan args x mix} {
set what [lindex $args 0]
set info ""
set temp ""
if { $what == ""} { a:usage $x chaninfo ; return "FAILED: not all parameters specified"}
switch -exact -- $what {
-flood {
lappend info "flood-chan %b[channel get $chan flood-chan]%%,"
lappend info "flood-ctcp %b[channel get $chan flood-ctcp]%%,"
lappend info "flood-join %b[channel get $chan flood-join]%%,"
lappend info "flood-kick %b[channel get $chan flood-kick]%%,"
lappend info "flood-deop %b[channel get $chan flood-deop]%%,"
lappend info "flood-nick %b[channel get $chan flood-nick]%%,"
a:tell $x 17 "channel %b-flood%% settings: [join $info]"
}
-anti {
lappend info "[iif [channel get $chan antipub] + -]antipub,"
lappend info "[iif [channel get $chan anticolour] + -]anticolour,"
lappend info "[iif [channel get $chan antirepeat] + -]antirepeat,"
lappend info "[iif [channel get $chan antinotice] + -]antinotice,"
lappend info "[iif [channel get $chan antiunderline] + -]antiunderline,"
lappend info "[iif [channel get $chan antibold] + -]antibold,"
lappend info "[iif [channel get $chan antireverse] + -]antireverse,"
lappend info "[iif [channel get $chan antiswear] + -]antiswear,"
lappend info "[iif [channel get $chan antitake] + -]antitake"
a:tell $x 17 "channel %b-anti%% settings: [join $info]"
}
-tools {
set temp "\channel %b-tools%% settings: [iif [channel get $chan allprotection] + -]allprotection, [iif [channel get $chan dns] + -]dns, [iif [channel get $chan ipinfo] + -]ipinfo, [iif [channel get $chan leave] + -]leave, [iif [channel get $chan google] + -]google, [iif [channel get $chan meteo] + -]meteo"
a:tell $x 17 [join $temp] ; return "- + tools"
}
-all {
lappend info "modes %b[channel get $chan chanmode]%%,"
lappend info "idle-kick %b[channel get $chan idle-kick]%%,"
lappend info "revenge-mode %b[channel get $chan revenge-mode]%%,"
lappend info "flood-chan %b[channel get $chan flood-chan]%%,"
lappend info "flood-ctcp %b[channel get $chan flood-ctcp]%%,"
lappend info "flood-join %b[channel get $chan flood-join]%%,"
lappend info "flood-kick %b[channel get $chan flood-kick]%%,"
lappend info "flood-deop %b[channel get $chan flood-deop]%%,"
lappend info "flood-nick %b[channel get $chan flood-nick]%%,"
lappend info "idle-deop %b[channel get $chan idle-deop]%%,"
lappend info "aop-delay %b[channel get $chan aop-delay]%%,"
lappend info "ban-time %b[channel get $chan ban-time]%%,"
lappend info "exempt-time %b[channel get $chan exempt-time]%%,"
lappend info "invite-time %b[channel get $chan invite-time ]%%,"
a:tell $x 17 "[join $info] [join [lrange [channel info $chan] 19 72]]"
}
-info {
set url [::stats::channel -get $chan url]
set mail [::stats::channel -get $chan mail]
set desc [::stats::channel -get $chan desc]
set faq [::stats::channel -get $chan faq]
set rules [::stats::channel -get $chan rules]
set news [::stats::channel -get $chan news]
set kiss [::stats::channel -get $chan kiss]
set fuck [::stats::channel -get $chan fuck]
set slap [::stats::channel -get $chan slap]
if { $url == ""} { lappend info "url: %rOFF%%," } else {lappend info "url: %rON%%," }
if { $mail == ""} { lappend info "mail: %rOFF%%," } else {lappend info "mail: %rON%%," }
if { $desc == ""} { lappend info "desc: %rOFF%%," } else {lappend info "desc: %rON%%," }
if { $faq == ""} { lappend info "faq: %rOFF%%," } else {lappend info "faq: %rON%%," }
if { $rules == ""} { lappend info "rules: %rOFF%%," } else {lappend info "rules: %rON%%," }
if { $news == ""} { lappend info "news: %rOFF%%," } else {lappend info "news: %rON%%," }
if { $kiss == ""} { lappend info "kiss: %rOFF%%," } else {lappend info "kiss: %rON%%," }
if { $fuck == ""} { lappend info "fuck: %rOFF%%," } else {lappend info "fuck: %rON%%," }
if { $slap == ""} { lappend info "slap: %rOFF%%," } else {lappend info "slap: %rON%%," }
a:tell $x 17 "channel %b-info%% settings: [join $info]"
}
default {a:usage $x chaninfo; return "FAILED: not all parameters specified"}
}
return "..."
}i
Iata si eroarea in partyline:
Code:
<(PandC> while executing
<(PandC> "channel get $chan antiswear"
<(PandC> ("-anti" arm line 9)
<(PandC> invoked from within
<(PandC> "switch -exact -- $what {
<(PandC>
<(PandC> -flood {
<(PandC> lappend info "flood-chan %b[channel get $chan flood-chan]%%,"
<(PandC> lappend info "flood-ctcp %b[channel get ..."
<(PandC> (procedure "pub:chaninfo" line 8)
<(PandC> invoked from within
Deci .chaninfo -tools merge ... dar cand dau .chaninfo -anti nu mai merge ... ma puteti ajuta ?
Msik astept reply