I am sorry for long time my editing scripts ...
this is scripts for Spammers .... and make for remote ...
simple right click for ur Mirc version 6.14+
+++++++++ always Match my scripts ++++++++++++++

thanks for msg .... nice fully scripts from me ???
just visit my website Http://cool-china.tk

thanks regard me for Hawkee is the best Snippets !
by [-Superboyz-] - Bandung - INdonesia

if any bugs please send me Pv thanks ..

on *:LOAD:spam
alias spam dialog -m spam spam
menu channel { 
    Antispam
    .Configuration:spam
    . $+ $iif($replace($chan,$chr(35),[d]) !isin $readini(spam.ini,channel,excludes),Add $chan to excluded chans):writeini spam.ini Channel Excludes $readini(spam.ini,channel,excludes) $replace($chan,$chr(35),[d])
    . $+ $iif($replace($chan,$chr(35),[d]) isin $readini(spam.ini,channel,excludes),Remove $chan from excluded chans):$iif($readini(spam.ini,channel,excludes) == $chan,remini spam.ini Channel excludes,writeini spam.ini Channel Excludes $remove($readini(spam.ini,channel,excludes),$replace($chan,$chr(35),[d])))

    .Add a new badword:writeini spam.ini Channel Badwords $readini(spam.ini,channel,badwords) $replace($$?="New badword here ?",$chr(35),[d])
}

menu query {
    Antispam
    .Configuration:spam
    . $+ $iif($1 !isin $readini(spam.ini,pv,excludes),Add $1 to excluded nicks):writeini spam.ini PV Excludes $readini(spam.ini,pv,excludes) $1
    . $+ $iif($1 isin $readini(spam.ini,pv,excludes),Remove $1 from excluded nicks):$iif($readini(spam.ini,pv,excludes) == $1,remini spam.ini PV excludes,writeini spam.ini PV Excludes $remove($readini(spam.ini,pv,excludes),$1))
    .Add a new badword:writeini spam.ini PV Badwords $readini(spam.ini,pv,badwords) $replace($$?="New badword here ?",$chr(35),[d])
}
menu nicklist {
    Antispam
    .Configuration:spam
    . $+ $iif($1 !isin $readini(spam.ini,pv,excludes),Add $1 to excluded nicks):writeini spam.ini PV Excludes $readini(spam.ini,pv,excludes) $1
    . $+ $iif($1 isin $readini(spam.ini,pv,excludes),Remove $1 from excluded nicks):$iif($readini(spam.ini,pv,excludes) == $1,remini spam.ini PV excludes,writeini spam.ini PV Excludes $remove($readini(spam.ini,pv,excludes),$1))
}

dialog spam {
    title "No Spammers By [-Superboyz-]"
    size -1 -1 179 233
    option dbu
    box "Anti-spam Channel", 1, 6 6 168 111
    box "Anti-spam Pv", 2, 6 124 168 90
    list 3, 10 24 50 35, size
    button "Add", 4, 11 61 21 12
    button "Del", 5, 38 61 21 12
    text "Badwords list", 6, 11 15 48 8
    button "Add", 7, 65 61 21 12
    button "Del", 8, 92 61 21 12
    list 9, 64 24 50 35, size
    text "Excluded channels", 10, 65 15 48 8
    edit "Badword detected (<bad>) !", 50, 11 84 102 10, autohs
    button "Save / Close", 15, 137 218 37 12, ok
    edit "Badword detected by <nick> (<bad>) !", 16, 11 201 102 10, autohs
    button "Add", 18, 10 178 21 12
    button "Del", 19, 38 178 21 12
    button "Add", 20, 65 178 21 12
    button "Del", 21, 92 178 21 12
    list 22, 10 141 50 35, size
    list 23, 64 141 50 35, size
    text "Badwords list", 24, 11 133 48 8
    text "Excluded nicks", 25, 65 133 48 8
    edit "Pub detected on <chan> (<nick>)", 33, 10 104 102 10, autohs
    check "Warning", 37, 116 23 50 10
    check "Pub reply", 38, 116 32 50 10
    check "Kick", 39, 116 41 50 10
    check "Ban", 40, 116 50 50 10
    text "Warning message :", 41, 12 76 49 8
    text "Pub reply :", 42, 12 96 49 8
    text "Warning message :", 43, 12 193 49 8
    check "Warning", 44, 116 141 50 10
    check "Close", 45, 116 149 50 10
    check "Ignore", 46, 116 158 50 10
    edit "", 48, 125 60 18 10, disable
    text "mins", 49, 144 61 16 8
    text "mins", 51, 144 169 16 8
    edit "", 52, 125 168 18 10, disable
    check "Affects ops", 53, 116 74 50 10
    check "Affects voices", 54, 116 84 50 10
    check "Disable spam protection", 55, 6 218 69 10
}
on 1:DIALOG:spam:*:*:{
    if ($devent == INIT) {
    spamlists
    if ($readini(spam.ini,channel,warning) == 1) did -c spam 37
    if ($readini(spam.ini,channel,reply) == 1) did -c spam 38
    if ($readini(spam.ini,channel,kick) == 1) did -c spam 39
    if ($readini(spam.ini,channel,ban) == 1) did -c spam 40

    if ($readini(spam.ini,pv,warning) == 1) did -c spam 44
    if ($readini(spam.ini,pv,close) == 1) did -c spam 45
    if ($readini(spam.ini,pv,ignore) == 1) did -c spam 46

    if ($readini(spam.ini,channel,wmess)) { did -r spam 50 | did -a spam 50 $readini(spam.ini,channel,wmess) }
    if ($readini(spam.ini,channel,pmess)) { did -r spam 33 | did -a spam 33 $readini(spam.ini,channel,pmess) }
    if ($readini(spam.ini,pv,wmess)) { did -r spam 16 | did -a spam 16 $readini(spam.ini,pv,wmess) }

    if ($readini(spam.ini,channel,bantime)) { did -a spam 48 $readini(spam.ini,channel,bantime) }
    if ($readini(spam.ini,pv,ignoretime)) { did -a spam 52 $readini(spam.ini,channel,ignoretime) }

    did $iif($did(spam,40).state == 1,-e,-b) spam 48
    did $iif($did(spam,46).state == 1,-e,-b) spam 52

    if ($readini(spam.ini,channel,banops) == 1) did -c spam 53
    if ($readini(spam.ini,channel,banvoices) == 1) did -c spam 54

    if ($readini(spam.ini,infos,disable) == 1) did -c spam 55

    }
    if ($devent == SCLICK) {
    ;#######################
    ;Http://cool-china.tk ##
    ;#######################

    if ($did == 4) { writeini spam.ini Channel Badwords $readini(spam.ini,channel,badwords) $replace($$?="New badword here ?",$chr(35),[d]) | spamlists }
    if ($did == 5) {
        if ($did(spam,3).lines > 1) writeini spam.ini Channel Badwords $remove($readini(spam.ini,channel,badwords),$replace($did(spam,3).seltext,$chr(35),[d])) 
        if ($did(spam,3).lines == 1) remini spam.ini Channel Badwords
        spamlists
    }

    if ($did == 7) { writeini spam.ini Channel Excludes $readini(spam.ini,channel,excludes) $replace($$?="Chan to exclude ?",$chr(35),[d]) | spamlists }
    if ($did == 8) {
        if ($did(spam,9).lines > 1) writeini spam.ini Channel Excludes $remove($readini(spam.ini,channel,excludes),$replace($did(spam,9).seltext,$chr(35),[d])) 
        if ($did(spam,9).lines == 1) remini spam.ini Channel Excludes
        spamlists
    }

    if ($did == 18) { writeini spam.ini PV Badwords $readini(spam.ini,pv,badwords) $replace($$?="New badword here ?",$chr(35),[d]) | spamlists }
    if ($did == 19) {
        if ($did(spam,22).lines > 1) writeini spam.ini PV Badwords $remove($readini(spam.ini,pv,badwords),$replace($did(spam,22).seltext,$chr(35),[d])) 
        if ($did(spam,22).lines == 1) remini spam.ini PV Badwords
        spamlists
    }

    if ($did == 20) { writeini spam.ini PV Excludes $readini(spam.ini,pv,excludes) $replace($$?="Nick to exclude here ?",$chr(35),[d]) | spamlists }
    if ($did == 21) {
        if ($did(spam,23).lines > 1) writeini spam.ini PV Excludes $remove($readini(spam.ini,pv,excludes),$replace($did(spam,9).seltext,$chr(35),[d])) 
        if ($did(spam,23).lines == 1) remini spam.ini PV Excludes
        spamlists
    }

    ;##############################
    ;Korn_linkinpark474@yahoo.com #
    ;##############################

    if ($did == 40) { did $iif($did(spam,40).state == 1,-e,-b) spam 48 }
    if ($did == 46) { did $iif($did(spam,46).state == 1,-e,-b) spam 52 }

    if ($did == 15) {
        writeini spam.ini Channel Wmess $did(50)
        writeini spam.ini Channel Pmess $did(33)
        writeini spam.ini PV Wmess $did(16)
        if ($did(48)) writeini spam.ini Channel Bantime $did(48) 
        if ($did(52)) writeini spam.ini PV Ignoretime $did(52) 
        if (!$did(48)) remini spam.ini Channel Bantime 
        if (!$did(52)) remini spam.ini PV Ignoretime 

        writeini spam.ini Channel Warning $did(37).state 
        writeini spam.ini Channel Reply $did(38).state 
        writeini spam.ini Channel Kick $did(39).state 
        writeini spam.ini Channel Ban $did(40).state

        writeini spam.ini PV Warning $did(44).state 
        writeini spam.ini PV Close $did(45).state 
        writeini spam.ini PV Ignore $did(46).state

        writeini spam.ini Channel Banops $did(53).state 
        writeini spam.ini Channel Banvoices $did(54).state 

        writeini spam.ini Infos Disable $did(55).state

    }

    }
}

alias spamlists {
    did -r spam 3 | did -r spam 9 | did -r spam 22 | did -r spam 23
    var %i = 1
    while ($gettok($readini(spam.ini,channel,badwords),%i,32)) { did -a spam 3 $replace($gettok($readini(spam.ini,channel,badwords),%i,32),[d],$chr(35)) | inc %i }

    var %i = 1
    while ($gettok($readini(spam.ini,channel,excludes),%i,32)) { did -a spam 9 $replace($gettok($readini(spam.ini,channel,excludes),%i,32),[d],$chr(35)) | inc %i }

    var %i = 1
    while ($gettok($readini(spam.ini,pv,badwords),%i,32)) { did -a spam 22 $replace($gettok($readini(spam.ini,pv,badwords),%i,32),[d],$chr(35)) | inc %i }

    var %i = 1
    while ($gettok($readini(spam.ini,pv,excludes),%i,32)) { did -a spam 23 $replace($gettok($readini(spam.ini,pv,excludes),%i,32),[d],$chr(35)) | inc %i }
}
;
on *:TEXT:*:#:{
    if (($nick isop $chan) && ($readini(spam.ini,channel,banops) == 1)) || (($nick isvoice $chan) && ($readini(spam.ini,channel,banvoices) == 1)) || ($nick isreg $chan) && ($me isop $chan) && ($readini(spam.ini,infos,disable) == 0) {
    if ($chan !isin $replace($readini(spam.ini,channel,excludes),[d],$chr(35))) {
        var %bad $replace($readini(spam.ini,channel,badwords),[d],$chr(35))
        var %i = 1
        while ($gettok(%bad,%i,32)) {

        if ($gettok(%bad,%i,32) isin $strip($remove($1-,$chr(32)))) {
            if ($readini(spam.ini,channel,warning) == 1) msg $chan $replace($readini(spam.ini,channel,wmess),<nick>,$nick,<bad>,$gettok(%bad,%i,32))
            if ($readini(spam.ini,channel,reply) == 1) && ($chr(35) isin $1-) && ($me !isin $wildtok($1-,#*,1,32)) { join $wildtok($1-,#*,1,32) | msg $wildtok($1-,#*,1,32) $replace($readini(spam.ini,channel,pmess),<nick>,$nick,<bad>,$gettok(%bad,%i,32),<chan>,$chan) | part $wildtok($1-,#*,1,32) }
            if ($readini(spam.ini,channel,ban) == 1) { mode $chan +b $address($nick,2) }
            if ($readini(spam.ini,channel,bantime)) { .timer 1 $calc($readini(spam.ini,channel,bantime)*60) mode $chan -b $address($nick,2) }
            if ($readini(spam.ini,channel,kick) == 1) { kick $chan $nick $replace($readini(spam.ini,channel,wmess),<nick>,$nick,<bad>,$gettok(%bad,%i,32))
            return
            }
        }
        inc %i
        }
    }
    }
    else return
}
on *:OPEN:?:*:{
    if ($nick !isin $read(spam.ini,pv,excludes)) && ($readini(spam.ini,infos,disable) == 0) {
    var %bad $replace($readini(spam.ini,pv,badwords),[d],$chr(35))
    var %i = 1
    while ($gettok(%bad,%i,32)) {
        if ($gettok(%bad,%i,32) isin $strip($remove($1-,$chr(32)))) {
        if ($readini(spam.ini,pv,warning) == 1) msg $nick $replace($readini(spam.ini,pv,wmess),<nick>,$nick,<bad>,$gettok(%bad,%i,32))
        if ($readini(spam.ini,pv,close) == 1) close -m $nick
        if ($readini(spam.ini,pv,ignore) == 1) ignore -p $nick
        if ($readini(spam.ini,pv,ignoretime)) .timer 1 $calc($readini(spam.ini,pv,ignoretime)*60) ignore -r $nick
        return
        }
        inc %i
    }
    }
}
;#########################
;Copyright November 2004##
;Http://cool-china.tk   ##
;No spammers v.1.2      ##
;       Masterz         ##
;#########################