Make a sort of countdown proc

[metroid]

got it to work with help from someone else

Code: Select all

proc countdown {seconds} {
set minutes [expr $seconds / 60]
set seconds [expr $seconds % 60]
set hours [expr $minutes / 60]
set minutes [expr $minutes % 60]
set days  [expr $hours / 24]
set hours [expr $hours % 24]
return "[format "%d days, %02d:%02d:%02d" $days $hours $minutes $seconds]"
}

Only thing left to fix is that it won't choke on non-integers

[greenbear]

Code: Select all

if ![regexp \[0-9\] $seconds] {#not integer

[De Kus]

or try [string is integer -strict $seconds], this would be even true for integers surrounded by whitespaces (which is still a valid integer for expr) and is false on an empty string.

[metroid]

Yeah, i was attempting to make a proc which will display the exact count down in seconds etc,

As you are on Quakenet, you are probably familair with Q9 which uses the exact same countdown thing in his permban function