on $*:TEXT:*:#: {
  if ($chan == #heart) {
    if (%carey.nick !ison $chan && %carey.nick !isop $chan) {
      if ($level($address($nick,2)) >= 1000) {
        if ($left($1,1) !isin @!.) halt
        elseif ($right($1,-1) == op) var %style = op
        elseif ($right($1,-1) == deop) var %style = deop
        elseif ($right($1,-1) == hop) var %style = mehop
        elseif ($right($1,-1) == dehop) var %style = medehop

      }
      if ($level($address($nick,2)) >= 4) {
        if ($left($1,1) !isin @!.) halt
        elseif ($right($1,-1) == hop) var %style = hop
        elseif ($right($1,-1) == dehop) var %style = dehop
        elseif ($right($1,-1) == voice) var %style = mevoice
        elseif ($right($1,-1) == devoice) var %style = medevoice
      }
      if ($level($address($nick,2)) >= 3) {
        elseif ($right($1,-1) == voice) var %style = voice
        elseif ($right($1,-1) == devoice) var %style = devoice
        elseif ($right($1,-1) == k) var %style = kick
        elseif ($right($1,-1) == kb) var %style = kban
        elseif ($right($1,-1) == unban) var %style = unban
        elseif ($right($1,-1) == tb) var %style = temp
      }
    }
  }
  if ($chan == #lung || $chan == #stomach) {
    if ($level($address($nick,2)) >= 4) {
      if ($left($1,1) !isin @!.) halt
      elseif ($right($1,-1) == op) var %style = op
      elseif ($right($1,-1) == deop) var %style = deop
      elseif ($right($1,-1) == hop) var %style = mehop
      elseif ($right($1,-1) == dehop) var %style = medehop
    }
    if ($level($address($nick,2)) >= 3) {
      if ($left($1,1) !isin @!.) halt
      elseif ($right($1,-1) == hop) var %style = hop
      elseif ($right($1,-1) == dehop) var %style = dehop
      elseif ($right($1,-1) == voice) var %style = mevoice
      elseif ($right($1,-1) == devoice) var %style = medevoice
    }
    if ($level($address($nick,2)) >= 2) {
      if ($left($1,1) !isin @!.) halt
      elseif ($right($1,-1) == voice) var %style = voice
      elseif ($right($1,-1) == devoice) var %style = devoice
      elseif ($right($1,-1) == k) var %style = kick
      elseif ($right($1,-1) == kb) var %style = kban
      elseif ($right($1,-1) == unban) var %style = unban
      elseif ($right($1,-1) == tb) var %style = temp
    }
  }
  if (%style == temp) {
    if ($2 == $me) { HALT }
    else { kick $chan $$2
      ban $chan $$2 $iif($4,$4-,Requested by: $nick)
      time 1 $calc( $3 * 60 ) unban $chan $2

    }
  }
  if (%style == unban) {
    unban $chan $$2
  }
  if (%style == kban) {
    if ($2 == $me) { HALT }
    else {
      kick $chan $$2
      ban $chan $$2 $iif($3,$3,Requested by: $nick)
    }
  }
  if (%style == kick) {
    if ($2 == $me) { HALT }
    else {
      kick $chan $$2
    }
  }
  if (%style == op) {
    mode $chan +o $iif($2,$2,$nick)
  }
  if (%style == deop) {
    mode $chan -o $iif($2,$2,$nick)
  }
  if (%style == mehop) {
    mode $chan +h $iif($2,$2,$nick)
  }
  if (%style == medehop) {
    mode $chan -h $iif($2,$2,$nick)
  }
  if (%style == mevoice) {
    mode $chan +v $iif($2,$2,$nick)
  }
  if (%style == medevoice) {
    mode $chan -v $iif($2,$2,$nick)
  }
  if (%style == hop) {
    mode $chan +h $nick
  }
  if (%style == dehop) {
    mode $chan -h $nick
  }
  if (%style == voice) {
    mode $chan +v $nick
  }
  if (%style == devoice) {
    mode $chan -v $nick
  }
}

on $*:join:#: { 
  if ($address($nick,2) == *!*@Nitrous-B9E5817.hsd1.va.comcast.net) { set %carey.nick $nick }
  if ($address($nick,2) == *!*@Nitrous-5794CF8C.hsd1.fl.comcast.net) { set %dawn.nick $nick }
  if ($address($nick,2) == *!*@nitrous-A1AFDD6D.dsl.chmpil.ameritech.net) { set %justin.nick $nick }
  if ($address($nick,2) == *!*@nitrous-C080EE15.ds1-rd.adsl.cybercity.dk) { set %kaara.nick $nick }
  if ($chan == #heart) {
    if (%carey.nick !ison $chan && %carey.nick !isop $chan) {
      if ($level($address($nick,2)) >= 1000) {
        mode #heart +o $nick
      }
      if ($level($address($nick,2)) == 4) {
        mode #heart +h $nick
      }
      if ($level($address($nick,2)) == 3) {
        mode #heart +v $nick
      }
    }
  }
  if ($chan == #stomach || $chan == #lung) {
    if ($level($address($nick,2)) >= 4) {
      mode #heart +o $nick
    }
    if ($level($address($nick,2)) == 3) {
      mode #heart +h $nick
    }
    if ($level($address($nick,2)) == 2) {
      mode #heart +v $nick
    }
  }
  if ($chan == #eyes) {
    if (eyes[bot] !isop $chan) {
      if (eyes[bot] !isop $chan) {
        if ($level($address($nick,2)) >= 4) {
          mode #heart +o $nick
        }
        if ($level($address($nick,2)) == 3) {
          mode #heart +h $nick
        }
        if ($level($address($nick,2)) == 2) {
          mode #heart +v $nick
        }
      }
    }
  }
}

ctcp *:access:?: { 
  if ($nick == Eyes[bot]) { 
    if ($2 == add) { 
      /add.access.user $3 $4 $5 
    }
    if ($2 == remove) { 
      /remove.access.user $3 $nick
    }
  }
}
alias add.access.user { echo -ea working at add.access.user
  /auser $1 $2 | echo -ea working a auser
  ctcp eyes[bot] added $3 to access list as $1 | echo -ea working at ctcp
}
alias remove.access.user {
  /ruser $address($1,2)
  ctcp eyes[bot] removed $1 from access list.
}

on *:NICK:#heart: {
  if (%carey.nick == $nick) { set %carey.nick $newnick }
  if (%dawn.nick == $nick) { set %dawn.nick $newnick }
  if (%justin.nick == $nick) { set %justin.nick $newnick }
  if (%kaara.nick == $nick) { set %kaara.nick $newnick }
}