Blacklist

By josiah on Jun 29, 2004

Just paste in aliases

blacklist.add {
  if ( ($1) && ($2) ) {
    set -u2 %black 1
    userhost $1
    writeini bin\ini\blacklist.ini blacklist $address($1,3) $2-
    blacklist.scan $1 $2-
  }
  elseif (!$2) { echo -a $init_lang(Blacklist_Alias,1) /blacklist.add NICK REASON }
}
blacklist.add.button {
  .timer 1 2 unset %black.nick
  .timer 1 2 unset %black.reason
  writeini bin\ini\blacklist.ini blacklist $address(%black.nick,3) %black.reason
  blacklist.update
  blacklist.scan %black.nick %black.reason
  unset %black.nick
  unset %black.reason
}
blacklist.rem {
  remini bin\ini\blacklist.ini blacklist $address($1,3)
}
black.scancheck {
  who $gettok(%black.scan,1,32) 
}
blacklist.scan {
  var %i 1
  :start
  if ( ($1 ison $chan(%i)) && ($me isop $chan(%i)) ) {
    mode $chan(%i) $iif($1 isop $chan(%i),-o+b $1 $address($1,3),+b $address($1,3))
    kick $chan(%i) $1 $2- $+ , blacklist
  }
  while (%i < $chan(0)) { inc %i | goto start }
}
blacklist.update {
  if ($server == $null) { did -b blacklist 2 }
  elseif ($server != $null) { did -e blacklist 2 }
  did -r blacklist 1
  did -r blacklist 6
  var %i 1
  :start
  if (%i <= $ini(bin\ini\blacklist.ini,blacklist,0)) {
    did -a blacklist 1 $ini(bin\ini\blacklist.ini,blacklist,%i) ( $+ $readini(bin\ini\blacklist.ini,blacklist,$ini(bin\ini\blacklist.ini,blacklist,%i)) $+ )
    inc %i
    goto start
  }
  did -a blacklist 6 $ini(bin\ini\blacklist.ini,blacklist,0)
}

Comments

Sign in to comment.
BlueFire   -  Jul 01, 2004

How do ppl use it then ? atleast add a popups for ppl... lol

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.