Chainz away system

::::::::::::::::::::::::<br />
::  Chain's Away dialog<br />
::<br />
::   November.6,2008<br />
::<br />
:::::::::::::::::::::::: </p>
<p>dialog away {<br />
  title "Chainz away system"<br />
  size -1 -1 121 52<br />
  option dbu<br />
  icon C:\Chain's\images\away.ico<br />
  box " Reason:", 1, 26 1 91 12<br />
  box "Away Nick:", 2, 27 21 90 13<br />
  button "Go", 3, 6 3 15 10<br />
  button "Bk", 4, 6 19 15 10<br />
  button "Exit", 5, 6 33 15 10, cancel<br />
  edit "", 6, 28 10 86 10, autohs<br />
  edit "", 7, 28 30 86 10, autohs<br />
}<br />
on *:dialog:away:sclick:3: {<br />
  set %away.time $ctime<br />
  set %away.nick.2 $me<br />
  set %away.nick $did(6).text<br />
  set %nick.nick $did(7).text<br />
  if (%away.nick == $null) {<br />
    amsg I am now Away<br />
    away %away.nick<br />
  }<br />
  else {<br />
    amsg I am now away, reason:4 %away.nick<br />
    nick %nick.nick<br />
    away %away.nick<br />
  }<br />
}<br />
on *:dialog:away:init:0:{<br />
  did -a away 6 %away.nick<br />
  did -a away 7 %nick.nick<br />
}<br />
on *:dialog:away:sclick:4: {<br />
  nick %away.nick.2<br />
  amsg 14I am now back from:4 %away.nick 14I was gone for:4 $duration($calc($ctime - %away.time))<br />
  away<br />
}<br />
menu channel,query {<br />
  away system:dialog -m away away<br />
 <br />
}