@verb #1005:"jumble" this none this rxd #7153
@program #1005:"jumble" this none this
su = $string_utils
language = args[1]
skill = args[2]
last = args[3][length(args[3])]
punct = last[length(last)] in {".", "?", "!"} ? last[length(last)] | "."
word = ""
mess = ""
if (random(100) <= player.language[2])
  if (random(100) <= skill)
    return $string_utils:from_list(args[3], " ")
  else
    for word in (args[3])
      word = random(100) <= skill ? word | this.(language)[random(length(this.(language)))]
      mess = mess + word + " "
    endfor
  endif
elseif (random(100) <= skill)
  for word in (args[3])
    word = random(100) <= player.language[2] ? word | this.(language)[random(length(this.(language)))]
    mess = mess + word + " "
  endfor
else
  for word in (args[3])
    word = random(100) < skill && random(100) < player.language[2] ? word | this.(language)[random(length(this.(language)))]
    mess = mess + word + " "
  endfor
endif
return mess + (mess[length(mess)] in {".", "?", "!"} ? "" | punct)
"Last modified by Dax (#789) on Wed Jun  3 08:59:34 1998 EDT."
.