something like this might work maybe...?

alias randsong {
  if $chan {
    var %temp = $iif($1,$1-,$read(songlist.txt))
    if (%prev.song == $readn) { echo -atg Error ... | halt }
    set %prev.song $readn
    msg $chan %temp
  }
}