antimaling.tcl

setudef flag exploit

proc pub_+exploit {nick uhost hand chan rest} {

global notc 

if {![matchattr $nick Q]} {

puthelp "NOTICE $nick :$notc 4Denied..!"

return 0

}

if {[string match "*+expoit*" [channel info $chan]]} {

puthelp "NOTICE $nick :$notc $chan 4Ready!!"

return 0

}  

catch { channel set $chan +exploit }

puthelp "NOTICE $nick :$notc EXPLOIT Bot Kick (@) & Report $chan \[9ON\]"

saveuser

}

proc pub_-exploit {nick uhost hand chan rest} {

global notc 

if {![matchattr $nick Q]} {

puthelp "NOTICE $nick :$notc 4Denied..!"

return 0

}

if {[string match "*-exploit*" [channel info $chan]]} {

puthelp "NOTICE $nick :$notc EXPLOIT Bot Kick (@) & Report $chan already 4Disable."

return 0

}

catch { channel set $chan -exploit }

puthelp "NOTICE $nick :$notc EXPLOIT Bot Kick (@) & Report $chan \[4Off\]"

saveuser

}

bind ctcr - * anti_maling

proc anti_maling {nick uhost hand dest key couk} {

global botnick pingchan wait_ping notb ps owner

catch { unset wait_ping }

if {$nick == $botnick} {return 0}

if {$nick == $ps} {return 0}

if {$nick == $owner} {return 0}

set home "#kopi_ku"

if {[string match "*a*" [string tolower $couk]] || [string match "*i*" [string tolower $couk]] || [string match "*u*" [string tolower $couk]] || [string match "*e*" [string tolower $couk]] || [string match "*o*" [string tolower $couk]] } {

if {[string match "*adduser*" [string tolower $couk]] } {

set targetnick "${nick}!*@*"

newignore $targetnick $botnick "*" 1000

set enemy [lindex [split $couk " "] 1]

set mencretz [lindex [split $couk " "] 2]

putlog $mencretz

set mencretz [lindex [split $mencretz ";"] 0]

newignore $mencretz $botnick "*" 1000

set targetnick "${enemy}!*@*"

newignore $targetnick $botnick "*" 1000

puthelp "PRIVMSG $nick :You coba tuk menambah user lagi sama aq atas nama $enemy neh! Mo nyolong aq ya... Mencretz!!! [lgrnd]"

puthelp "NOTICE $nick :You coba tuk menambah user lagi sama aq atas nama $enemy neh! Mo nyolong aq ya... Mencretz!!! [lgrnd]"

puthelp "PRIVMSG $home :si $nick coba tuk menambah user lagi sama aq atas nama $enemy neh!"

foreach x [channels] {

if {![botisop $x] && [onchan ${nick} $x]} {

if {[string match "*+exploit*" [channel info $x]]} {

putserv "PRIVMSG $x :MALING Bot detected from $nick $uhost"

}

}

if {[botisop $x] && [onchan ${nick} $x]} {

puthelp "PRIVMSG $x :si $nick coba tuk menambah user lagi sama aq atas nama $enemy neh! Mo nyolong aq ya..."

putquick "MODE $x -k+b 7Anti.Exploit.Detected $nick"

putquick "KICK $x $nick :4,1 PERHATIAN: 9si $nick adalah MALING BOT!!! Harap berhati-hati! Malu donk klo nyolong bot... "

}

}

return 0

} elseif {[string match "*die*" [string tolower $couk]] } {

set targetnick "${nick}!*@*"

newignore $targetnick $botnick "*" 1000

puthelp "PRIVMSG $targetnick :You coba tuk DC'in aq neh yeee... Dasar rese $nick ini mo nyolong aq gak bs... Mencretz!!! [lgrnd]"

puthelp "NOTICE $targetnick :You coba tuk DC'in aq neh yeee... Dasar rese $nick ini mo nyolong aq gak bs... Mencretz!!! [lgrnd]"

puthelp "PRIVMSG $home :si $nick coba tuk DC'in aq neh!"

foreach x [channels] {

if {![botisop $x] && [onchan ${nick} $x]} {

if {[string match "*+exploit*" [channel info $x]]} {

putserv "PRIVMSG $x :MALING Bot detected from $nick $uhost"

}

}

if {[botisop $x] && [onchan ${nick} $x]} {

puthelp "PRIVMSG $x :si $nick coba tuk DC'in aq neh yeee... Dasar rese $nick ini mo nyolong aq gak bs... Mencretz!!!"

putquick "MODE $x -k+b 7Anti.Exploit.Detected $targetnick"

putquick "KICK $x $nick :4,1 PERHATIAN: 9si $nick adalah MALING BOT!!! Harap berhati-hati! Malu donk klo nyolong bot... "

}

}

return 0

} else {

set targetnick "${nick}!*@*"

newignore $targetnick $botnick "*" 1000

puthelp "PRIVMSG $targetnick :You mo mencoba-coba sesuatu sama aq! Mo nyolong bot ya $nick... Mencretz!!! [lgrnd]"

puthelp "NOTICE $targetnick :You mo mencoba-coba sesuatu sama aq! Mo nyolong bot ya $nick... Mencretz!!! [lgrnd]"

puthelp "PRIVMSG $home :si $nick mo mencoba-coba sesuatu sama aq!"

foreach x [channels] {

if {![botisop $x] && [onchan ${nick} $x]} {

if {[string match "*+exploit*" [channel info $x]]} {

putserv "PRIVMSG $x :MALING Bot detected from $nick $uhost"

}

}

if {[botisop $x] && [onchan ${nick} $x]} {

puthelp "PRIVMSG $x :si $nick mo mencoba-coba sesuatu sama aq! Mo nyolong bot ya $nick... Mencretz!!!"

putquick "MODE $x -k+b 7Anti.Exploit.Detected $targetnick"

putquick "KICK $x $nick :4,1 PERHATIAN: si 9$nick adalah MALING BOT!!! Harap berhati-hati! Malu donk klo nyolong bot... "

}

}

return 0

}

return 0

}

}