Welcome message delay [solved]

Cr4sh · Post by **Cr4sh** » Fri Jun 02, 2006 8:09 am

I have these line:

proc onjoin {nick host hand chan} {
	global botnick
	if {$botnick == $nick} {
	} else {
		if {[validuser $nick] == 1} {
			if {[passwdok "$hand" ""] == "1"} {
				putlog "$nick ($hand) Does Not Have A Password Set.  /msg $nick."
				putserv "privmsg $nick :You Don't Have A Password Set On Me.  Please One Set One Now By Typing: /msg $botnick pass <PASSWORD>"
			}
		}
		putserv "privmsg $chan : <message>"
	}
}

I want to delay (about 15 sec.) the welcome message...
Please, how i must to modify for to do this?

DragnLord · Post by **DragnLord** » Fri Jun 02, 2006 8:32 am

this tip is only for adding the delay:
replace

Code: Select all

putserv "privmsg $chan : <message>"

with

Code: Select all

utimer 15 putserv "privmsg $chan : <message>"

(or

Code: Select all

utimer 15 { putserv "privmsg $chan : <message>" }

if you get errors on this part)

Cr4sh · Post by **Cr4sh** » Fri Jun 02, 2006 9:10 am

Thx man!

The last thing...
I want that only if the user remain on the channel, the bot give to him the welcome...
Something like this:

if ($1 ison #channel) {utimer 15 putserv "privmsg $chan : <message>"}

...i've tried to modify with utimer 15 putserv "privmsg $chan : <message>"...i read "Tcl error [onjoin]: wrong # args: should be "utimer seconds command""

with...utimer 15 { putserv "privmsg $chan : <message>" }...i read "Tcl error in script for 'timer356':"

avilon · Post by **avilon** » Fri Jun 02, 2006 9:51 am

Code: Select all

utimer 15 [list putserv "PRIVMSG $chan :<message>"]

Cr4sh · Post by **Cr4sh** » Fri Jun 02, 2006 10:00 am

This works good, thx

Now remain only one problem...

De Kus · Post by **De Kus** » Fri Jun 02, 2006 10:16 am

Maybe something like this?

Code: Select all

utimer 15 [list if [list [onchan $nick $chan]] [list putserv "PRIVMSG $chan :<message>"]]

Edit: I corrceted the script

Cr4sh · Post by **Cr4sh** » Fri Jun 02, 2006 10:41 am

Probably, but i read...Tcl error [onjoin]: wrong # args: should be "utimer seconds command"...

Cr4sh · Post by **Cr4sh** » Sun Jun 04, 2006 1:17 pm

Nobody else have an idea?

Post by **Sir_Fz** » Sun Jun 04, 2006 5:41 pm

Code: Select all

utimer 15 [list msgchan $nick $chan]

and add this proc to the script:

Code: Select all

proc msgchan {nick chan} {
 if {[onchan $nick $chan]} {
  puthelp "privmsg $chan :<message>"
 }
}

Cr4sh · Post by **Cr4sh** » Sun Jun 04, 2006 6:15 pm

YOU ARE GREAT!!!
Works perfectly, thx.