egghelp/eggheads community

energymech 3.0 is out....

proc team:addmatch {nick uhost handle channel arg} { global tmatch set check [team:charfilter $arg] if {$check!=1} { putserv "notice $nick :Invalid Character" return0 } if {([lsearch $arg "team(*"]==-1) || ([lsearch $arg "date(*"]==-1) || ([lsearch $arg "map(*&quo...

proc team:tmatchlist {channel} { global tfile if {![file readable $tfile(dir)/tmatch-$channel]} { set fileio [open $tfile(dir)/tmatch-$channel w] puts $fileio "" close $fileio } putlog "1" return $tfile(dir)/tmatch-$channel putlog "123" } the bot return [17:28] 1 [17:2...

ok, what can It converte date(18:00-15/04/04) to valid date/time format?

thks.

hi, i have this code set infos [string range $buf 5 [expr [string first ")" $buf] -1]] set infos [clock scan " [string range $infos 12 13] [string range $infos 9 10] [string range $infos 6 7] [string range $infos 0 1] [string range $infos 3 4] 00"] .addmatch date(18:00-15/04/04) ...

set topicchan "#velug" bind topc - * topicchange proc topicchange {nick uhost handle channel topic} { global botnick topicchan set channel [string tolower $channel] if {($nick!=$botnick)&&($channel==$topicchan)} { set topic [topic $topicchan] putserv"TOPIC$topicchan:\002www.l...

hi, i have this script set topicchan "#velug" bind topc - * topicchange proc topicchange {nick uhost handle channel topic} { global botnick topicchan set channel [string tolower $channel] if {($nick!=$botnick)&&($channel==$topicchan)} { topicmanager } } proc topicmanager {} { globa...

Ofloo wrote:why rehash ??

i think you could add the bind on botnick well it should work if it will thats an other story

ej. of the bind on botnick pls

is fix with dumb way

bind evnt - init-server team:event

proc team:event {type} {
rehash
}



thks

sorry my bad
the string arent a-k is only ej.
the string are commands, roster, rules, records, servers....
how can i check if?

i have 11 conditions in a proc. if {[lindex $text 0] == "commands"} { pub:learn:add $nick $chan[lrange $text 0 end] return 0 } if {[lindex $text 0] == "rosters"} { pub:learn:add $nick $chan[lrange $text 0 end] return 0 } to...... if {[lindex $text 0] == "servers"} { pub...

thks, can i do some bind as
bind evnt - init-server proc to set the value?
if i can what is the arguments sent to the tcl proc?

hi, i have a script
set trigger "$botnick:"

bind pub - $trigger proc

i like the bot responde when some one write in channel bot: ***
when i run the bot or do .restart the proc dont work, but it i do rehash the proc work.

what are the error?

thks

apt-get update
apt-get install tcl8.3-dev

if u using stable(woody)

try with next.tcl