#BLACKLIST on
#BLACKLIST end

menu status,channel,query {
  BLACKLIST On Join
  .On:.enable #BLACKLIST | echo -a 4* BLACKLIST Is ON * 
  .Off:.disable #BLACKLIST | echo -a 4* BLACKLIST Is OFF * 

}

alias -l channel { return #test1 }

ON !*:JOIN:$($channel): {
  if ($group(#BLACKLIST).status !== on) { return }
  if (!$hfind(BLIST,$fulladdress,1,W).data) { return }

  xact $nick $chan ban 7200 4 reason

  ;if (!$ulist(%host,host,0)) { xact $nick $chan ban 3600 4 reason }
  ;                           /xact <nick> <#chan> <kick|ban|kb|kickban> [ban-time] [ban-type] [kick-reason]
}


ON *:START: {
  var %h = BLIST
  var %f = $mircdirdata\ $+ %h $+ .list

  if (!$file(%f)) { return }

  hmake %h 3000
  hload %h $qt(%f)
}

alias bhadd {
  tokenize 32 $strip($1-)

  var %h = BLIST
  var %d = $hfind(%h,$1,0,W).data

  if (!$1) { echo 4 -gate Error: Please specify a parameter! | return }
  if (%d) { echo 4 -gate Error: Already exists $qt($1) in %h list! | return }

  hadd -m %h $ticksqpc $+ $rands(1,100000000) $1
  hsave %h $qt($mircdirdata\ $+ %h $+ .list)

  echo 3 -gate Added $qt($1) in the %h list. - Total: $hget(%h,0).item
}

alias bhdel {
  tokenize 32 $strip($1-)

  var %h = BLIST
  var %d = $hfind(%h,$1,1,W).data

  if (!$1) { echo 4 -gate Error: Please specify a parameter! | return }
  if (!%d) { echo 4 -gate Error: Not exists $qt($1) on the %h list! | return }

  hdel %h %d
  hsave %h $qt($mircdirdata\ $+ %h $+ .list)

  echo 3 -gate Removed $qt($1) from the %h list. - Total: $hget(%h,0).item
}

alias bhlist {
  var %h = BLIST
  var %t = $hget(%h,0).item

  if (!%t) { echo 4 -gate Error: %h list is empty! | return }

  echo 10 -gate Display all %h list..

  var %i = 1
  while (%i <= %t) {
    var %item = $hget(%h,%i).item
    var %data = $hget(%h,%item)

    if (%item) && (%data) { echo 6 -gate $+($chr(35),%i,:) %data - Added on: $asctime(%item) }

    inc %i
  }

  echo 10 -gate End of %h list. - Total: %t
}