Blacklist with dialog. :)

Please Register to submit score.

Average Score	1.0
Scores Submitted	1
Date Added	Jan 23, 2008
Last Updated	Apr 20, 2008
Tags	blacklist

Introduction

Umm, it's pretty simple, it's a blacklist with a dialog and random kick messages, you have to get or make those yourself, :) I had a little help on this one from a friend, but for the most part, tis my blacklist that I have been using.

Comments are greatly appreciated, if there is anything I can do to change it, let me know.:)

Grab the Code

dialog frbl {
  title "Blacklist"
  size -1 -1 178 80
  option dbu
  list 2, 1 2 176 57, size
  button "&A&dd", 1, 2 65 37 12
  button "&Remove", 3, 41 65 37 12
  button "&Close", 4, 139 66 37 12, cancel
  box "", 5, -2 59 181 4
}
alias blackcfg dialog -m frbl frbl

menu status,channel {
  Shitlist
  .Config: blackcfg
  .KickMsgs:edit -k
}
menu nicklist {
  ShitList
  . $$address($1,2) :{ shitl $$address($1,2) $?="Channels? (leave blank if global)" | frblkb # $1 7,14�5h4�3�4�5�4�3�4�5�:0 $read $scriptdirmsgs.txt 7} }
  .-
  .&configuration:blackcfg
}

;dialog events

on *:dialog:frbl:sclick:3:{
  var %a = $did(2).seltext
  %a = $gettok(%a,1-,45)
  $iif(%a,shitl -r %a)
  bl.getusers
}
on *:dialog:frbl:sclick:1: shitl.add
on *:dialog:frbl:init:*:{
  bl.getusers
}
alias bl.getusers {
  did -r frbl 2
  var %a = 1, %t
  while (%a <= $shitn(0)) {
    %t = $iif($shit($shitn(%a)).type,$ifmatch,Global)
    did -a frbl 2 $shitn(%a) - %t
    inc %a
  }
}
dialog fraddbl {
  title "Config Nick to black"
  size -1 -1 400 139
  option pixels
  text "Hostmask:", 1, 4 9 50 16
  edit "", 2, 55 5 335 21
  text "Example: *!*@internuts.member.dal.net", 3, 56 26 210 16
  text "Channels:", 4, 4 49 50 16
  edit "", 5, 55 46 335 21
  text "Sepparated by commas: #internuts,#Company,#Lcas1", 6, 56 67 350 16
  box "", 7, 4 93 390 8
  button "&Cancel", 8, 320 105 75 25, cancel
  button "&ADD in", 9, 240 105 75 25, ok
  button "&Edit Kick Msgs", 11, 5 105 90 25, ok
  text "Leave blank if you want global blacklist.", 10, 56 82 198 16
  box "", 15, 4 129 390 8
}
alias shitl.add $iif(!$dialog(fraddbl),dialog -m fraddbl fraddbl)
on *:dialog:fraddbl:sclick:11:{
  .edit -k
}
on *:dialog:fraddbl:sclick:9:{
  if (*!*@* iswm $did(2)) {
    shitl $did(2) $did(5)
    bl.getusers
  }
  dialog -x fraddbl
}
alias shitdat return $+(",$scriptdirblacklist.dat")
alias shit {
  if ($1) {
    if ($prop == type) {
      %s = 1
      while (%s <= $lines($shitdat)) {
        if ($gettok($read $+(-l,%s) $shitdat,1,44) iswm $1) { return $gettok($read $+(-l,%s) $shitdat,2-,44) | halt }
        inc %s
      }
      unset %s
    }
    else {
      %s = 1
      while (%s <= $lines($shitdat)) {
        if ($gettok($read $+(-l,%s) $shitdat,1,44) iswm $1) { return $gettok($read $+(-l,%s) $shitdat,1,44) | halt }
        inc %s
      }
      unset %s
    }
  }
}

alias shitn {
  if ($1 == 0) { return $lines($shitdat) }
  else {
    return $gettok($read $+(-l,$1) $shitdat,1,44)
  }
}

alias shitchan {
  if ($1 isin $shit($2).type) || (!$shit($2).type) { return $true }
}
alias shitl {
  if ($1 == -r) {
    $iif($2,write $+(-ds,$2,$chr(44),$shit($2).type) $shitdat)
    echo $colour(info) -ta $pre Removed $2 from blacklist
    notice $2 You have been removed from my 4�5h4�3�4�5�4�3�
  }
  else {
    if ($1) { write $shitdat $+($1,$chr(44),$iif($2,$2)) }
    echo $colour(info) -ta $pre  Added $1 to blacklist $iif($2,on $2-)
    notice $1 You have been 4�5h4�3�4�5�4�3�4�5�
  }
}
on *:join:#:{
  if ($shit($fulladdress)) && ($shitchan(#,$fulladdress)) {
    if ($me isop $chan) { 
      frblkb # $nick  4,5�0 $+ $read $scriptdirmsgs.txt $+ 4� 4,1 |4�5h4�3�4�5�4�3�4�5�|
    }
    if ($me !isop $chan) {
      frblkb # $nick 4,5�0 $+ $read $scriptdirmsgs.txt $+ 4� 4,|{4�5h4�3�4�5�4�3�4�5�|
    }
  }
}
alias frblkb {
  if ($me isop $1) && ($2 ison $1) { 
    !mode $1 -o+bb-k $2 $2 $address($2,2)  4l7@4mer.7s4uX
    !kick $1 $2 $3- 
    echo $active 4�5h4�3�4�5�4�3� Kicked $2 from $1
  }
  if ($me !isop $chan) { 
    cs op $chan $me
    !mode $1 -o+bb-k $2 $2 $address($2,2)  4l7@4mer.7s4uX
    !kick $1 $2 $3-
    echo $active 4�5h4�3�4�5�4�3� Kicked $2 from $1 Reason: $3-   
  }  
}

; popup menus
;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;
;Kick Msgs Editor
;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;

alias edit if ($dialog(edit) == $null) { unset %jeeni.qt.* | set %jeeni.qt.mode 1 | if ($1 == -k) set %jeeni.qt.win 1 | elseif ($1 == -t) set %jeeni.qt.win 2 | elseif ($1 != -q) { if ($1) var %file = $1- | else var %file = $$sfile(*)  | if ($isfile($shortfn(%file))) set %jeeni.qt.win $shortfn(%file) | else { echo -t 14� 15Error Invalid file or file not found. | return } } | dialog -m edit edit } | else dialog -v edit
dialog edit {
  title "Add - Remove - Edit - Freaken Kick Msgs Lamer :P"
  size -1 -1 550 360
  option pixels
  list 1, 18 26 514 251, size
  text "Selected:", 2, 15 283 50 13
  edit "", 3, 66 281 467 20, autohs
  box "Select a quit message:", 10, 5 4 537 307
  button "&ok", 50, 207 320 54 21, default ok
  button "&cancel", 51, 270 320 54 21, cancel
  button "Add", 52, 80 320 54 21
  button "Update", 53, 145 320 54 21
  button "Delete", 54, 15 320 54 21
  box "", 19, 5 305 537 50 
  text "", 55, 0 0 0 0
}

on 1:dialog:edit:sclick:*:{
  if ($did == 1) did -ra edit 3 $did(1).seltext
  if ($did == 50) { if ($did(50) == Quit) { quit $did(3) } | else { xsw } }
  if ($did == 52) && ($did(3)) && ($didwm(1,$did(3)) == 0) { did -a edit 1 $did(3) | did -r edit 3 }
  if ($did == 53) && ($did(1).sel) { did -o edit 1 $did(1).sel $did(3) | did -r edit 3 }
  if ($did == 54) && ($did(1).sel) { did -d edit 1 $did(1).sel | did -r edit 3 }
  if ($devent == dclick) && ($did == 1) {
    if ($did(50) == Quit) { quit %quit $did(3) $_url | dialog -k edit }
    else { echo 15 $did(1).seltext }
  } 
}
alias xsw var %l = 1, %file = $did(edit,55) | .write -c %file  | while (%l <= $did(edit,1).lines) { .write %file $did(edit,1,%l) | inc %l }
on 1:dialog:edit:init:*:{
  var %file = $scriptdirmsgs.txt 
  if (%jeeni.qt.win == 1) { 
    var %file = $scriptdirmsgs.txt, %r = kicks
    dialog -t edit UnKnOwN - Kick messages editor
    did -ra edit 10 Select a kick message:
  }
  did -ra edit 55 %file 
  if (%jeeni.qt.mode != 1) { 
    did -ra edit 50 Quit 
    dialog -t edit unKnown - Kick Messages
    did -b edit 52,53,54 
    did -m edit 3
  }
  did -r edit 1 
  loadbuf -ro edit 1 %file
  unset %jeeni.qt.*
}

Comments

(1) RSS

Go to Bottom

Eugenio

Comments: 477

mIRC Snippet: Blacklist with dialog. :)
Posted on Apr 21, 2008 1:57 am

Rated 1, someone obv. dont like it, they could have atleast commented it proving that this script is ripped.

Quote:

I had a little help on this one from a friend, but for the most part, tis my blacklist that I have been using.

Maybe your friend stole some of the script from another without your knowledge.

Fan_Of_Ur_Mom


Last seen: Jun 29, 2008 Profile Snippets (10) Images (1) Comments Received (56) Comments Submitted (16)

My Snippet Tags

Contact

Add to Friends

Send Private Message

AOL AIM:

Yahoo YIM:

MSN: fan_of_your_mom@hotmail.com