Hi eendje,
sorry I have been afk for so long, I still don't have internet
Usage: $hint(string)
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 
