egghelp/eggheads community

Put a "on/off switch"

2005-06-04T01:42:39-04:00

When you use

Code:

set flag antiadver

you just set a variable ( $flag ). When you use

Code:

setudef flag antiadver

you set a channel flag. This flag maybe + or - ( == 1 or <>1 ). You can see that in .chaninfo #chan. Also exists setudef int, setudef str. Read more in tcl manuals.

Statistics: Posted by Deniska — Sat Jun 04, 2005 1:42 am

Put a "on/off switch"

2005-06-01T12:07:51-04:00

Thanks... works fine but....
I want it to NOT start when the eggdrop starts... only when I do !advert on
I tried:

Code:

setudef flag antiadver

into

Code:

set flag antiadver

but

Code:

Tcl error [adver:switch]: illegal channel option: -antiadver

then I tried

Code:

proc adver:start {nick host hand chan text} { channel set $chan +antiadver}

which seems to work... is it okay, or is there something better?

Thanks for all your help. Most precious.

Statistics: Posted by Thunderdome — Wed Jun 01, 2005 12:07 pm

Put a "on/off switch"

2005-06-01T10:19:01-04:00

Code:

################################## ### TimeMessage.tcl            ### ### Version 1.0                ### ### By Wcc                     ### ### wcc@techmonkeys.org        ### ### http://www.dawgtcl.com:81/ ### ### EFnet #|DAWG|Tcl           ### ################################## ############################################################################ ### Copyright c 2000 - 2002 |DAWG| Scripting Group. All rights reserved. ### ############################################################################ ############################################################################ ## This script sends a message to a channel (or channels) every x seconds ## ## (or minutes).                                                          ## ############################################################################ ########################################################## ## Just load the script, edit the settings, and rehash. ## ########################################################## setudef flag antiadver bind pub n|n !adver adver:switch proc adver:switch {nick host hand chan text} { set option [lindex [split $text] 0] if { $option == "on" } {channel set $chan -antiadver puthelp "NOTICE $nick : Advertise is 9ON9" } if { $option == "off" } { channel set $chan +antiadver puthelp "NOTICE $nick : Advertise is 4OFF4" } } ################################# # Set the message to send here. # ################################# set timemessage_setting(message) { "blablablabla" } ########################################## # Set the channel(s) to send it to here. # ########################################## set timemessage_setting(channel) "#channel" ########################################################################### # Set the time in minutes between messages here. Prefix the time with a ! # # to use seconds.                                                         # ########################################################################### set timemessage_setting(time) "15" #################### # Code begins here # #################### if {![string match 1.6.* $version]} { putlog "\002TIMEMESSAGE:\002 \002WARNING:\002 This script is intended to run on eggdrop 1.6.x or later." } if {[info tclversion] < 8.2} { putlog "\002TIMEMESSAGE:\002 \002WARNING:\002 This script is intended to run on Tcl Version 8.2 or later." } if {[string compare [string index $timemessage_setting(time) 0] "!"] == 0} { set timemessage_timer [string range $timemessage_setting(time) 1 end] } { set timemessage_timer [expr $timemessage_setting(time) * 60] } if {[lsearch -glob [utimers] "* timemessage_go *"] == -1} { utimer $timemessage_timer timemessage_go } proc timemessage_go {} { foreach chan $::timemessage_setting(channel) { if {![validchan $chan] || ![botonchan $chan]} { continue } if {![channel get $chan antiadver]} { foreach line $::timemessage_setting(message) { putserv "PRIVMSG $chan :$line" } } } if {[lsearch -glob [utimers] "* timemessage_go *"] == -1} { utimer $::timemessage_timer timemessage_go } } putlog "\002TIMEMESSAGE:\002 TimeMessage.tcl Version 1.0 by Wcc is loaded."

This variance must work correctly.
Hm.. I think it does not work because of codepage. When i copy code in file and try to launch, bot putlog a message.. Mm.. something about '=' symbol before every string /-:. But when i retype all spaces in cp1251 codepage, script will work correctly.. Also i fix some part of code..
--
Sorry for my english..

Statistics: Posted by Deniska — Wed Jun 01, 2005 10:19 am

Put a "on/off switch"

2005-06-01T09:18:51-04:00

but still won't work in either on or off... what am I doing wrong? :\

Statistics: Posted by Thunderdome — Wed Jun 01, 2005 9:18 am

Put a "on/off switch"

2005-06-01T07:08:52-04:00

Code:

################################## ### TimeMessage.tcl            ### ### Version 1.0                ### ### By Wcc                     ### ### wcc@techmonkeys.org        ### ### http://www.dawgtcl.com:81/ ### ### EFnet #|DAWG|Tcl           ### ################################## ############################################################################ ### Copyright © 2000 - 2002 |DAWG| Scripting Group. All rights reserved. ### ############################################################################ ############################################################################ ## This script sends a message to a channel (or channels) every x seconds ## ## (or minutes).                                                          ## ############################################################################ ########################################################## ## Just load the script, edit the settings, and rehash. ## ########################################################## setudef flag antiadver bind PUB n|n !adver adver:switch proc adver:switch {nick host hand chan text} {  set option [lindex [split $text] 0]  switch -- $option {   "on" {    channel set $chan -antiadver     puthelp "NOTICE $nick : Advertise is 9ON9"   }   "off" {    channel set $chan +antiadver    puthelp "NOTICE $nick : Advertise is 4OFF4"   }  } } ################################# # Set the message to send here. # ################################# set timemessage_setting(message) {    "blablablabla" } ########################################## # Set the channel(s) to send it to here. # ########################################## set timemessage_setting(channel) "#channel" ########################################################################### # Set the time in minutes between messages here. Prefix the time with a ! # # to use seconds.                                                         # ########################################################################### set timemessage_setting(time) "15" #################### # Code begins here # #################### if {![string match 1.6.* $version]} { putlog "\002TIMEMESSAGE:\002 \002WARNING:\002 This script is intended to run on eggdrop 1.6.x or later." } if {[info tclversion] < 8.2} { putlog "\002TIMEMESSAGE:\002 \002WARNING:\002 This script is intended to run on Tcl Version 8.2 or later." } if {[string compare [string index $timemessage_setting(time) 0] "!"] == 0} { set timemessage_timer [string range $timemessage_setting(time) 1 end] } { set timemessage_timer [expr $timemessage_setting(time) * 60] } if {[lsearch -glob [utimers] "* timemessage_go *"] == -1} { utimer $timemessage_timer timemessage_go } proc timemessage_go {} {    foreach chan $::timemessage_setting(channel) {       if {![validchan $chan] || ![botonchan $chan]} { continue }       if {![channel get $chan antiadver]} {       foreach line $::timemessage_setting(message) { putserv "PRIVMSG $chan :$line" }    } }   if {[lsearch -glob [utimers] "* timemessage_go *"] == -1} { utimer $::timemessage_timer timemessage_go } } putlog "\002TIMEMESSAGE:\002 TimeMessage.tcl Version 1.0 by Wcc is loaded."

Imho.. When is +antiadver, procedure will not show message on this channel.

Statistics: Posted by Deniska — Wed Jun 01, 2005 7:08 am

Put a "on/off switch"

2005-05-31T19:20:55-04:00

How exactly do I merge the two codes?
I found a similar code in the forum, but I simply cannot make it work at all... how do I blend the codes?

I tried this but does not work at all....

Code:

##################################### TimeMessage.tcl            ###### Version 1.0                ###### By Wcc                     ###### wcc@techmonkeys.org        ###### http://www.dawgtcl.com:81/ ###### EFnet #|DAWG|Tcl           #################################################################################################################### Copyright © 2000 - 2002 |DAWG| Scripting Group. All rights reserved. ############################################################################################################################################################# This script sends a message to a channel (or channels) every x seconds #### (or minutes).                                                          ########################################################################################################################################## Just load the script, edit the settings, and rehash. ############################################################setudef flag antiadver bind PUB n|n !adver adver:switch proc adver:switch {nick host hand chan text} {  set option [lindex [split $text] 0]  switch -- $option {   "on" {    channel set $chan +antiadver     puthelp "NOTICE $nick : Advertise is 9ON9"   }   "off" {    channel set $chan -antiadver    puthelp "NOTICE $nick : Advertise is 4OFF4"   }  } } ################################## Set the message to send here. ##################################set timemessage_setting(message) {"blablablabla"}########################################### Set the channel(s) to send it to here. ###########################################set timemessage_setting(channel) "#channel"############################################################################ Set the time in minutes between messages here. Prefix the time with a ! ## to use seconds.                                                         ############################################################################set timemessage_setting(time) "15"##################### Code begins here #####################if {![string match 1.6.* $version]} { putlog "\002TIMEMESSAGE:\002 \002WARNING:\002 This script is intended to run on eggdrop 1.6.x or later." }if {[info tclversion] < 8.2} { putlog "\002TIMEMESSAGE:\002 \002WARNING:\002 This script is intended to run on Tcl Version 8.2 or later." }if {[string compare [string index $timemessage_setting(time) 0] "!"] == 0} { set timemessage_timer [string range $timemessage_setting(time) 1 end] } { set timemessage_timer [expr $timemessage_setting(time) * 60] }if {[lsearch -glob [utimers] "* timemessage_go *"] == -1} { utimer $timemessage_timer timemessage_go }if {[channel get $chan antiadver]} { proc timemessage_go {} {foreach chan $::timemessage_setting(channel) {if {![validchan $chan] || ![botonchan $chan]} { continue }foreach line $::timemessage_setting(message) { putserv "PRIVMSG $chan :$line" }}if {[lsearch -glob [utimers] "* timemessage_go *"] == -1} { utimer $::timemessage_timer timemessage_go }}}putlog "\002TIMEMESSAGE:\002 TimeMessage.tcl Version 1.0 by Wcc is loaded."

Statistics: Posted by Thunderdome — Tue May 31, 2005 7:20 pm

Put a "on/off switch"

2005-05-31T16:29:34-04:00

Hope this will work

Code:

proc mute::av { nickname hostname handle channel arguments } {set mode [lindex [split $arguments] 0]  switch $mode {on {  if {[channel get $channel "autovoice"]} {    putquick "NOTICE $nickname :autovoice is already enabled for $channel."    return 0   }    channel set $channel +autovoice    putquick "NOTICE $nickname :autovoice has been enabled for $channel."   }off {  if {![channel get $channel "autovoice"]} {    putquick "NOTICE $nickname :autovoice is already disabled for $channel."    return 0   }    channel set $channel -autovoice    putquick "NOTICE $nickname :autovoice has been disabled for $channel."         }default {        if {[channel get $channel "autovoice"]} {    putquick "NOTICE $nickname :autovoice is currently enabled for $channel."  } else {    putquick "NOTICE $nickname :autovoice is currently disabled for $channel."  }      }   }}

all credits too Metroid, he build this

Statistics: Posted by Dizzle — Tue May 31, 2005 4:29 pm

Put a "on/off switch"

2005-05-31T15:18:21-04:00

I've also searched other similar scripts... they are all activated at start, with no switch... :\

help needed...

Statistics: Posted by Thunderdome — Tue May 31, 2005 3:18 pm

Put a "on/off switch"

2005-05-25T12:47:09-04:00

I saw some of the topics related, but the on/off would not work...

Can you please give me a hand on this one?

Statistics: Posted by Thunderdome — Wed May 25, 2005 12:47 pm

Put a "on/off switch"

2005-05-24T14:35:36-04:00

Code:

##################################### TimeMessage.tcl            ###### Version 1.0                ###### By Wcc                     ###### wcc@techmonkeys.org        ###### http://www.dawgtcl.com:81/ ###### EFnet #|DAWG|Tcl           #################################################################################################################### Copyright © 2000 - 2002 |DAWG| Scripting Group. All rights reserved. ############################################################################################################################################################# This script sends a message to a channel (or channels) every x seconds #### (or minutes).                                                          ########################################################################################################################################## Just load the script, edit the settings, and rehash. ############################################################################################## Set the message to send here. ##################################set timemessage_setting(message) {"message here"                              }########################################### Set the channel(s) to send it to here. ###########################################set timemessage_setting(channel) "#channel"############################################################################ Set the time in minutes between messages here. Prefix the time with a ! ## to use seconds.                                                         ############################################################################set timemessage_setting(time) "15"##################### Code begins here #####################if {![string match 1.6.* $version]} { putlog "\002TIMEMESSAGE:\002 \002WARNING:\002 This script is intended to run on eggdrop 1.6.x or later." }if {[info tclversion] < 8.2} { putlog "\002TIMEMESSAGE:\002 \002WARNING:\002 This script is intended to run on Tcl Version 8.2 or later." }if {[string compare [string index $timemessage_setting(time) 0] "!"] == 0} { set timemessage_timer [string range $timemessage_setting(time) 1 end] } { set timemessage_timer [expr $timemessage_setting(time) * 60] }if {[lsearch -glob [utimers] "* timemessage_go *"] == -1} { utimer $timemessage_timer timemessage_go }proc timemessage_go {} {foreach chan $::timemessage_setting(channel) {if {![validchan $chan] || ![botonchan $chan]} { continue }foreach line $::timemessage_setting(message) { putserv "PRIVMSG $chan :$line" }}if {[lsearch -glob [utimers] "* timemessage_go *"] == -1} { utimer $::timemessage_timer timemessage_go }}putlog "\002TIMEMESSAGE:\002 TimeMessage.tcl Version 1.0 by Wcc is loaded."

How do I put a on/off switch than can be use from a bind to owner (+n) only?
like !timemsg and the script starts.... I would also like it to be disabled by default, only starting with !timemsg

Thanks!

Statistics: Posted by Thunderdome — Tue May 24, 2005 2:35 pm