commit 814e46cbc4efede01313a0e0751a3777c88dd21e
Author: Gergely Polonkai <gergely@polonkai.eu>
Date:   Fri Apr 29 22:27:31 2016 +0200

    Initial version

diff --git a/w5limit.tcl b/w5limit.tcl
new file mode 100644
index 0000000..a26989f
--- /dev/null
+++ b/w5limit.tcl
@@ -0,0 +1,90 @@
+################################################################################
+#                                                                              #
+# W5CL - W00d5t0ck's ChanLimit script                                          #
+#                                                                              #
+# Written by W00d5t0ck@IRCnet (also W00d5t0ck@SulIRC)                          #
+#                                                                              #
+# History:                                                                     #
+#   2003/09/11 First version                                                   #
+#   2003/09/12 First public release                                            #
+#                                                                              #
+# Tested on eggdrop1.6.15 with tcl8.3 on UnrealIRCd3.1.6-Noon, on a debian 3.0 #
+# with the 2.4.18 (distribution) kernel .)                                     #
+#                                                                              #
+# Good work to you, bot-owner!                                                 #
+#                                                                              #
+# Feel free to look for me on IRCnet's #eggdrop or on SulIRC's #help for help! #
+# If I don't answer, don't forget to CTCP BEEP me! If I still don't answer,    #
+# I'm Not Behind Keyboard.                                                     #
+#                                                                              #
+# Licensed under GPL v2                                                        #
+#                                                                              #
+################################################################################
+
+####################
+# General settings #
+####################
+
+# Setting name for channels which are limited [w5cl]
+set w5cl-limit "w5cl"
+
+# Number added to number of users on channel limit [3]
+set w5cl-plus 3
+
+# Flags for users who can set or unset channel limit (turn on/off) [m|m]
+set w5cl-flags "m|m"
+
+############################################################################
+# Please do not edit ANYTHING beyond here, unless you really know what you #
+# are doing!                                                               #
+############################################################################
+set w5cl-version "1.0"
+
+# Default values. I'm a bit paranoid .)
+if {[catch {set w5cl-limit}]} {set w5cl-limit "w5cl"}
+if {[catch {set w5cl-plus}]} {set w5cl-plus 3}
+if {[catch {set w5cl-flags}]} {set w5cl-flags "m|m"}
+
+catch {setudef flag ${w5cl-limit} }
+
+bind join * * w5cljoin
+bind part * * w5clpart
+bind sign * * w5clsign
+
+proc w5cljoin {nick uhost hand chan} {
+  global w5cl-limit w5cl-plus
+
+  if {[botonchan $chan]} {
+    if {[botisop $chan] && [channel get $chan ${w5cl-limit}]} {
+      set num [expr [llength [chanlist $chan]] + ${w5cl-plus}]
+      putserv "MODE $chan +l $num"
+    }
+  } else {putlog "Got information from $chan, and I'm not on it!"}
+  return 0
+}
+
+proc w5clpart {nick uhost hand chan msg} {
+  global w5cl-limit w5cl-plus
+
+  if {[botonchan $chan]} {
+    if {[botisop $chan] && [channel get $chan ${w5cl-limit}]} {
+      set num [expr [llength [chanlist $chan]] + ${w5cl-plus} - 1]
+      putserv "MODE $chan +l $num"
+    }
+  } else {putlog "Got information from $chan, and I'm not on it!"}
+  return 0
+}
+
+proc w5clsign {nick uhost hand chan reason} {
+  global w5cl-limit w5cl-plus
+
+  if {[botonchan $chan]} {
+    if {[botisop $chan] && [channel get $chan ${w5cl-limit}]} {
+      set num [expr [llength [chanlist $chan]] + ${w5cl-plus} - 1]
+      putserv "MODE $chan +l $num"
+    }
+  } else {putlog "Got information from $chan, and I'm not on it!"}
+  return 0
+}
+
+putlog "W00d5t0ck's chanlimit script, v${w5cl-version}"
diff --git a/w5ts.tcl b/w5ts.tcl
new file mode 100644
index 0000000..bbad482
--- /dev/null
+++ b/w5ts.tcl
@@ -0,0 +1,589 @@
+###############################################################################
+#                                                                              #
+# w5ts - W00d52kr1pt topic system, v1.0                                        #
+#                                                                              #
+# Author:                   W00d5t0ck@IRCnet (also W00d5t0ck@SulIRC)           #
+#                                                                              #
+# Purpose:                  Randomly changes the channels' topics, and locks   #
+#                           them, if said to.                                  #
+#                                                                              #
+# History:                                                                     #
+#                           2003/08/24 First public release (1.0)              #
+#                                                                              #
+# Future plans:             Nothing. Make suggestions, or rewrite it, if you   #
+#                           don't like something...                            #
+#                                                                              #
+# E-mail (suggestion, etc): polesz@techinfo.hu                                 #
+#                                                                              #
+# Licensed under GPL v2                                                        #
+#                                                                              #
+################################################################################
+
+#### General settings ####
+
+# Enable public commands? May be insecure [0/1]
+set w5tsenablepub 0
+
+# Enable msg commands? May be insecure [0/1]
+set w5tsenablemsg 0
+
+# Enable dcc commands? It's safe to enable it, and it is highly recommended
+# [1/0]
+set w5tsenabledcc 1
+
+# What character do the public commands start? [!]
+set w5tscmdchar "!"
+
+# Command to lock a channel's topic
+set w5tslockcmd "locktopic"
+
+# Command to set the channel randtopic
+set w5tsrandcmd "randtopic"
+
+# Command to set a locked channel's topic
+set w5tstopccmd "topikvalt"
+
+# Command to retrieve settings for a channel
+set w5tsretrcmd "topik"
+
+# How often change topic on +w5tsrand channels? ("r" for random, or a number
+# to set the interval in minutes
+set w5tstpcinterval "r"
+
+# If the interval is random, set the minimum and maximum time here.
+set w5tstimemin 5
+set w5tstimemax 10
+
+# File that holds the topics. Relative to the eggdrop executable, not the
+# script! [topics.txt]
+set w5tstopicfile "topics.dat"
+
+# Learn new topics? Consumes a bit more CPU when saving. May fill your quotas
+# if you change topic too often. Learns only, when the channel's topic is not
+# locked, or via the topic-changing command. [1/0]
+set w5tslearntopics 1
+
+# With what global flags can the users change the topic and use the flag-
+# dependant commands? [nmo]
+set w5tsglobalflags "nmob"
+
+# With what channel flags can the users change the topic and use the flag-
+# dependant commands? [mno]
+set w5tschanflags "mno"
+
+# Kick users who change topic on a locked channel? [0/1]
+set w5tskick 1
+
+# Reason when kicking those users? It will be the reason of the ban, if w5tsban
+# is 1 ["Don't change topic on a locked channel!"]
+set w5tskickreason "Ezen a csatornán nem lehet topikot váltani!"
+
+# Ban those users? [0/1]
+set w5tsban 1
+
+# Ban for how long (in minutes)? If you set this to 0, the ban will never expire
+set w5tsbantime 10
+
+# Warn how many times before kick users who changes topic on a locked channel?
+# Set to 0 to immediate kick [1]
+set w5tswarn 1
+
+# Channel flag for topic lock?
+set w5tstlflag "w5tslock"
+
+# Channel flag for random topic?
+set w5tsrtflag "w5tsrand"
+
+# Channel setting name for warned users?
+set w5tswarnsetting "w5tswarn"
+
+# Channel setting name for the locked topic?
+set w5tstopcsetting "w5tstopic"
+
+# Usage information for public topiclock command
+set w5tspublockusage "Használat: a $w5tscmdchar$w5tslockcmd 1 lezárja, a $w5tscmdchar$w5tslockcmd 0 to felnyitja a topikot"
+
+# Usage information for public randtopic command
+set w5tspubrandusage "Használat: a $w5tscmdchar$w5tsrandcmd 1 engedélyezi, a $w5tscmdchar$w5tsrandcmd 0 letiltja a véletlen-topikot"
+
+# Usage information for public topic command
+set w5tspubtopcusage "Használat: $w5tscmdchar$w5tstopccmd új topik"
+
+# Usage information for message topiclock command
+set w5tsmsglockusage "Használat: a $w5tslockcmd jelszó csatorna 1 lezárja, a $w5tslockcmd jelszó csatorna 0 felnyitja a topikot"
+
+# Usage information for message randtopic command
+set w5tsmsgrandusage "Használat: a $w5tsrandcmd jelszó csatorna 1 engedélyezi, a $w5tsrandcmd jelszó csatorna 0 letiltja a véletlenszerű topikot"
+
+# Usage information for message topic command
+set w5tsmsgtopcusage "Használat: $w5tstopccmd jelszó csatorna új topik"
+
+# Usage information for dcc topiclock command
+set w5tsdcclockusage "Használat: a $w5tslockcmd csatorna 1 lezárja, a $w5tslockcmd csatorna 0 felnyitja a topikot"
+
+# Usage information for dcc randtopic command
+set w5tsdccrandusage "Használat: a $w5tsrandcmd csatorna 1 engedélyezi, a $w5tsrandcmd csatorna 0 letiltja a véletlenszerű topikot"
+
+# Usage information for dcc topic command
+set w5tsdcctopcusage "Használat: $w5tstopccmd csatorna új topik"
+
+# Setting information. Use \$lock, and \$rand for locked and random status,
+# and \$chan for channel name!!!
+set w5tssettinginfo "\$chan beállítások: topiktiltás(\$lock); véletlentopik(\$rand)"
+
+# Message to send when a user sets a new topic on a locked channel:
+set w5tstopcmsg "A topik le van zárva!"
+
+# String for "on" state
+set w5tsonstr "be"
+
+# String for "off" state
+set w5tsoffstr "ki"
+
+
+#### Please don't change anything beyond here, unless you know what ####
+#### you are doing!                                                 ####
+
+set w5tsver "1.0"
+
+if {$numversion < 1061500} {putlog "This script is tested on eggdrop-1.6.15, a newer bot than this one. Please mail me at polesz@techinfo.hu if the script works with this version without modifications!"}
+
+if {$w5tsenablepub == 1} {
+	bind pub - $w5tscmdchar$w5tslockcmd w5tspublocktopic
+	bind pub - $w5tscmdchar$w5tsrandcmd w5tspubrandtopic
+	bind pub - $w5tscmdchar$w5tstopccmd w5tspubtopic
+} else {
+  catch {unbind pub - $w5tscmdchar$w5tslockcmd w5tspublocktopic}
+  catch {unbind pub - $w5tscmdchar$w5tsrandcmd w5tspubrandtopic}
+  catch {unbind pub - $w5tscmdchar$w5tstopccmd w5tspubtopic}
+}
+if {$w5tsenablemsg == 1} {
+	bind msg - $w5tslockcmd w5tsmsglocktopic
+	bind msg - $w5tsrandcmd w5tsmsgrandtopic
+	bind msg - $w5tstopccmd w5tsmsgtopic
+} else {
+  catch {unbind msg - $w5tslockcmd w5tsmsglocktopic}
+  catch {unbind msg - $w5tsrandcmd w5tsmsgrandtopic}
+  catch {unbind msg - $w5tstopccmd w5tsmsgtopic}
+}
+if {$w5tsenabledcc == 1} {
+	bind dcc - $w5tslockcmd w5tsdcclocktopic
+	bind dcc - $w5tsrandcmd w5tsdccrandtopic
+	bind dcc - $w5tstopccmd w5tsdcctopic
+} else {
+  catch {unbind dcc - $w5tslockcmd w5tsdcclocktopic}
+  catch {unbind dcc - $w5tsrandcmd w5tsdccrandtopic}
+  catch {unbind dcc - $w5tstopccmd w5tsdcctopic}
+}
+
+bind topc - * w5tstopcproc
+bind pub - $w5tscmdchar$w5tsretrcmd w5tspubretr
+bind msg - $w5tsretrcmd w5tsmsgretr
+bind dcc - $w5tsretrcmd w5tsdccretr
+
+setudef flag $w5tstlflag
+setudef flag $w5tsrtflag
+setudef str $w5tswarnsetting
+setudef str $w5tstopcsetting
+
+#### Miscellaneous procs ####
+proc w5tscheckflags {handle channel} {
+  global w5tsglobalflags w5tschanflags
+
+  set hasflags 0
+
+  for {set i 0} {$i < [string length $w5tsglobalflags]} {incr i} {
+    if {[matchattr $handle [string index $w5tsglobalflags $i]]} {set hasflags 1}
+  }
+  for {set i 0} {$i < [string length $w5tschanflags]} {incr i} {
+    if {[matchattr $handle [string index $w5tschanflags $i] $channel]} {set hasflags 1}
+  }
+  return $hasflags
+}
+
+proc w5tssavetopic {channel topic} {
+  global w5tstopicfile
+
+  set topic [string trim $topic]
+  set channel [string tolower $channel]
+  set errno [catch {set fd [open $w5tstopicfile r]}]
+  set topics {}
+  if {$errno == 0} {
+    while {![eof $fd]} {
+      set line [gets $fd]
+      if {[eof $fd]} {break}
+      set chan [string tolower [lindex $line 0]]
+      set topc [string trim [lrange $line 1 end]]
+      if {($chan == $channel) && ($topic == $topc)} {
+        close $fd
+        return 1
+      }
+      set topics [lappend topics $line]
+    }
+    close $fd
+  }
+  set topics [lappend topics "$channel $topic"]
+  set errno [catch {set fd [open $w5tstopicfile w]}]
+  if {$errno == 0} {
+    foreach tmp $topics {puts $fd $tmp}
+    close $fd
+    return 1
+  }
+  return 0
+}
+
+proc w5tscanchangetopic {channel} {
+  if {[botisop $channel]} {return 1}
+  set modes [getchanmode $channel]
+  for {set i 0} {$i < [string length $modes]} {incr i} {
+    if {[string index $modes $i] == "m"} {return 0}
+  }
+  return 1
+}
+
+proc w5tsgetrandtopic {channel} {
+  global w5tstopicfile
+
+  set channel [string tolower $channel]
+  set errno [catch {set fd [open $w5tstopicfile]}]
+
+  set topics {}
+  if {$errno == 0} {
+    while {![eof $fd]} {
+      set line [gets $fd]
+      if {[eof $fd]} {break}
+      set chan [string tolower [lindex $line 0]]
+      set topc [string trim [lrange $line 1 end]]
+      if {$chan == $channel} {set topics [lappend topics $topc]}
+    }
+    close $fd
+  } else {return ""}
+  if {[llength $topics] == 0} {return ""}
+  return [lindex $topics [rand [llength $topics]]]
+}
+
+proc w5tsrandtopic {} {
+  global w5tsrtflag w5tstpcinterval w5tstimemin w5tstimemax
+
+  foreach chan [channels] {
+    if {([channel get $chan $w5tsrtflag]) && ([w5tscanchangetopic $chan]) && ([w5tsgetrandtopic $chan] != "")} {
+      putserv "TOPIC $chan :[w5tsgetrandtopic $chan]"
+    }
+  }
+  if {$w5tstpcinterval == "r"} {
+    if {$w5tstimemax < $w5tstimemin} {
+      set a $w5tstimemin
+      set w5tstimemin $w5tstimemax
+      set w5tstimemax $a
+    }
+    set interval [expr [rand [expr $w5tstimemax - $w5tstimemin]] + $w5tstimemin]
+    if {![string match "*w5tsrandtopic*" [timers]]} {timer $interval w5tsrandtopic}
+  } elseif {[string is digit $w5tstpcinterval]} {
+    if {![string match "*w5tsrandtopic*" [timers]]} {timer $w5tstpcinterval w5tsrandtopic}
+  }
+}
+
+#### Binded procs ####
+
+proc w5tspublocktopic {nick uhost handle channel onoff} {
+  global w5tspublockusage w5tstlflag w5tstopcsetting w5tslockcmd
+
+  if {([validuser $handle]) && ([w5tscheckflags $handle $channel])} {
+    set onoff [string trim $onoff]
+
+    if {($onoff != 0) && ($onoff != 1)} {
+      puthelp "NOTICE $nick :$w5tspublockusage"
+      return 0
+    }
+    if {$onoff == 1} {set option "+"} else {set option "-"}
+    channel set $channel $option$w5tstlflag
+    if {$onoff == 0} {putcmdlog "<<$nick>> !$handle! $w5tslockcmd $channel 0"}
+    if {$onoff == 1} {
+      channel set $channel $w5tstopcsetting [topic $channel]
+      putcmdlog "<<$nick>> !$handle! $w5tslockcmd $channel 1"
+    }
+  }
+  return 0
+}
+
+proc w5tspubrandtopic {nick uhost handle channel onoff} {
+  global w5tspubrandusage w5tsrtflag w5tsrandcmd
+
+  if {([validuser $handle]) && ([w5tscheckflags $handle $channel])} {
+    set onoff [string trim $onoff]
+
+    if {($onoff != 0) && ($onoff != 1)} {
+      puthelp "NOTICE $nick :$w5tspubrandusage"
+      return 0
+    }
+    if {$onoff == 1} {set option "+"} else {set option "-"}
+    channel set $channel $option$w5tsrtflag
+    putcmdlog "<<$nick>> !$handle! $w5tsrandcmd $channel $onoff"
+  }
+  return 0
+}
+
+proc w5tspubtopic {nick uhost handle channel topic} {
+  global w5tstlflag w5tstopcsetting w5tstopccmd w5tspubtopcusage
+
+  if {([validuser $handle]) && ([w5tscheckflags $handle $channel])} {
+    if {$topic == ""} {set topic [w5tsgetrandtopic $channel]}
+    if {$topic == ""} {
+      puthelp "NOTICE $nick :$w5tspubtopcusage"
+      return 0
+    }
+    if {[channel get $channel $w5tstlflag] != 0} {channel set $channel $w5tstopcsetting $topic}
+    if {[w5tscanchangetopic $channel]} {putserv "TOPIC $channel :$topic"}
+    w5tssavetopic $channel $topic
+    putcmdlog "<<$nick>> !$handle! $w5tstopccmd $channel $topic"
+  }
+  return 0
+}
+
+proc w5tsmsglocktopic {nick uhost handle txt} {
+  global w5tsmsglockusage w5tstlflag w5tstopcsetting w5tslockcmd
+
+  set pass [lindex $txt 0]
+  set chan [lindex $txt 1]
+  set onoff [lindex $txt 2]
+
+  if {([validuser $handle]) && ([passwdok $handle $pass]) && ([w5tscheckflags $handle $chan]) && ([validchan $chan])} {
+    if {($onoff != 0) && ($onoff != 1)} {
+      puthelp "NOTICE $nick :$w5tsmsglockusage"
+      return 0
+    }
+    if {$onoff == 1} {set option "+"} else {set option "-"}
+    channel set $chan $option$w5tstlflag
+    if {$onoff == 0} {putcmdlog "($nick!$uhost) !$handle! $w5tslockcmd $chan 0"}
+    if {$onoff == 1} {
+      channel set $chan $w5tstopcsetting [topic $chan]
+      putcmdlog "($nick!$uhost) !$handle! $w5tslockcmd $chan 1"
+    }
+  }
+  return 0
+}
+
+proc w5tsmsgrandtopic {nick uhost handle txt} {
+  global w5tsmsgrandusage w5tsrtflag w5tsrandcmd
+
+  set pass [lindex $txt 0]
+  set chan [lindex $txt 1]
+  set onoff [lindex $txt 2]
+
+  if {([validuser $handle]) && ([passwdok $handle $pass]) && ([w5tscheckflags $handle $chan]) && ([validchan $chan])} {
+    if {($onoff != 0) && ($onoff != 1)} {
+      puthelp "NOTICE $nick :$w5tsmsgrandusage"
+      return 0
+    }
+    if {$onoff == 1} {set option "+"} else {set option "-"}
+    channel set $chan $option$w5tsrtflag
+    putcmdlog "($nick!$uhost) !$handle! $w5tsrandcmd $chan $onoff"
+  }
+  return 0
+}
+
+proc w5tsmsgtopic {nick uhost handle txt} {
+  global w5tstlflag w5tstopcsetting w5tstopccmd w5tsmsgtopcusage
+
+  set pass [lindex $txt 0]
+  set chan [lindex $txt 1]
+  set topc [lrange $txt 2 end]
+
+  if {([validuser $handle]) && ([passwdok $handle $pass]) && ([w5tscheckflags $handle $chan])} {
+    if {$topc == ""} {set topc [w5tsgetrandtopic $chan]}
+    if {$topc == ""} {
+      puthelp "NOTICE $nick :$w5tsmsgtopcusage"
+      return 0
+    }
+    if {[channel get $chan $w5tstlflag] != 0} {channel set $chan $w5tstopcsetting $topc}
+    if {[w5tscanchangetopic $chan]} {putserv "TOPIC $chan :$topc"}
+    w5tssavetopic $chan $topc
+    putcmdlog "<<$nick>> !$handle! $w5tstopccmd $chan $topc"
+  }
+}
+
+proc w5tsdcclocktopic {handle idx txt} {
+  global w5tsdcclockusage w5tstlflag w5tstopcsetting w5tslockcmd
+
+  set chan [lindex $txt 0]
+  set onoff [lindex $txt 1]
+
+  if {([validuser $handle]) && ([w5tscheckflags $handle $chan]) && ([validchan $chan])} {
+    if {($onoff != 0) && ($onoff != 1)} {
+      putdcc $idx $w5tsdcclockusage
+      return 0
+    }
+    if {$onoff == 1} {set option "+"} else {set option "-"}
+    channel set $chan $option$w5tstlflag
+    if {$onoff == 0} {putcmdlog "#$handle# $w5tslockcmd $chan 0"}
+    if {$onoff == 1} {
+      channel set $chan $w5tstopcsetting [topic $chan]
+      putcmdlog "#$handle# $w5tslockcmd $chan 1"
+    }
+  }
+  return 0
+}
+
+proc w5tsdccrandtopic {handle idx txt} {
+  global w5tsdccrandusage w5tsrtflag w5tsrandcmd
+
+  set chan [lindex $txt 0]
+  set onoff [lindex $txt 1]
+
+  if {([validuser $handle]) && ([w5tscheckflags $handle $chan]) && ([validchan $chan])} {
+    if {($onoff != 0) && ($onoff != 1)} {
+      putdcc $idx $w5tsdccrandusage
+      return 0
+    }
+    if {$onoff == 1} {set option "+"} else {set option "-"}
+    channel set $chan $option$w5tsrtflag
+    putcmdlog "#$handle# $w5tsrandcmd $chan $onoff"
+  }
+  return 0
+}
+
+proc w5tsdcctopic {handle idx txt} {
+  global w5tstlflag w5tstopcsetting w5tstopccmd w5tsdcctopcusage
+
+  set chan [lindex $txt 0]
+  set topc [lrange $txt 1 end]
+
+  if {([validuser $handle]) && ([w5tscheckflags $handle $chan])} {
+    if {$topc == ""} {set topc [w5tsgetrandtopic $chan]}
+    if {$topc == ""} {
+      putdcc $idx $w5tsdcctopcusage
+      return 0
+    }
+    if {[channel get $chan $w5tstlflag] != 0} {channel set $chan $w5tstopcsetting $topc}
+    if {[w5tscanchangetopic $chan]} {putserv "TOPIC $chan :$topc"}
+    w5tssavetopic $chan $topc
+    putcmdlog "#$handle# $w5tstopccmd $chan $topc"
+  }
+}
+
+proc w5tstopcproc {nick uhost handle channel topic} {
+  global botnick w5tstlflag w5tstopcmsg w5tstopcsetting w5tswarnsetting w5tswarn w5tskick w5tskickreason w5tsban w5tsbantime botnet-nick
+
+  if {[channel get $channel $w5tstlflag] != 0} {
+    if {$nick != $botnick} {
+      if {!(([validuser $handle]) && ([w5tscheckflags $handle $channel]))} {
+        puthelp "NOTICE $nick :$w5tstopcmsg"
+        putcmdlog "<<$nick>> $handle tried to change topic on a locked channel"
+        if {[w5tscanchangetopic $channel]} {putserv "TOPIC $channel :[channel get $channel $w5tstopcsetting]"}
+        if {$w5tskick == 1} {
+          set wantkick 1
+          if {$w5tswarn != 0} {
+            set warns [channel get $channel $w5tswarnsetting]
+            set newwarns {}
+            set gotit 0
+            for {set i 0} {$i < [llength $warns]} {incr i} {
+              set tmp [lindex $warns $i]
+              set nuh [lindex $tmp 0]
+              set num [lindex $tmp 1]
+              if {$nuh == "$nick!$uhost"} {
+                if {$num == $w5tswarn} {
+                  set wantkick 1
+                } else {
+                  set newwarns [lappend newwarns [list $nuh [incr num]]]
+                  set wantkick 0
+                }
+                set gotit 1
+              } else {set newwarns [lappend newwarns $tmp]}
+            }
+            if {$gotit == 0} {set newwarns [lappend newwarns "$nick!$uhost 1"]}
+            channel set $channel $w5tswarnsetting $newwarns
+          }
+          if {$wantkick == 1} {
+            putkick $channel $nick $w5tskickreason
+            if {$w5tsban == 1} {newchanban $channel "$nick!$uhost" ${botnet-nick} $w5tskickreason $w5tsbantime}
+          }
+        }
+      } else {
+        w5tssavetopic $channel $topic
+        if {[w5tscanchangetopic $channel]} {putserv "TOPIC $channel :[channel get $channel $w5tstopcsetting]"}
+      }
+    }
+  } else {w5tssavetopic $channel $topic}
+  return 0
+}
+
+proc w5tspubretr {nick uhost handle channel txt} {
+  global w5tssettinginfo w5tstlflag w5tsrtflag w5tsonstr w5tsoffstr
+
+  set chan $channel
+  set l [channel get $chan $w5tstlflag]
+  if {$l == 0} {set lock $w5tsoffstr} else {set lock $w5tsonstr}
+  set r [channel get $chan $w5tsrtflag]
+  if {$r == 0} {set rand $w5tsoffstr} else {set rand $w5tsonstr}
+
+  puthelp "NOTICE $nick :[subst $w5tssettinginfo]"
+}
+
+proc w5tsmsgretr {nick uhost handle txt } {
+  global w5tssettinginfo w5tstlflag w5tsrtflag w5tsonstr w5tsoffstr
+
+  if {$txt == ""} {
+    foreach chan [channels] {
+      set l [channel get $chan $w5tstlflag]
+      if {$l == 0} {set lock $w5tsoffstr} else {set lock $w5tsonstr}
+      set r [channel get $chan $w5tsrtflag]
+      if {$r == 0} {set rand $w5tsoffstr} else {set rand $w5tsonstr}
+
+      puthelp "NOTICE $nick :[subst $w5tssettinginfo]"
+    }
+  } else {
+    set chan [lindex $txt 0]
+
+    if {[validchan $chan]} {
+      set l [channel get $chan $w5tstlflag]
+      if {$l == 0} {set lock $w5tsoffstr} else {set lock $w5tsonstr}
+      set r [channel get $chan $w5tsrtflag]
+      if {$r == 0} {set rand $w5tsoffstr} else {set rand $w5tsonstr}
+
+      puthelp "NOTICE $nick :[subst $w5tssettinginfo]"
+    }
+  }
+}
+
+proc w5tsdccretr {handle idx txt} {
+  global w5tssettinginfo w5tstlflag w5tsrtflag w5tsonstr w5tsoffstr
+
+  if {$txt == ""} {
+    foreach chan [channels] {
+      set l [channel get $chan $w5tstlflag]
+      if {$l == 0} {set lock $w5tsoffstr} else {set lock $w5tsonstr}
+      set r [channel get $chan $w5tsrtflag]
+      if {$r == 0} {set rand $w5tsoffstr} else {set rand $w5tsonstr}
+
+      putdcc $idx [subst $w5tssettinginfo]
+    }
+  } else {
+    set chan [lindex $txt 0]
+
+    if {[validchan $chan]} {
+      set l [channel get $chan $w5tstlflag]
+      if {$l == 0} {set lock $w5tsoffstr} else {set lock $w5tsonstr}
+      set r [channel get $chan $w5tsrtflag]
+      if {$r == 0} {set rand $w5tsoffstr} else {set rand $w5tsonstr}
+
+      putdcc $idx [subst $w5tssettinginfo]
+    }
+  }
+}
+
+if {$w5tstpcinterval == "r"} {
+  if {$w5tstimemax < $w5tstimemin} {
+    set a $w5tstimemin
+    set w5tstimemin $w5tstimemax
+    set w5tstimemax $a
+  }
+  set interval [expr [rand [expr $w5tstimemax - $w5tstimemin]] + $w5tstimemin]
+  if {![string match "*w5tsrandtopic*" [timers]]} {timer $interval w5tsrandtopic}
+} elseif {[string is digit $w5tstpcinterval]} {
+  if {![string match "*w5tsrandtopic*" [timers]]} {timer $w5tstpcinterval w5tsrandtopic}
+}
+
+putlog "W5TopicSystem v$w5tsver loaded."
+
+return "W5TopicSystem v$w5tsver loaded."
+