Here's little something for you tf users:

For tf5:

/status_rm mtime
/status_add -B@clock mtime:6

/repeat -n -1 i /setmtime

/def setmtime = /let tstr $[ftime("%H %M %S", time())] %;\
/test $[regmatch("([0-9]+) ([0-9]+) ([0-9]+)", {tstr})] %;\
/set mtime $[ {P1} / 0.24 + {P2} / 14.4 + {P3} / 864.0 ]


And for tf4:

; For tf4

/def setmtime = /let tstr $[ftime("%H %M %S", time())] %;\
/test $[regmatch("([0-9]+) ([0-9]+) ([0-9]+)", {tstr})] %;\
/set mtime $[ {P1} / 0.24 + {P2} / 14.4 + {P3} / 864.0 ] %; \
/repeat -1 1 /setmtime

/setmtime

/set status_fields=@more:8:Br :1 @world :1 @read:6 :1 @active:11 :1 @log:5 \
:1 @mail:6 :1 insert:6 :1 mtime:6 :1 @clock:5

/test status_fields := status_fields


Tomba