Code:

####################################################                                              ####             I d l E   T o o l Z              ####                                              ######  ##  ##  ##  ##  ##  ##  ##  ##  ##  ##  ######                                              ####     This script has a objective to take of   ####   op/voice to persons with superior idle     ####   value pre-defined. When the ppl lose the   ####   idle the script give it back the taken     ####   mode. This script it's configurated by     ####   console.                                   ####                                              ######  ##  ##  ##  ##  ##  ##  ##  ##  ##  ##  ######                                              ####                  e-mail:      mafiaz@gmx.net ####                  irc: MafiaZ @ irc.ptnet.org #########################################################################################################################  Settings  #################### Sets auto/off (1/0) check idleset itz_timer_on_off "1"# Interval between verifications of idle, in minutesset itz_between_checkz "15"# Maximum idle that a op/voice can have, in minutesset itz_max_idle "60"# Channels to look idle; leave "ALL" to look for in allset itz_check_channels "#test"# It does not verify bots (1 not verify; 0 verify)set itz_not_check_botz "1"# List of nicks that they are not verifiedset itz_exclude_nicks "dohko2006"################  End of Settings  ############################################################################################################################## Do NOT edit anything HERE! ###########set itz_list_of_voicez {}set itz_list_of_opz {}proc itz_lista {hand idx args} {global itz_list_of_opz itz_list_of_voicezputcmdlog "#$hand# idlelist of IdleToolZ"putdcc $idx "Ops:"foreach n $itz_list_of_opz {set nk [lindex $n [expr 0]]set ch [lindex $n [expr 1]]putdcc $idx ">> $nk ($ch)"}putdcc $idx "Voices:"foreach n $itz_list_of_voicez {set nk [lindex $n [expr 0]]set ch [lindex $n [expr 1]]putdcc $idx ">> $nk ($ch)"}}proc itz_set_ii {hand idx args} {global itz_between_checkzset itz_between_checkz $argsputcmdlog "#$hand# setinterval of IdleToolZ"putdcc $idx "Time between idle checks is set to: $args"}proc itz_set_is {hand idx args} {global itz_timer_on_offset itz_timer_on_off $argsputcmdlog "#$hand# setidlestatus of IdleToolZ"if {$itz_timer_on_off == 1} {putdcc $idx "Check idle status: AUTO"itz_run_timer} else {putdcc $idx "Check idle status: OFF"}}proc itz_set_mi {hand idx args} {global itz_max_idleset itz_max_idle $argsputcmdlog "#$hand# setmaxidle of IdleToolZ"putdcc $idx "Max idle is set to: $args"}proc itz_set_cc {hand idx args} {global itz_check_channelsputcmdlog "#$hand# setidlechans of IdleToolZ"if {[string tolower $args] == "all"} {set res "ALL"} else {set res ""foreach ch $args {set res "$res $ch"}}set itz_check_channels $resputdcc $idx "Check channels is set to: $itz_check_channels"}proc itz_add_en {hand idx args} {global itz_exclude_nicksputcmdlog "#$hand# addexclnick of IdleToolZ"if {[llength $args] >= 0} {set tmp [join $args " "]set itz_exclude_nicks "$tmp $itz_exclude_nicks"}putdcc $idx "Exclude nicks is set to: $itz_exclude_nicks"}proc itz_rem_en {hand idx args} {global itz_exclude_nicksputcmdlog "#$hand# remexclnick of IdleToolZ"set res ""foreach item $itz_exclude_nicks {if {[lsearch [string tolower [join $args " "]] [string tolower $item]] < 0} {set res "$res$item "}}set itz_exclude_nicks $resputdcc $idx "Exclude nicks is set to: $itz_exclude_nicks"}proc itz_rem_all_en {hand idx args} {global itz_exclude_nicksputcmdlog "#$hand# remallexclnick of IdleToolZ"set itz_exclude_nicks ""putdcc $idx "Exclude nicks is set to: $itz_exclude_nicks"}proc itz_get_ii {hand idx args} {global itz_between_checkzputcmdlog "#$hand# getinterval of IdleToolZ"putdcc $idx "Time between idle checks is: $itz_between_checkz"}proc itz_get_mi {hand idx args} {global itz_max_idleputcmdlog "#$hand# getmaxidle of IdleToolZ"putdcc $idx "Maximo idle es: $itz_max_idle"}proc itz_get_cc {hand idx args} {global itz_check_channelsputcmdlog "#$hand# getidlechans of IdleToolZ"putdcc $idx "Check channels is: $itz_check_channels"}proc itz_get_en {hand idx args} {global itz_exclude_nicksputcmdlog "#$hand# getexclnicks of IdleToolZ"putdcc $idx "Nicks Excluidos: $itz_exclude_nicks"}proc itz_get_all {hand idx args} {global itz_between_checkz itz_max_idle itz_check_channels itz_exclude_nicks itz_timer_on_offputcmdlog "#$hand# getidleall of IdleToolZ"if {$itz_timer_on_off == 1} {putdcc $idx "Check idle status: AUTO"} else {putdcc $idx "Check idle status: OFF"}putdcc $idx "Time between idle checks: $itz_between_checkz"putdcc $idx "Maximo idle: $itz_max_idle"putdcc $idx "Chequeando canal : $itz_check_channels"putdcc $idx "Nicks Excluidos: $itz_exclude_nicks"}proc itz_run_timer {} {global itz_timer_on_off itz_between_checkzif {(![string match "*itz_whois_engine*" [timers]]) && ($itz_timer_on_off == 1)} {timer $itz_between_checkz itz_whois_engine}}proc itz_checkidle {hand idx args} {putcmdlog "#$hand# checkidle of IdleToolZ"itz_whois_engine}proc itz_idlehelp {hand idx args} {putcmdlog "#$hand# idlehelp of IdleToolZ"putdcc $idx "Help of Idle ToolZ:"putdcc $idx "checkidle - Checks for people width idle;"putdcc $idx "setidlestatus (owners only) - Set auto/off (0/1) check idle;"putdcc $idx "idlelist - List of the people who are in idle and had lost op/voice;"putdcc $idx "getidleall - List of all the configurations;"putdcc $idx "setinterval (owners only) - Sets interval between verifications of idle, in minutes;"putdcc $idx "setmaxidle (owners only) - Sets maximum idle that a op/voice can have, in minutes;"putdcc $idx "setidlechans (owners only) - Sets channels to look idle; leave \"ALL\" to look for in all;"putdcc $idx "addexclnick (owners only) - Adds nicks to the list of that they are not verified;"putdcc $idx "remexclnick (owners only) - Removes nicks of the list of that they are not verified;"putdcc $idx "remallexclnick (owners only) - Removes all nicks of the list of that they are not verified;"putdcc $idx "getinterval - Gets interval between verifications of idle;"putdcc $idx "getmaxidle - Gets maximum idle that a op/voice can have;"putdcc $idx "getidlechans - Gets channels to look idle;"putdcc $idx "getexclnicks - List of nicks that they are not verified;"}proc itz_check {nick int argumentz} {global itz_max_idle itz_check_channels itz_list_of_opz itz_list_of_voicezset nick [lindex $argumentz 1]set lnick [string tolower $nick]set itz_idle [lindex $argumentz 2]set itz_idle_in_minutes [expr $itz_idle / 60]if {$itz_check_channels == "ALL"} {set itz_chan_temp [channels]} else {set itz_chan_temp $itz_check_channels}foreach itz_chan $itz_chan_temp {set itz_mods ""set itz_nks ""if {[onchan $lnick $itz_chan]} {set tmp "$nick $itz_chan"if {$itz_idle_in_minutes > $itz_max_idle} {if {[isop $lnick $itz_chan]} {putlog "DEOP ($itz_chan): $nick - Idle: $itz_idle_in_minutes minutes"set itz_mods "$itz_mods-o"set itz_nks "$itz_nks $lnick"if {[lsearch $itz_list_of_opz $tmp] == -1} {lappend itz_list_of_opz $tmp}}} else {set pos [lsearch $itz_list_of_opz $tmp]if {$pos != -1} {if {$itz_idle_in_minutes < $itz_max_idle} {putlog "OP ($itz_chan): $nick - Idle: $itz_idle_in_minutes minutes"set itz_mods "$itz_mods+o"set itz_nks "$itz_nks $lnick"set itz_list_of_opzt {}foreach n $itz_list_of_opz {if {$n != $tmp} {lappend itz_list_of_opzt $n}}set itz_list_of_opz {}foreach n $itz_list_of_opzt {lappend itz_list_of_opz $n}}}}putserv "MODE $itz_chan $itz_mods $itz_nks"}}}proc itz_whois_engine {} {global itz_check_channels botnick itz_not_check_botz itz_list_of_opz itz_list_of_voicez itz_exclude_nicksif {$itz_check_channels == "ALL"} {set itz_chan_temp [channels]} else {set itz_chan_temp $itz_check_channels}set tmp_ch [join $itz_chan_temp " "]putlog "Checking for idle: $tmp_ch"foreach itz_chan $itz_chan_temp {foreach coisa [chanlist $itz_chan] { if {[isop $coisa $itz_chan]} {set pos [lsearch [string tolower $itz_exclude_nicks] [string tolower $coisa]]if {$itz_not_check_botz == 1} {if {(![matchattr [nick2hand $coisa $itz_chan] b]) && ($coisa != $botnick) && ($pos == -1)} {putserv "WHOIS $coisa $coisa"}}if {$itz_not_check_botz == 0} {if {$coisa != $botnick && ($pos == -1)} {putserv "WHOIS $coisa $coisa"}}} } }set itz_list_of_opzt {}foreach n $itz_list_of_opz {set nk [lindex $n 0]if {[onchan $nk [lindex $n 1]]} {putserv "WHOIS $nk $nk"lappend itz_list_of_opzt $n}}set itz_list_of_opz {}foreach n $itz_list_of_opzt {lappend itz_list_of_opz $n}set itz_list_of_voicezt {}foreach n $itz_list_of_voicez {set nk [lindex $n 0]if {[onchan $nk [lindex $n 1]]} {putserv "WHOIS $nk $nk"lappend itz_list_of_voicezt $n}}set itz_list_of_voicez {}foreach n $itz_list_of_voicezt {lappend itz_list_of_voicez $n}itz_run_timer}itz_run_timerbind dcc -|- checkidle itz_checkidlebind dcc n setinterval itz_set_iibind dcc n setmaxidle itz_set_mibind dcc n setidlechans itz_set_ccbind dcc n addexclnick itz_add_enbind dcc n remexclnick itz_rem_enbind dcc n remallexclnick itz_rem_all_enbind dcc n setidlestatus itz_set_isbind dcc -|- idlelist itz_listabind dcc -|- getinterval itz_get_iibind dcc -|- getmaxidle itz_get_mibind dcc -|- getidlechans itz_get_ccbind dcc -|- getexclnicks itz_get_enbind dcc -|- getidleall itz_get_allbind dcc -|- idlehelp itz_idlehelpbind raw - 317 itz_checkputlog "4IdlE ToolZ by 12MafiaZ is loaded!"putlog "4Type .idlehelp for more help."################### END OF FILE ####################################################################

Code:

if {$itz_idle_in_minutes > $itz_max_idle} {

Code:

if {[$itz_idle_in_minutes > $itz_max_idle] ||  [getchanidle $nick $itz_chan] > $itz_max_idle} {

Code:

[11:44]Tcl error [itz_check]: invalid command name "5" [11:44] Tcl error [itz_check]: invalid command name "15" [11:44] Tcl error [itz_check]: invalid command name "0"