need to convert mrc to tcl

[canercan]

on *:snotice:*:{
if $nick == $server {
if *clone alert* iswm $1- {
kline $+ (*@,$9) Clone Yapmayınız. 15
}
if *client connecting* iswm $1- {
fjoin $9 #chan
}
}
}

I am a novice I did it as below

bind notc - * ::ircd::notice

if $notc {
if $nick == $server {
}


if *client connecting* iswm $1- {
fjoin $9 #Sohbet
}

but it did not work can you do me a favour about converting it?
thanks

[r0t3n]

Well, you could try searching the TCL Archive or learning TCL. If you looked at a TCL Guide, the first thing you would notice is the binds and the proc.

Code: Select all

bind notc - * ::ircd::notice 

That bind looks fine to me, now you need to make a proc for this.

Code: Select all

proc ::ircd::notice {nick host hand} {
if {($nick == $server)} {
blah
}

I think that will work

I dont understand what you want the other code to do, what is it looking for in $1-

[De Kus]

I wouldn't use double colons in proc names unless I really wanted to use namespaces.

[canercan]

I want to fjoin people on connect so I need help. The code I wrote at the beginning is its .mrc but tcl?
thanks

[demond]

nope, you can't intercept server notices with [bind notc]

you need a raw bind:

Code: Select all

bind raw - NOTICE foo
proc foo {from keyword text} {
   scan $::server {%[^:]} server
   if {$from == $server} {
      set who [lindex [split $text] 9] ;# or whatever parameter number it is
      scan $who {%[^!]!%[^@]@%s} nick user host
      if {[string match -nocase "*clone alert*" $text]} {
         putserv "kline 300 *@$host :clones" ;# 300min temp kline
      } elseif {[string match -nocase "*client connecting*" $text]} {
         putserv "fjoin $nick #channel"
      }
   }
}

[canercan]

Thank you very much it does work