I need a rezolve

duofruo · Post by **duofruo** » Sat Jan 31, 2004 11:58 am

I have this tcl code

proc !xadduser {nick host hand chan arg} {
        if {![onchan X $chan]} {return 0}
        global lol botnick
        if {![check $hand $nick $host]} {
                if {$lol(silent) == 1 || [checksilent $hand]} {return 0}
            puthelp "NOTICE $nick :You need to be identified to use this function."
                return 0
        }
        if {[llength $arg] < 1} {
                puthelp "NOTICE $nick :\002Usage\002!xadduser <username> <access>"
                return 0
        }
        putserv "privmsg X :adduser $chan $arg"
        putserv "privmsg $chan :typing command /msg X adduser \00302$chan\003 $arg"
        return 0
}

This is part of a script. But i wana add something. When X in not on chan to say something like

Code: Select all

Sorry X is not prezent on chan.

I can`t find the corect conditions. I put something but he olso wrote the second thing

Post by **caesar** » Sat Jan 31, 2004 2:13 pm

Have you even bothered to check the doc/tcl-commands.doc file for an answer?

Code: Select all

if {[onchan $chan X]} { # do your stuff }

duofruo · Post by **duofruo** » Sun Feb 01, 2004 5:02 am

Code: Select all

if {![onchan X $chan]} {puthelp "privmsg $chan :Sorry but i can`t see \00302X\003 on this channel."
              return 0
        }

cool . thx

duofruo · Post by **duofruo** » Sun Feb 01, 2004 7:38 am

Heh. i found out the ! is the oposite of the condition

Code: Select all

{![onchan X $chan]}

arcane · Post by **arcane** » Sun Feb 01, 2004 7:43 am

yes, you are a _real_ master...

Post by **caesar** » Sun Feb 01, 2004 11:10 am

omg, that's an miracle! had anyone got this on film?

duofruo · Post by **duofruo** » Sun Feb 01, 2004 12:36 pm

ha ha ha . laught about the beginner.