on *:START:{
  hmake hlist
}

on *:JOIN:#zantive-support:{
  if ($nick != $me) {
    notice $nick Hello, welcome to $chan $+ , please /msg $me <with a description of your problem here> for faster service.
    hadd hlist $nick
  }
}

on *:TEXT:!next:?:{
  if ($nick isop #zantive-support) {
    if ($hfind(hlist,*,0,w) > 0) {
      set %h.user $hfind(hlist,*,1,w)
      mode #zantive-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:#zantive-support:{
  if ($hfind(hlist,$opnick,1)) {
    hdel hlist $opnick
  }
}
on *:PART:#zantive-support:{
  if ($hfind(hlist,$nick,1)) {
    hdel hlist %h.part
  }