Code: Select all
if{[getuser $user XTRA AUTHYES] == 1}
Code: Select all
if{[getuser $user XTRA AUTHYES] == 1}
Code: Select all
bind msg o auth authuser
proc authuser {nick host hand text} {
set authpass [lindex $text 0]
if {$authpass == "password"} {
setuser $hand XTRA "AUTHYES 1"
}
}
Code: Select all
if{[getuser $user XTRA AUTHYES] == 1}
Code: Select all
setuser $hand XTRA "AUTHYES 1"
Code: Select all
proc msgproc {what a stupid script} {
[/script]
$what would equal the nickname
$a would equal the userhost
$stupid would be the handle
and
$script would be the arguments
This simply sets what you want to refer to the variable as.
When using these variables in a script, you need to pass the correct one at the right time.
All the commands in tcl-commands.doc tell you want is expected, and what it will return.
Code: Select all
HANDLE PASS NOTES FLAGS LAST
alex yes 0 jmnoptx 21:59 (#.Power )
#.Power om 21:59
HOSTS: -telnet!*@*, *!type@123.12.*, *!type@*.192.O072=
JinXy yes 0 jmnoptx 21:44 (partyline )
HOSTS: *!noneya@321.107.99.*
Dr\\tz`{A yes 0 jptx 17:54 (#.Power )
#.Power o never
HOSTS: *!Death@21.4.76.*
Angelic`{ yes 0 jptx 17:02 (#.Power )
#.Power o never
HOSTS: *!Immortal1@12.70.93.*
Code: Select all
bind join * check:priority
proc check:priority {nick host hand chan} {
if {[matchchanattr $hand m $chan]} {
pushmode $chan +v $nick
return 0
}
if {[matchchanattr $hand o $chan]} {
pushmode $chan +v $nick
return 0
}
return 0
}
Code: Select all
matchattr $hand o|o