egghelp/eggheads community

Welcome TCL for users

2017-05-29T11:45:43-04:00

Heh. Lil typo. Thanks simo.

Statistics: Posted by caesar — Mon May 29, 2017 11:45 am

Welcome TCL for users

2017-05-29T10:39:37-04:00

the : namepsace eval welcome {

should probably be :

namespace eval welcome {

Statistics: Posted by simo — Mon May 29, 2017 10:39 am

Welcome TCL for users

2017-05-29T11:46:11-04:00

Code:

namespace eval welcome {set setup(help) "#helpchannel"set setup(op) "#opchannel"bind join - * [namespace current]::joinedproc joined {nick uhost handle chan} {global setupif {[isbotnick $nick]} returnif {![string equal -nocase $chan $setup(help)]} returnutimer 3 [list [namespace current]::welcome $chan $nick]}proc welcome {chan nick} {global setupif {[isop $nick $chan]} returnputhelp "PRIVMSG $setup(op) :$nick wait in $setup(help)"puthelp "PRIVMSG $nick :Please wait you will be get help soon."}}

Haven't tested.

Edit: Corrected lil typo.

Statistics: Posted by caesar — Mon May 29, 2017 2:07 am

Welcome TCL for users

2017-05-28T15:57:29-04:00

yes sir you are right it works but it notification other channels too. i want notification just for help channel. Bot is in another channels and i do not want to notification from another channels. and when i tried for other channels .chanset #channel -join it keep notification to op channel too

See this line:

Code:

bind join -|- * new_join

Then see this for reference:
http://www.eggheads.org/support/egghtml ... mands.html
and text search it to find : bind join

Part of what can be learned there is:

The mask in the bind is matched against "#channel nick!user@host" and can contain wildcards.

So if you want to limit this to just one channel, you could edit that bind line so that it only triggers on one channel. However, using .chanset with the User defined channel flag should do it too.

Statistics: Posted by willyw — Sun May 28, 2017 3:57 pm

Welcome TCL for users

2017-05-28T15:43:51-04:00

yes sir you are right it works but it notification other channels too. i want notification just for help channel. Bot is in another channels and i do not want to notification from another channels. and when i tried for other channels .chanset #channel -join it keep notification to op channel too

Statistics: Posted by alphax — Sun May 28, 2017 3:43 pm

Welcome TCL for users

2017-05-28T14:13:18-04:00

...
I look with .chaninfo command it is -join but it still give notification.

...

See this line:

Code:

if {![channel get $chan join] && ![botisop $chan]} {return 0}

and experiment with and without the ! for botisop command.
I don't know which way you really want it.

I tested it, and it works for me.
I hope this helps.

Edit:
This line:

Code:

 putserv "PRIVMSG @$receiver :WARNING: $nick waits for help."

has an @ in it. I did remove that when I tested.

Statistics: Posted by willyw — Sun May 28, 2017 2:13 pm

Welcome TCL for users

2017-05-28T13:54:03-04:00

Thank you for your reply. I tried what you said to me. But it does not work.

I look with .chaninfo command it is -join but it still give notification. i changed several times for be sure. it is the same

.chanset #channel -join does not work.

-noidle -antividle -antididle -join

I ask your help one more time

Statistics: Posted by alphax — Sun May 28, 2017 1:54 pm

Welcome TCL for users

2017-05-28T13:20:16-04:00

See that
setudef
command and then in the proc, see the
channel get
command? It is looking at the value of that User defined channel flag created by the setudef command.

In partyline, do:
.chaninfo #channelname
and see the section: User defined channel flags:
You should see one named: join
If it is -join , then this line in the script:

Code:

if {![channel get $chan join] && ![botisop $chan]} {return 0}

will cause it to quit right there.

If you want it to be "on" in some channel, then you do:
.chanset #channelname +join
to change its value.
Simply check it again, with another .chaninfo #channelname to be sure.

Then test your script again.

Statistics: Posted by willyw — Sun May 28, 2017 1:20 pm

Welcome TCL for users

2017-05-28T12:46:24-04:00

Hey there,

First of all thank you for your answer. Everything is okay now. But there is a one little problem. it see other channel to i want it just for help channel. Can you help me to solve that? By the way i tried .chanset command but there is no solution. Thank you.

Code:

bind join -|- * new_join setudef flag join set receiver "#Op" set exemptchan "#Help" proc new_join {nick uhost handle chan} {  global receiver exemptchan if {![channel get $chan join] && ![botisop $chan]} {return 0} utimer 1 [list check:after $nick $chan ] } proc check:after {nick chan} {  global receiver exemptchan  if {![isop $nick $chan] && ![string equal -nocase $exemptchan $chan]} {    putserv "PRIVMSG @$receiver :WARNING: $nick waits for help."   }  }

Statistics: Posted by alphax — Sun May 28, 2017 12:46 pm

Re: Welcome TCL for users

2017-05-27T18:32:19-04:00

First :

Code:

bind join - * channel:welcomeproc kanal:welcome {nick uhost handle chan} { ...

The proc called by the bind join is not the proc shown here.
Perhaps it is just some sort of typo... ?

Next:
I'm thinking that you might want to cut this line:

Code:

putquick "PRIVMSG $nick :Please wait you will be get help soon."

and put it in a separate proc.

Then, you can call that proc, after a delay - using utimer .
This idea is to give time for Chanserv to op.

Then, in this proc, check to see if the user is op'd.
If op'd, just quit. If not, then do the announcement.

Go here:
http://docs.eggheads.org/mainDocs/tcl-commands.html
and text search for
utimer
and
isop
and read about them, and how to use them.

I hope this helps.

Perhaps someone else will be along with a different idea, too.

Statistics: Posted by willyw — Sat May 27, 2017 6:32 pm

Welcome TCL for users

2017-05-27T16:28:39-04:00

Hey there,

i have trouble with that code. That code notification for all. But i want to notification for just users not ops.

So when op joins help channel no notification. i want to notification for just users. and dont notification for oper and admins.

i need a little help. Ty.

Code:

bind join - * channel:welcomeproc kanal:welcome {nick uhost handle chan} {global botnickif {$nick == $botnick} { return 0 }if {[string match -nocase "#helpchannel" $chan]} {putquick "PRIVMSG #opchannel :# $nick wait in#helpchannel"putquick "PRIVMSG $nick :Please wait you will be get help soon."}

Statistics: Posted by alphax — Sat May 27, 2017 4:28 pm