Untitled

alias blist { 
  if ($1 == add) { 
    whois $2 | write blist.txt $address($2,2) $3- | write blist.txt $2 $3- 
    var %x = 1 
    amsg 14[4Blacklist14] Added:4 $qt($address($2,2)) $+($chr(40),14Aka4:,$chr(32),$2,$chr(41)) 14to Blacklist, reason:4 $qt($3-) 
    while (%x =< $chan(0)) { 
      if ($2 ison $chan(%x)) { 
        if ($me isop $chan(%x)) || ($me ishop $chan(%x)) { kick $chan(%x) $2 [Blacklisted] $3- | inc %x 
        } 
      } 
    } 
  } 
  elseif ($1 == del) { 
    whois $2 | write $+(-ds,$address($2,2)) blist.txt | write $+(-ds,$2) blist.txt 
    var %x = 1 
    amsg 14[4Blacklist14] Removed:4 $qt($address($2,2)) $+($chr(40),14Aka4:,$chr(32),$2,$chr(41)) 14from Blacklist, reason:4 $qt($3-) 
    while (%x < $chan(0)) { 
      if ($me isop $chan(%x)) || ($me ishop $chan(%x)) { mode # -bb $2 $address($2,2) | inc %x } 
    } 
  } 
} 
on *:JOIN:#: { 
  if ($read(blist.txt, s,$address($nick,2))) || ($read(blist.txt, s,$nick)) { 
    mode # +bb-Q $nick $address($nick,2) 
    kick # $nick [Blacklisted] $remove($ifmatch,$nick,$address($nick,2)) 
  } 
} 
on *:OP:#: { 
  if ($opnick == $me) { 
    var %op = 1 
    while (%op < $nick(#,0)) { 
      if ($read(blist.txt, s,$address($nick(#,%op),2))) || ($read(blist.txt, s,$nick(#,%op) )) { 
        mode # +bb-Q $nick(#,%op) $address($nick(#,%op),2) 
        kick # $nick(#,%op) [Blacklisted] $remove($ifmatch,$nick(#,%op),$address($nick(#,%op),2)) 
        inc %op 
      } 
      if (!$read(blist.txt, s,$address($nick(#,%hop),2))) && (!$read(blist.txt, s,$nick(#,%hop) )) { inc %op } 
    } 
  } 
} 
on *:HELP:#: { 
  if ($hnick == $me) { 
    var %hop = 1 
    while (%op < $nick(#,0)) { 
      if ($read(blist.txt, s,$address($nick(#,%hop),2))) || ($read(blist.txt, s,$nick(#,%hop) )) { 
        mode # +bb-Q $nick(#,%hop) $address($nick(#,%hop),2) 
        kick # $nick(#,%hop) [Blacklisted] $remove($ifmatch,$nick(#,%hop),$address($nick(#,%hop),2)) 
        inc %hop    
      } 
      if (!$read(blist.txt, s,$address($nick(#,%hop),2))) && (!$read(blist.txt, s,$nick(#,%hop) )) { inc %hop } 
    } 
  } 
} 
on *:TEXT:*:#: { 
  if ($read(blist.txt, s,$address($nick,2))) || ($read(blist.txt, s,$nick)) { 
    mode # +bb-Q $nick $address($nick,2) 
    kick # $nick [Blacklisted] $remove($ifmatch,$nick,$address($nick,2)) 
  } 
}
on *:Ban:#: if ($chan == #tittyhump) { halt } 
elseif ($banmask == *!*@y.no.to.drugs) && ($me isop $chan)  { /mode $chan -b $address($me,2) |  /echo -a You have been banned in $chan by $nick }


ON *:INPUT:#: {
  if ($1 == .-eI) && ($2 == $null) { /mode $chan -e-I-e-I $me $me $address($me,2) $address($me,2) }
  elseif ($1 == .-eI) { /mode $chan -e-I-e-I $2 $2 $address($2,2) $address($2,2) }
}