egghelp/eggheads community

Make a sort of countdown proc

2005-03-11T02:16:45-04:00

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

Statistics: Posted by metroid — Fri Mar 11, 2005 2:16 am

Make a sort of countdown proc

2005-03-11T01:45:33-04:00

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.

Statistics: Posted by De Kus — Fri Mar 11, 2005 1:45 am

Make a sort of countdown proc

2005-03-10T12:28:24-04:00

Code:

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

Statistics: Posted by greenbear — Thu Mar 10, 2005 12:28 pm

Make a sort of countdown proc

2005-03-10T09:27:20-04:00

got it to work with help from someone else

Code:

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

Statistics: Posted by metroid — Thu Mar 10, 2005 9:27 am