egghelp/eggheads community

Copy PM's to a channel

2006-07-25T16:59:57-04:00

oké that seems to work, thank guys for the great support

Statistics: Posted by onair — Tue Jul 25, 2006 4:59 pm

Copy PM's to a channel

2006-07-25T16:17:48-04:00

Code:

bind msg - !say msg_sayproc msg_say {nick uhost hand arg} {  if {[llength [set arg [split $arg]]] < 2} {    putserv "NOTICE $nick :Syntax: /msg $::botnick $::lastbind <#channel> ."  } else {    if {[string index [set chan [lindex $arg 0]] != "#" || ![validchan $chan]} {      putserv "NOTICE $nick :Invalid channel '$chan'."    } else {      putserv "PRIVMSG $chan :[join [lrange $arg 1 end]]"      putserv "NOTICE $nick :Message sent to $chan."    }  }}

a much cleaner version.

Statistics: Posted by metroid — Tue Jul 25, 2006 4:17 pm

Copy PM's to a channel

2006-07-25T15:25:53-04:00

Try this

Code:

bind msg - !say msg_sayproc msg_say {nick uhost hand arg} {  if {$arg == ""} {    putserv "NOTICE $nick :Syntax: /msg $::botnick $::lastbind <#channel> ."  } else {    set chan [lindex [split $arg] 0]    set message [join [lrange [split $arg] 1 end]]    if {[string index $chan 0] != "#"} {      putserv "NOTICE $nick :Channel must start with '#'."    } elseif {![validchan $chan]} {      putserv "NOTICE $nick :Invalid channel '$chan'."    } elseif {$message == ""} {      putserv "NOTICE $nick :No message entered. Please use: /msg $::botnick !say $chan ."    } else {      putserv "PRIVMSG $chan :$message"      putserv "NOTICE $nick :Message sent to $chan."    }  }}

Statistics: Posted by Zero — Tue Jul 25, 2006 3:25 pm

Copy PM's to a channel

2006-07-25T14:50:10-04:00

oké the error is gone it was a forgotten } but still got the same problem:

(20:46:22) -> *botnick* !say #channel test ] [
(20:46:23) (botnick): test \] {[}

Statistics: Posted by onair — Tue Jul 25, 2006 2:50 pm

Copy PM's to a channel

2006-07-25T14:27:59-04:00

It give a error at line 3, Tosser^^

» missing close-brace while executing

Statistics: Posted by onair — Tue Jul 25, 2006 2:27 pm

Copy PM's to a channel

2006-07-25T13:08:43-04:00

Code:

bind msg - !say msg_sayproc msg_say {nick uhost hand arg} {  if {$arg == ""} {    putserv "NOTICE $nick :Syntax: /msg $::botnick $::lastbind <#channel> ."  } else {    set chan [lindex [split $arg] 0]    set message [lrange $arg 1 end]    if {[string index $chan 0] != "#"} {      putserv "NOTICE $nick :Channel must start with '#'."    } elseif {![validchan $chan]} {      putserv "NOTICE $nick :Invalid channel '$chan'."    } elseif {$message == ""} {      putserv "NOTICE $nick :No message entered. Please use: /msg $::botnick !say $chan ."    } else {      putserv "PRIVMSG $chan :$message"      putserv "NOTICE $nick :Message sent to $chan."    }}

Not tested, but should work...

Statistics: Posted by r0t3n — Tue Jul 25, 2006 1:08 pm

Copy PM's to a channel

2006-07-25T12:54:25-04:00

oeps i was forgotten to say many thanks to zero and Tosser^^
quick response and great help thank you guys

Statistics: Posted by onair — Tue Jul 25, 2006 12:54 pm

Copy PM's to a channel

2006-07-25T12:38:33-04:00

Yeps works just fine, i already found a script on this lovely site, but it shows [ & ] like {[} & /] do you know guys why? thats the script

Code:

bind msg - !say msg_sayproc msg_say {nick uhost hand args} {    global botnick     if {[llength [lindex $args 0]]<2} {        putserv "NOTICE $nick :/msg $botnick !say <#chan> "    } else {        set chan [lindex [lindex $args 0] 0]        if { ![validchan $chan]} {            putserv "NOTICE $nick :\"$chan\": invalid chan."            return 0        }        set msg [lrange [lindex $args 0] 1 end]    }    #putchan $chan $msg    putserv "PRIVMSG $chan :$msg"}

Statistics: Posted by onair — Tue Jul 25, 2006 12:38 pm

Copy PM's to a channel

2006-07-25T12:23:23-04:00

Code:

set ::mainchan "#channel" bind msgm - * msg:mainchan proc msg:mainchan {nick host hand arg} {   puthelp "PRIVMSG $::mainchan :$nick Query: $arg"   puthelp "PRIVMSG $nick :Sorry I'm a Eggdrop..." }

Fixed error made by Zero

Statistics: Posted by r0t3n — Tue Jul 25, 2006 12:23 pm

Copy PM's to a channel

2006-07-25T11:02:43-04:00

Code:

set ::mainchan "#channel"bind msgm - * msg:mainchanproc msg:mainchan {nick host hand arg} {  puthelp "PRIVMSG $::mainchan "$nick Query: $arg"  puthelp "PRIVMSG $nick :Sorry I'm a Eggdrop..."}

Statistics: Posted by Zero — Tue Jul 25, 2006 11:02 am

Copy PM's to a channel

2006-07-25T09:18:39-04:00

I'm looking for a script that copy the private message text to a mainchannel, so when someone pm's my bot it will copy the whole line in the main channel, when it's possible i can choose the nicks so that not all the pm's will show in the main channel

thank in advance,

Statistics: Posted by onair — Tue Jul 25, 2006 9:18 am