Blacklist with dialog. :)

Please Register to submit score.

Average Score	1.0
Scores Submitted	2
Date Added	Jan 23, 2008
Last Updated	Jan 24, 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(s), and now deicided to share because I have gotten shuned on my server. :(

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 {
  Blacklist
  .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 this area blank if for 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
   }
  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 $nick 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

(9) RSS

Go to Bottom

HeatedHeart

Comments: 11

mIRC Snippet: Blacklist with dialog. :)
Posted on Jan 23, 2008 10:09 pm

Very nice mate.

Pepsi_Man0077

Comments: 30

mIRC Snippet: Blacklist with dialog. :)
Posted on Jan 25, 2008 12:04 am

Nice script bud :D

Korvin

Comments: 241

mIRC Snippet: Blacklist with dialog. :)
Posted on Jan 25, 2008 12:20 am

this is obviously stolen material.

Fan_Of_Ur_Mom

Comments: 16

mIRC Snippet: Blacklist with dialog. :)
Posted on Jan 25, 2008 3:31 am

Korvin, it is not stolen material... I promise that... But if you read my introduction, it's not all my script..... I said friend(s) helped and I have given this same script to probably 30 people...... I have had this script for agez I just have no further use for it because I can not join my server. D: So insted of deleting everything, I have put it on here......... And as for deleting your message....I don't appreciate being called a theif. -.-

Korvin

Comments: 241

mIRC Snippet: Blacklist with dialog. :)
Posted on Jan 25, 2008 7:23 pm

thief... and I still don't believe you, nor will I ever, I believe you stole this script, and changed some of the names in hopes that you wouldn't get caught.

Fan_Of_Ur_Mom

Comments: 16

mIRC Snippet: Blacklist with dialog. :)
Posted on Jan 25, 2008 10:13 pm

........ Why the hell would I post a script that isn't mine...? And if I did I would credit the person who made it, as I have always done for everything that isn't mine.... AND! why the hell does it matter? I looked at the other script on the posting you sent... it's similar, but also nothing like it... if the script was posted on another website, why would it matter if it is posted here.... Both sites were made for script sharing, am I wrong? Now take the tampon out of your ass and stop accusing me of something I did not do.

ALCAPONE

Comments: 11

mIRC Snippet: Blacklist with dialog. :)
Posted on Jan 26, 2008 11:22 am

dude Fan_Of_Ur_mom steal a script LOL that's funny I have known him for like 3 years and he's made all his scripts

water_dragon

Comments: 43

mIRC Snippet: Blacklist with dialog. :)
Posted on Jan 28, 2008 4:07 am

Can i ask something.. Does it matter if a script is Stolen from some one else i know this site is for people who makes scripts but aint it also for script that aint on here for people to try them self's ? i mean if some one made a script on here and some one stole it from here then i can understand, but i dont care where the script comes from as long as they good and working.

HoNdAx707

Comments: 59

mIRC Snippet: Blacklist with dialog. :)
Posted on Jan 28, 2008 4:13 am

Quote:

this is obviously stolen material.

if you look at the rest of their scripts you can usually tell...
and by the looks of it yes he did steal it..
if his friends helped him i think they did mostly all of it
`PaPaYa

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