Code:

if {![info exists tick(start)]} {  if {![file exists "tickstart.txt"]} {    set tick(start) [clock seconds] ;# set default value if file doesn't exist  } else {    set infile [open "tickstart.txt" r]    gets $infile tick(start)    close $infile    unset infile  }}

Code:

# initiate the start timebind pub - !starttick tick:startproc tick:start {nick uhost hand chan text} {  global tick  set tick(start) [clock seconds]  puthelp "PRIVMSG $chan :Started tick count at [clock format $tick(start)]"}bind pub - !tick tick:displayproc tick:display {nick uhost hand chan text} {  global tick  #incase !starttick wasn't used to (re)initiate the 'ticking'  if {![info exists tick(start)]} { set tick(start) [clock seconds] }    set ticks [lindex [split $text] 0] #if <ticks> argument wasn't specified, set default value  if {![string length $ticks]} { set ticks 0 } #tick calculations (60 seconds in a minute, 60 minutes in an hour)  set ticktime [expr {$tick(start) + (60 * 60 * $ticks)}] #display to user  puthelp "PRIVMSG $chan :\[TICK $ticks\] [clock format $ticktime]"}