egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2007-05-24T10:51:21-04:00 https://forum.eggheads.org/app.php/feed/topic/13506 2007-05-24T10:51:21-04:00 2007-05-24T10:51:21-04:00 https://forum.eggheads.org/viewtopic.php?p=72949#p72949 <![CDATA[Re: Thx]]>
thx for help me nml375 :)
ZEXEL always comment but he never help. I think ZEXEL know nothing. ZEXEL cuma banyak tanya aja tapi gak banyak membantu orang (Tong kosong and tukang komen) hahahahaha :lol:


:twisted: :twisted: :twisted: :twisted:
yoyoyo... Think before u post some thread, use the indent so the other can help u!
Read this. Many example script in this forum use indent before they post. We have a rules for help each other. Help us to help u and don't be stupid like a ripper! :wink:

Don't comment my self, take a look mirror who you are! :oops:

Statistics: Posted by ZEXEL — Thu May 24, 2007 10:51 am

]]> 2007-05-23T17:09:50-04:00 2007-05-23T17:09:50-04:00 https://forum.eggheads.org/viewtopic.php?p=72933#p72933 <![CDATA[Thx]]>
ZEXEL always comment but he never help. I think ZEXEL know nothing. ZEXEL cuma banyak tanya aja tapi gak banyak membantu orang (Tong kosong and tukang komen) hahahahaha :lol:


:twisted: :twisted: :twisted: :twisted:

Statistics: Posted by 473X — Wed May 23, 2007 5:09 pm

]]> 2007-05-21T12:38:38-04:00 2007-05-21T12:38:38-04:00 https://forum.eggheads.org/viewtopic.php?p=72889#p72889 <![CDATA[Need help with IDLE.tcl]]>

Code: 

proc check_away { from keyword arg } { global chanaway set awaytext [string range [lrange $arg 2 end] 1 end] set nickaway [lindex $arg 1]
Since arg is a string here, you can't use neither lindex or lrange without first converting it to a list (check the split-command for this).
Also, you really should considder concatenating your conditionals, ie use if {$a > 1 && $ < 2} { rather than nesting multiple conditionals, and you don't have to set a variable to a value such as this:

Code: 

set cekidle [getchanidle $user $chanaway]if {$cekidle > $idtimer} {
This works just aswell:

Code: 

if {[getchanidle $user $chanaway] > $idtimer} {
As for the original query, do as YooHoo suggests, the implementation should be simple as long as you read through the docs.

Statistics: Posted by nml375 — Mon May 21, 2007 12:38 pm

]]> 2007-05-21T00:11:18-04:00 2007-05-21T00:11:18-04:00 https://forum.eggheads.org/viewtopic.php?p=72878#p72878 <![CDATA[Need help with IDLE.tcl]]> setudef command, which, like all commands, can be found in the tcl-commands.doc

Statistics: Posted by YooHoo — Mon May 21, 2007 12:11 am

]]> 2007-05-20T23:20:47-04:00 2007-05-20T23:20:47-04:00 https://forum.eggheads.org/viewtopic.php?p=72876#p72876 <![CDATA[Need help with IDLE.tcl]]> Help us to help you :wink: before you post! Thx...

Statistics: Posted by ZEXEL — Sun May 20, 2007 11:20 pm

]]> 2007-05-20T12:15:12-04:00 2007-05-20T12:15:12-04:00 https://forum.eggheads.org/viewtopic.php?p=72865#p72865 <![CDATA[Need help with IDLE.tcl]]> This is an idle TCL, how to make it works into all channel automatically. When I command +idle the idle detection will set ON in channel, then -idle the idle will be set OFF.

Code: 

## idle DetecteD ##set timetocheckaway 10set chanaway "#allchannels"set idtimer 10#######TEST#######if {![info exists {ald}]} {global botnick chanaway timetocheckawayset ald 1timer ${timetocheckaway} printing}proc printing {} {global botnick chanaway timetocheckaway idtimerputlog "Check away on $chanaway"if {[botonchan $chanaway] == 1} {if {[botisop $chanaway]==1} {foreach user [chanlist $chanaway] {if {[isbotnick $user] == 0} {if {[isop $user $chanaway]==0} {if {[isvoice $user $chanaway] == 1} {set cekidle [getchanidle $user $chanaway]if {$cekidle > $idtimer} {set dodoldah "IdLe.DeteCteD"pushmode $chanaway -k $dodoldahpushmode $chanaway -v $user}putserv "WHOIS $user $user"#putlog "testing idle"}}}}}}timer ${timetocheckaway} printing}bind raw - 301 check_awayproc check_away { from keyword arg } {global chanawayset awaytext [string range [lrange $arg 2 end] 1 end]set nickaway [lindex $arg 1]if {[botonchan $chanaway] == 1} {if { $awaytext != "" } {if {[onchan $nickaway $chanaway] == 1} {if {[matchattr $nickaway f] != 1} {if {[isvoice $nickaway $chanaway] == 1} {pushmode $chanaway -v $nickaway#putlog "tesing idle"#if {[string match *k* [lindex [split [getchanmode $chanaway]] 0]]} {set dodoldah "IdLe.DeteCteD"pushmode $chanaway -k $dodoldah#}}}}}}}## idle DetecteD ##set timetocheckaway 5set chanaway "#allchannels"set idtimer 5#######JANGAN EDIT DI BAWAH INI LINES#######if {![info exists {ald}]} {global botnick chanaway timetocheckawayset ald 1timer ${timetocheckaway} printing}proc printing {} {global botnick chanaway timetocheckaway idtimerputlog "Check away on $chanaway"if {[botonchan $chanaway] == 1} {if {[botisop $chanaway]==1} {foreach user [chanlist $chanaway] {if {[isbotnick $user] == 0} {if {[isop $user $chanaway]==0} {if {[isvoice $user $chanaway] == 1} {set cekidle [getchanidle $user $chanaway]if {$cekidle > $idtimer} {set dodoldah "IdLe.DeteCteD"pushmode $chanaway -k $dodoldahpushmode $chanaway -v $user}putserv "WHOIS $user $user"#putlog "testing idle"}}}}}}timer ${timetocheckaway} printing}bind raw - 301 check_awayproc check_away { from keyword arg } {global chanawayset awaytext [string range [lrange $arg 2 end] 1 end]set nickaway [lindex $arg 1]if {[botonchan $chanaway] == 1} {if { $awaytext != "" } {if {[onchan $nickaway $chanaway] == 1} {if {[matchattr $nickaway f] != 1} {if {[isvoice $nickaway $chanaway] == 1} {pushmode $chanaway -v $nickaway#putlog "testing idle  $nickaway is away and devoice on $chanaway"#if {[string match *k* [lindex [split [getchanmode $chanaway]] 0]]} {set dodoldah "IdLe.DeteCteD"pushmode $chanaway -k $dodoldah}}}}}}

thx for help
:) :) :)

Statistics: Posted by 473X — Sun May 20, 2007 12:15 pm

]]>