All pastes #472902 Raw Edit
Mylesmart

public text v1 · immutable
·published 2007-05-05 22:01 UTC
menu * { 
  Away Dialog: dialog -m Away Away 
} 
dialog Away { 
  title "Away Dialog  ©2007 " 
  size -1 -1 186 148 
  option dbu 
  button "Away Dialog", 1, 60 3 70 12 
  link "SwiftIRC", 2, 145 4 32 8 
  box "Away Options", 3, 7 19 50 50 
  button "Set Away", 4, 12 28 37 12 
  button "Set Back", 5, 12 46 37 12 
  box "Adding Messages", 6, 67 19 100 59 
  edit "", 7, 71 27 91 33, multi,edit "", %awaysystemmessage 
  list 8, 7 90 84 50, size vsbar 
  box "Already Added Messages", 9, 3 80 94 65 
  button "Add Message", 10, 93 62 38 12 
} 

on *:dialog:Away:sclick:*: { 
  if ($did == 4)  amsg 1***12[1Away12] 1 Reason  12 $did(8).seltext 1 Left At 12 $asctime  
  if ($did == 5) amsg 1***12[1Back12] 1 From Reason  12 $did(8).seltext 1 Gone For 12  $duration($calc($ctime - %away)) 
  if ($did == 10) /did -a $dname 8 $did(7) 
} 
on *:dialog:Away:init:0:{ /did -a $dname 8 %awaysystemmessage 
}