egghelp/eggheads community

helproom

2005-07-16T20:37:57-04:00

assuming your staff channel is called #room:

Code:

set staff #roomset online 0bind pubm - * fooproc foo {n u h c t} {   set cmd [lindex [split $t] 0]   switch -- $cmd {   "!help" {      if $::online {         puthelp "privmsg $n :hold on $n, someone will be with you shortly"         puthelp "privmsg $::room :$n needs help on $c (msg: [join [lrange [split $t] 1 e]])"      } {         puthelp "privmsg $n :sorry $n, we're currently busy, please try again later"      }   }   "!online" {if {$c == $::staff} {set ::online 1}}    "!offline" {if {$c == $::staff} {set ::online 0}}   }}

Statistics: Posted by demond — Sat Jul 16, 2005 8:37 pm

helproom

2005-07-16T18:18:41-04:00

It shows blahnick needs help in room. but in the staff room you cant do !online or !offline doesnt work or get any error. What can i do to get the help:proc to work?

Statistics: Posted by LiquidIce — Sat Jul 16, 2005 6:18 pm

helproom

2005-07-16T17:39:08-04:00

apparently your help:proc doesn't work either

substitute set $nick and unset $nick with unset nick, but that will fix syntax errors only, I doubt the script will be functional at all

Statistics: Posted by demond — Sat Jul 16, 2005 5:39 pm

helproom

2005-07-16T16:59:07-04:00

!online or offline command doesnt work

but when i do !help blah blah i get this error

Tcl error [help:proc]: can't read "LiquidIce": no such variable

Statistics: Posted by LiquidIce — Sat Jul 16, 2005 4:59 pm

helproom

2005-07-16T16:34:00-04:00

substitute [info exists $nick_to_help] with [info exists nick_to_help]

Statistics: Posted by demond — Sat Jul 16, 2005 4:34 pm

helproom

2005-07-16T16:13:33-04:00

Heres the script i need help with.
error i get when i do !online or !offline is
Tcl error [online:proc]: can't read "nick_to_help": no such variable

Code:
#helproom.tcl
set room1 "#room"
set room2 "#room.staff"

bind pub - !help help:proc
bind pub - !offline offline:proc
bind pub - !online online:proc

proc help:proc {nick uhost hand chan text} {
global room1 room2 nick_to_help
if {[string equal -nocase $chan $room1] && ![info exists nick_to_help]} {
putserv "PRIVMSG $room2 :\002NOTE\002: \002$nick\002 need's help in \002$room1\002. (Message: \002[lrange $text 0 end]\002)"
set $nick
}
}

proc online:proc {nick uhost hand chan text} {
global room1 room2 nick_to_help
if {[string equal -nocase $chan $room2] && [isop $nick $room2] && [info exists $nick_to_help]} {
putserv "PRIVMSG $room1 :\002$nick_to_help\002, please be *patient*. An \002op\002 will be with you in just a \002minute\002."
unset $nick
}
}

proc offline:proc {nick uhost hand chan text} {
global room1 room2 nick_to_help
if {[string equal -nocase $chan $room2] && [isop $nick $room2] && [info exists $nick_to_help]} {
putserv "PRIVMSG $room1 :\002$nick_to_help\002, please try back again *later*. There are \002no ops\002 currently to assist you at the \002moment\002."
unset $nick
}
}

Statistics: Posted by LiquidIce — Sat Jul 16, 2005 4:13 pm