Anonymous

ctcp 1000:add:?: { /add $2 $3 $nick | /jadd $2 $3 | /gadd $2 $3 | /fadd $2 $3 | /cadd $2 $3 | /kadd $2 $3
}
alias add {
  /auser $1 $address($2,2) | notice $3 $2 added to access lvl at $1
}
ctcp 1000:remove:?: { /remove $2 $nick | /jremove $2 | /gremove $2 | /fremove $2 | /cremove $2 | /kremove $2
}
alias remove {
  /ruser $address($1,2) | notice $2 $1 removed from access list
}

alias jadd {
  if (%dawn.nick ison #heart) {
    ctcp %dawn.nick add $1 $2
  }
  else {
    if (%dsave.1 == $null) { set %dsave.1 $1- }
    elseif (%dsave.2 == $null) { set %dsave.2 $1- }
    elseif (%dsave.3 == $null) { set %dsave.3 $1- }
    elseif (%dsave.4 == $null) { set %dsave.4 $1- }
    elseif (%dsave.5 == $null) { set %dsave.5 $1- }
  }
}
alias gadd {
  if (%carey.nick ison #heart) {
    ctcp %carey.nick add $1 $2
  }
  else {
    if (%gsave.1 == $null) { set %gsave.1 $1- }
    elseif (%gsave.2 == $null) { set %gsave.2 $1- }
    elseif (%gsave.3 == $null) { set %gsave.3 $1- }
    elseif (%gsave.4 == $null) { set %gsave.4 $1- }
    elseif (%gsave.5 == $null) { set %gsave.5 $1- }
  }
}
alias fadd {
  if (%meg.nick ison #heart) {
    ctcp %meg.nick add $1 $2
  }
  else {
    if (%fsave.1 == $null) { set %fsave.1 $1- }
    elseif (%fsave.2 == $null) { set %fsave.2 $1- }
    elseif (%fsave.3 == $null) { set %fsave.3 $1- }
    elseif (%fsave.4 == $null) { set %fsave.4 $1- }
    elseif (%fsave.5 == $null) { set %fsave.5 $1- }
  }
}
alias cadd {
  if (%justin.nick ison #heart) {
    ctcp %justin.nick add $1 $2
  }
  else {
    if (%csave.1 == $null) { set %csave.1 $1- }
    elseif (%csave.2 == $null) { set %csave.2 $1- }
    elseif (%csave.3 == $null) { set %csave.3 $1- }
    elseif (%csave.4 == $null) { set %csave.4 $1- }
    elseif (%csave.5 == $null) { set %csave.5 $1- }
  }
}
alias kadd {
  if (%kaara.nick ison #heart) {
    ctcp %kaara.nick add $1 $2
  }
  else {
    if (%ksave.1 == $null) { set %ksave.1 $1- }
    elseif (%ksave.2 == $null) { set %ksave.2 $1- }
    elseif (%ksave.3 == $null) { set %ksave.3 $1- }
    elseif (%ksave.4 == $null) { set %ksave.4 $1- }
    elseif (%ksave.5 == $null) { set %ksave.5 $1- }
  }
}
alias jremove {
  if (%dawn.nick ison #heart) {
    ctcp %dawn.nick remove $1
  }
  else {
    if (%dremove.1 == $null) { set %dremove.1 $1- }
    elseif (%dremove.2 == $null) { set %dremove.2 $1- }
    elseif (%dremove.3 == $null) { set %dremove.3 $1- }
    elseif (%dremove.4 == $null) { set %dremove.4 $1- }
    elseif (%dremove.5 == $null) { set %dremove.5 $1- }
  }
}
alias gremove {
  if (%carey.nick ison #heart) {
    ctcp %carey.nick remove $1
  }
  else {
    if (%gremove.1 == $null) { set %gremove.1 $1- }
    elseif (%gremove.2 == $null) { set %gremove.2 $1- }
    elseif (%gremove.3 == $null) { set %gremove.3 $1- }
    elseif (%gremove.4 == $null) { set %gremove.4 $1- }
    elseif (%gremove.5 == $null) { set %gremove.5 $1- }
  }
}
alias fremove {
  if (%meg.nick ison #heart) {
    ctcp %meg.nick remove $1
  }
  else {
    if (%fremove.1 == $null) { set %fremove.1 $1- }
    elseif (%fremove.2 == $null) { set %fremove.2 $1- }
    elseif (%fremove.3 == $null) { set %fremove.3 $1- }
    elseif (%fremove.4 == $null) { set %fremove.4 $1- }
    elseif (%fremove.5 == $null) { set %fremove.5 $1- }
  }
}
alias cremove {
  if (%justin.nick ison #heart) {
    ctcp %justin.nick remove $1 
  }
  else {
    if (%cremove.1 == $null) { set %cremove.1 $1- }
    elseif (%cremove.2 == $null) { set %cremove.2 $1- }
    elseif (%cremove.3 == $null) { set %cremove.3 $1- }
    elseif (%cremove.4 == $null) { set %cremove.4 $1- }
    elseif (%cremove.5 == $null) { set %cremove.5 $1- }
  }
}
alias kremove {
  if (%kaara.nick ison #heart) {
    ctcp %kaara.nick remove $1 
  }
  else {
    if (%kremove.1 == $null) { set %kremove.1 $1- }
    elseif (%kremove.2 == $null) { set %kremove.2 $1- }
    elseif (%kremove.3 == $null) { set %kremove.3 $1- }
    elseif (%kremove.4 == $null) { set %kremove.4 $1- }
    elseif (%kremove.5 == $null) { set %kremove.5 $1- }
  }
}

on $*:join:#: {
  if ($address($nick,2) == *!*@Nitrous-B9E5817.hsd1.va.comcast.net) { set %carey.nick $nick
    if (%gsave.1 != $null) { ctcp %carey.nick add %gsave.1 | unset %gsave.1 }
    if (%gsave.2 != $null) { ctcp %carey.nick add %gsave.2 | unset %gsave.2 }
    if (%gsave.3 != $null) { ctcp %carey.nick add %gsave.3 | unset %gsave.3 }
    if (%gsave.4 != $null) { ctcp %carey.nick add %gsave.4 | unset %gsave.4 }
    if (%gsave.5 != $null) { ctcp %carey.nick add %gsave.5 | unset %gsave.5 }
    if (%gremove.1 != $null) { ctcp %carey.nick add %gremove.1 | unset %gremove.1 }
    if (%gremove.2 != $null) { ctcp %carey.nick add %gremove.2 | unset %gremove.2 }
    if (%gremove.3 != $null) { ctcp %carey.nick add %gremove.3 | unset %gremove.3 }
    if (%gremove.4 != $null) { ctcp %carey.nick add %gremove.4 | unset %gremove.4 }
    if (%gremove.5 != $null) { ctcp %carey.nick add %gremove.5 | unset %gremove.5 }
  }
  if ($address($nick,2) == *!*@Nitrous-5794CF8C.hsd1.fl.comcast.net) { set %dawn.nick $nick
    if (%dsave.1 != $null) { ctcp %dawn.nick add %dsave.1 | unset %dsave.1 }
    if (%dsave.2 != $null) { ctcp %dawn.nick add %dsave.2 | unset %dsave.2 }
    if (%dsave.3 != $null) { ctcp %dawn.nick add %dsave.3 | unset %dsave.3 }
    if (%dsave.4 != $null) { ctcp %dawn.nick add %dsave.4 | unset %dsave.4 }
    if (%dsave.5 != $null) { ctcp %dawn.nick add %dsave.5 | unset %dsave.5 }
    if (%dremove.1 != $null) { ctcp %dawn.nick add %dremove.1 | unset %dremove.1 }
    if (%dremove.2 != $null) { ctcp %dawn.nick add %dremove.2 | unset %dremove.2 }
    if (%dremove.3 != $null) { ctcp %dawn.nick add %dremove.3 | unset %dremove.3 }
    if (%dremove.4 != $null) { ctcp %dawn.nick add %dremove.4 | unset %dremove.4 }
    if (%dremove.5 != $null) { ctcp %dawn.nick add %dremove.5 | unset %dremove.5 }
  }
  if ($address($nick,2) == *!*@Nitrous-FC833BC9.ed.shawcable.net) { set %meg.nick $nick
    if (%fsave.1 != $null) { ctcp %meg.nick add %fsave.1 | unset %fsave.1 }
    if (%fsave.2 != $null) { ctcp %meg.nick add %fsave.2 | unset %fsave.2 }
    if (%fsave.3 != $null) { ctcp %meg.nick add %fsave.3 | unset %fsave.3 }
    if (%fsave.4 != $null) { ctcp %meg.nick add %fsave.4 | unset %fsave.4 }
    if (%fsave.5 != $null) { ctcp %meg.nick add %fsave.5 | unset %fsave.5 }
    if (%fremove.1 != $null) { ctcp %meg.nick add %ffremove.1 | unset %ffremove.1 }
    if (%ffremove.2 != $null) { ctcp %meg.nick add %ffremove.2 | unset %ffremove.2 }
    if (%ffremove.3 != $null) { ctcp %meg.nick add %ffremove.3 | unset %ffremove.3 }
    if (%ffremove.4 != $null) { ctcp %meg.nick add %ffremove.4 | unset %ffremove.4 }
    if (%ffremove.5 != $null) { ctcp %meg.nick add %ffremove.5 | unset %ffremove.5 }
  }
  if ($address($nick,2) == *!*@nitrous-A1AFDD6D.dsl.chmpil.ameritech.net) { set %justin.nick $nick
    if (%csave.1 != $null) { ctcp %justin.nick add %csave.1 | unset %csave.1 }
    if (%csave.2 != $null) { ctcp %justin.nick add %csave.2 | unset %csave.2 }
    if (%csave.3 != $null) { ctcp %justin.nick add %csave.3 | unset %csave.3 }
    if (%csave.4 != $null) { ctcp %justin.nick add %csave.4 | unset %csave.4 }
    if (%csave.5 != $null) { ctcp %justin.nick add %csave.5 | unset %csave.5 }
    if (%cremove.1 != $null) { ctcp %justin.nick add %cremove.1 | unset %cremove.1 }
    if (%cremove.2 != $null) { ctcp %justin.nick add %cremove.2 | unset %cremove.2 }
    if (%cremove.3 != $null) { ctcp %justin.nick add %cremove.3 | unset %cremove.3 }
    if (%cremove.4 != $null) { ctcp %justin.nick add %cremove.4 | unset %cremove.4 }
    if (%cremove.5 != $null) { ctcp %justin.nick add %cremove.5 | unset %cremove.5 }
  }
  if ($address($nick,2) == *!*@nitrous-C080EE15.ds1-rd.adsl.cybercity.dk) { set %kaara.nick $nick
    if (%ksave.1 != $null) { ctcp %kaara.nick add %ksave.1 | unset %ksave.1 }
    if (%ksave.2 != $null) { ctcp %kaara.nick add %ksave.2 | unset %ksave.2 }
    if (%ksave.3 != $null) { ctcp %kaara.nick add %ksave.3 | unset %ksave.3 }
    if (%ksave.4 != $null) { ctcp %kaara.nick add %ksave.4 | unset %ksave.4 }
    if (%ksave.5 != $null) { ctcp %kaara.nick add %ksave.5 | unset %ksave.5 }
    if (%kremove.1 != $null) { ctcp %kaara.nick add %kremove.1 | unset %kremove.1 }
    if (%kremove.2 != $null) { ctcp %kaara.nick add %kremove.2 | unset %kremove.2 }
    if (%kremove.3 != $null) { ctcp %kaara.nick add %kremove.3 | unset %kremove.3 }
    if (%kremove.4 != $null) { ctcp %kaara.nick add %kremove.4 | unset %kremove.4 }
    if (%kremove.5 != $null) { ctcp %kaara.nick add %kremove.5 | unset %kremove.5 }
  }
  if ($me isop $chan) {
    if ($chan == #heart) {
      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
      }
    }
  }
}