helloo can i find help with this tcl, :P

avilon · Post by **avilon** » Sat Apr 30, 2005 10:14 am

bind join -|- * whatever
proc whatever {nick host hand chan} {
	global modemr
	if {[matchban $nick!$host $chan] && ![info exists modemr($chan)]} {
		putquick "MODE $chan +MR"
		set modemr($chan) "1"
		utimer 10 [list puthelp "MODE $chan -MR"]
		utimer 11 [list unset modemr($chan)]
   }
}

$::modemr != $modemr if you don't define it globally

Bader · Post by **Bader** » Sat Apr 30, 2005 10:59 am

avilon wrote:

Code: Select all

bind join -|- * whatever
proc whatever {nick host hand chan} {
	global modemr
	if {[matchban $nick!$host $chan] && ![info exists modemr($chan)]} {
		putquick "MODE $chan +MR"
		set modemr($chan) "1"
		utimer 10 [list puthelp "MODE $chan -MR"]
		utimer 11 [list unset modemr($chan)]
   }
}

$::modemr != $modemr if you don't define it globally

[10:58] Tcl error [whatever]: can't set "modemr(#kw)": variable isn't array

Post by **Sir_Fz** » Sat Apr 30, 2005 11:30 am

That's because modemr is already set as a variable, you either need to change it's name or just restart.

Bader · Post by **Bader** » Sat Apr 30, 2005 2:43 pm

Sir_Fz wrote:That's because modemr is already set as a variable, you either need to change it's name or just restart.

thanks guys its working know, and good work