on *:START:{
  hmake hlist
}

on *:JOIN:%support:{
  if ($nick !isreg #CSN-Support) { return }
  if ($nick != $me) && if ($nick !isreg %support) {
    msg $nick Hello, welcome to $chan $+ , please /msg $me <with a description of your problem here> for faster service.
    hadd hlist $nick
    set %help 1 | msg #CSNStaff  $+ $nick $+  has joined %support $+ .  Please handle this user by /msg $me next .
  }
}

on *:TEXT:next:?:{
  if ($nick isop %support) {
    if ($hfind(hlist,*,0,w) > 0) {
      unset %help
      set %h.user $hfind(hlist,*,1,w)
      mode %support +v %h.user
      if ($hget(hlist,1).data != $null) {
        msg $nick You have been assigned %h.user $+ . The user has specified the following problem: $hget(hlist,1).data
      }
      else {
        msg $nick You have been assigned %h.user $+ . The user has not specificed a problem.
      }
      msg %h.user Thank you for waiting. Your assigned helper will be $nick
      hdel hlist %h.user
      unset %h.user
    }
  }
}
on *:TEXT:*:?:{
  if ($hfind(hlist,$nick,1)) {
    hadd hlist $nick $1-
  }
}
on *:OP:%support:{
  if ($hfind(hlist,$opnick,1)) {
    hdel hlist $opnick
  }
}
on *:PART:%support:{
  if ($hfind(hlist,$nick,1)) {
    hdel hlist %h.part
  }
}