Description: made to hide the truth!

This one is for you eggnog!  I noticed you saying some bad things about me and decided I needed to say some bad things about you, but I didn't want to hurt anyone's eyes, so I made this script.

By default it doesn't censor spaces but with the $censor(stuff goes here).all property, you can censor everything :)

if anything, I guess this script can be used for password stuff not in a dialog, since dialogs with the text edit box can be set for passwords.  Or cussing at people and enjoying the satisfaction that comes with only you knowing what you said.

alias censor {
  var %i 1
  var %line $replace($1-,$chr(32),$chr(160))
  var %temp $null
  while %i <= $len($1-) {
    if ($mid([ %line ],[ %i ],1) != $chr(160)) || ($prop == all) {
      var %temp %temp $+ *
    }
    else {
      var %temp %temp $+ $chr(160)
    }
    inc %i
  }
  var %temp $replace([ %temp ],$chr(160),$chr(32))
  return %temp
}

Oops! You need to login or register before you can post a comment!