Type !setjoin, !viewjoin, !deljoin.

Have fun.

-Hawk/Tyler

on *:TEXT:*:#: {
  if ($1 == !setjoin) {
    if (!$2) { notice $nick Syntax. !setjoin [setjoin message]. | halt }
    if ($chr(36) isin $2-) { notice $nick Setjoin denied. Not allowing " $+ $chr(36) $+ ". | halt }
    writeini Setjoins.ini Setjoins $nick $2-
    notice $nick Setjoin has been saved.
  }
  if ($1 == !viewjoin) { 
    if ($readini(Setjoins.ini, Setjoins, $nick) == $null) { notice $nick No setjoin has been saved for you. Type !setjoin [message]. | halt }
    notice $nick Your setjoin: $readini(Setjoins.ini, Setjoins, $nick)
  }
  if ($1 == !deljoin) {
    if ($readini(Setjoins.ini, Setjoins, $nick) == $null) { notice $nick No setjoin has been saved for you. Type !setjoin [message]. | halt }
    remini Setjoins.ini Setjoins $nick
    notice $nick Setjoin has been removed.
  }
}
on *:JOIN:#: {
  set %rand $rand(1,11)
  if ($readini(Setjoins.ini, Setjoins, $nick) == $null) { notice $nick No setjoin has been saved for you. Type !setjoin [message]. | halt }
  msg $chan  $+ %rand $+ .:[ $+ $nick $+ ]:. $readini(Setjoins.ini, Setjoins, $nick)
}