Mine

alias -l hint {
  if ($len(%trans) > 1) { var %numlet = $ceil( $calc( .2 * $len(%trans) ) ) }
  else { var %numlet 0 }
  %hans = $replace( %trans , a , _ , b , _ , c , _ , d , _ , e , _ , f , _ , g , _ , h , _ , i , _ , j , _ , k , _ , l , _ , m , _ , n , _ , o , _ , p , _ , q , _ , r , _ , s , _ , t , _ , u , _ , v , _ , w , _ , x , _ , y , _ , z , _ , 1 , _ , 2 , _ , 3 , _ , 4 , _ , 5 , _ , 6 , _ , 7 , _ , 8 , _ , 9 , _ , 0 , _ )
  var %i 0
  while (%i < %numlet) {
    var %letr $rand(1,$len(%trans))
    if ($mid(%hans,%letr,1) == _) {
      %hans = $+( $left(%hans,$calc(%letr - 1)) , $mid(%trans,%letr,1) , $right(%hans,$calc($len(%hans) - %letr)) )
      /inc %i
    }
  }
  msg %tchan The hint is %hans
  %hintflag = 1
}