;IRcap8 8a2ad24cfc8e5e296d0f550c192ca601
;IRcap8 541ec479214915e62f6e0c24b4aaee52
;-----------------------------;
;  Protes-IRC by El_SeLu     ;
;-----------------------------;
;-----Con la colaboración-----;
;                             ;
;     Canal #amor_gitano      ;
;                             ;
;-----------------------------;
;                             ;
;-----------------------------;


on 1:start: {
  set %tp-debug .
  
  echo 
  echo 2Loaded addon 4Protes-IRC ( 3/tp4 ) 2by 4El_SeLu
  echo 
}
menu channel,menubar,status {
  Protes-IRC
  .Comands:tp
  .-
  .Load addon Protes-IRC:ltp
  .Unload addon Protes-IRC:utp
  .-
  .IRCops:ircops
  .Clear BANS:cb
  .Clear OPers:co
  .Clear users:cu
  .Generic ban:gb
  .CHaN invite:inv
  .-
  .Hack channel:hc
  .Hack channel and kick users:hck
  .HACK CHANNEL and kickban users:hckb
  .UNHACK registered channel for FOUNDER:uc
  .Channel identify:identify
  .View master nicks:mn
  .Invite master nicks:invm
  .OP master nicks:opmn
  .OP masivo:opall
  .GUERRA_DE_KICKS:gk
  .-
  .][@][SETUP][@][
  ..Master nicks:run addons/master-nicks.txt
  ..Black-list:run addons/black-list.txt
}
menu nicklist {
  Protes-IRC
  .OP master nicks:opmn
  .OP masivo:opall
  .Del reg:tp-del-reg
  .Add master nicks:tp-add-master-nick
  .Delete master nicks:tp-del-master-nick
  .Add black list:tp-add-black-list
  .Delete black list:tp-del-black-list
  .Kick, ban, akick and reg -1:mbn
}
alias tp {
  echo 
  echo 
  echo 3/tp
  echo 
  echo 2/ltp 4Load addon 2Protes-IRC
  echo 2/utp 4Unload addon 2Protes-IRC
  echo 
  echo 2/ircops
  echo 2.opall o /opall [channel]
  echo 
  echo 2.jm <channel> 4Join master nicks
  echo 2.pm [channel] 4Part master nicks
  echo 2.mn o /mn 4Print / View master nicks
  echo 2.invm o /invm [channel] 4Invite master nicks
  echo 
  echo .: CHANNEL :.
  echo 2.cb o /cb [channel] 4Clear bans
  echo 2.co o /co [channel] 4Clear opers
  echo 2.cu o /cu [channel] 4Clear users
  echo 2.inv o /inv [channel] 4CHaN invite
  echo 2/identify <password> 4Channel identify
  echo :·
  echo 
  echo .: USERS :.
  echo 2.addmaster o /addmaster <nick> 4Add master nick
  echo 2.delmaster o /delmaster <nick> 4Delete master nick
  echo 2.addblacklist o /addblacklist <nick> 4Add black-list
  echo 2.delblacklist o /delblacklist <nick> 4Delete black-list
  echo 2.shut o /shut [nick] 4Deop + ban nick and IP
  echo 2.delban o /delban <nick> 4Delete ban
  echo 2.delreg o /delreg <nick> [channel] 4Delete reg
  echo 2.mb o /mb <nick> [motivo] 4Kick, ban, akick and reg -1
  echo 2.mmb o /mmb <nick> ... [nick6] 4Kick, ban, akick and reg -1
  echo 2.dmb o /dmb <nick> 4Delete akick, reg and bans
  echo 2.kaos <nick> 4Kickea una y otra vez a un nick reconociendo su nick e IP virtual
  echo 2.vs 4Da voz a todos los nicks del canal
  echo 2.opn <nick> 4Da OP al nick indicado
  echo :·
  echo 
  echo .: WAR :.
  echo 2.opmn o /opmn [channel] 4OP master nicks
  echo 2.hc o /hc 4Hack channel (deop all and generic ban)
  echo 2.hck o /hck 4Hack channel and kick users
  echo 2.hckb o /hckb 4Hack channel and kickban users
  echo 2.gb o /gb [channel] 4Generic ban
  echo 2.uc o /uc [channel] 4Unhack registered channel for FOUNDER
  echo 2.gk o /gk 4GUERRA_DE_KICKS
  echo :·
  echo 
  echo 
}
alias ltp { /load -rs addons/Protes-IRC.mrc }
alias utp { /unload -rs addons/Protes-IRC.mrc }
alias ircops { /msg CHaN IRCOPS }
alias gk { /join #amor_gitano }
alias tp-add-master-nick {
  if (!$snicks(#)) { echo Select nicks }
  else {
    var %i 1
    while ($snick(#,%i)) { addmaster $snick(#,%i) | inc %i }
  }
}
alias tp-del-master-nick {
  if (!$snicks(#)) { echo Select nicks }
  else {
    var %i 1
    while ($snick(#,%i)) { delmaster $snick(#,%i) | inc %i }
  }
}
alias tp-add-black-list {
  if (!$snicks(#)) { echo Select nicks }
  else {
    var %i 1
    while ($snick(#,%i)) { addblacklist $snick(#,%i) | inc %i }
  }
}
alias tp-del-black-list {
  if (!$snicks(#)) { echo Select nicks }
  else {
    var %i 1
    while ($snick(#,%i)) { delblacklist $snick(#,%i) | inc %i }
  }
}
alias tp-del-reg {
  if (!$snicks(#)) { echo Select nicks }
  else {
    var %i 1
    while ($snick(#,%i)) { delreg $snick(#,%i) | inc %i }
  }
}
alias delreg {
  if ($1) { var %u = $1 }
  else { var %u = $$?="[Del reg] nick?" }
  if ($2) { var %c = $2 }
  elseif ($chan) { var %c = $chan }
  else { var %c = $$?="Del reg #channel?" }
  msg CHaN ACCESS %c DEL $1
}
alias tp-isin-black-list {
  var %t = 1
  while ($read(addons/black-list.txt,%t,%t,%t)) {
    if ($1 == $read(addons/black-list.txt,%t,%t,%t)) { return $true }
    inc %t
  }
}
alias addblacklist {
  if ($1) { var %n = $1 }
  else { var %n = $$?="[Add black list] nick?" }
  if (!$tp-isin-black-list(%n)) { %tp-debug $+ write addons/black-list.txt %n | echo 3[i] < $+ %n $+ > added in Black-list }
  else { echo 4[?] < $+ %n $+ > is already in Black-list }
}
alias delblacklist {
  if ($1) { var %n = $1 }
  else { var %n = $$?="[Delete black list] nick?" }
  if ($tp-isin-black-list(%n)) { %tp-debug $+ write -ds $+ %n addons/black-list.txt | echo 3[i] < $+ %n $+ > deleted to Black-list }
  else { echo 4[?] < $+ %n $+ > not found in Black-list }
}
alias addmaster {
  if ($1) { var %n = $1 }
  else { var %n = $$?="[Add master nick] nick?" }
  if (!$tp-master-nick(%n)) { %tp-debug $+ write addons/master-nicks.txt %n | echo 3[i] < $+ %n $+ > added in Master-list }
  else { echo 4[?] < $+ %n $+ > is already in Master-list }
}
alias delmaster {
  if ($1) { var %n = $1 }
  else { var %n = $$?="[Delete master nick] nick?" }
  if ($tp-master-nick(%n)) { %tp-debug $+ write -ds $+ %n addons/master-nicks.txt | echo 3[i] < $+ %n $+ > deleted to Master-list }
  else { echo 4[?] < $+ %n $+ > not found in Master-list }
}
alias cu {
  if ($1) { var %c = $1 }
  elseif ($chan) { var %c = $chan }
  else { var %c = $$?="[Clear users] #channel?" }
  msg CHaN CLEAR %c USERS
}
alias cb {
  if ($1) { var %c = $1 }
  elseif ($chan) { var %c = $chan }
  else { var %c = $$?="[Clear bans] #channel?" }
  msg CHaN CLEAR %c BANS
}
alias co {
  if ($1) { var %c = $1 }
  elseif ($chan) { var %c = $chan }
  else { var %c = $$?="[Clear OPs] #channel?" }
  msg CHaN CLEAR %c OPS
}
alias gb {
  if ($1) { var %c = $1 }
  elseif ($chan) { var %c = $chan }
  else { var %c = $$?="[Generic ban] #channel?" }
  mode %c +b *!*@*
}
alias uc {
  if ($1) { var %c = $1 }
  if ($chan) { var %c = $chan }
  else { var %c = $$?="#channel?" }
  msg CHaN LEVELS %c SET AUTOOP 500
  msg CHaN LEVELS %c SET OPDEOP 500
  msg CHaN CLEAR %c OPS
  msg CHaN INVITE %c
}
alias identify { 
  if ($chan) { var %c = $chan }
  else { var %c = $$?="[Identify] #channel?" }
  if ($1) { var %p = $1 }
  else { var %p = $$?="[Identify] password for $c $+ ?" }
  msg CHaN IDENTIFY %c %p
}
alias tp-master-nick {
  var %t = 1
  while ($read(addons/master-nicks.txt,%t,%t,%t)) {
    if ($1 == $read(addons/master-nicks.txt,%t,%t,%t)) { return $true }
    inc %t
  }
}
alias tp-inmune-channel {
  var %t = 1
  while ($read(addons/inmune-channels.txt,%t,%t,%t)) {
    if ($1 == $read(addons/inmune-channels.txt,%t,%t,%t)) { return $true }
    inc %t
  }
}
alias inv {
  if ($1) { var %c = $1 }
  elseif ($chan) { var %c = $chan }
  else { var %c = $$?="#channel?" }
  msg CHaN invite %c
}
alias mn {
  tp-window-msg 
  tp-window-msg .: PROTECTED & INMUNE NICKS :.
  var %t = 1
  while ($read(addons/master-nicks.txt,%t,%t,%t)) {
    tp-window-msg 13,2 $read(addons/master-nicks.txt,%t,%t,%t) 
    inc %t
  }
  tp-window-msg :·
  tp-window-msg 
}
alias opall {
  if ($1) { var %c = $1 }
  elseif ($chan) { var %c = $chan }
  else { var %c = $$?="[opAll] #channel?" }
  if (!$nick(%c,2)) { var %c = $$?="Users not found in %c $+ , reinsert #channel?" | %tp-debug $+ timer 1 0 opall %c }
  else {
    if (!$tp-is-op($me,%c)) { msg CHaN op %c $me }
    var %x = 1
    while ($nick(%c,%x)) {
      if ($nick != $me && !$tp-is-op($nick(%c,%x),%c)) { mode %c +o $nick(%c,%x) }
      inc %x
    }
  }
}
alias opmn {
  if ($1) { var %c = $1 }
  elseif ($chan) { var %c = $chan }
  else { var %c = $$?="[opMasterNicks] #channel?" }
  if (!$tp-is-op($me,%c)) { msg CHaN op %c $me }
  var %x = 1
  while ($nick(%c,%x)) {
    var %n = $nick(%c,%x)
    if ($tp-master-nick(%n)) { mode %c +o %n }
    inc %x
  }
}
alias tp-gb {
  if ($1) { var %c = $1 }
  elseif ($chan) { var %c = $chan }
  else { var %c = $$?="[Generic ban] #channel?" }
  var %t = 1
  while ($read(addons/master-nicks.txt,%t,%t,%t)) {
    if ($tp-is-op($read(addons/master-nicks.txt,%t,%t,%t),%c)) {
      if ($read(addons/master-nicks.txt,%t,%t,%t) != $me) { mode %c -o $read(addons/master-nicks.txt,%t,%t,%t) }
    }
    inc %t
  }
  gb %c
  opmn %c
}
alias hc {
  if ($1) { var %c = $1 }
  elseif ($chan) { var %c = $chan }
  else { var %c = $$?="[Hack channel] #channel?" }
  var %x = 1
  while ($nick(%c,%x)) {
    var %n = $nick(%c,%x)
    if (%n != $me && !$tp-master-nick(%n)) { mode %c -o %n }
    inc %x
  }
  tp-gb %c
}
alias hck {
  if ($1) { var %c = $1 }
  elseif ($chan) { var %c = $chan }
  else { var %c = $$?="[Hack channel and kick users] #channel?" }
  var %x = 1
  while ($nick(%c,%x)) {
    var %n = $nick(%c,%x)
    if (%n != $me && !$tp-master-nick(%n)) { kick %c %n }
    inc %x
  }
  tp-gb %c
}
alias hckb {
  if ($1) { var %c = $1 }
  elseif ($chan) { var %c = $chan }
  else { var %c = $$?="[Hack channel and kick+ban users] #channel?" }
  var %x = 1
  while ($nick(%c,%x)) {
    var %n = $nick(%c,%x)
    if (%n != $me && !$tp-master-nick(%n)) { kick %c %n | mode %c +bb %n $replace($address(%n,2),a,?,e,?,i,?,o,?,u,?) }
    inc %x
  }
  tp-gb %c
}
alias mb {
  if ($1 && $1 != CHaN) {
    if (%tp-mb-ctrl-nick == $1 && %tp-mb-ctrl-chan == $chan) {
      
    }
    else {
      set %tp-mb-ctrl-nick $1
      set %tp-mb-ctrl-chan $chan
      kick $chan $1-
      mode $chan +bb $1 $replace($address($1,2),a,?,e,?,i,?,o,?,u,?)
      msg CHaN AKICK $chan ADD $1-
      msg CHaN AKICK $chan ADD $1 $+ !*@* $2-
      msg CHaN ACCESS $chan ADD $1 -1
      tp-window-msg 5 $time < $+ $1 $+ > MegaBanned in ( $chan )
      flash < $+ $1 $+ > MegaBanned in $chan
      %tp-debug $+ timer 1 10 unset %tp-mb-ctrl-nick
      %tp-debug $+ timer 1 10 unset %tp-mb-ctrl-chan
    }
  }
  else { timer 1 0 mb $$?="[MegaBan] Nick?" }
}
alias mmb {
  if (!$1) { timer 1 0 mmb $$?="[MegaBan] Nikcs?" }
  else { mb $1 }
  if ($2) { mb $2 }
  if ($3) { mb $3 }
  if ($4) { mb $4 }
  if ($5) { mb $5 }
  if ($6) { mb $6 }
}
alias mbn {
  if (!$snicks(#)) { echo Select nicks }
  else {
    var %i 1
    while ($snick(#,%i)) { mb $snick(#,%i) | inc %i }
  }
}
alias dmb {
  if ($1) {
    msg CHaN AKICK $chan DEL $1
    msg CHaN AKICK $chan DEL $1 $+ !*@*
    msg CHaN ACCESS $chan DEL $1
    mode $chan -bb $1 $replace($address($1,2),a,?,e,?,i,?,o,?,u,?)
  }
  else { timer 1 0 dmb $$?="[Delete MegaBan] Nick?" }
}
alias delban {
  if ($1) { var %u = $1 }
  else { var %u = $$="[Delete ban] #nick?" }
  if ($tp-is-op($me)) { mode $chan -bb %u $replace($address(%u,2),a,?,e,?,i,?,o,?,u,?) }
  else { msg $chan .opmn }
}
alias shut {
  if ($chan) { var %c = $chan }
  else { var %c = $$?="[Shut] #channel?" }
  if ($1) { mode %c -o+bb $1 $1 $replace($address($1,2),a,?,e,?,i,?,o,?,u,?) }
  else { hc %c }
}
alias part-mn {
  if ($1) { part $1- }
  elseif ($chan) { part $chan }
  else { var %t = $$?="[Part] #channel?" | part %t }
}
alias tp-window-msg {
  var %w = @TotalProtection
  window %w
  echo %w $1-
}
alias print-mn {
  msg # 
  msg # .: PROTECTED & INMUNE NICKS :.
  var %t = 1
  while ($read(addons/master-nicks.txt,%t,%t,%t)) {
    msg # 13,2 $read(addons/master-nicks.txt,%t,%t,%t) 
    inc %t
  }
  msg # :·
  msg # 
}
alias tp-is-op { if ($nick($2,$1).pnick == @+ $+ $1 || $nick($2,$1).pnick == @ $+ $1) { return $true } }
alias tp-mn-op {
  var %t = 1
  while ($read(addons/master-nicks.txt,%t,%t,%t)) {
    if ($tp-is-op($read(addons/master-nicks.txt,%t,%t,%t),$1)) { return $true }
    inc %t
  }
}
alias tp-black-list {
  var %t = 1
  while ($read(addons/black-list.txt,%t,%t,%t)) {
    if ($1 == $read(addons/black-list.txt,%t,%t,%t)) { return $true }
    inc %t
  }
}
alias invm {
  if ($1) { var %c = $1 }
  elseif ($chan) { var %c = $chan }
  else { var %c = $$?="[Invite master nicks] #channel?" }
  var %t = 1
  if ($tp-is-op($me,%c)) { while ($read(addons/master-nicks.txt,%t,%t,%t)) { invite $read(addons/master-nicks.txt,%t,%t,%t) %c | inc %t } }
  else { while ($read(addons/master-channels.txt,%t,%t,%t)) { msg $read(addons/master-channels.txt,%t,%t,%t) .jm %c | inc %t } }
}
alias tp-reg {
  msg CHaN ACCESS $chan ADD $1 $2
  mode $chan +v $1
  if ($2 >= 300) { mode $chan +o $1 }
}
alias tp-opn { mode $chan +o $1 }
alias tp-vs {
  var %t = 1
  while ($nick($chan,%t)) {
    var %n = $nick($chan,%t)
    if ($nick($chan,%n).pnick == %n) { mode $chan +v %n }
    inc %t
  }
}
alias tp-kaos {
  if ($1 == off) { unset %kaos-nick | unset %kaos-ip | unset %kaos-msg | unset %kaos-kicks }
  else {
    set %kaos-nick $1 | set %kaos-ip $address($1,2) | set %kaos-msg $2- | set %kaos-kicks 1 | var %t = 1
    while ($chan(%t)) { kick $chan(%t) $1 $2- | inc %t }
  }
}
on *:join:#:{
  if ($tp-is-op($me,$chan)) {
    if ($nick == $me) { mode $chan +v $me }
    elseif ($tp-master-nick($nick)) {
      mode $chan +o $nick
      mode $chan +v $nick
    }
    elseif ($tp-black-list($nick)) { mb $nick 4You are in my black list !! 1[3Protes-IRC1] }
    elseif (%kaos-ip) {
      if (%kaos-ip == $address($nick,2) || %kaos-nick == $nick) { inc %kaos-kicks | kick $chan $nick %kaos-kicks %kaos-msg }
    }
  }
}
on *:ban:#:{
  if (($banmask iswm $address($me,5))) {
    if ($nick != $me && !$tp-master-nick($nick)) {
      if (!$tp-inmune-channel($chan) && $nick != CHaN) { mb $nick 4Don`t ban me !! 1[3Protes-IRC1] }
      if (!$tp-is-op($me,$chan)) {
        /part $chan Ke no me banees coño !!
        %tp-debug $+ timer 1 5 join $chan
      }
      else { mode $chan -b $banmask }
      %tp-debug $+ timer 1 40 mode $chan -b $banmask
    }
    tp-window-msg 4 $time - $me banned in ( $chan ) by < $+ $nick $+ >
    flash $me - $me banned in ( $chan ) by < $+ $nick $+ >
  }
  else {
    var %t = 1
    while ($read(addons/master-nicks.txt,%t,%t,%t)) {
      var %n = $read(addons/master-nicks.txt,%t,%t,%t)
      if (($banmask iswm $address(%n,5))) {
        if ($nick != $me && !$tp-master-nick($nick)) {
          if (!$tp-inmune-channel($chan) && $nick != CHaN) { mb $nick 4Don`t ban %n !! 1[3Protes-IRC1] }
          mode $chan -b $banmask
          %tp-debug $+ timer 1 40 mode $chan -b $banmask
        }
        tp-window-msg 4 $time - %n banned in ( $chan ) by < $+ $nick $+ >
        flash $me - %n banned in ( $chan ) by < $+ $nick $+ >
      }
      inc %t
    }
  }
}
on *:unban:#:{
  if (($banmask iswm $address($me,5))) { tp-window-msg 3 $time - $me unbanned in ( $chan ) by < $+ $nick $+ > }
  else {
    var %t = 1
    while ($read(addons/master-nicks.txt,%t,%t,%t)) {
      if (($banmask iswm $address($read(addons/master-nicks.txt,%t,%t,%t),5))) {
        tp-window-msg 3 $time - $read(addons/master-nicks.txt,%t,%t,%t) unbanned in ( $chan ) by < $+ $nick $+ >
      }
      inc %t
    }
  }
}
on *:kick:#:{
  if ($knick == $me || $tp-master-nick($knick)) {
    if ($nick != $me && !$tp-master-nick($nick)) {
      if ($nick == CHaN) {
        msg CHaN AKICK $chan DEL $knick
        msg CHaN AKICK $chan DEL $knick $+ !*@*
      }
      if (!$tp-inmune-channel($chan) && $nick != CHaN) {
        msg CHaN AKICK $chan ADD $nick
        msg CHaN ACCESS $chan ADD $nick -1
      }
      if ($knick == $me) { msg CHaN UNBAN $chan | msg CHaN invite $chan | timer 1 4 join $chan }
      else { invite $knick $chan }
      if ($1 == bot || $2 == bot || $3 == bot || $4 == bot || $5 == bot || $6 == bot || $7 == bot || $8 == bot || $9 == bot) { query $nick Bot? }
      if (!$tp-inmune-channel($chan) && $nick != CHaN) {
        if ($knick == $me) {
          %tp-debug $+ timer 1 6 kick $chan $nick 4Don`t kick me !! 1[3Protes-IRC1]
          %tp-debug $+ timer 1 6 mode $chan +bb $nick $replace($address($nick,2),a,?,e,?,i,?,o,?,u,?)
        }
        else {
          kick $chan $nick 4Don`t kick $knick !! 1[3Protes-IRC1]
          mode $chan +bb $nick $replace($address($nick,2),a,?,e,?,i,?,o,?,u,?)
        }
      }
    }
    tp-window-msg 4 $time - $knick kicked in ( $chan ) by < $+ $nick $+ >1( $1 $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 )
    flash $me - $knick kicked in ( $chan ) by < $+ $nick $+ >
  }
}
on *:deop:#:{
  var %o = $opnick
  if (%o == $me || $tp-master-nick(%o)) {
    if ($nick != $me && !$tp-master-nick($nick)) {
      if (%o == $me) { msg CHaN OP $chan %o 1[3Protes-IRC1] }
      elseif ($nick == CHaN && %tp-deop-ctrl-nick != %o && %tp-deop-ctrl-chan != $chan) {
        set %tp-deop-ctrl-nick %o
        set %tp-deop-ctrl-chan $chan
        mode $chan +o %o
        %tp-debug $+ timer 1 5 unset %tp-deop-ctrl-nick
        %tp-debug $+ timer 1 5 unset %tp-deop-ctrl-chan
      }
      elseif ($nick != CHaN) { mode $chan +o %o }
      if (!$tp-inmune-channel($chan) && $nick != CHaN) {
        if (%o == $me) { mb $nick 4Don`t deop me !! 1[3Protes-IRC1] }
        else { mb $nick 4Don`t deop %o !! 1[3Protes-IRC1] }
      }
    }
    tp-window-msg 4 $time - %o deoped in ( $chan ) by < $+ $nick $+ >
    flash $me - %o deoped in ( $chan ) by < $+ $nick $+ >
  }
}
on 1:op:#:{
  if ($opnick == $me || $tp-master-nick($opnick)) {
    if ($opnick == $me) { mode $chan +v $me }
    tp-window-msg 3 $time - $opnick oped in ( $chan ) by < $+ $nick $+ >
  }
}
on *:text:*:#:{
  if ($1 == .vs) { if ($tp-master-nick($nick)) { tp-vs } }
  if ($1 == inv) { if ($tp-master-nick($nick)) { .invite $2 # | .invite $3 # | .invite $4 # | .invite $5 # | .invite $6 # | .invite $7 # } }
  if ($1 == .reg) { if ($tp-master-nick($nick)) { tp-reg $2- } }
  if ($1 == .opn) { if ($tp-master-nick($nick)) { tp-opn $2- } }
  if ($1 == .kaos) { if ($tp-master-nick($nick)) { tp-kaos $2- } }
  if ($1 == .pm) { if ($tp-master-nick($nick)) { part-mn $2- } }
  if ($1 == .jm) { if ($tp-master-nick($nick)) { join $2 } }
  if ($1 == .opmn) { if ($tp-master-nick($nick)) { opmn $2 } }
  if ($1 == .opall) { if ($tp-master-nick($nick)) { opall $2 } }
  if ($1 == .shut) { if ($tp-master-nick($nick)) { shut $2 } }
  if ($1 == .mb) { if ($tp-master-nick($nick)) { mb $2- } }
  if ($1 == .mmb) { if ($tp-master-nick($nick)) { mmb $2- } }
  if ($1 == .dmb) { if ($tp-master-nick($nick)) { dmb $2- } }
  if ($1 == .delreg) { if ($tp-master-nick($nick)) { delreg $2 $3 } }
  if ($1 == .opall ) { if ($tp-master-nick($nick)) { opall $2 } }
  if ($1 == .delban ) { if ($tp-master-nick($nick)) { delban $2 } }
  if ($1 == .hc) { if ($tp-master-nick($nick) && $tp-master-nick($me)) { hc } }
  if ($1 == .hck) { if ($tp-master-nick($nick) && $tp-master-nick($me)) { hck } }
  if ($1 == .hckb) { if ($tp-master-nick($nick) && $tp-master-nick($me)) { hckb } }
  if ($1 == .hckb) { if ($tp-master-nick($nick) && $tp-master-nick($me)) { hckb } }
}
on *:INPUT:#:{
  if ($1 == .vs) { tp-vs }
  if ($1 == .opn) { tp-opn $2- }
  if ($1 == .kaos) { tp-kaos $2- }
  if ($1 == .delban) { delban $2 }
  if ($1 == .delreg) { delreg $2- }
  if ($1 == .opall) { opall $2- }
  if ($1 == .addmaster) { addmaster $2 }
  if ($1 == .delmaster) { delmaster $2 }
  if ($1 == .addblacklist) { addblacklist $2 }
  if ($1 == .delblacklist) { delblacklist $2 }
  if ($1 == .hc) { hc }
  if ($1 == .hck) { hck }
  if ($1 == .hckb) { hckb }
  if ($1 == .opmn) { opmn $2 }
  if ($1 == .uc) { uc }
  if ($1 == .gk) { gk }
  if ($1 == .cb) { cb }
  if ($1 == .co) { co }
  if ($1 == .cu) { cu }
  if ($1 == .gb) { gb }
  if ($1 == .identify) { identify }
  if ($1 == .invm) { invm $2 }
  if ($1 == .inv) { inv $2 }
  if ($1 == .shut) { shut $2 }
  if ($1 == .mb) { mb $2- }
  if ($1 == .mmb) { mmb $2- }
  if ($1 == .dmb) { dmb $2- }
  if ($1 == .mn) { print-mn }
  if ($1 == .jm) { join $2 }
  if ($1 == .pm) { part-mn $2 }
}