Changeset 929 for trunk/modules/system.tcl

Timestamp:

06/30/08 15:35:13 (6 months ago)

Author:

james

Message:

tidy up

Files:

• trunk/modules/system.tcl (modified) (30 diffs)

trunk/modules/system.tcl

@@ -23 +23 @@
 
 
-### init our counters <<<1
-bMotion_counter_init "system" "randomstuff"
-
-
-### Set up the binds <<<1
-
-#General IRC events <<<2
+
+### Set up the binds 
+
+#General IRC events 
 bind join - *!*@* bMotion_event_onjoin
 bind mode - * bMotion_event_mode
@@ -38 +35 @@
 bind ctcp - ACTION bMotion_event_action
 
-#bMotion IRC events <<<2
+#bMotion IRC events 
 bind pub - "!mood" pubm_moodhandler
 bind pub - "!bminfo" bMotionInfo
@@ -47 +44 @@
 bind pub - .bmotion bMotionAdminHandler2
 
-#DCC commands <<<2
+#DCC commands 
 bind dcc m mood moodhandler
 bind dcc m bmotion* bMotion_dcc_command
@@ -56 +53 @@
 bind time - "* * * * *" bMotion_check_tired2
 
-### bMotion_update_chanlist <<<1
+#
 # rebuilds our channel list based on which channels are +bmotion
 proc bMotion_update_chanlist { } {
@@ -68 +65 @@
         }
 }
-### Initalise some variables per channel <<<1
+
+#
+# Initalise some variables per channel 
 bMotion_update_chanlist
+
 foreach chan $bMotionChannels {
         set bMotionLastEvent($chan) [clock seconds]
@@ -76 +76 @@
         #used to make the bot a bit more intelligent (perhaps) at conversations
         set bMotionCache($chan,last) 0
-        #channel mood tracker
-        #set bMotionCache($chan,mood) 0
-}
-
-### bMotionStats <<<1
+}
+
+# bMotionStats 
+# TODO: retire this
 proc bMotionStats {nick host handle channel text} {
         global bMotionInfo botnicks bMotionSettings cvsinfo botnick
@@ -113 +112 @@
 
 
-
+#
 # check if a channel is active enough for randomy things
 proc bMotion_is_active_enough { channel { limit 0 } } {
@@ -143 +142 @@
 }
 
+#
 # check if every channel we can see is idle enough for us to go away
 proc bMotion_random_away {} {
@@ -193 +193 @@
 }
 
+#
 # periodically sprout randomness (or go /away if idle enough)
 proc doRandomStuff {} {
@@ -265 +266 @@
 }
 
-### bMotionSaySomethingRandom <<<1
+#
+# Output random gibberish
 proc bMotionSaySomethingRandom {channel {busy 0}} {
         global randomStuff stonedRandomStuff mood bMotionInfo bMotionCache
@@ -303 +305 @@
 
 
-### bMotionSetRandomAway <<<1
+#
+#set myself away with a random message
 proc bMotionSetRandomAway {} {
-        #set myself away with a random message
         global randomAways bMotionInfo bMotionSettings bMotionChannels
 
@@ -321 +323 @@
 }
 
-### bMotionSetRandomBack <<<1
+#
+# set myself back
 proc bMotionSetRandomBack {} {
         #set myself back
@@ -343 +346 @@
 }
 
-### bMotionTalkingToMe <<<1
+#
+# check if a line looks like it's addressed to me
 proc bMotionTalkingToMe { text } {
         global botnicks
@@ -367 +371 @@
 }
 
-### bMotionSilence <<<1
-# Makes the bot shut up
+#
+# We need to shut up
 proc bMotionSilence {nick host channel} {
         global bMotionInfo silenceAways bMotionSettings
@@ -384 +388 @@
 }
 
-### bMotionUnSilence <<<1
-# Undoes the shut up command
+#
+# Enough shutting up for now
 proc bMotionUnSilence {} {
         # Timer for silence expires
@@ -395 +399 @@
 }
 
-### bMotionLike <<<1
+### bMotionLike 
 proc bMotionLike {nick { host "" }} {
         global bMotionInfo mood bMotionSettings
@@ -463 +467 @@
 }
 
-### bMotionGetGender <<<1
+### bMotionGetGender 
 proc bMotionGetGender { nick host } {
         set host "$nick!$host"
@@ -474 +478 @@
 }
 
-### getHour <<<1
+### getHour 
 proc getHour {} {
         return [clock format [clock seconds] -format "%H"]
@@ -480 +484 @@
 
 
-### bMotion_dcc_command <<<1
+### bMotion_dcc_command 
 proc bMotion_dcc_command { handle idx arg } {
         global bMotionInfo
@@ -564 +568 @@
 }
 
-### bMotion_dcc_help <<<1
+### bMotion_dcc_help 
 proc bMotion_dcc_help { handle idx arg } {
         putidx $idx "Please use .bmotion help"
@@ -572 +576 @@
 
 ### new admin plugins ("management")
-### bMotionAdminHandler2 <<<1
+### bMotionAdminHandler2 
 proc bMotionAdminHandler2 {nick host handle channel text} {
         global botnicks bMotionInfo botnick bMotionSettings
@@ -631 +635 @@
 
 
-### bMotion_putadmin <<<1
+### bMotion_putadmin 
 proc bMotion_putadmin { text } {
 
@@ -656 +660 @@
 }
 
-### bMotionAdminHandler <<<1
+### bMotionAdminHandler 
 #TODO: is this ever used now?
 proc bMotionAdminHandler {nick host handle channel text} {
@@ -765 +769 @@
 }
 
-### msg_bmotioncommand <<<1
+### msg_bmotioncommand 
 proc msg_bmotioncommand { nick host handle cmd } {
         bMotion_plugins_settings_set "admin" "type" "" "" "irc"
@@ -808 +812 @@
 }
 
-### bMotion_get_number <<<1
+### bMotion_get_number 
 proc bMotion_get_number { num } {
         if {$num <= 0} {
@@ -817 +821 @@
 }
 
-### bMotion_rand_nonzero <<<1
+### bMotion_rand_nonzero 
 proc bMotion_rand_nonzero { limit } {
         if {$limit <= 0} {
@@ -829 +833 @@
 }
 
-### bMotion_startTimers <<<1
+### bMotion_startTimers 
 proc bMotion_startTimers { } {
         global mooddrifttimer
@@ -842 +846 @@
 }
 
-### bMotion_cleanNick <<<1
+### bMotion_cleanNick 
 proc bMotion_cleanNick { nick { handle "" } } {
         #attempt to clean []s etc out of nicks
@@ -865 +869 @@
 }
 
-### bMotion_uncolen <<<1
+### bMotion_uncolen 
 # clean out $£(($ off the end
 proc bMotion_uncolen { line } {
@@ -872 +876 @@
 }
 
-### bMotion_setting_get <<<1
+### bMotion_setting_get 
 # get a setting out of the two variables that commonly hold them
 proc bMotion_setting_get { setting } {