egghelp/eggheads community

Can anyone convert this into TCL please?

2004-12-30T05:36:57-04:00

You forgot to global it though

Statistics: Posted by metroid — Thu Dec 30, 2004 5:36 am

Can anyone convert this into TCL please?

2004-12-30T05:39:02-04:00

Making a channel string would work too

Code:

setudef str countset count [channel get #precisioneffect count]bind pub - "#PrecisionEffect %" fooproc foo {n u h c} {  incr ::count  puthelp "notice $n :You are number $::count to join $c since January 1, 2005"   channel set #precisioneffect count $count}

That would work too if you changed the pub to join but again if you happen to remove the bot from the chan by accident you would lose this count. Awyeahs suggestion is the wisest move in my opinion.

This should help.

Code:

## Set the filename hereset gJoinFile "JoinLog.log"bind join - "#PrecisionEffect %" fooproc foo {nick uhost hand chan} {     global gJoinFile    ## Open file and read the variable    if { [file exists $gJoinFile] == 1 } {        set FileHandle [open $gJoinFile "r"]        set TempString [read $FileHandle]        close $FileHandle        set lines [split $TempString "\n"]        set gJoinCounter [lindex $lines 0]    } else {        # Set the JoinCounter to 0 initially        set gJoinCounter 0    }    puthelp "notice $nick :You are number $gJoinCounter to join $chan since January 1, 2005"     incr gJoinCounter 1    ## Write the variable to file (remember opening with 'w' mode truncates the file contents)    set FileHandle [open $gJoinFile "w"]    puts $FileHandle $gJoinCounter    close $FileHandle    return}

cheers

// Edit Ooops Thanks Metroid

Statistics: Posted by ^DooM^ — Thu Dec 30, 2004 5:04 am

Can anyone convert this into TCL please?

2004-12-30T05:40:11-04:00

Making a channel string would work too

Code:

setudef str countset count [channel get #precisioneffect count]bind join - "#PrecisionEffect %" fooproc foo {n u h c} {  incr ::count  puthelp "notice $n :You are number $::count to join $c since January 1, 2005"   channel set #precisioneffect count $count}

Statistics: Posted by metroid — Thu Dec 30, 2004 3:03 am

Can anyone convert this into TCL please?

2004-12-29T20:36:29-04:00

Ofcourse it will reset the count if you rehash/restart. If you do not want it to reset you can use another bind evnt on prerehash and restart allowing not to reset the counter or transferring it to a dummy var, and after rehash/restart transfer it back to your count var.

The easiest and most efficient one would be to write it to a file, which would never get reset, and read it from there always.

Statistics: Posted by awyeah — Wed Dec 29, 2004 8:36 pm

Can anyone convert this into TCL please?

2004-12-29T13:02:43-04:00

That small script will work fine but it wont remember the number it got to if you rehash the bot it will start back at 1.

Statistics: Posted by ^DooM^ — Wed Dec 29, 2004 1:02 pm

Can anyone convert this into TCL please?

2004-12-29T12:47:36-04:00

Awesome, thank you very much

Statistics: Posted by stevegarbz — Wed Dec 29, 2004 12:47 pm

Can anyone convert this into TCL please?

2004-12-29T12:47:03-04:00

Lemme test it out, 1 sec

Statistics: Posted by stevegarbz — Wed Dec 29, 2004 12:47 pm

Can anyone convert this into TCL please?

2004-12-29T12:45:58-04:00

oops.. bind join, not bind pub

Statistics: Posted by demond — Wed Dec 29, 2004 12:45 pm

Can anyone convert this into TCL please?

2004-12-29T12:33:58-04:00

Hmm.. doesn't work for some reason?

- Won't notice me.

Statistics: Posted by stevegarbz — Wed Dec 29, 2004 12:33 pm

Can anyone convert this into TCL please?

2004-12-29T12:24:49-04:00

Code:

set count 0bind pub - "#PrecisionEffect %" fooproc foo {n u h c} {  incr ::count  puthelp "notice $n :You are number $::count to join $c since January 1, 2005"}

Statistics: Posted by demond — Wed Dec 29, 2004 12:24 pm

Can anyone convert this into TCL please?

2004-12-29T12:18:23-04:00

on *:JOIN:#PrecisionEffect:{
inc %join
notice $nick You are number %join to join $chan since January 1, 2005
}

Statistics: Posted by stevegarbz — Wed Dec 29, 2004 12:18 pm