Convert into TCL (easy)

stevegarbz · Post by **stevegarbz** » Thu Jul 21, 2005 9:54 pm

Can someone please convert this into TCL:

on *:NOTICE:*:#PE: { if ($nick !isop $chan) cs $chan tb $nick 5d Do not notice the channel. } }

demond · Post by **demond** » Thu Jul 21, 2005 10:17 pm

provided that "cs" is a server command and not some mIRC alias:

Code: Select all

bind notc - * foo
proc foo {n u h t d} {
   if {[str eq -noc $d #pe] && ![isop $n #pe]} {
      putserv "cs #pe tb $n 5d :Do not notice the channel."
   }
}

we should rank script requesters by the total number of requested scripts... guess who'd be #1

stevegarbz · Post by **stevegarbz** » Thu Jul 21, 2005 10:18 pm

Yep, thanks.

stevegarbz · Post by **stevegarbz** » Thu Jul 21, 2005 10:32 pm

Oh yeah, and for future references.

'str' was invalid, so I had to make it 'string'.

demond · Post by **demond** » Thu Jul 21, 2005 11:00 pm

oh, those str* commands in alltools.tcl...