egghelp/eggheads community

Global Broadcast

2013-12-02T11:13:45-04:00

That works perfectly! Thanks!

Statistics: Posted by ViciousPiranha — Mon Dec 02, 2013 11:13 am

Global Broadcast

2013-12-08T13:01:46-04:00

This one seems more done.

Adds a private message command to do the same thing.
Adds protection against starting more than 1 broadcast at a time.
Cleaned up the script replies some.
Gave the script a name and version number.

Code:

# broadcast.tcl ver 0.1 by SpiKe^^ | Based on a script by: caesar ## Script replies to !broadcast command in the channel & in private message ## When using the private message command,  is required ## set the number of messages to send at one time # set BroadCast(msgs) "4" # set how long to wait before sending more (in seconds) # set BroadCast(wait) "10" # change access flags & triggers for public/message commands below #bind pub n !broadcast broadcast:buildQueue bind msg n !broadcast broadcast:mBuildQueue ############################# END OF SETTINGS #############################proc broadcast:mBuildQueue {nick uhost hand text} {    if {![string match #* $text] || [llength [split $text]]<"2"} {       puthelp "NOTICE $nick :Error, syntax: !broadcast  "       return 0   }    broadcast:buildQueue $nick $uhost $hand [lindex [split $text] 0] $text   return 0} proc broadcast:buildQueue {nick uhost hand chan text} {    global BroadCast    if {[utimerexists broadcast:sendMessage] ne ""} {       puthelp "NOTICE $nick :Please wait, still working on last broadcast."       return 0   }    if {[string match #* $text]} {       set chan [lindex [split $text] 0]       if {![validchan $chan]} {          puthelp "NOTICE $nick :Error, $chan channel is not valid."          return 0      }       if {![botonchan $chan]} {          puthelp "NOTICE $nick :Error, I'm not on $chan channel right now."          return 0      }       set text [join [lrange [split $text] 1 end]]    }    set text [string trim $text]    if {$text eq ""} {       puthelp "NOTICE $nick :Error, syntax: !broadcast [channel] "       return 0   }    set queue [lreplace [chanlist $chan] 0 0]    if {![llength $queue]} {       puthelp "NOTICE $nick :Error, No one in $chan channel right now."       return 0   }    puthelp "NOTICE $nick :Broadcasting message to everyone ([llength $queue] nicks in $chan). Please wait..."    foreach user [lrange $queue 0 [expr {$BroadCast(msgs)-2}]] {       puthelp "PRIVMSG $user :$text (via $nick)"    }    set queue [lrange $queue [expr {$BroadCast(msgs)-1}] end]    if {[llength $queue]} {       utimer $BroadCast(wait) [list broadcast:sendMessage $nick $queue $text]    } else {       puthelp "NOTICE $nick :Broadcast Message Completed."    }    return 0} proc broadcast:sendMessage {nick queue text} {    global BroadCast    foreach user [lrange $queue 0 [expr {$BroadCast(msgs)-1}]] {       puthelp "PRIVMSG $user :$text (via $nick)"    }    set queue [lrange $queue $BroadCast(msgs) end]    if {[llength $queue]} {       utimer $BroadCast(wait) [list broadcast:sendMessage $nick $queue $text]    } else {       puthelp "NOTICE $nick :Broadcast Message Completed."    } } putlog "broadcast.tcl ver 0.1 by SpiKe^^ loaded."

Statistics: Posted by SpiKe^^ — Sun Dec 01, 2013 9:50 pm

Global Broadcast

2013-12-01T17:55:34-04:00

Done. try this...

Code:

# set the number of messages to send at one time # set BroadCast(msgs) "4" # set how long to wait before sending more (in seconds) # set BroadCast(wait) "10" bind pub n !broadcast broadcast:buildQueue proc broadcast:buildQueue {nick uhost hand chan text} {    global BroadCast    if {[string match #* $text]} {       set chan [lindex [split $text] 0]       if {![validchan $chan]} {          puthelp "NOTICE $nick :Error, $chan channel is not valid."          return       }       if {![botonchan $chan]} {          puthelp "NOTICE $nick :Error, I'm not on $chan channel right now."          return       }       set text [join [lrange [split $text] 1 end]]    }    set text [string trim $text]   if {$text eq ""} {       puthelp "NOTICE $nick :Error, syntax: !broadcast [channel] "       return    }    set users [lreplace [chanlist $chan] 0 0]    if {![llength $users]} {       puthelp "NOTICE $nick :Error, No one in $chan channel right now."       return    }    puthelp "NOTICE $nick :Broadcasting message to everyone in $chan..."    foreach user [lrange $users 0 [expr {$BroadCast(msgs)-1}]] {       puthelp "PRIVMSG $user :$text (via $nick)"    }    set users [lrange $users $BroadCast(msgs) end]    if {[llength $users]} {      utimer $BroadCast(wait) [list broadcast:sendMessage $nick $users $text]    } else {      puthelp "NOTICE $nick :Broadcast Message Completed."    } }     proc broadcast:sendMessage {sender queue text} {    global BroadCast    foreach user [lrange $queue 0 [expr {$BroadCast(msgs)-1}]] {       puthelp "PRIVMSG $user :$text (via $sender)"    }    set queue [lrange $queue $BroadCast(msgs) end]    if {[llength $queue]} {      utimer $BroadCast(wait) [list broadcast:sendMessage $sender $queue $text]    } else {      puthelp "NOTICE $sender :Broadcast Message Completed."    } }

Statistics: Posted by SpiKe^^ — Sun Dec 01, 2013 5:55 pm

Global Broadcast

2013-12-01T17:35:46-04:00

That seems to work great Spike^^

Thank you very much.

I do not suppose you can add some sort of message to indicate that every message was sent out and the round was completed?

Statistics: Posted by ViciousPiranha — Sun Dec 01, 2013 5:35 pm

Global Broadcast

2013-12-01T17:34:56-04:00

I like this timer setup a whole lot better, it never has more than 1 utimer running at a time:)

Code:

# set the number of messages to send at one time # set BroadCast(msgs) "4" # set how long to wait before sending more (in seconds) # set BroadCast(wait) "10" bind pub n !broadcast broadcast:buildQueue proc broadcast:buildQueue {nick uhost hand chan text} {    global BroadCast    if {![llength [split $text]]} {       puthelp "NOTICE $chan :Error, syntax: !broadcast [channel] "       return    }    if {[string equal -length 1 # $text]} {       set chan [lindex [split $text] 0]       if {![validchan $chan]} {          puthelp "NOTICE $chan :Error, $chan channel is not valid."          return       }       if {![botonchan $chan]} {          puthelp "NOTICE $chan :Error, I'm not on $chan channel right now."          return       }       set text [join [lrange [split $text] 1 end]]    }    set users [lreplace [chanlist $chan] 0 0]    if {![llength $users]} {       puthelp "NOTICE $nick :Error, No one in $chan channel right now."       return    }    foreach user [lrange $users 0 [expr {$BroadCast(msgs)-1}]] {       puthelp "PRIVMSG $user :$text (via $nick)"    }    set users [lrange $users $BroadCast(msgs) end]    if {[llength $users]} {      utimer $BroadCast(wait) [list broadcast:sendMessage $nick $users $text]    } }     proc broadcast:sendMessage {sender queue text} {    global BroadCast    foreach user [lrange $queue 0 [expr {$BroadCast(msgs)-1}]] {       puthelp "PRIVMSG $user :$text (via $sender)"    }    set queue [lrange $queue $BroadCast(msgs) end]    if {[llength $queue]} {      utimer $BroadCast(wait) [list broadcast:sendMessage $sender $queue $text]    } }

Statistics: Posted by SpiKe^^ — Sun Dec 01, 2013 5:34 pm

Global Broadcast

2013-12-01T17:17:55-04:00

Sorry, fixed that issue in the last posted script above.

Statistics: Posted by SpiKe^^ — Sun Dec 01, 2013 5:17 pm

Global Broadcast

2013-12-01T17:13:56-04:00

2:13:30] Tcl error [broadcast:buildQueue]: wrong # args: should be "incr varName ?increment?"

Statistics: Posted by ViciousPiranha — Sun Dec 01, 2013 5:13 pm

Global Broadcast

2013-12-01T17:20:06-04:00

That's just it's numbers of 5 sends every 10 seconds need a little tweeking.
Try playing with the new settings in this one...

Code:

# set the number of messages to send at one time #set BroadCast(msgs) "4"# set how long to wait before sending more (in seconds) #set BroadCast(wait) "10"bind pub n !broadcast broadcast:buildQueue proc broadcast:buildQueue {nick uhost hand chan text} {    global BroadCast   if {![llength [split $text]]} {       puthelp "NOTICE $chan :Error, syntax: !broadcast [channel] "       return    }    if {[string equal -length 1 # $text]} {       set chan [lindex [split $text] 0]       if {![validchan $chan]} {          puthelp "NOTICE $chan :Error, $chan channel is not valid."          return       }       if {![botonchan $chan]} {          puthelp "NOTICE $chan :Error, I'm not on $chan channel right now."          return       }       set text [join [lrange [split $text] 1 end]]    }    set users [lreplace [chanlist $chan] 0 0]    if {![llength $users]} {       puthelp "NOTICE $nick :Error, No one in $chan channel right now."       return    }    set end [expr {$BroadCast(msgs)-1}]   broadcast:sendMessage $nick [lrange $users 0 $end] $text    set users [lrange $users $BroadCast(msgs) end]    set time 0    while {[llength $users] > 0} {       incr time $BroadCast(wait)      utimer $time [list broadcast:sendMessage $nick [lrange $users 0 $end] $text]       set users [lrange $users $BroadCast(msgs) end]    } }     proc broadcast:sendMessage {sender queue text} {    foreach user [split $queue] {       puthelp "PRIVMSG $user :$text (via $sender)"    } }

EDITED: FIXED: Tcl error [broadcast:buildQueue]: wrong # args: should be "incr varName ?increment?"

Statistics: Posted by SpiKe^^ — Sun Dec 01, 2013 5:05 pm

Global Broadcast

2013-12-01T16:40:30-04:00

Excess Flood.

Statistics: Posted by ViciousPiranha — Sun Dec 01, 2013 4:40 pm

Global Broadcast

2013-12-01T16:32:06-04:00

How's that? Excess what?
Looks like it might take a long time to get it done, but that it would finish.

Statistics: Posted by SpiKe^^ — Sun Dec 01, 2013 4:32 pm

Global Broadcast

2013-12-01T16:22:32-04:00

Thanks Spike^^, it works now, although it quits due to Excess

Statistics: Posted by ViciousPiranha — Sun Dec 01, 2013 4:22 pm

Global Broadcast

2013-12-01T16:10:02-04:00

It was trying to increment a variable that doesn't exist:)
and a few other more minor issues. Try this...

Code:

bind pub n !broadcast broadcast:buildQueue proc broadcast:buildQueue {nick uhost hand chan text} {    if {![llength [split $text]]} {       puthelp "NOTICE $chan :Error, syntax: !broadcast [channel] "       return    }    if {[string equal -length 1 # $text]} {       set chan [lindex [split $text] 0]       if {![validchan $chan]} {          puthelp "NOTICE $chan :Error, $chan channel is not valid."          return       }       if {![botonchan $chan]} {          puthelp "NOTICE $chan :Error, I'm not on $chan channel right now."          return       }       set text [join [lrange [split $text] 1 end]]    }    set users [lreplace [chanlist $chan] 0 0]    if {![llength $users]} {       puthelp "NOTICE $nick :Error, No one in $chan channel right now."       return   }   broadcast:sendMessage $nick [lrange $users 0 4] $text   set users [lrange $users 5 end]   set time 0   while {[llength $users] > 0} {       incr time 10       utimer $time [list broadcast:sendMessage $nick [lrange $users 0 4] $text]       set users [lrange $users 5 end]    } }     proc broadcast:sendMessage {sender queue text} {    foreach user [split $queue] {       puthelp "PRIVMSG $user :$text (via $sender)"    } }

Statistics: Posted by SpiKe^^ — Sun Dec 01, 2013 4:10 pm

Global Broadcast

2013-12-01T15:25:58-04:00

Try this...

Code:

bind pub n !broadcast broadcast:buildQueue proc broadcast:buildQueue {nick uhost hand chan text} {    if {![llength $text]} {       puthelp "NOTICE $chan :Error, syntax: !broadcast [channel] "       return    }    if {[string equal -length 1 # $text]} {       set chan [lindex [split $text] 0]       if {![validchan $chan]} {          puthelp "NOTICE $chan :Error, $chan channel is not valid."          return       }       if {![botonchan $chan]} {          puthelp "NOTICE $chan :Error, I'm not on $chan channel right now."          return       }       set text [lrange $text 1 end]    }    set users [lreplace [chanlist $chan] 0 0]    while {[llength $users] != 0} {    incr time 10       utimer $time [list broadcast:sendMessage $nick [lrange $users 0 5] $text]       set users [lrange $users 6 end]    } }     proc broadcast:sendMessage {sender queue text} {    foreach user [split $queue] {       puthelp "PRIVMSG $user :$text (via $sender)"    } }

You will need to make sure the broke bind is not still loaded, try restart.

Hi Spike^^, after doing that I'm now getting this error:

[20:25:16] Tcl error [broadcast:buildQueue]: can't read "time": no such variable

Statistics: Posted by ViciousPiranha — Sun Dec 01, 2013 3:25 pm

Global Broadcast

2013-12-01T15:13:47-04:00

Try this...

Code:

bind pub n !broadcast broadcast:buildQueue proc broadcast:buildQueue {nick uhost hand chan text} {    if {![llength $text]} {       puthelp "NOTICE $chan :Error, syntax: !broadcast [channel] "       return    }    if {[string equal -length 1 # $text]} {       set chan [lindex [split $text] 0]       if {![validchan $chan]} {          puthelp "NOTICE $chan :Error, $chan channel is not valid."          return       }       if {![botonchan $chan]} {          puthelp "NOTICE $chan :Error, I'm not on $chan channel right now."          return       }       set text [lrange $text 1 end]    }    set users [lreplace [chanlist $chan] 0 0]    while {[llength $users] != 0} {    incr time 10       utimer $time [list broadcast:sendMessage $nick [lrange $users 0 5] $text]       set users [lrange $users 6 end]    } }     proc broadcast:sendMessage {sender queue text} {    foreach user [split $queue] {       puthelp "PRIVMSG $user :$text (via $sender)"    } }

You will need to make sure the broke bind is not still loaded, try restart.

Statistics: Posted by SpiKe^^ — Sun Dec 01, 2013 3:13 pm

Global Broadcast

2013-12-01T14:12:08-04:00

[...]Here's one written how caeser suggested[...]
see, you are no stranger to spelling names either.

Anyway, here's my take on this.
Code:
bind pub n !broadcast pub:buildQueueproc broadcast:buildQueue {nick uhost hand chan text} {if {![llength $text]} {puthelp "NOTICE $chan :Error, syntax: !broadcast [channel] "return}if {[string equal -length 1 # $text]} {set chan [lindex [split $text] 0]if {![validchan $chan]} {puthelp "NOTICE $chan :Error, $chan channel is not valid."return}if {![botonchan $chan]} {puthelp "NOTICE $chan :Error, I'm not on $chan channel right now."return}set text [lrange $text 1 end]}set users [lreplace [chanlist $chan] 0 0]while {[llength $users] != 0} {incr time 10utimer $time [list broadcast:sendMessage $nick [lrange $users 0 5] $text]set users [lrange $users 6 end]}}proc broadcast:sendMessage {sender queue text} {foreach user [split $queue] {puthelp "PRIVMSG $user :$text (via $sender)"}}
It will send 5 PM to the first 5 in the queue, then 10 seconds later to the next 5 and so on.

The !broadcast accepts a different channel than the one you issue the command, if a channel is not given will use the current one to make it's queue.

Haven't tested anything.

Hi, I'm getting this error:

[19:09:30] Tcl error [pub:buildQueue]: invalid command name "pub:buildQueue"

Statistics: Posted by ViciousPiranha — Sun Dec 01, 2013 2:12 pm