Changeset 1123

Timestamp:

12/15/11 10:01:57 (5 months ago)

Author:

james

Message:

Count hats

Location:

trunk/plugins/en

Files:

• action_complex_cracker.tcl (modified) (4 diffs)
• complex_questions.tcl (modified) (2 diffs)

trunk/plugins/en/action_complex_cracker.tcl

@@ -24 +24 @@
 
         bMotionDoAction $channel $nick "%VAR{cracker_boom}"
+        set hats [bMotion_plugins_settings_get "cracker" "hats" $channel ""]
+        if {$hats == ""} {
+                set hats 0
+        }
 
         if [rand 2] {
@@ -30 +34 @@
                 if [rand 2] {
                         bMotionDoAction $channel $nick "%VAR{cracker_win_hat}"
+                        incr hats
+                        bMotion_plugins_settings_set "cracker" "hats" $channel "" $hats
+                        if [rand 4] {
+                                if {$hats > 1} {
+                                        bMotionDoAction $channel $nick "%VAR{cracker_hats}" $hats
+                                }
+                        }
                 }
                 return 1
@@ -37 +48 @@
                 if [rand 2] {
                         bMotionDoAction $channel $nick "%VAR{cracker_lose_hat}"
+                        if {$handle != "*"} {
+                                set hats [bMotion_plugins_settings_get "cracker" "hats" $channel $handle]
+                                if {$hats == ""} {
+                                        set hats 0
+                                }
+                                incr hats
+                                bMotion_plugins_settings_set "cracker" "hats" $channel $handle $hats
+                                if [rand 4] {
+                                        if {$hats > 1} {
+                                                bMotionDoAction $channel $nick "%VAR{cracker_your_hats}" $hats
+                                        }
+                                }
+                        }
                 }
                 return 1
@@ -93 +117 @@
         "a %VAR{scrap_silly_qualities} %VAR{scrap_silly_adjectives} %VAR{scrap_silly_construction}"
 }
+
+bMotion_abstract_register "cracker_hats" {
+        "/is now wearing %2 hats"
+        "/has %s hats on"
+}
+bMotion_abstract_add_filter "cracker_hats" "SETTING"
+
+bMotion_abstract_register "cracker_your_hats" {
+        "You're now wearing %2 hats."
+        "Woo, %2 hats for you %SMILEY{smile}"
+}
+
+bMotion_abstract_register "cracker_hats_current" {
+        "/is wearing %2 hats"
+        "/has %2 hats on"
+}
+
+bMotion_abstract_register "cracker_your_hats_current" {
+        "You've got %2 hats on!"
+        "%2, silly"
+        "%2, silly%|can't you tell?"
+        "%2 hats and %VAR{sillyThings}"
+}
+
+bMotion_abstract_register "cracker_hats_current" {
+        "%% has %2 hats on"
+        "%2 hats"
+}

trunk/plugins/en/complex_questions.tcl

@@ -136 +136 @@
   if { [regexp -nocase "^$botnicks,?:? how ?many" $text] ||
        [regexp -nocase "^how ?many .* $botnicks ?\\?" $text] } {
-    bMotion_plugin_complex_question_many $nick $channel $host
+    bMotion_plugin_complex_question_many $nick $channel $host $text
     return 1
   }
@@ -432 +432 @@
 # }
 
-proc bMotion_plugin_complex_question_many { nick channel host } {
+proc bMotion_plugin_complex_question_many { nick channel host line } {
     bMotion_putloglev 2 * "$nick how many question"
+                set handle [nick2hand $nick]
+                if [regexp -nocase "how many (xmas |cracker |christmas )?hats (am|are|do|is) (.+) " $line matches 1 2 3] {
+                        if {$3 == "you"} {
+                                set hats [bMotion_plugins_settings_get "cracker" "hats" $channel ""]
+                                if {($hats == "") || ($hats == 0)} {
+                                        bMotionDoAction $channel "" "No hats for me %SMILEY{sad}"
+                                        return 1
+                                }
+                                if {$hats == 1} {
+                                        bMotionDoAction $channel "" "One hat only"
+                                        return 1
+                                }
+                                bMotionDoAction $channel "" "%VAR{cracker_hats_current}" $hats
+                                return 1
+                        }
+
+                        if {$3 == "i"} {
+                                set hats [bMotion_plugins_settings_get "cracker" "hats" $channel $handle]
+                                if {($hats == "") || ($hats == 0)} {
+                                        bMotionDoAction $channel "" "No hats for you %SMILEY{sad}"
+                                        return 1
+                                }
+                                if {$hats == 1} {
+                                        bMotionDoAction $channel "" "One hat only"
+                                        return 1
+                                }
+                                bMotionDoAction $channel "" "%VAR{cracker_your_hats_current}" 
+                                return 1
+                        }
+
+                        set handle [nick2hand $3]
+                        if {$handle == "*"} {
+                                bMotionDoAction $channel "" "No idea"
+                                return 1
+                        }
+                                set hats [bMotion_plugins_settings_get "cracker" "hats" $channel $handle]
+                                if {($hats == "") || ($hats == 0)} {
+                                        bMotionDoAction $channel $handle "No hats for %% %SMILEY{sad}"
+                                        return 1
+                                }
+                                if {$hats == 1} {
+                                        bMotionDoAction $channel "" "One hat only"
+                                        return 1
+                                }
+                                bMotionDoAction $channel $handle "%VAR{cracker_handle_hats_current}" 
+                                return 1
+
+                }
   bMotionDoAction $channel [bMotionGetRealName $nick $host] "%VAR{answerHowmanys}"
   return 1