Gets the status of the $nick.

Syntax: $access($nick,#channel) <- You must be in the channel specified. Otherwise, it won't work.

/*
$access
Written by: Siddhant Sutar
Email: siddhantsutar@yahoo.com
IRC: irc.DuelZone.org/irc.netstable.net
*/

alias access {
  if ($isid == $true) {
    var %access.nick = $1, %access.chan = $2, %x = 1
    while (%x <= $nick(%access.chan,0)) {
      if ($nick(%access.chan,%x) == %access.nick) goto access.loop
      else inc %x
    }
    :access.loop
    var %access.pnick = $nick(%access.chan,%x).pnick, %access.get = $remove(%access.pnick,%access.nick)
    if (~ isin %access.get) { .return isfounder }
    if (& isin %access.get) { .return issop }
    if (@ isin %access.get) { .return isop }
    if (% isin %access.get) { .return ishop }
    if (+ isin %access.get) { .return isvoice }
    if (%access.pnick == %access.nick) { .return isreg }
    else return $null
  }
}