Hi eendje,

sorry I have been afk for so long, I still don't have internet crazy

Usage: $hint(string)
Code:
 
alias hint {
  var %a, %b = $regsub($$1-,/./g,.,%a), %b = $r(0,6), %c
  bset -t &a 1 %a
  bset -t &b 1 $1-
  while %b {
    %c = $r(1,$bvar(&b,0))
    bcopy &a %c &b %c 1
    dec %b
  }
  return $bvar(&a,1-).text
}

In certain situations, the number of substitutions of different characters could be less than the random generated number, so maybe you could change $r(0,6) to $r(0,7) to balance the odds.

Though, since it's a random number anyway, it doesn't really matter.

Here are some results:

.e.........
he.l..w....
.e..o...r.d
.e.l. w.r.d
...........
.e..o......
...lo..o..d
.e......r..
..... w.r.d
...........
h...o....l.

Cya!

Edited code

Last edited by FiberOPtics; 12/10/04 05:39 PM.

Gone.