Chankey... error... help

vR|Ar · 21-04-2007, 03:49

Code:

proc chankey {chan args} {
  if {[channel get $chan chankey] && [botisop $chan]} {
  set chan [lindex $args 2]
  set chan [lindex $chan 1]
  set chankey [::stats::channel -get $chan chankey]
  if {[info exists chankey]} {
    putserv "JOIN $chan $chankey"
  }
}
}

Code:

bind raw - 475 chankey

!chanset chankey blabla
!chanset +chankey already executed

Help.. plz

lsn · 25-04-2007, 00:40

Code:

proc chankey {chan args} {
  set chan [lindex $args 2]
  set chan [lindex $chan 1]
  set chankey [::stats::channel -get $chan chankey]
  if {[llength chankey]} {
    putserv "JOIN $chan $chankey"
  }
}

vR|Ar · 03-05-2007, 13:27

Quote:

<AI-TCL> [09:24] Tcl error [chankey:key]: no such channel record

bind raw - 475 chankey:key

25-04-2007, 00:40	#2 (permalink)
lsn Member Join Date: Jun 2004 Location: In the NeXuS Posts: 160 Rep Power: 37	Code: proc chankey {chan args} { set chan [lindex $args 2] set chan [lindex $chan 1] set chankey [::stats::channel -get $chan chankey] if {[llength chankey]} { putserv "JOIN $chan $chankey" } } __________________ RESTRICTED AREA

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
[Correct script] putchan error	SoLLo	Tcl scripting	4	30-06-2007 13:45
eggdrop 1.6.17 error	OryNider	Eggdrop	5	10-09-2006 12:54

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)