Random Topics

# randtopic.tcl v2.02 [4 December 1999] # Copyright © 1999 Teemu Hjelt # # This script gets a random topic to a channel from a file # you have specified. You can add new topics or remove topics from # the file by using channel commands or dcc commands. # # Current DCC Commands: # .rt, .rtall, .addrt, .delrt, .listrt, .sendrt, .rmrt, .rttimer, .rthelp # # Current MSG Commands: # topic, rt, rtall, addrt, delrt, listrt, sendrt, rmrt, topic, rttimer, rthelp # # Current Channel Commands: # topic, rt, rtall, addrt, delrt, listrt, sendrt, rmrt, topic, rttimer, rthelp # # Tested on eggdrop1.4.0 with TCL 7.6 ### Settings ### ## [0/1] Enable Channel Commands? set rt_enablechan 1 ## [0/1] Enable MSG Commands? set rt_enablemsg 1 ## [0/1] Enable DCC Commands? set rt_enabledcc 1 ## [0/1] Enable the login thingie? # Note: If you enable this you must do /msg botnick LOGIN # before you can use the channel commands. set rt_login 0 ## [0/1] Do you want that the rtall command sets the same random topic to all channels? set rt_sametopic 0 ## What command prefix do you want to use for channel commands? set rt_cmdpfix "!" ## List topics via NOTICE or PRIVMSG? set rt_listmethod "PRIVMSG" ## What users can change the topic? set rt_tflag "o|o" ## What users can change the topic on all channels? set rt_rtallflag "o" ## What users can add topic to the file? set rt_taddflag "o|o" ## What users can delete topics from the file? set rt_tdelflag "m|m" ## What users can remove the topic file? set rt_trmflag "n" ## What users can request sending of the topic file? set rt_sendflag "m|m" ## What users can list the topics? set rt_listflag "o" ## What users can start or stop the timer? set rt_timerflag "o|o" ## What file do you want to use for storing topics? set rt_tfile "text/topics.txt" ## List of channels where the rtall command shouldn't take effect on. set rt_nochans "#nukie" ## [0/1] Let the rtall command change only blank topics? set rt_onlyblank 0 ## [0/1] Make a html-file of the topics? set rt_makehtml 0 ## What is the filename for the html-file? # Note: It is very smart to add the path here too! set rt_htmlfile "/inetpub/wwwroot/topics.htm" ## What kind of body-tag do you want to use in the html-file? set rt_bodytag {} ## What kind of tag do you want to use for stylesheets. # Note: Leave this empty if you don't want to use stylesheets. set rt_styletag {} ## [0/1] Log when timer does something? set rt_logtimer 1 ## [0/1] Let the timer change only blank topics? set rt_tmronlyblank 0 ###### You don't need to edit below this ###### ### Misc Things ### set rt_ver "2.02" ### Bindings ### ## Channel Commands if {$rt_enablechan} { bind pub $rt_tflag ${rt_cmdpfix}topic pub:rt_topic bind pub $rt_tflag ${rt_cmdpfix}rt pub:rt_rt bind pub $rt_rtallflag ${rt_cmdpfix}rtall pub:rt_rtall bind pub $rt_taddflag ${rt_cmdpfix}addrt pub:rt_addrt bind pub $rt_timerflag ${rt_cmdpfix}rttimer pub:rt_rttimer bind pub $rt_tdelflag ${rt_cmdpfix}delrt pub:rt_delrt bind pub $rt_trmflag ${rt_cmdpfix}rmrt pub:rt_rmrt bind pub $rt_sendflag ${rt_cmdpfix}sendrt pub:rt_sendrt bind pub $rt_listflag ${rt_cmdpfix}listrt pub:rt_listrt bind pub - ${rt_cmdpfix}rthelp pub:rt_rthelp } ## MSG Commands if {$rt_enablemsg} { bind msg $rt_tflag topic msg:rt_topic bind msg $rt_tflag rt msg:rt_rt bind msg $rt_rtallflag rtall msg:rt_rtall bind msg $rt_timerflag rttimer msg:rt_rttimer bind msg $rt_taddflag addrt msg:rt_addrt bind msg $rt_tdelflag delrt msg:rt_delrt bind msg $rt_trmflag rmrt msg:rt_rmrt bind msg $rt_sendflag sendrt msg:rt_sendrt bind msg $rt_listflag listrt msg:rt_listrt bind msg - rthelp msg:rt_rthelp } ## DCC Commands if {$rt_enabledcc} { bind dcc $rt_tflag rt dcc:rt_rt bind dcc $rt_rtallflag rtall dcc:rt_rtall bind dcc $rt_timerflag rttimer dcc:rt_rttimer bind dcc $rt_taddflag addrt dcc:rt_addrt bind dcc $rt_tdelflag delrt dcc:rt_delrt bind dcc $rt_trmflag rmrt dcc:rt_rmrt bind dcc $rt_sendflag sendrt dcc:rt_sendrt bind dcc $rt_listflag listrt dcc:rt_listrt bind dcc - rthelp dcc:rt_rthelp } ## Login Commands if {$rt_login} { bind msg - login msg:rt_login bind msg - logout msg:rt_logout bind part - * part:rt_check bind sign - * sign:rt_check } ### Login Thingie ### proc msg:rt_login {nick uhost hand arg} { global botnick set pass [lindex [split $arg] 0] set foundchan 0 if {$hand != "*"} { foreach chan [channels] { if {[onchan $nick $chan]} { set foundchan 1 } } if {!$foundchan} { putserv "NOTICE $nick :\[4x]: you need to be on a channel which is monitored by me." putlog "\[4x]: RandomTopic: $nick ($uhost) tried to log in - Not on any channel." return 1 } if {$pass == ""} { putserv "NOTICE $nick :\[4x]: usage: /msg $botnick LOGIN " putlog "\[4x]: RandomTopic: $nick ($uhost) tried to log in - No password." return 1 } if {[getuser $hand XTRA "LOGIN"] == "1"} { putserv "NOTICE $nick :\[4x]: login unsuccessful - you have already logged in." putlog "\[4x]: RandomTopic: $nick ($uhost) tried to log in as $hand - already logged in." return 1 } if {[passwdok $hand $pass]} { setuser $hand XTRA "LOGIN" "1" putserv "NOTICE $nick :\[4x]: login successful." putlog "\[4x]: RandomTopic: $nick ($uhost) logged in as $hand." return 1 } else { putserv "NOTICE $nick :\[4x]: login unsuccessful - wrong password." putlog "\[4x]: RandomTopic: $nick ($uhost) tried to log in as $hand - wrong password." return 1 } } else { putserv "NOTICE $nick :\[4x]: login unsuccessful - you are not allowed to use my commands." putlog "\[4x]: RandomTopic: $nick ($uhost) tried to log in - not allowed to use commands." return 1 } } proc msg:rt_logout {nick uhost hand arg} { if {$hand != "*"} { if {[getuser $hand XTRA "LOGIN"] == "1"} { setuser $hand XTRA "LOGIN" "0" putserv "NOTICE $nick :\[4x]: successfully logged out." putlog "\[4x]: RandomTopic: $nick ($uhost) logged out as $hand." return 1 } else { putserv "NOTICE $nick :\[4x]: logout unsuccessful - you're already logged out." putlog "\[4x]: RandomTopic: $nick ($uhost) tried to log out - already logged out." return 1 } } } proc sign:rt_check {nick uhost hand chan reason} { if {($hand != "*") && ([getuser $hand XTRA "LOGIN"] == "1")} { setuser $hand XTRA "LOGIN" "0" putlog "\[4x]: RandomTopic: $nick ($uhost) signed off - login for $hand expired." } } proc part:rt_check {nick uhost hand chan} { if {($hand != "*") && ([getuser $hand XTRA "LOGIN"] == "1")} { utimer 10 "rt_checkpart $nick $uhost $hand $chan" } } proc rt_checkpart {nick uhost hand chan} { set foundchan 0 if {$hand != "*"} { foreach chan [channels] { if {[handonchan $hand $chan]} { set foundchan 1 } } if {(!$foundchan) && ([getuser $hand XTRA "LOGIN"] == "1")} { setuser $hand XTRA "LOGIN" "0" putlog "\[4x]: RandomTopic: $nick ($uhost) parted all channels - login for $hand expired." } } } proc rt_login_check {hand} { if {[getuser $hand XTRA "LOGIN"] == "1"} { return 1 } else { return 0 } } ### Channel Commands ### proc pub:rt_topic {nick uhost hand chan arg} { global rt_tfile rt_listmethod rt_login rt_cmdpfix rt_sametopic rt_makehtml rt_htmlfile rt_nochans if {$rt_login} { if {![rt_login_check $hand]} { return 0 } } set topic [join [lrange [split $arg] 0 end]] if {[botisop $chan] || ![string match *t* [lindex [getchanmode $chan] 0]]} { if {$topic == ""} { putserv "TOPIC $chan :" } else { putserv "TOPIC $chan :$topic" } } else { putserv "NOTICE $nick :\[4x]: unable to change topic of $chan." } return 1 } proc pub:rt_rt {nick uhost hand chan arg} { global rt_tfile rt_listmethod rt_login rt_cmdpfix rt_sametopic rt_makehtml rt_htmlfile rt_nochans if {$rt_login} { if {![rt_login_check $hand]} { return 0 } } if {[lindex [split $arg] 0] != ""} { set chan [lindex [split $arg] 0] } if {(![file exists $rt_tfile]) || (![file readable $rt_tfile])} { putserv "NOTICE $nick :\[4x]: unable to read from file $rt_tfile." } else { if {![rt_botonchan $chan]} { putserv "NOTICE $nick :\[4x]: I'm not on $chan." } else { set topic [rt_gettopic] if {($topic != "") && ([botisop $chan] || ![string match *t* [lindex [getchanmode $chan] 0]])} { putserv "TOPIC $chan :$topic" } else { putserv "NOTICE $nick :\[4x]: unable to change topic of $chan." } } } return 1 } proc pub:rt_rtall {nick uhost hand chan arg} { global rt_tfile rt_listmethod rt_login rt_cmdpfix rt_sametopic rt_makehtml rt_htmlfile rt_nochans rt_onlyblank if {$rt_login} { if {![rt_login_check $hand]} { return 0 } } set chanlist "" if {(![file exists $rt_tfile]) || (![file readable $rt_tfile])} { putserv "NOTICE $nick :\[4x]: unable to read from file $rt_tfile." } else { set topic [rt_gettopic] foreach chan [channels] { if {$rt_nochans != ""} { if {[lsearch -exact [split [string tolower $rt_nochans]] [string tolower $chan]] != -1} { continue } } if {$rt_onlyblank} { if {[topic $chan] == ""} { if {[rt_botonchan $chan] && ($topic != "") && ([botisop $chan] || ![string match *t* [lindex [getchanmode $chan] 0]])} { lappend chanlist $chan if {!$rt_sametopic} { set topic [rt_gettopic] } putserv "TOPIC $chan :$topic" } } } else { if {[rt_botonchan $chan] && ($topic != "") && ([botisop $chan] || ![string match *t* [lindex [getchanmode $chan] 0]])} { lappend chanlist $chan if {!$rt_sametopic} { set topic [rt_gettopic] } putserv "TOPIC $chan :$topic" } } } if {$chanlist != ""} { if {[llength $chanlist] == 1} { putserv "NOTICE $nick :\[4x]: changed topic of [join $chanlist ", "] ([llength $chanlist] channel)" } else { putserv "NOTICE $nick :\[4x]: changed topic of [join $chanlist ", "] ([llength $chanlist] channels)" } } else { putserv "NOTICE $nick :\[4x]: changed topic of 0 channels." } } return 1 } proc pub:rt_rttimer {nick uhost hand chan arg} { global rt_tfile rt_listmethod rt_login rt_cmdpfix rt_sametopic rt_makehtml rt_htmlfile rt_nochans global rt_interval rt_chan rt_option if {$rt_login} { if {![rt_login_check $hand]} { return 0 } } set option [string tolower [lindex [split $arg] 0]] set interval [lindex [split $arg] 1] if {[lindex [split $arg] 2] != ""} { set chan [lindex [split $arg] 2] } if {(![file exists $rt_tfile]) || (![file readable $rt_tfile])} { putserv "NOTICE $nick :\[4x]: unable to read from file $rt_tfile." } else { if {($option != "-stat") && ($option != "-stop") && (($interval == "") || ($option == "") || ((($option != "-rt") || ($chan == "")) && ($option != "-rtall")))} { putserv "NOTICE $nick :\[4x]: usage: ${rt_cmdpfix}rttimer