Changeset 269 for trunk/modules/extra/jeffk.tcl

Timestamp:

09/17/03 11:32:02 (9 years ago)

Author:

jamesoff

Message:

accept global +K flag as well as local

File:

• trunk/modules/extra/jeffk.tcl (modified) (2 diffs)

trunk/modules/extra/jeffk.tcl

@@ -1 +1 @@
 # $Id$
+
 #
 
-###############################################################################
-# This is a bMotion plugin
-# Copyright (C) James Michael Seward 2000-2002
-#
-# This program is covered by the GPL, please refer the to LICENCE file in the
-# distribution; further information can be found in the headers of the scripts
-# in the modules directory.
+
+
 ###############################################################################
 
+# This is a bMotion plugin
+
+# Copyright (C) James Michael Seward 2000-2002
+
+#
+
+# This program is covered by the GPL, please refer the to LICENCE file in the
+
+# distribution; further information can be found in the headers of the scripts
+
+# in the modules directory.
+
+###############################################################################
+
+
+
 proc bMotion_module_extra_jeffk { line } {
+
 
   set line [string map -nocase {"hello" "helko" "n\'t" "ant" "sy" "sey" "is" "si"} $line]
@@ -18 +31 @@
   set line [string map -nocase {"name" "naem" "ll" "l" "ly" "ley"} $line]
   set line [string map -nocase {"ble" "bal" "word" "wrod" "inter" "intar" "lay" "alay" "luck" "luick" "here" "hear"} $line]
-  set line [string map {"!" "%REPEAT{2:5:!}%REPEAT{1:2:1}"} $line]
-  set line [string map {"?" "%REPEAT{2:5:?}%REPEAT{1:2:/}"} $line]
+  set line [string map {"!" "%REPEAT{2:5:!}"} $line]
+  set line [string map {"?" "%REPEAT{2:5:?}"} $line]
   
   if {![rand 8]} {