| View previous topic :: View next topic |
| Author |
Message |
silverboy
Halfop
Joined: 11 Feb 2006
Posts: 55
|
 Posted: Tue Jun 13, 2006 8:46 am Post subject: mrc to tcl |
 |
|
can anyone convert this .mrc to a tcl.
| Code: |
on !@*:join:#beach,#born2rule,#Maldives,#public: {
var %fa = $nick
var %admt = $address($nick,1)
if (users.undernet.org isin %admt ) {
halt
}
elseif (*1 iswm %fa || *2 iswm %fa || *0 iswm %fa || *3 iswm %fa || *4 iswm %fa || *5 iswm iswm %fa || *6 iswm %fa || *7 iswm %fa || *8 iswm %fa || *9 iswm %fa |) {
kick # $nick 14SPAM BOT detected!! Change nick/login to user before returning back.
echo $nick is a Spam Bot.
}
}
|
|
|
| Back to top |
|
 |
GeeX
Voice
Joined: 19 Sep 2005
Posts: 29
|
| Posted: Tue Jun 13, 2006 11:12 am Post subject: |
|
|
| What function has this script? |
|
| Back to top |
|
|
sleeplezz
Voice
Joined: 04 Jun 2006
Posts: 7
|
| Posted: Tue Jun 13, 2006 5:27 pm Post subject: |
|
|
| GeeX wrote: | | What function has this script? |
Scripts check every user who joining specified chan if you're an op, and get user address, if the address match with users.undernet.org, script will be halted, but if address match of a combination of numbers, script will start to kick that user with specified reason. And then echoing user nick as a spam bot, this function maybe same as putlog on tcl.
Is am right?  |
|
| Back to top |
|
|
metroid
Owner
Joined: 16 Jun 2004
Posts: 771
|
| Posted: Wed Jun 14, 2006 2:19 am Post subject: |
|
|
| Code: | set cchans {#beach #born2rule #Maldives #public}
bind JOIN -|- * checkjoin
proc checkjoin {nick host hand chan} {
global cchans
if {[lsearch $cchans $chan] >= 0 && ![string match *users.undernet* $host] && [string match {*[0-9]} $nick]} {
putquick "KICK $chan $nick :Spambot detected."
putlog "Spambot detected on $chan ($nick!$host)"
}
}
|
Something like this |
|
| Back to top |
|
|
silverboy
Halfop
Joined: 11 Feb 2006
Posts: 55
|
| Posted: Wed Jun 14, 2006 4:36 am Post subject: |
|
|
| thanks |
|
| Back to top |
|
|
GHF
Voice
Joined: 23 May 2012
Posts: 2
|
| Posted: Wed May 23, 2012 1:01 pm Post subject: Can you convert this for me? |
|
|
on *:text:*:#Gline:{
gline $$2 .We do not allow proxy
}
Thanks |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
