Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8278
Modified Files: Tag: devel_0_39 desire.tk Log Message: leetspeak filter in proc say!!!!
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.375 retrieving revision 1.1.2.376 diff -C2 -d -r1.1.2.375 -r1.1.2.376 *** desire.tk 19 Aug 2006 15:35:02 -0000 1.1.2.375 --- desire.tk 19 Aug 2006 16:26:37 -0000 1.1.2.376 *************** *** 411,420 **** }
proc say {k args} { ! global text if {[llength $args]} { set text($k) [lindex $args 0] } { ! if {[info exist text($k)]} {return $text($k)} {return "{{$k}}"} } } --- 411,428 ---- }
+ #temporary + set leet 1 + proc say {k args} { ! global text leet if {[llength $args]} { set text($k) [lindex $args 0] } { ! if {[info exist text($k)]} { ! if {$leet} { ! set l33t [string map -nocase {a 4 e 3 t 7 s 5 i 1 o 0 g 9} $text($k)] ! return $l33t} else {return $text($k)} ! #return $text($k) ! } else {return "{{$k}}"} } } *************** *** 957,963 **** default {concat 1}}] set look(minobjwidth) 21 - set scale(canned) [list 25 33 50 75 100 125 150 200 250 300 400] ! set crosshair(hairstate) 1 set crosshair(hairsnap) 1 #-----------------------------------------------------------------------------------# --- 965,970 ---- default {concat 1}}] set look(minobjwidth) 21 set scale(canned) [list 25 33 50 75 100 125 150 200 250 300 400] ! set crosshair(hairstaste) 1 set crosshair(hairsnap) 1 #-----------------------------------------------------------------------------------#