Welcome TCL for users

[alphax]

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: Select all

bind join - * channel:welcome
proc kanal:welcome {nick uhost handle chan} {
global botnick
if {$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."

}

[willyw]

First :

Code: Select all

bind join - * channel:welcome
proc 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: Select all

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.

[alphax]

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: Select all

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

[willyw]

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: Select all

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.

[alphax]

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.

<X-Bot> -noidle -antividle -antididle -join

I ask your help one more time

[willyw]

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

...

See this line:

Code: Select all

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: Select all

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

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

[alphax]

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

[willyw]

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: Select all

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.

[caesar]

Code: Select all

namespace eval welcome {

	set setup(help) "#helpchannel"
	set setup(op) "#opchannel"

	bind join - * [namespace current]::joined
	
	proc joined {nick uhost handle chan} {
		global setup
		if {[isbotnick $nick]} return
		if {![string equal -nocase $chan $setup(help)]} return
		utimer 3 [list [namespace current]::welcome $chan $nick]
	}
	
	proc welcome {chan nick} {
		global setup
		if {[isop $nick $chan]} return
		puthelp "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.

[simo]

the : namepsace eval welcome {


should probably be :

namespace eval welcome {

[caesar]

Heh. Lil typo. Thanks simo.