@program idled.muf
1 10000 d
i
$def }tell }cat me @ swap ansi_notify
$def }otell }cat me @ location #-1 rot ansi_notify_except
$def IDLESTATUS "IDLE"
lvar param

: idled
param !
param @ case
 "Idle" smatch when
   { "^RED^<^NORMAL^IdleDameon^RED^>^NORMAL^ " me @ " has gone IDLE." }otell
  me @ "~status" getprop IDLESTATUS smatch not if
   me @ "~laststatus" me @ "~status" getprop setprop
  then
  me @ "~status" IDLESTATUS setprop
  end
 "Unidle" smatch when
  { "^RED^<^NORMAL^IdleDameon^RED^>^NORMAL^ " me @ " has returned from IDLE, now going " me @ "~laststatus" getprop "." }otell
  me @ "~laststatus" getprop IDLESTATUS smatch if
   me @ "~laststatus" "IC" setprop
  then
  me @ "~status" me @ "~laststatus" getprop setprop
  end
default { "Invalid function call." }tell end
endcase
;
.
c
q