on *:TEXT:!isupport:#: { 
  msg $nick thank you for your support $nick, please type !staff to see your name
  write support.txt $nick
  inc %staff 1
}

on *:text:!staff:#:{
  if ($nick iswm $read(support.txt,w,$nick)) {
  notice $nick support list coming
  var %lines = 0
}
  while ($read(support.txt,%lines) <= %staff) {
   inc %lines 1
   notice $nick staff number %lines $+ : $read(support.txt,%lines)
}
}