Forums Scripts & Popups How can i make bot create random words

  
alias gibberish {
  var %text = $$1-
  var %count = $gettok(%text,0,32)
  var %i = 1
  var %x, %line, %letter, %len, %word
  while (%i <= %count) {
    var %x = 1
    var %len = $len($gettok(%text,%i,32))
    while (%x <= %len) {
      var %letter = $mid($gettok(%text,%i,32),%x,1)
      if ($isupper(%letter) == $true) { %letter = $chr($r(65,90)) }
      if ($islower(%letter) == $true) { %letter = $chr($r(97,122)) }
      var %word = %word $+ %letter
      inc %x
    }
    var %line = %line %word
    var %word = ""
    inc %i
  }
  say %line
}

alias /cFw {
  if ($1 isnum) {
   var %max = $1
   while ($len(%tmp) <= %max) {
   var %tmp = %tmp $+ $rand(a,z)
  }
  return %tmp
 }
}

alias cFw  {
    if ($1 !isnum) return
    var %tmp = $rand(A,Z)
    while ($len(%tmp) <= $1)  %tmp = %tmp $+ $rand(a,z)
    return %tmp
}