Code:

# rules1.0.tcl inspired by `Dracu|a`# rewritten from tell1.1.tcl (Lassi Lahtinen lahtinen.lassi@nic.fi) by Wanderer|# final debug by ShadowLord # email me @: jjmacgregor@kscable.com# version 1.0 a simple and to the point TCL :)# You can ask help: # 1. by emailing me# 2. I'm on Dalnet in #VladTepes# 3. Wanderer| is on UnderNET in #TCL# thanks a lot to Wanderer| and ShadowLord!# updated for sedition  1.-the method commands was extended example: !rules or .rules# 2.-the message method was extended for the command: 0 = notice to nick,  1 = private message to channel, 2 = private message to nick.# IRC:  irc.dal.net channels #tcls #cremacamba  my nick's sediton or supr# email: reebot@outlook.com# you can start to use rules1.0.tcl after you change "line1" and "line2" (btw # you can add lines "line 3" "line 4" etc it's not restricted) to your # channel's rules and write public command !rules or !rules <nick> on your chan!# commands: !rules pastes the rules on open channel !rules <nick> will /notice a # individual person the channel rules.set chanrules {"the channel rules are:""1. not insult""2. not bother anyone""*** end of the rules ***"}# Choose the method to use the bot# 0 = notice to nick# 1 = private message to channel# 2 = private message to nickset noticeoptionxp 1#commandsset rules_command "!rules .rules"#bind pub o !rules pub:tforeach ruleschans [split $rules_command] {bind pub - $ruleschans pub:t}proc pub:t {nick uhost hand chan text} {global chanrules noticeoptionxpset rulenick [lindex [split $text " "] 0]if {$text != "" && [onchan $rulenick $chan]} {puthelp "NOTICE $rulenick :these are the rules of our channel. Pay attention!"foreach line $chanrules { puthelp "NOTICE $rulenick :$line" }return 0}if {$noticeoptionxp == "0"} {foreach line $chanrules {puthelp "NOTICE $nick :$line" }}if {$noticeoptionxp == "1"} {foreach line $chanrules {puthelp "PRIVMSG $chan :$line" }}if {$noticeoptionxp == "2"} {foreach line $chanrules {puthelp "PRIVMSG $nick :$line" } }}putlog "\002rules 2.0 by `Dracu|a` updated for sedition"