shitlist

on LEVEL:text:*:#: { 
  if ($strip($1) == !addpchit) { 
    .auser pchitlist $2 
    set %pchits $addtok(%pchits,$2,32) 
    msg $chan added $2 to my pchitlist
    if ($2 ison $chan) && ($me isop $chan) { 
      var %x = 1, %y = $comchan($2,0) 
      while (%x <= %y) { 
        if ($me isop $comchan($2,%x)) { 
          mode $comchan($2,%x) -ov+b $2 $2 $address($2,2) 
          kick $comchan($2,%x) $2 4-=( ShItLiSted // Bot-Kick 4)=- 
          notice $2 4>> .|. pchItLiSted .|. 
        } 
        inc %x 
      } 
    } 
  } 
  if ($strip($1) == !delpchit) { 
    if (!$2) { 
      msg $chan You have to input a pchitlisted nickname for me to remove.
      msg $chan I have $numtok(%shits,32) pchitlisted nicks. %pchits 
      halt 
    } 
    if ($2) && ($istok(%pchits,$2,32)) { 
      .ruser shitlist $2 
      set %nonick $findtok(%pchits,$2,32) 
      set %shits $deltok(%shits,%nonick,32) 
      unset %nonick 
      msg $chan User $2 successfully removed from my pchitlist
      halt 
    } 
    else { 
      if ($2) && (!$istok(%pchits,$2,32)) { 
        msg $chan User $2 is not on my pchitlist
        halt 
      } 
    } 
  } 
  if ($strip($1) == !pchitlist) { 
    if ($numtok(%shits,32) > 0) { 
      msg $chan At this time, my pchitlisted nicks are: 
      msg $chan %pchits 
      halt 
    } 
    else { 
      if ($numtok(%hits,32) == 0) { 
        msg $chan There are no pchitlisted nicknames for me to show
        halt 
      } 
    } 
  } 
  if ($strip($1) == !pchitreset) { 
    rlevel pchitlist 
    unset %pchits 
    msg $chan pchitlist deleted
  } 
} 
on !*:join:#: { 
  if ($level($nick) == pchitlist) && ($me isop $chan) { 
    mode $chan -ov+b $nick $nick $address($nick,2) 
    kick $chan $nick 4-=( pchItLiSted // confucius-Kick 4)=- 
    notice $2 4>> .|. hItLiSted .|. 
    halt 
  } 
} 
on *:nick: { 
  if ($level($newnick) == pchitlist) { 
    var %x = 1, %y = $comchan($newnick,0) 
    while (%x <= %y) { 
      if ($me isop $comchan($newnick,%x)) { 
        mode $comchan($newnick,%x) -ov+b $newnick $newnick $address($newnick,2) 
        kick $comchan($newnick,%x) $newnick 4-=( pchItLiSted // confucius-Kick 4)=- 
        notice $newnick 4>> .|. pchItLiSted .|. 
      } 
      inc %x 
    } 
  } 
} 
on *:op:#: { 
  if ($opnick == $me) { 
    var %x = 1, %y = $nick($chan,0) 
    while (%x <= %y) { 
      if ($me isop $chan) && ($level($nick($chan,%x)) == pchitlist) { 
        mode $chan -ov+b $nick($chan,%x) $nick($chan,%x) $address($nick($chan,%x),2) 
        kick $chan $nick($chan,%x) 4-=( pchItLiSted // confucius-Kick 4)=- 
        notice $nick($chan,%x) 4>> .|. pchItLiSted .|. 
      } 
      inc %x 
    } 
  } 
}