egghelp/eggheads community

Only Version Certain Ips.

2013-02-01T04:48:08-04:00

Code:

set ctcpList [list "*!*@125.*" "*!*@118.*"]bind join - * version:joinbind ctcp - VERSION version:replyproc version:join {nick uhost hand chan} {global versionCheckif {[isbotnick $nick]} returnif {[matchattr $hand Pfov|Pfov $chan]} returnif {[lsearch -glob $::ctcpList "$nick!$uhost"]!=-1]} {if {[lsearch [array names versionCheck] $nick] != -1} returnputhelp "PRIVMSG $nick :\001Version\001"array set versionCheck { $nick 1 }utimer 90 [list version:punish $nick $uhost $chan]}}proc version:reply {nick uhost hand dest key text} {global versionCheckif {![isbotnick $dest]} returnif {[lsearch [array names versionCheck] $nick] != -1} returnarray unset versionCheck $nick}proc version:punish {nick uhost chan} {global versionCheckif {[lsearch [array names versionCheck] $nick] != -1} returnif {[onchan $nick $chan]} {putserv "MODE $chan +b *!*@[lindex [split $uhost @] 1]" putserv "KICK $chan $nick :Spam!"}array unset versionCheck $nick}

Haven't tested so let me know if you get any errors.

Statistics: Posted by caesar — Fri Feb 01, 2013 4:48 am

Only Version Certain Ips.

2013-01-31T17:26:11-04:00

You can try this if you have problems leave a reply and i will take a closer look at the code

Code:

bind ctcr - VERSION version:replybind join - * check:versionset temp(hosts) {"125.""133."}proc check:version {nick uhost hand chan} {global tempif {[isop $nick $chan] || [isvoice $nick $chan] || [matchattr $hand Pfov|Pfov $chan]} {return 0}global cversionchattr proxychk +|+P $chanset cversion([string tolower $nick]) 1foreach n [split $temp(hosts)] {if {[string match -nocase "$n*" [lindex [split [getchanhost $nick $chan] @] 1]]} {putserv "PRIVMSG $nick :\001Version\001"utimer 90 [list no:version:reply $nick $uhost $chan]}}}proc version:reply {nick uhost hand dest kw arg} {global cversionif {[info exists cversion([string tolower $nick])]} {unset cversion([string tolower $nick])}}proc no:version:reply {nick uhost chan} {global cversionif {[info exists cversion([string tolower $nick])] && [onchan $nick $chan]} {putserv "MODE $chan +b *!*@[lindex [split $uhost @] 1]"putserv "KICK $chan $nick : Spam"unset cversion([string tolower $nick])}}putlog "Version Kicker"

Statistics: Posted by Madalin — Thu Jan 31, 2013 5:26 pm

Only Version Certain Ips.

2010-01-16T00:36:27-04:00

hello all i have this working code with me however its versioning every ip but i jus want it to version certain ips like for example *!*@125.* *!*@118.* , i tried to play around with it but with no success,help will be appreciated.. Code is listed below :

Code:

bind ctcr - VERSION version:replybind join - * check:versionproc check:version {nick uhost hand chan} {if {[isop $nick $chan] || [isvoice $nick $chan] || [matchattr $hand Pfov|Pfov $chan]} {return 0}global cversionchattr proxychk +|+P $chanset cversion([string tolower $nick]) 1putserv "PRIVMSG $nick :\001Version\001"utimer 90 [list no:version:reply $nick $uhost $chan]}proc version:reply {nick uhost hand dest kw arg} {global cversionif {[info exists cversion([string tolower $nick])]} {unset cversion([string tolower $nick])}}proc no:version:reply {nick uhost chan} {global cversionif {[info exists cversion([string tolower $nick])] && [onchan $nick $chan]} {putserv "MODE $chan +b *!*@[lindex [split $uhost @] 1]"putserv "KICK $chan $nick : Spam"unset cversion([string tolower $nick])}}putlog "Version Kicker"

Thank you For Assisting.

Statistics: Posted by gamble27 — Sat Jan 16, 2010 12:36 am