egghelp/eggheads community

so what do you care if they use another method with no clickable links? nobody will bother to manually strip the spam and paste it in their browser - people are lazy, spammers know that; spam without clickable links is harmless (annoying yes, but that's all about it) as you say they are annoying. i...

this will strip mIRC color and control codes: regsub -all {([\002\017\026\037]|[\003]{1}[0-9]{0,2}[\,]{0,1}[0-9]{0,2})} $str {} str and this will match a hotlink (clickable URL) or chan ad: regexp {(?i)(http://|www\.|irc\.|\s#)} $str thats the problem, i know those codes and was using them. but unf...

about the second problem can someone help me?

i think one if and else should be enough, like if nick starts with the letter a-q do something else do nothing...

this will strip mIRC color and control codes: regsub -all {([\002\017\026\037]|[\003]{1}[0-9]{0,2}[\,]{0,1}[0-9]{0,2})} $str {} str and this will match a hotlink (clickable URL) or chan ad: regexp {(?i)(http://|www\.|irc\.|\s#)} $str thats the problem, i know those codes and was using them. but unf...

Hi, i was working on spammers a while ago and im back again. but now spammers get developed. they really got weird spam methods. here are some of the examples: ºwºwºwº I¤R¤C (using with color and it seem like w w w and I R C) lots of thing like that. i think they all can be catch by using "rege...

hi i m writing a script for a kind of spammer which spam's by using away messages. there is a bot on my channel which messages all users. i make something like that: set kanal "#achan" proc ctrl:filter {str} { regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str...

Something like this? (not tested) foreach ban [lrange [lsort -index 2 -int -decreasing [chanbans #chan]] 0 5] { pushmode #chan -b $ban } well it works partly, i add a line like putlog "$ban" and it shows the right bans. but it doesnt unban them. its about pushmode i think. any idea? im us...

Something like this? (not tested) foreach ban [lrange [lsort -index 2 -int -decreasing [chanbans #chan]] 0 5] { pushmode #chan -b $ban } well it works partly, i add a line like putlog "$ban" and it shows the right bans. but it doesnt unban them. its about pushmode i think. any idea?[/code]

i found how to ban nick names. but the unbaning oldest 6 ban i wonder why doesnt someone reply to that topic?

anyone? BTW I did post the code, someone removed it and added that link to the script. i didnt see the code (it asks a password etc) but u could add a line before +b $uhost part or newchanban. something like: set spamreport_chan "#achan" putquick "PRIVMSG $spamreport_chan :$chan $nic...

maybe u can use this (it has been advised by someone else a few months ago to me) set cyclekanal "#zurna" set zamancycle 15 set timewait 1 bind RAW * 366 cyclestart proc cyclestart { from key arg } { global cyclekanal zamancycle set chan [lindex [split $arg] 1] if { $chan != $cyclekanal } ...

set nekadarban 120 # 1: *!*hesap@*.domain *!*hesap@A.B.C.* # 2: *!*@domain *!*@A.B.C.D # 3: Nick!*@* set bancesidi 2 set Ban "banned: Reklam yapmayınız..!" bind join - "*gulcinn*" kotunick bind join - "*Afet^*" kotunick bind join - "*Ebru_*" kotunick global v...

Example: bind pub o ${nick} my:pub proc my:pub {nick uhost hand chan text} { switch -- [strlwr [lindex $text 0]] { "op" { #your op stuff here } default { # default stuff goes here } } } sorry about my lame but i think i couldnt fix something :-? :cry: i have changed the code like dat: bin...

how can we make these changes if we can't see the code ? :oops: :oops: you are right set dop(chanchar) "*" bind pub -|- [string trim $dop(chanchar)]op dop:cop bind pub -|- [string trim $dop(chanchar)]chaninfo dop:cchaninfo bla bla.. proc dop:cop {nick host hand chan arg} { global dop if {...

Sir_Fz wrote:remove that tcl, and use a tcl which performs commands when you type botnick command.

haha yea sure i have to use that script but with the changes do i want much ?