mrc to tcl

[silverboy]

can anyone convert this .mrc to a tcl.

Code: Select all

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.
  }
}

[GeeX]

What function has this script?

[sleeplezz]

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?

[metroid]

Code: Select all

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

[silverboy]

thanks

[GHF]

on *:text:*:#Gline:{
gline $$2 .We do not allow proxy
}

Thanks