mIRC Script & aDDonS

Ovde Mozete Slobodno Da Dodavate Nekoi Addoni Sto Mislite Deka Ke Ni Bidat Korisni ... Enjoy !

Addon za Dronevi DronKiller

dialog spamsettings {
title "Spambot Killer - by GrizzLy (Undernet)"
size -1 -1 207 201
option dbu
box "Protected Channels", 1, 6 3 95 137
list 2, 11 12 84 122, size sort
box "All Channels", 3, 107 3 95 137
list 4, 112 12 84 122, size sort
button "Protect Selected Channel", 5, 107 144 95 12
button "Unprotect Selected Channel", 6, 6 144 95 12
box "Spambot Kick Message", 7, 6 159 196 21
edit %anti.spam.kick.msg, 8, 9 166 189 10
button "Apply Settings and Exit", 9, 55 183 95 12, ok
}

alias allchans {
var %allchans = $null, %a = 1
while (%a <= $chan(0)) {
var %allchans = $addtok(%allchans,$chan(%a),44)
inc %a 1
}
return %allchans
}

alias spamsettings {
dialog -md spamsettings spamsettings
didtok spamsettings 4 44 $allchans
didtok spamsettings 2 44 %anti.spam.chans
}

on 1:dialog:spamsettings:sclick:5:{
if ($did(spamsettings,4).seltext) {
set %anti.spam.chans $addtok(%anti.spam.chans,$did(spamsettings,4).seltext,44)
did -r spamsettings 2
didtok spamsettings 2 44 %anti.spam.chans
}
}

on 1:dialog:spamsettings:sclick:6:{
if ($did(spamsettings,2).seltext) {
set %anti.spam.chans $remtok(%anti.spam.chans,$did(spamsettings,2).seltext,44)
did -r spamsettings 2
didtok spamsettings 2 44 %anti.spam.chans
}
}

on 1:dialog:spamsettings:sclick:9:{
if (!$did(spamsettings,) {
set %anti.spam.kick.msg Virus Spreading Spambot
}
else {
set %anti.spam.kick.msg $did(spamsettings,
}
}

alias setspamnicks {
if (!%spamnicks) {
set %spamnicks Aldora,Alysia,Amorita,Anita,April,Ara,Aretina,Barbra,Bella,Bettina,Blenda,Briana,Bridget,Caitlin,Camille,Cara,Carla,Carmen,Chelsea,Clarissa,Damita,Danielle,Daria,Diana,Donna,Dora,Doris,Ebony,Eden,Eliza,Emily,Erika,Erin,Eve,Evelyn,Faith,Gale,Gilda,Gloria,Haley,Helga,Holly,Ida,Idona,Iris,Isabel,Ivana,Ivory,Janet,Jewel,Joanna,Julie,Juliet
set %spamnicks2 Kacey,Kali,Kara,Kassia,Katie,Katrina,Kyle,Lara,Laura,Linda,Lola,Lolita,Lynn,Maia,Mandi,Maria,Meggie,Melody,Milenia,Mimi,Myra,Nadia,Naomi,Natalie,Nicole,Nina,Nora,Nova,Olga,Olivia,Queen,Rae,Raquel,Rita,Rosa,Sharon,Silver,Tania,Tara,Ula,Uma,Valda,Valora,Vanessa,Vicky,Violet,Vivian,Wendy,Willa,Wilma,Xenia,Xylia,Zenia,Zilya,Zoe
}
}

alias spamnickcheck {
set %check $1
set %regexcheck /^[A-Z][a-z]{1,9}\d{2}$/
if ($regex(%check,%regexcheck)) {
set %checknum $right(%check,2)
set %checkname $left(%check,-2)
if (%checknum isnum 10-40) {
if ($istok(%spamnicks,%checkname,44)) || ($istok(%spamnicks2,%checkname,44)) {
return 1
}
else {
return 2
}
}
else {
return 0
}
}
}

on 1:join:%anti.spam.chans:{
if (*.users.undernet.org iswm $fulladdress) { halt }
if (!%spamnicks) {
setspamnicks
}
inc -u10 %spamfloodpro 1
if (%spamfloodpro > 5) halt
set %spamcheck $spamnickcheck($nick)
if (%spamcheck == 1) {
set %spamnick $nick
set %spamchan $chan
.spambotkill
}
}

alias spambotkill {
if ((%spamchan) && (%spamnick)) {
echo -s Spambot kickbanned from %spamchan - %spamnick
inc %spambots 1
if ($me isop %spamchan) {
kick %spamchan %spamnick %anti.spam.kick.msg · $+ %spambots $+ ·
}
else {
msg x kick %spamchan %spamnick %anti.spam.kick.msg · $+ %spambots $+ ·
}
}
}

Addon Za Bad Nick Dobar Addon

on @*:JOIN:#:{
if (*fuck*!*@* iswm $fulladdress) || (*ateюli?*!*@* iswm $fulladdress) || (*kafasэ*!*@* iswm $fulladdress) || (*jigolo*!*@* iswm $fulladdress) || (*2?cm*!*@* iswm $fulladdress) || (*oglancэ*!*@* iswm $fulladdress) || (*kalэn?!*@* iswm $fulladdress) || (*s?k?c?*!*@* iswm $fulladdress) || (*v?r?c?*!*@* iswm $fulladdress) || (*evli*!*@* iswm $fulladdress) || (*1?cm*!*@* iswm $fulladdress) || (*ate?li!*@* iswm $fulladdress) || (*lez*!*@* iswm $fulladdress) || (*kaltak!*@* iswm $fulladdress) || (*v?r?c?!*@* iswm $fulladdress) || (*j?g?l?!*@* iswm $fulladdress) || (*azgin!*@* iswm $fulladdress) || (*ipne*!*@* iswm $fulladdress) || (*dul?!*@* iswm $fulladdress) || (*orgazm*!*@* iswm $fulladdress) || (*pozisyon*!*@* iswm $fulladdress) || (*penis*!*@* iswm $fulladdress) || (*seks*!*@* iswm $fulladdress) || (*gay?!*@* iswm $fulladdress) || (*abaza*!*@* iswm $fulladdress) || (*Kur*!*@* iswm $fulladdress) {
.ban # $nick 1
/kick # $nick Your Nick Is Bad ... Change Your Nick AnD Come Back /Nick NewNick
}
}

Addon Za Bad Word ...Odlicen e


on 1*:TEXT:*peder*:#: { if ($nick isreg $chan) { /ban $chan $nick 3 | /kick $chan $nick Bad Word Detected! **peder** } }
on 1*:TEXT:*mocko*:#: { if ($nick isreg $chan) { /ban $chan $nick 3 | /kick $chan $nick Bad Word Detected! **mocko** } }
on 1*:TEXT:*smrdes*:#: { if ($nick isreg $chan) { /ban $chan $nick 3 | /kick $chan $nick Bad Word Detected! **smrdes** } }
on 1*:TEXT:*picko*:#: { if ($nick isreg $chan) { /ban $chan $nick 3 | /kick $chan $nick Bad Word Detected! **p****a** } }
on 1*:TEXT:*pi4ko*:#: { if ($nick isreg $chan) { /ban $chan $nick 3 | /kick $chan $nick Bad Word Detected! **pi4ko** } }
on 1*:TEXT:*eba*:#: { if ($nick isreg $chan) { /ban $chan $nick 3 | /kick $chan $nick Bad Word Detected! **eba** } }
on 1*:TEXT:*ebum*:#: { if ($nick isreg $chan) { /ban $chan $nick 3 | /kick $chan $nick Bad Word Detected! **ebum** } }
on 1*:TEXT:*k*rva*:#: { if ($nick isreg $chan) { /ban $chan $nick 3 | /kick $chan $nick Bad Word Detected! **k*rva** } }
on 1*:TEXT:*k*rvo*:#: { if ($nick isreg $chan) { /ban $chan $nick 3 | /kick $chan $nick Bad Word Detected! **k*rvo** } }
on 1*:TEXT:*putka*:#: { if ($nick isreg $chan) { /ban $chan $nick 3 | /kick $chan $nick Bad Word Detected! **putka** } }
on 1*:TEXT:*putko*:#: { if ($nick isreg $chan) { /ban $chan $nick 3 | /kick $chan $nick Bad Word Detected! **putko** } }
on 1*:TEXT:*sex*:#: { if ($nick isreg $chan) { /ban $chan $nick 3 | /kick $chan $nick Bad Word Detected! **sex** } }
on 1*:TEXT:*k*r*:#: { if ($nick isreg $chan) { /ban $chan $nick 3 | /kick $chan $nick Bad Word Detected! **k*r** } }
on 1*:TEXT:*ebi*:#: { if ($nick isreg $chan) { /ban $chan $nick 3 | /kick $chan $nick Bad Word Detected! **ebi** } }
on 1*:TEXT:*ebe*:#: { if ($nick isreg $chan) { /ban $chan $nick 3 | /kick $chan $nick Bad Word Detected! **ebe** } }
on 1*:TEXT:*k*rv*:#: { if ($nick isreg $chan) { /ban $chan $nick 3 | /kick $chan $nick Bad Word Detected! **k*rv** } }

Еве аддон за Рекламирање - Може да го направите за свеар само едитирајте ги www. http://* со pi**a или слично. Enjoy !

on @1:text:www.*:%chans: {
if ($nick isop $chan ) { halt }
if ($nick isvo $chan ) { halt } {
if (%adver == ban) { ban -u $+ %advtime $chan $nick 2 | .kick $chan $nick $advban | inc %counter }
if (%adver == kick) { kick $chan $nick $advkick | inc %counter }
}
}
on @1:text:www.*.com:%chans: {
if ($nick isop $chan ) { halt }
if ($nick isvo $chan ) { halt } {
if (%adver == ban) { if ($nick isreg $chan) | ban -u $+ %advtime $chan $nick 2 | .kick $chan $nick $advban | inc %counter }
if (%adver == kick) { kick $chan $nick $advkick | inc %counter }
}
}
on @1:text:ftp://:%chans: {
if ($nick isop $chan ) { halt }
if ($nick isvo $chan ) { halt } {
if (%adver == ban) { if ($nick isreg $chan) | ban -u $+ %advtime $chan $nick 2 | .kick $chan $nick $advban | inc %counter }
if (%adver == kick) { kick $chan $nick $advkick | inc %counter }
}
}
on @1:text:*http://*:%chans: {
if ($nick isop $chan ) { halt }
if ($nick isvo $chan ) { halt } {
if (%adver == ban) { if ($nick isreg $chan) | ban -u $+ %advtime $chan $nick 2 | .kick $chan $nick $advban | inc %counter }
if (%adver == kick) { kick $chan $nick $advkick | inc %counter }
}
}
on @1:action:*www.*:%chans: {
if ($nick isop $chan ) { halt }
if ($nick isvo $chan ) { halt } {
if (%adver == ban) { if ($nick isreg $chan) | ban -u $+ %advtime $chan $nick 2 | .kick $chan $nick $advban | inc %counter }
if (%adver == kick) { kick $chan $nick $advkick | inc %counter }
}
}
on @1:action:www.*.com:%chans: {
if ($nick isop $chan ) { halt }
if ($nick isvo $chan ) { halt } {
if (%adver == ban) { if ($nick isreg $chan) | ban -u $+ %advtime $chan $nick 2 | .kick $chan $nick $advban | inc %counter }
if (%adver == kick) { kick $chan $nick $advkick | inc %counter }
}
}
on @1:action:ftp://:%chans: {
if ($nick isop $chan ) { halt }
if ($nick isvo $chan ) { halt } {
if (%adver == ban) { if ($nick isreg $chan) | ban -u $+ %advtime $chan $nick 2 | .kick $chan $nick $advban | inc %counter }
if (%adver == kick) { kick $chan $nick $advkick | inc %counter }
}
}
on @1:action:*http://*:%chans: {
if ($nick isop $chan ) { halt }
if ($nick isvo $chan ) { halt } {
if (%adver == ban) { if ($nick isreg $chan) | ban -u $+ %advtime $chan $nick 2 | .kick $chan $nick $advban | inc %counter }
if (%adver == kick) { kick $chan $nick $advkick | inc %counter }
}
}

variables %chans #chan1 #chan3 #chan3

dialog Chans {
title "Protected Chans"
size -1 -1 400 350
button "Okay", 1, 20 320 60 20,ok
button "Add a Chan" ,7, 10 290 90 20
list 2, 10 20 380 255, vsbar
box Channels, 3, 5 5 390 260
text "Remove it With a Double Clicking On It", 8, 100 270 370 35
}
on *:dialog:chans:sclick:*:{
if ($did == 7) {
set %chans $addtok(%chans, $+ $?="Add a Channel as a protected Chan" $+ ,44)
.dialog -c chans
.dialog -mnd chans chans
}
}
on *:dialog:chans:init:*:{
var %i = 1
while (%i <= $numtok(%chans,44)) {
did -a $dname 2 $gettok(%chans,%i,44)
inc %i
}
}
on *:dialog:chans:dclick:2:{
set %chans $deltok(%chans,$did($did).sel,44)
did -d $dname $did $did($did).sel
}
alias /chans /dialog -m chans chans

popups menu bar
Url Advertise
.$iif(%adv == on,$style(1)) On:.enable #advertise | set %adv on
.$iif(%adv == off,$style(2)) Off:.disable #advertise | set %adv off
.-
.$iif(%adver == kick,$style(1)) Kick:set %adver kick
.$iif(%adver == ban,$style(1)) Ban.dur:set %adver ban | set %advtime $?="Enter duration in seconds"

Еве еден ревенџ кикер

on *:KICK:#:{
if ($knick == $me) {
set %kicker $nick
set %kickchan $chan
join %kickchan
else | halt
}
}
}
on *:OP:%kickchan:{
if ($opnick == $me) {
/.msg x kick # $kicker Revenge Kick -
removekicker
}
}
alias removekicker { unset %kicker | unset %kickchan }
menu channel {
RemoveKick:/removekicker
}


Кај /.msg x kick # $kicker Revenge kick ви е опционално можете да го менувате како сакате со цел да се смени кик пораката .

Addon Za Reperat Flood

on @*!:text:*:#: { RepeatKick $1- }
on @*!:ACTION:*:#: { RepeatKick $1- }
on @*!:NOTICE:*:#: { RepeatKick $1- }
alias -l RepeatKick {
tokenize 32 $replace($1-,$chr(32),$chr(160))

var %repeatkicktid 3

if #report* iswm $chan { goto END }
elseif $nick isop $chan { goto END }

if $( $+(%,repeat.,$chan,.,$nick),2 ) == $null {
set -u10 $+(%,repeat.,$chan,.,$nick) 1
set -u10 $+(%,sentence.,$chan,.,$nick) s: $strip($1-)
halt
}

elseif ( s: $strip($1-) == $($+(%,sentence.,$chan,.,$nick),2) ) {
inc $+(%,repeat.,$chan,.,$nick)
if $( $+(%,repeat.,$chan,.,$nick),2 ) == %repeatkicktid && %repeatflood != 1 { set -u10 %repeatflood 1 | ban -u300 $chan $nick 2 | kick $chan $nick One time is more then enough. AutoBan 5 Mins KaVTeaM. }
}
else {
set -u10 $+(%,repeat.,$chan,.,$nick) 1
set -u10 $+(%,sentence.,$chan,.,$nick) s: $strip($1-)
}
:next2
:END
}

Blak List Addon v5 By r0by "Undernet"

dialog bl2 {
title "BlackList System By r0by"
size -1 -1 161 171
option dbu
box "Power", 1, 1 0 94 17
radio "Blacklister On", 2, 3 7 43 9, flat
radio "Blacklister Off", 3, 49 7 44 9, flat
box "Date/Time", 4, 96 0 64 17
text "Mar/30/08 12:30:23 PM", 5, 100 7 58 8
box "add/rem Channels ", 6, 1 17 54 28
edit "", 7, 3 25 50 9, autohs
button "add", 8, 3 35 25 9, flat
button "rem", 9, 28 35 25 9, flat
box "add/rem Nick's", 10, 1 45 54 28
edit "", 11, 3 53 50 9, autohs
button "add", 12, 3 63 25 9, flat
button "rem", 13, 28 63 25 9, flat
box "Blacklisted Nick's", 14, 56 17 52 56
list 15, 57 25 50 46, size vsbar
box "Channel List", 16, 108 17 52 56
list 17, 109 25 50 46, size vsbar
box "Set Bmask", 18, 126 73 34 20
edit "", 19, 144 81 13 9, center
button "set", 20, 128 81 15 9, flat
box "Reason Being Used", 21, 1 73 124 20
edit "", 22, 3 81 120 9, read autohs
box "add/rem Blacklist Reason's", 23, 1 93 159 29
edit "", 24, 3 102 154 9, autohs
button "add", 25, 3 112 77 9, flat
button "rem", 26, 80 112 77 9, flat
box "Blacklist Reason List", 27, 1 122 159 48
list 28, 3 131 154 37, size vsbar
}
on *:load: {
echo 12 -a You Have Just Loaded Napa182's Blacklist System
echo 12 -a A Script0rs Inc. Production
echo -a 14,1(14,1?15,1?0,1?0,1? «?X§C®KaVTeaM®§X?» ?0,1?15,1?14,1?)™
}
alias bl2 { dialog $iif($dialog(bl2),-v,-md) bl2 bl2 }
alias bl2datetime { did -ra bl2 5 $time(mmm/dd/yy h:nn:ss tt) }
alias blacklisted {
var %a = $gettok(%blchan,1-,44), %b = $numtok(%a,44), %c = 1
while (%c <= %b) {
if ($did(11).text ison $gettok(%a,%c,44)) && ($me isop $gettok(%a,%c,44)) {
ban -k $gettok(%a,%c,44) $did(11).text %blbmask Blacklisted :Reason: $iif(%blreasonsel == $null,Just Because,%blreasonsel)
}
inc %c
}
}
menu nicklist {
-
. $iif($istok(%bluser,$1,44) != $false,$style(2)) Add ( $+ $$1 $+ ) To Blacklist:{
if ($me !isop #) { noop $input(You Are NOT an op in the active channel,uho,ERROR!) }
elseif (!%blpower) || (!%blbmask) { noop $input(Please Enter A Ban Mask. Or Turn On The Power.,uho,ERROR!) | bl2 | did -a bl2 11 $$1 }
elseif (%blpower) && (%blbmask) {
if ($input(Are You Sure You Want To Add ( $+ $$1 $+ ) To The Blacklist,uqy,O_O) == $true) {
.auser blacklisted $address($$1,%blbmask)
set %bluser $addtok(%bluser,$1,44)
noop $input(( $+ $$1 $+ ) Has Been Added To The Blacklist. ( $+ $$1 $+ ) Will Now Be Kicked,uwo,Attention)
var %a = $gettok(%blchan,1-,44), %b = $numtok(%a,44), %c = 1
while (%c <= %b) {
if ($$1 ison $gettok(%a,%c,44)) && ($me isop $gettok(%a,%c,44)) {
ban -k $gettok(%a,%c,44) $$1 %blbmask Blacklisted :Reason: $iif(%blreasonsel == $null,Just Because,%blreasonsel)
}
inc %c
}
}
else { halt }
}
}
-
}
menu menubar,channel {
-
.Blacklist System
..Open Blacklist System:{ bl2 }
.. $iif(%bluser == $null,$style(2)) Remove Nick From Blacklist:{
var %rem $$?="Enter Nick To Remove From Blacklist"
if (!$istok(%bluser,%rem,44)) { noop $input(( $+ %rem $+ ) Is Not In The Blacklist,uho,Error) }
else {
if ($input(Are You Sure You Want To Remove ( $+ %rem $+ ) From The Blacklist,uqy,O_O) == $true) {
.ruser blacklisted $address(%rem,2)
set %bluser $remtok(%bluser,%rem,1,44)
noop $input(( $+ %rem $+ ) Has Been Removed From The Blacklist,uwo,Attention)
}
else { halt }
}
}
..Add Nick To Blacklist:{
if ($me !isop #) { noop $input(You Are NOT an op in the active channel,uho,ERROR!) }
elseif (!%blpower) || (!%blbmask) { noop $input(Please Enter A Ban Mask. Or Turn On The Power.,uho,ERROR!) | bl2 }
elseif (%blpower) && (%blbmask) {
var %add $$?="Enter Nick To Add To Blacklist"
if ($istok(%bluser,%add,44)) { noop $input(( $+ %add $+ ) Is Already In The Blacklist,uho,Error) }
else {
if ($input(Are You Sure You Want To Add ( $+ %add $+ ) To The Blacklist,uqy,O_O) == $true) {
.auser blacklisted $address(%add,%blbmask)
set %bluser $addtok(%bluser,%add,44)
noop $input(( $+ %add $+ ) Has Been Added To The Blacklist. ( $+ %add $+ ) Will Now Be Kicked,uwo,Attention)
var %a = $gettok(%blchan,1-,44), %b = $numtok(%a,44), %c = 1
while (%c <= %b) {
if (%add ison $gettok(%a,%c,44)) && ($me isop $gettok(%a,%c,44)) {
ban -k $gettok(%a,%c,44) %add %blbmask Blacklisted :Reason: $iif(%blreasonsel == $null,Just Because,%blreasonsel)
}
inc %c
}
}
else { halt }
}
}
}
-
}
on *:dialog:bl2:close:0:{ .timerbl2datetime off }
on *:dialog:bl2:init:0:{
did -a bl2 5 $time(mmm/dd/yy h:nn:ss tt)
if ($timer(bl2datetime)) { haltdef }
else { .timerbl2datetime 0 1 bl2datetime }
if (%blpower) { did -c bl2 2 | did -e bl2 8,12,19,20 }
if (!%blpower) { did -c bl2 3 | did -b bl2 8,12,19,20 }
if (%blbmask) { did -a bl2 19 %blbmask }
if (%blreasonsel) { did -a bl2 22 %blreasonsel }
var %x = 1
while (%x <= $lines(blreason.txt)) {
did -a bl2 28 $read(blreason.txt,%x)
inc %x
}
var %d = $gettok(%bluser,1-,44), %e = $numtok(%d,44), %f = 1
while (%f <= %e) {
did -a bl2 15 $gettok(%d,%f,44)
inc %f
}
var %a = $gettok(%blchan,1-,44), %b = $numtok(%a,44), %c = 1
while (%c <= %b) {
did -a bl2 17 $gettok(%a,%c,44)
inc %c
}
}
on *:dialog:bl2:sclick:*:{
if ($did == 2) { set %blpower on | did -e bl2 8,12,19,20 }
if ($did == 3) { unset %blpower | did -b bl2 8,12,19,20 }
if ($did == 20) {
if ($did(19).text isalpha) || ($regex($right($did(19).text,-1),/[0-9]/g)) {
noop $input(Please Enter A Number 0 - 9,uho,Error)
did -r bl2 19
}
else { set %blbmask $did(19).text }
}
if ($did == {
if (!$did(7).text) {
noop $input(No Channel Was Entered,uho,ERROR!)
}
elseif ($left($did(7).text,1) != $chr(35)) {
noop $input(Please Enter Channel As Syntax: #channel,uho,Syntax Error!)
did -r bl2 7
}
elseif ($did(7).text) {
if ($istok(%blchan,$did(7).text,44)) {
noop $input(Channel Already Exists,uho,ERROR!)
did -r bl2 7
}
else {
set %blchan $addtok(%blchan,$did(7).text,44)
did -r bl2 7,17
var %a = $gettok(%blchan,1-,44), %b = $numtok(%a,44), %c = 1
while (%c <= %b) {
did -a bl2 17 $gettok(%a,%c,44)
inc %c
}
}
}
}
if ($did == 9) {
if (!$did(7).text) && (!$did(17).seltext) {
noop $input(No Channel Was Entered Or Selected,uho,ERROR!)
}
elseif ($left($did(7).text,1) != $chr(35)) && (!$did(17).seltext) {
noop $input(Please Enter Channel As Syntax: #channel,uho,Syntax Error!)
did -r bl2 7
}
elseif ($did(7).text) && (!$did(17).seltext) {
if ($did(7).text !isin $gettok(%blchan,1-,44)) {
noop $input(Channel Does Not Exists,uho,Error!)
did -r bl2 7
}
elseif ($did(7).text) && (!$did(17).seltext) {
if ($istok(%blchan,$did(7).text,44)) {
set %blchan $remtok(%blchan,$did(7).text,1,44)
did -r bl2 7,17
var %a = $gettok(%blchan,1-,44), %b = $numtok(%a,44), %c = 1
while (%c <= %b) {
did -a bl2 17 $gettok(%a,%c,44)
inc %c
}
}
}
}
elseif ($did(17).seltext) && (!$did(7).text) {
set %blchan $remtok(%blchan,$did(17).seltext,1,44)
did -r bl2 17
var %a = $gettok(%blchan,1-,44), %b = $numtok(%a,44), %c = 1
while (%c <= %b) {
did -a bl2 17 $gettok(%a,%c,44)
inc %c
}
}
}
if ($did == 12) {
if (!$did(11).text) {
noop $input(No Nick Was Entered,uho,ERROR!)
}
elseif ($did(11).text) {
if ($istok(%bluser,$did(11).text,44)) {
noop $input(Nick Already Exists,uwo,ERROR!)
did -r bl2 11
}
elseif ($me !isop $active) { noop $input(You Are NOT an op in the active channel,uho,ERROR!) }
elseif (!%blpower) || (!%blbmask) { noop $input(Please Enter A Ban Mask. Or Turn The Power On,uho,ERROR!) }
elseif (%blpower) && (%blbmask) {
.auser blacklisted $address($did(11).text,%blbmask)
set %bluser $addtok(%bluser,$did(11).text,44)
blacklisted
did -r bl2 11,15
var %d = $gettok(%bluser,1-,44), %e = $numtok(%d,44), %f = 1
while (%f <= %e) {
did -a bl2 15 $gettok(%d,%f,44)
inc %f
}
}
}
}
if ($did == 13) {
if (!$did(11).text) && (!$did(15).seltext) {
noop $input(No Nick Was Entered Or Selected,uho,ERROR!)
}
elseif ($did(11).text) && (!$did(15).seltext) {
if ($did(11).text !isin $gettok(%bluser,1-,44)) {
noop $input(Nick Does Not Exists,uho,Error!)
did -r bl2 11
}
elseif ($did(11).text) && (!$did(15).seltext) {
if ($istok(%bluser,$did(11).text,44)) {
.ruser blacklisted $address($did(11).text,%blbmask)
set %bluser $remtok(%buser,$did(11).text,44)
did -r bl2 11,15
var %d = $gettok(%bluser,1-,44), %e = $numtok(%d,44), %f = 1
while (%f <= %e) {
did -a bl2 15 $gettok(%d,%f,44)
inc %f
}
}
}
}
elseif ($did(15).seltext) && (!$did(11).text) {
.ruser blacklisted $address($did(15).seltext,%blbmask)
set %bluser $remtok(%bluser,$did(15).seltext,1,44)
did -r bl2 15
var %d = $gettok(%bluser,1-,44), %e = $numtok(%d,44), %f = 1
while (%f <= %e) {
did -a bl2 15 $gettok(%d,%f,44)
inc %f
}
}
}
if ($did == 25) {
if (!$did(24).text) {
noop $input(Error Please Enter A BlackList Reason,uho,Error!)
}
elseif ($did(24).text) {
var %ablmessage $read(blreason.txt,w,$did(24).text)
if (%ablmessage == $did(24).text) {
noop $input(BlackList Reason Already Exists,uho,Error!)
did -r bl2 24
}
else {
.write blreason.txt $did(24).text
did -r bl2 24,28
var %x = 1
while ( %x <= $lines(blreason.txt)) {
did -a bl2 28 $read(blreason.txt,%x)
inc %x
}
}
}
}
if ($did == 28) { did -ra bl2 22 $did(28).seltext | set %blreasonsel $did(28).seltext }
if ($did == 26) {
if (!$did(24).text) && (!$did(28).seltext) {
noop $input(No Blacklist Reason Was Entered Or Selected,uho,Error!)
}
elseif ($did(24).text) && (!$did(28).seltext) {
var %dblmessage $read(blreason.txt,w,$did(24).text)
if (%dblmessage != $did(24).text) {
noop $input(Blacklist Reason Does Not Exists,uho,Error!)
did -r bl2 24
}
elseif ($did(24).text) && (!$did(28).seltext) {
var %dblmessage $read(blreason.txt,w,$did(24).text)
if (%dblmessage == $did(24).text) {
write -dl [ $+ [ $readn ] ] blreason.txt
unset %blreasonsel
did -r bl2 22,24,28
var %x = 1
while ( %x <= $lines(blreason.txt)) {
did -a bl2 28 $read(blreason.txt,%x)
inc %x
}
}
}
}
elseif ($did(28).seltext) && (!$did(24).text) {
var %dblmessage $read(blreason.txt,w,$did(28).seltext)
if (%dblmessage == $did(28).seltext) {
write -dl [ $+ [ $readn ] ] blreason.txt
unset %blreasonsel
did -r bl2 22,28
var %x = 1
while ( %x <= $lines(blreason.txt)) {
did -a bl2 28 $read(blreason.txt,%x)
inc %x
}
}
}
}
}
on blacklisted:join:#:{
if (%blpower) && ($me isop #) {
if ($istok(%blchan,$chan,44)) {
ban -k # $nick %blbmask Blacklisted :Reason: $iif(%blreasonsel == $null,Just Because,%blreasonsel)
}
}
}