connection killer
Platform: mIRC
Published Feb 20, 2008
Updated Feb 20, 2008
ok what this does is kills all new incoming connections to a server. you can add the ip's of ur staff so they can connect. so add them like they are in the snotice's when they connect. you can also give ur staff access to the trigger "!conkill on !conkill off" to use by adding their nick.you MUST be either admin or ircop to use this. paste into a new remote and either click on ur menubar or in a channel to open the dialog. someone may find this useful..enjoy...
dialog conkill {
title "Connection Killer"
size -1 -1 156 132
option dbu
box "Address To Allow", 1, 2 1 97 33
text "Enter Adderss:", 2, 5 10 37 8
edit "", 3, 5 20 91 9, autohs
button "Add", 4, 48 10 18 9, flat
button "Del", 5, 76 10 18 9, flat
box "Address Allow List", 6, 2 37 97 58
list 7, 5 48 91 44, size vsbar
box "Con Killer On/Off", 8, 101 1 53 24
check "on", 9, 104 12 17 10, flat
check "off", 10, 133 12 17 10, flat
edit "", 11, 119 82 31 9, read
text "Time:", 12, 104 82 14 8
box "Trigger Access", 13, 101 29 53 25
check "on", 14, 104 40 17 10, flat
check "off", 15, 133 40 18 10, flat
box "Date/Time", 16, 101 58 53 37
text "Date:", 17, 104 69 14 8
edit "", 18, 119 69 31 9, read
box "Add/Del Nicks To Use Trigger", 19, 2 98 97 32
list 20, 105 107 45 19, size vsbar
text "Add/Del Nick:", 21, 5 107 33 8
edit "", 22, 42 107 50 9
button "Add", 23, 12 117 26 9, flat
button "Del", 24, 53 117 26 9, flat
box "Nick Trigger List", 25, 101 98 53 32
}
dialog conkir {
title "ERROR"
size -1 -1 91 23
option dbu
box "«×X§Ç®îÞt0®§X×»", 1, 1 1 89 21
text "ERROR! Please Enter An Address", 2, 4 10 84 8
}
dialog conkiw {
title "ERROR"
size -1 -1 91 23
option dbu
box "«×X§Ç®îÞt0®§X×»", 1, 1 1 89 21
text "ERROR! Please Enter A Nick", 2, 4 10 84 8
}
on *:load: {
echo 12 -a You Have Just Loaded Napa182's Connection Killer
echo 12 -a A Script0rs Inc. Production
echo -a 14,1( 14,1¯15,1¯0,1¯0,1º «×X§Ç®îÞt0®§X×» º0,1¯15,1¯14,1¯ )™
}
menu menubar,channel {
.Connetion killer:{ conkill }
}
alias conkill { dialog $iif($dialog(conkill),-v,-md) conkill conkill }
alias conkir { dialog $iif($dialog(conkir),-v,-md) conkir conkir }
alias conkiw { dialog $iif($dialog(conkiw),-v,-md) conkiw conkiw }
alias datee { did -ra conkill 18 $date(mm.dd.yy) }
alias contime { did -ra conkill 11 $time(h:nn:sst) }
on *:DIALOG:conkill:close:0:{ .timerdatte off | .timercon off }
on *:DIALOG:conkill:init:0:{
if (%conkill) { did -c conkill 9 }
if (!%conkill) { did -c conkill 10 }
if (%trigger) { did -c conkill 14 }
if (!%trigger) { did -c conkill 15 }
did -a conkill 11 $time(h:nn:sst) | .timercon 0 1 contime
did -a conkill 18 $date(mm.dd.yy) | .timerdatte 0 1 datee
if (%allow) {
var %conallow = $gettok(%allow,1-,44)
var %bo = $numtok(%conallow,44), %oh = 1
while ( %oh <= %bo ) {
did -a conkill 7 $gettok(%conallow,%oh,44)
inc %oh
}
}
if (%trignick) {
var %trigallow = $gettok(%trignick,1-,44)
var %bo = $numtok(%trigallow,44), %oh = 1
while ( %oh <= %bo ) {
did -a conkill 20 $gettok(%trigallow,%oh,44)
inc %oh
}
}
}
on *:DIALOG:conkill:sclick:*:{
if ($did == 9) { set %conkill on | did -u conkill 10 }
if ($did == 10) { unset %conkill | did -u conkill 9 }
if ($did == 14) { set %trigger on | did -u conkill 15 }
if ($did == 15) { unset %trigger | did -u conkill 14 }
if ($did == 4) {
if (!$did(3).text) {
conkir
}
else {
set %allow $addtok(%allow,( $+ $did(3).text $+ ),44)
did -r conkill 3
did -r conkill 7
var %conallow = $gettok(%allow,1-,44)
var %bo = $numtok(%conallow,44), %oh = 1
while ( %oh <= %bo ) {
did -a conkill 7 $gettok(%conallow,%oh,44)
inc %oh
}
}
}
if ($did == 5) {
if (!$did(3).text) {
conkir
}
else {
set %allow $remtok(%allow,( $+ $did(3).text $+ ),1,44)
did -r conkill 3
did -r conkill 7
var %conallow = $gettok(%allow,1-,44)
var %bo = $numtok(%conallow,44), %oh = 1
while ( %oh <= %bo ) {
did -a conkill 7 $gettok(%conallow,%oh,44)
inc %oh
}
}
}
if ($did == 23) {
if (!$did(22).text) {
conkiw
}
else {
set %trignick $addtok(%trignick,$did(22).text,44)
did -r conkill 22
did -r conkill 20
var %trigallow = $gettok(%trignick,1-,44)
var %bo = $numtok(%trigallow,44), %oh = 1
while ( %oh <= %bo ) {
did -a conkill 20 $gettok(%trigallow,%oh,44)
inc %oh
}
}
}
if ($did == 24) {
if (!$did(22).text) {
conkiw
}
else {
set %trignick $remtok(%trignick,$did(22).text,1,44)
did -r conkill 22
did -r conkill 20
var %trigallow = $gettok(%trignick,1-,44)
var %bo = $numtok(%trigallow,44), %oh = 1
while ( %oh <= %bo ) {
did -a conkill 20 $gettok(%trigallow,%oh,44)
inc %oh
}
}
}
}
on *:text:*:#: {
if ($strip($1) == !conkill) {
if ($nick isin $gettok(%trignick,1-,44)) && (%trigger == on) {
if ($strip($2) == on) {
set %conkill on
.msg botserv say $chan Connection Killer Is Now ON!! All Incoming Connection's Will Be Killed
}
if ($strip($2) == off) {
unset %conkill
.msg botserv say $chan Connection Killer Is Now OFF!!
}
}
}
}
on *:snotice:*client connecting*:{
if (%conkill == on) {
if ($10 isin $gettok(%allow,1-,44)) {
halt
}
else { Kill $9 Sorry We Are Not Accepting Any New Connections At This Time. Try Back Later }
}
}
