Warn/Kick/Blacklist/Shitlist Dialog

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	Jan 22, 2008
Last Updated	Jan 22, 2008
Tags	dialog kick mirc shitlist

Introduction

Hey guys, this is my first real dialog. I've always wanted to submit a bit of my own code here so if it's useful to anyone than mission accomplished! :D Also constructive criticism would be much appreciated!

Huge thanks to Scakk and Freckle for the help completing this. Feel free (like if I didn't say this you wouldn't) to modify this as you please.

By the way.. poon is my nick on IRC.. just so no one wonders. :/

---BUG FIXED--- Sorry XD

Grab the Code

alias menu {
  .dialog -md mymenu mymenu
}
dialog mymenu {
  title "Poons Dialog ><))))'>"
  size -1 -1 258 369
  option pixels
  tab "Warn", 1, -4 -1 265 375
  tab "Kick", 2
  tab "BlackList", 3
  tab "ShitList", 4
  box "Current Users In Active Channel.", 30, 10 107 240 253, tab 1
  box "Blacklisted Users", 16, 4 21 249 98, tab 3
  box "Nicks In Active Channel", 11, 4 23 250 132, tab 2
  button "Trolling", 5, 9 29 65 25, tab 1
  button "Annoying", 6, 9 74 65 25, tab 1
  button "Flooding", 7, 98 30 65 25, tab 1
  button "CAPS", 8, 98 73 65 25, tab 1
  button "Disrespect", 9, 183 28 65 25, tab 1
  button "OP Begging", 10, 183 72 65 25, tab 1
  list 29, 15 124 229 228, tab 1 size
  list 12, 10 41 237 108, tab 2 vsbar size
  box "Tell Meh Why?", 13, 4 254 249 76, tab 2
  edit "", 14, 11 271 234 49, tab 2
  button "Kick That Bitch Face!", 15, 53 337 138 25, tab 2
  list 17, 10 39 235 73, tab 3 vsbar size
  button "Deblacklist User", 18, 4 122 244 24, tab 3
  box "Current Users In Active Channel", 19, 4 149 245 97, tab 3
  list 20, 11 166 231 72, tab 3 vsbar size
  button "Blacklist User", 21, 4 336 245 25, tab 3
  box "Why You Wana Go And Do That For?", 22, 4 246 245 85, tab 3
  edit "", 23, 9 266 234 58, tab 3
  box "Shitlisted Users/Addresses", 25, 4 20 250 97, tab 4
  list 26, 10 36 237 77, tab 4 vsbar size
  button "Unshitlist User/Address", 27, 4 123 250 25, tab 4
  box "Current Users In Active Channel", 28, 5 149 248 111, tab 4
  list 31, 11 168 237 84, tab 4 size
  box "Why You Wana Go And Do That For?", 32, 5 261 247 67, tab 4
  edit "", 33, 11 278 234 42, tab 4
  button "Fuck User Over Big Time", 34, 5 332 246 25, tab 4
  box "Temporary Ban", 24, 4 158 249 89, tab 2
  edit "", 37, 10 214 100 20, tab 2
  text "If you'd like to temporarily ban this person, enter the time in minutes below...", 38, 10 174 237 31, tab 2
  menu "File", 35
  menu "Fun", 36

}
;++ ############ Load userlists into Listboxes ############
on *:dialog:mymenu:init:0:{
  var %total = $nick($active,0), %x = 1
  while ( %x <= %total ) {
    did -a mymenu 12,20,29,31 $nick($active,%x)
    inc %x
  }
  loadbuf -o $dname 17 blacklist.txt
  loadbuf -o $dname 26 shitlist.txt
}
;++############## WARNINGS ###################
on *:dialog:mymenu:sclick:5:{
  if ($did(mymenu,29).seltext != $null) {
    /msg $chan($active) HEY, $did(mymenu,29).seltext $+ , quit trolling already, get a girlfriend in real life...
    /msg $chan($active) If you keep it up you will be kiked/banned.
  }
  else {
    /msg $chan($active) Trolling is NOT permitted in this channel.
  }
}
on *:DIalog:mymenu:sclick:6:{
  if ($did(mymenu,29).seltext != $null) {
    /msg $chan($active) HEY, $did(mymenu,29).seltext $+ , knock it off already...  You're VERY annoying.
    /msg $chan($active) If you keep it up you will be kiked/banned.
  }
  else {
    /msg $chan($active) ATTENTION ANNOYING PERSON(S)
    /msg $chan($active) #teens will not tolerate assholes/annoying individuals!
    /msg $chan($active) Keep yourself in check!
  }
}
on *:DIalog:mymenu:sclick:7:{
  if ($did(mymenu,29).seltext != $null) {
    /msg $chan($active) HEY, $did(mymenu,29).seltext $+ , quit flooding you fucker...
    /msg $chan($active) If you keep it up you will be kiked/banned.
  }
  else {
    /msg $chan($active) FLOODING is NOT permitted in this channel.
    /msg $chan($active) FLOODING is NOT permitted in this channel.
    /msg $chan($active) FLOODING is NOT permitted in this channel.
    /msg $chan($active) FLOODING is NOT permitted in this channel.
    /msg $chan($active) FLOODING is NOT permitted in this channel.
  }
}
on *:DIalog:mymenu:sclick:8:{
  if ($did(mymenu,29).seltext != $null) {
    /msg $chan($active) HEY, $did(mymenu,29).seltext $+ , DO YOU FIND THIS ANNOYING?  WELL I DO!!
    /msg $chan($active) SO KNOCK IT OFF OR IMA HAVE TO DO SOMETHING ABOUT IT!
  }
  else {
    /msg $chan($active) As a reminder to all chatters, caps make you look like an asshole that can type...
    /msg $chan($active) Please lose the caps.
  }
}
on *:DIalog:mymenu:sclick:9:{
  if ($did(mymenu,29).seltext != $null) {
    /msg $chan($active) HEY, $did(mymenu,29).seltext $+ , please respect all chatters!
    /msg $chan($active) This is your warning!  If you keep it up you will be kiked/banned.
  }
  else {
    /msg $chan($active) Please obide by the rules and respect all chatters whilst in this channel!
  }
}
on *:DIalog:mymenu:sclick:10:{
  if ($did(mymenu,29).seltext != $null) {
    /msg $chan($active) HEY, $did(mymenu,29).seltext $+ , OP begging will get you nowhere but banned from here and chatting in #main
    /msg $chan($active) If you keep it up you will be kiked/banned.
  }
  else {
    /msg $chan($active) OP begging is frowned upon in this channel and punishable by REAL OPs.
  }
}
;== ############# KICK ################
on *:DIalog:mymenu:sclick:15:{
  if ($did(mymenu,37) != $null) {
    set %bantime $did(mymenu,37) * 60
    /mode $active +b $address($did(mymenu,12).seltext,2)
    set %address $address($did(mymenu,12).seltext,2)
    set %active $active
    /kick $active $did(mymenu,12).seltext $did(mymenu,14) ( $+ %bantime minute ban)
    .timer 1 %bantime /mode %active -b %address
    .dialog -x mymenu
    /menu
  }
  if ($did(mymenu,37) == $null) {
    /kick $active $did(mymenu,12).seltext $did(mymenu,14).seltext
    .dialog -x mymenu
    /menu
  }
}
;++ ###################### BLACKLIST ################
alias deblacklistok {
  .dialog -md deblacklistok deblacklistok
}
dialog deblacklistok {
  title "Just So You No"
  size -1 -1 203 27
  option pixels
  button "User Has been Deblacklisted!", 2, 0 -2 206 30
}
on *:DIALOG:deblacklistok:sclick:*:{
  .dialog -x deblacklistok
  .dialog -x mymenu
  /menu
}
on *:DIALOG:mymenu:sclick:18:{
  var %deblacklisted $did(mymenu,17).seltext
  /write -ds $+ $did(mymenu,17).seltext blacklist.txt $did(mymenu,17).seltext
  /deblacklistok
}
alias blacklistok {
  .dialog -md blacklistok blacklistok
}
dialog blacklistok {
  title "Just So You No"
  size -1 -1 203 27
  option pixels
  button "User Has been Blacklisted!", 2, 0 -2 206 30
}
on *:DIALOG:blacklistok:sclick:2:{
  .dialog -x blacklistok
  .dialog -x mymenu
  /menu
}
on *:DIALOG:mymenu:sclick:21:{
  var %blacklisted $did(mymenu,20).seltext
  /write blacklist.txt $did(mymenu,20).seltext
  /mode $active +b $did(mymenu,20).seltext
  /kick $active $did(mymenu,20).seltext $did(mymenu,23)
  /blacklistok
}
;++ ################  SHITLIST ##############
alias deshitlistok {
  .dialog -md deshitlistok deshitlistok
}
dialog deshitlistok {
  title "Just So You No"
  size -1 -1 203 27
  option pixels
  button "User Has been Deshitlisted!", 2, 0 -2 206 30
}
on *:DIALOG:deshitlistok:sclick:*:{
  .dialog -x deshitlistok
  .dialog -x mymenu
  /menu
}
on *:dialog:mymenu:sclick:27:{
  /write -ds $+ $did(mymenu,26).seltext shitlist.txt $did(mymenu,26).seltext
  /deshitlistok
}
alias shitlistok {
  .dialog -md Shitlistok
}
dialog shitlistok {
  title "Just So You No"
  size -1 -1 203 27
  option pixels
  button "User Has been Shitlisted!", 2, 0 -2 206 30
}
on *:DIALOG:shitlistok:sclick:*:{
  .dialog -x shitlistok
  .dialog -x mymenu
  /menu
}
on *:dialog:mymenu:sclick:34:{
  /write shitlist.txt $did(mymenu,31).seltext
  /write shitlist.txt $address($did(mymenu,31).seltext,2)
  /write shitlist.txt $address($did(mymenu,31).seltext,3)
  /mode $active +bbb $did(mymenu,31).seltext $address($did(mymenu,31).seltext,2) $address($did(mymenu,31).seltext,2)
  /kick $active $did(mymenu,31).seltext $did(mymenu,33)
  /shitlistok
}
;++ ########  SHIT/BLAKLIST Enforcement ######
on *:JOIN:#:{
  if ($read(blacklist.txt, r, $nick)) {
    .inc %kick.count
    .mode $chan +b $nick
    .kick $chan $nick 9�4�15�14�13�12�11�10�9K8�7�6�5�4�3�2�1�15�4�9�  (Kick Number: %kick.count $+ )
  }
  if ($read(shitlist.txt, r, $nick)) || ($read(shilist.txt, r, $address($nick,2))) || ($read(shitlist.txt, r, $address($nick,3))) {
    .inc %kick.count
    .mode $chan +bbb $nick $address($nick,2) $address($nick,3)
    .kick $chan $nick �����HφĻ��к��� (Kick Number: %kick.count $+ )
  }
}

Comments

(1) RSS

Go to Bottom

pokemaster23

Comments: 55

mIRC Snippet: Warn/Kick/Blacklist/Shitlist Dialog
Posted on Jan 31, 2008 7:00 pm

All Ihave to say is...Nice one lol

Lysergic Diethylamide

		Colorado
Last seen: Aug 02, 2008 Profile \| Website Friends (1) Snippets (3) Images (2) Comments Received (28) Comments Submitted (40) Forum Posts (112)

My Snippet Tags

Contact

Add to Friends

Send Private Message

AOL AIM:

MSN: raver2thabone@hotmail.com

Friends (1)

napa182

View All