Changeset 999

Timestamp:

04/16/09 07:20:06 (3 years ago)

Author:

james

Message:

improve replicate plugin

File:

• trunk/plugins/en/complex_replicate.tcl (modified) (1 diff)

trunk/plugins/en/complex_replicate.tcl

@@ -16 +16 @@
 
 proc bMotion_plugin_complex_replicate { nick host handle channel text } {
-  global botnicks
+        global botnicks
 
   regexp -nocase "^${botnicks}:?,? (please )?(replicate|create|send|make|turn) (.+)" $text matches bot please action details
 
-  #make it so
-  if [regexp -nocase "^it so$" $details] { 
-    bMotionDoAction $channel $nick "/makes it so for %%"
-    bMotion_plugins_settings_set "system" "lastdonefor" $channel "" $nick
-    return 1
-  }
+        #make it so
+        if [regexp -nocase "^it so$" $details] { 
+                bMotionDoAction $channel $nick "/makes it so for %%"
+                bMotion_plugins_settings_set "system" "lastdonefor" $channel "" $nick
+                return 1
+        }
 
-  # make it something
-  if [regexp -nocase "^it (.+)$" $details ming details2] {
-    bMotionDoAction $channel $nick "/makes it $details2 for %%"
-    bMotion_plugins_settings_set "system" "lastdonefor" $channel "" $nick
-    return 1
-  }
+        # make it something
+        if [regexp -nocase "^it (.+)$" $details ming details2] {
+                bMotionDoAction $channel $nick "/makes it $details2 for %%"
+                bMotion_plugins_settings_set "system" "lastdonefor" $channel "" $nick
+                return 1
+        }
 
-  # actually replicate
-  set who [string trim [string range $details 0 [string first " " $details]]]
-  set item [string range $details [expr [string first " " $details] + 1] [string length $details]]
-  set whom ""
-  if {$who == ""} {
-    bMotionDoAction $channel $nick "Idiot. Try pressing Alt-F4 for help, %%"
-    return 1
-  }
-  if {$who == "me"} { set whom $nick }
-  if {[regexp -nocase "(yourself|you)" $who]} { set whom [getPronoun] }
-  if {$whom == ""} { set whom $who }
+        # actually replicate
+        set who [string trim [string range $details 0 [string first " " $details]]]
+        set item [string range $details [expr [string first " " $details] + 1] [string length $details]]
+        set whom ""
+        if {$who == ""} {
+                bMotionDoAction $channel $nick "Idiot. Try pressing Alt-F4 for help, %%"
+                return 1
+        }
+        if {$who == "me"} { set whom [bMotionGetRealName $nick] }
+        if {[regexp -nocase "(yourself|you)" $who]} { set whom [getPronoun] }
+        if {$whom == ""} { set whom $who }
   if {[string tolower $action] == "make" || [string tolower $action] == "turn" } {
-    if {($whom == [getPronoun]) && [regexp -nocase "(come|cum|ejaculate|squirt)" $item]} {
-      cum $channel $nick
-      return 1
-    }
-    if {[rand 4] == 0 || [regexp -nocase "into" $item]} {
-      set whom "$whom is"
-      if {$who == "me"} { set whom "you are" }
-      if {[regexp -nocase "(yourself|you)" $who]} { set whom "I am" }
-      if [regexp -nocase "into" $item] {
-        set item [string range $item [expr [string first "into" $item] + 5] end]
-      }
-      set hisHers [getHisHers]
-      bMotionDoAction $channel $hisHers "%VAR{wands}"
-      bMotionDoAction $channel $whom "*PING* ... %% $item"
-      if [rand 2] { bMotionDoAction $channel $whom "I AM THE WIZARD%colen" }
-      bMotionGetHappy
-      bMotionGetUnLonely
-      bMotion_putloglev d * "bMotion: Turned someone into $item :P"
-      return 1
-    }
-  }
-  bMotionDoAction $channel $whom "/replicates $item and hands it to %%"
-  bMotionGetUnLonely
-  bMotion_plugins_settings_set "system" "lastdonefor" $channel "" $nick
-  return 1
+                if {($whom == [getPronoun]) && [regexp -nocase "(come|cum|ejaculate|squirt)" $item]} {
+                        cum $channel $nick
+                        return 1
+                }
+                if {[rand 4] == 0 || [regexp -nocase "into" $item]} {
+                        set whom "$whom is"
+                        if {$who == "me"} { set whom "you are" }
+                        if {[regexp -nocase "(yourself|you)" $who]} { set whom "I am" }
+                        if [regexp -nocase "into" $item] {
+                                set item [string range $item [expr [string first "into" $item] + 5] end]
+                        }
+                        set hisHers [getHisHers]
+                        bMotionDoAction $channel $hisHers "%VAR{wands}"
+                        bMotionDoAction $channel $whom "*PING* ... %% $item"
+                        if [rand 2] { bMotionDoAction $channel $whom "I AM THE WIZARD%colen" }
+                        bMotionGetHappy
+                        bMotionGetUnLonely
+                        bMotion_putloglev d * "bMotion: Turned someone into $item :P"
+                        return 1
+                }
+        }
+        bMotionDoAction $channel $whom "%VAR{makes}" $item
+        bMotionGetUnLonely
+        bMotion_plugins_settings_set "system" "lastdonefor" $channel "" $nick
+        return 1
 }
 
+proc bMotion_plugin_complex_replicate2 { nick host handle channel text } {
+        global botnicks botnick
+        regexp -nocase "^${botnicks}:?,? (please )?(replicate|create|send|make) (.+?)( for| to) (.+)" $text matches bot please action details f who
 
-proc bMotion_plugin_complex_replicate2 { nick host handle channel text } {
-  global botnicks botnick
-  regexp -nocase "^${botnicks}:?,? (please )?(replicate|create|send|make) (.+?)( for| to) (.+)" $text matches bot please action details f who
+        bMotion_plugin_complex_replicate $nick $host $handle $channel "$botnick $action $who $details"
+        return 1
+}
 
-  bMotion_plugin_complex_replicate $nick $host $handle $channel "$botnick $action $who $details"
-  return 1
+bMotion_abstract_register "makes" {
+        "/replicates %2 and hands it to %%"
+        "/replicates %2 for %%"
+        "/lovingly crafts %2 out of %VAR{sillyThings:strip} for %%"
 }
+
+bMotion_abstract_register "makes_female" {
+        "/pulls %2 out of her magic box for %%"
+}