way better than one i made

alias Scramble {
remini scramble.ini scramble_game
var %x 1
writeini scramble.ini Scramble_Game Word $1
while (%x <= $len($1)) {
writeini scramble.ini Scramble_game %letter $+ %x $mid($1,%x,1)
inc %x
}
}

alias Unscramble {
var %x 1
set %word $readini(scramble.ini,scramble_game,word)
set %len $len($readini(scramble.ini,scramble_game,word))
while (%x <= %len) {
set %removing $rand(1,$len(%word))
set %unscrambled %unscrambled $+ $mid(%word,%removing,1)
set %word $remove(%word,$mid(%word,%removing,1))
inc %x
}