Can anyone convert this into TCL please?

[stevegarbz]

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

[demond]

Code: Select all

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

[stevegarbz]

Hmm.. doesn't work for some reason?

- Won't notice me.

[demond]

oops.. bind join, not bind pub

[stevegarbz]

Lemme test it out, 1 sec

[stevegarbz]

Awesome, thank you very much

[^DooM^]

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.

[awyeah]

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.

[metroid]

Making a channel string would work too

Code: Select all

setudef str count
set count [channel get #precisioneffect count]
bind join - "#PrecisionEffect %" foo
proc 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
}

[^DooM^]

Making a channel string would work too

Code: Select all

setudef str count
set count [channel get #precisioneffect count]
bind pub - "#PrecisionEffect %" foo
proc 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: Select all

## Set the filename here
set gJoinFile "JoinLog.log"

bind join - "#PrecisionEffect %" foo

proc 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

[metroid]

You forgot to global it though