egghelp/eggheads community

Greetd.tcl help SOLVED

2011-05-23T01:03:13-04:00

True, 'string map' is even better. Forgot all about it.

Statistics: Posted by caesar — Mon May 23, 2011 1:03 am

Greetd.tcl help SOLVED

2011-05-22T21:41:43-04:00

Also, instead of:
regsub -all "%nick" $welctxt "$nick" welctxt
regsub -all "%chan" $welctxt "$chan" welctxt
you can use 'subst' to get the same result.

And as well, you can use [string map] along with

instead of curly braces. So instead of all this below:
Code:
```
  set welctxt $welc(msg)  regsub -all "%nick" $welctxt "$nick" welctxt  regsub -all "%chan" $welctxt "$chan" welctxt 
```
Just do this:
Code:
```
set weltxt [string map [list "%nick" "$nick" "%chan" "$chan"] $welc(msg)]
```
Using subst most times isn't a clean approach. To me it is akin to regexp and regsub. Only to be used as a last resort.

Statistics: Posted by speechles — Sun May 22, 2011 9:41 pm

Greetd.tcl help SOLVED

2011-05-22T04:34:45-04:00

if {$nick != "Monkey"} {return}

You should use 'string equal -nocase' as you will sooner or later find out that for example 'Monkey' isn't equal with 'monkey'.

Also, instead of:

regsub -all "%nick" $welctxt "$nick" welctxt
regsub -all "%chan" $welctxt "$chan" welctxt

you can use 'subst' to get the same result.

Statistics: Posted by caesar — Sun May 22, 2011 4:34 am

Greetd.tcl help SOLVED

2011-05-22T03:25:20-04:00

Thanks got it running just right now

Statistics: Posted by tazd — Sun May 22, 2011 3:25 am

Greetd.tcl help SOLVED

2011-05-21T14:04:42-04:00

Code:

bind mode * "#nzbmatrix.chat +v" Monkey:voice proc Monkey:voice {nick uhost hand chan mode target} {           if {$nick != "Monkey"} {return}                 putserv "NOTICE $target :type !droid in $chan to list of help commands" }

should do what you want tazd

Statistics: Posted by doggo — Sat May 21, 2011 2:04 pm

Greetd.tcl help SOLVED

2011-05-21T13:33:02-04:00

I'd probably add a check somewhat like this:

Code:

if {[matchattr $hand +v-ho]} {  return}

That would make sure the user has the v flag but not the h nor o flag (checking for channel modes +ohv would be rather pointless, since noone will join the channel opped/voiced).

Statistics: Posted by nml375 — Sat May 21, 2011 1:33 pm

Greetd.tcl help SOLVED

2011-05-22T03:25:40-04:00

What i am trying o achieve is add the needed info to get this script to only announce to those that are give +v in a channel but not to those that are a halfop or above.

This shows what i tried with my limited knowledge and quick scan looking at things but its a no go so was hoping someone here could point me in the right direction.

Code:

bind mode - '% +h' userhop set welc(msg) "%nick type !droid in %chan to list of help commands"set welc(chan) "#channel"set welc(type) "1"bind join - #channel* givewelcomeproc givewelcome {nick uhost hand chan} {  global welc  set welctxt $welc(msg)  regsub -all "%nick" $welctxt "$nick" welctxt  regsub -all "%chan" $welctxt "$chan" welctxt  switch $welc(type) {    1 { puthelp "NOTICE $nick :$welctxt" }    2 { puthelp "PRIVMSG $nick :$welctxt" }  }}

Many thanks in advance

Moderated: Moved to Scripting Help.
Placed script-code inside proper tags.

/NML_375

Statistics: Posted by tazd — Sat May 21, 2011 9:28 am