alias Memo {
  dialog -m -Memo -memo
}
 
menu status,channel,menubar {
  Memo System:/Memo
} 
 
dialog -Memo {
  title "Memo System Scripted by Danny"
  size -1 -1 420 390
  button "Check", 1, 010 005 100 22,left push flat
  button "Read", 2, 110 005 100 22,left push flat
  button "Send", 3, 210 005 100 22,left push flat
  button "Delete", 4, 310 005 100 22,left push flat
  box "Place in this box the nick name you are sending a memo to", 9, 005 042 410 46
  edit "", 5, 010 057 400 22,  
  box "Place in the box the memo number you want to read or delete", 10, 005 90 410 46
  edit "", 6, 010 107 400 22,
  box "Place in this box the text you are memoing", 11, 005 137 410 90
  edit "", 7, 010 160 400 60, autohs
  box "WHEN CHECKIN OR READIN A MEMO PLEASE DOUBLE CLICK SLOWLY", 12, 005 230 410 155
  edit "", 8, 010 252 400 124, sort multi
  halt
}
on *:dialog:-memo:sclick:*:{
  if ($did = 1) { services memo $me check | did -ra $dname 8 %memo }
  if ($did = 2) { services memo $me read $did(6,seltext) | did -ra $dname 7 Memo number %memo1 Seny by %memo3 | did -ra $dname 8 ~MEMO~  %memo2 }
  if ($did = 4) { services memo $me delete $did(6,seltext) | did -ra $dname 8 Message deleted | did -ra $dname 7 }
  if ($did = 3) {
    If (!$did(5).text) {
      noop $input(You need to enter a nickname)
      halt
    }
    Else { set %mmsg $did($dname, 7).text | /services memo $did(5,seltext) add %mmsg | /did -ra $dname 8, Memo sent }
  }
}
 
raw 275:*:{ 
  set -u1 %memo $1-  | halt
}
raw 270:*:{ 
  set -u1 %memo1 $2 | set -u1 %memo3 $3- | halt
}
raw 276:*:{ 
  set -u1 %memo2 $2- | halt
}
raw 269:*:{ 
  /notice $me 12 $1- | halt
}
 

Commenting Options