This dialog takes some text you input and puts it in a random order. You can click Say to say it in a channel. It's only for fun. :P

dialog RText {
  Title "Randomize Text"
  Size -1 -1 150 150
  option dbu
  edit "", 1, 0 40 150 30,center,default
  button "Randomize", 2, 60 10 30 30,disable
  edit "", 3, 0 80 150 30,read,center
  button "Clear", 4, 105 10 30 30
  button "Exit", 5, 55 120 30 30,ok
  button "Say", 6, 15 10 30 30,disable
}
on *:DIALOG:RText:sclick:2: {
  var %t 1 
  while ($gettok($did(rtext,1),%t,32)) { 
    var %total = $instok(%total,$v1,$r(1,$numtok($1-,32)),32) 
    inc %t
  }
  if ($did(RText,3)) {
    did -r RText 3
  }
  did -a RText 3 $replace(%total,$chr(160),$chr(32))
  did -e rtext 6
}
on *:DIALOG:RText:edit:1: {
  if ($did(rtext,1)) {
    did -e rtext 2
  }
  else {
    did -b rtext 2
  }
}
on *:DIALOG:RText:sclick:4: {
  did -r RText 1
  did -r RText 3
  did -b rtext 6
  did -b rtext 2
}
alias RText {
  dialog -m RText RText
}
menu channel {
  Randomize Text:/RText
}
on *:DIALOG:RText:sclick:6: {
  if ($did(RText,3)) {
    var %chan $input(Please enter the channel name or a nick:,aeo,Randomize Channel)
    msg %chan $did(RText,3)
    did -r RText 3
    did -a RText 3 Message sent to %chan
  }
  else {
    did -r RText 3
    did -a RText 3 You must press "Randomize" first
  }
}