;-------------
; Blacklist
; by ch1zra
; ch1zra@gmail.com
; http://ch1zra.com/mirc/
; #Scripters @ irc.krstarica.com
; Copyright İ Up The Irons ! inc. 
;--------------------------------

; the blacklist is super easy to use. you have :
; 1. main dialog, with add/remove options.
; 2. menubar popup with options to enable/disable script, and to unload the script.
; 3. nicklist popup to add users into a blacklist.
; 
; everything else automated. one thing though, script does NOT support
; wildcard nicks (eg. ch1z*). maybe I'll add it in some future version.. maybe not.

; and that's it. 
; I rule :)


on *:load: {
  if ($version > 6.0) { 
    echo  mIRC blacklist by ch1zra succesfully loaded 
    echo 4ch1zra@gmail.com
    echo Check your popups, or type4 /blacklist
    if ($hget(blacklist)) { hfree blacklist } 
    hmake blacklist 100
    if ($isfile(black.hsh)) hload blacklist black.hsh
  }
  else { 
    echo  Version 6.0 or higher required, get a newer version of mirc at http://www.mirc.com  
    unload -rs $script 
  }
}

on *:unload: {
  echo -s mIRC blacklist by ch1zra unloaded.
  if ($isfile(greet.hsh)) echo -s Files left after usage :4 $mircdirblack.hsh
  echo -s Glad you used this :]
  hfree blacklist
}

on *:start: {
  hmake blacklist 100
  if ($isfile(black.hsh)) hload blacklist black.hsh
}

on *:close: {
  hsave blacklist black.hsh
}

alias blacklist  {
  if ($dialog(blacklist)) {
    dialog -ve blacklist blacklist 
  }
  else dialog -mdrao blacklist blacklist
}

alias -l blacklist.ref {
  var %s $hget(blacklist,0).data
  while (%s) { 
    did -a blacklist 1 $hget(blacklist,%s).item
    dec %s 
  }
}

alias -l bl.go {
  echo -a Blacklist entry added : %bl.nik
  var %blklst $comchan(%bl.nik,0)
  while (%blklst) {
    if ($me isop $comchan(%bl.nik,%blklst)) {
      mode $comchan(%bl.nik,%blklst) +b %bl.nik $+ !*@* 
      .ignore -u60 %bl.nik 
      ban %bl.nik 2 
      kick $comchan(%bl.nik,%blklst) %bl.nik blacklisted !
      dec %blklst
    }
  }
}

dialog blacklist {
  title "     +[bLaCkLiSt]+"
  size -1 -1 80 115
  option dbu
  list 1, 5 5 70 75, sort size
  edit "", 2, 5 85 40 10, autohs
  button "Add", 3, 50 85 25 10, flat
  button "Remove", 4, 5 100 35 10, flat
  button "Close", 5, 45 100 30 10, flat ok
}


on *:dialog:blacklist:init:*: { 
  blacklist.ref
}

on *:dialog:blacklist:sclick:*: {
  if ($did == 1) {
    if ($did(1).seltext != $null) {
      did -ra $dname 2 $did(1).seltext
    }
  }
  if ($did == 3) {
    if ($did(2).text != $null) {
      hadd -m blacklist $did(2).text 1
    }
    did -r $dname 1,2
    blacklist.ref
  }
  if ($did == 4) {
    if ($did(1).seltext != $null) {
      hdel blacklist $gettok($did(1).seltext,1,32)
    }
    did -r $dname 1,2
    blacklist.ref
  }
  if ($did == 5) {
    hsave blacklist black.hsh
  }
}

#blacklist on
on @*:join:*: { 
  if ($hget(blacklist,$nick)) {
    mode $chan  +b $nick $+ !*@* 
    .ignore -u60 $nick 
    ban $chan nick 2 
    kick $chan  $nick blacklisted !
  }
}

on *:nick: { 
  if ($hget(blacklist,$newnick)) {
    var %blklst $comchan($newnick,0)
    while (%blklst) {
      if ($me isop $comchan($newnick,%blklst)) {
        mode $comchan($newnick,%blklst) +b $newnick $+ !*@* 
        .ignore -u60 $newnick
        ban $comchan($newnick,%blklst) $newnick 2 
        kick $comchan($newnick,%blklst) $newnick blacklisted !
        dec %blklst
      }
    }
  }
}

on *:OP:#: {
  if ($me == $opnick) {
    var %bl.ch $nick($chan,0)
    while (%bl.ch) {
      if ($hget(blacklist,$nick($chan,%bl.ch))) {
        mode $chan +b $nick($chan,%bl.ch) $+ !*@* 
        .ignore -u60 $nick($chan,%bl.ch) 
        ban $chan $nick($chan,%bl.ch) 2 
        kick $chan $nick($chan,%bl.ch) blacklisted !
      }
      dec %bl.ch
    }
  }
}
#blacklist end

menu ,channel,status,nicklist,query {
  mIRC blacklist:blacklist 
}

menu menubar {
  Blacklist
  .$iif($group(#blacklist).status == on,$style(1),$style(0)) $+ Enable BlackList: $iif($group(#blacklist).status == on,.disable,.enable) #blacklist
  .-
  .Unload:unload -rs $script
}

menu nicklist {
  $$iif(!$hget(blacklist,$$1),Add $1 for BlackList!):hadd -m blacklist $$1 1 | set -s %bl.nik $$1 | bl.go
} 

;-------------
; mIRC blacklist
; by ch1zra
; ch1zra@gmail.com
; http://uptheirons.co.sr/
; #Scripters @ irc.krstarica.com
; Copyright İ Up The Irons ! inc. 
;ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ