A simple Memo dialog type /memosys :P
to bring up the dialog
alias memosys { dialog -m memo memo }
dialog Memo {
title "Memo System"
size -1 -1 70 42
option dbu
box "Nick:", 1, 20 0 50 20
box "Memo:", 2, 20 20 50 20
button "Send", 3, 2 3 15 10
button "Read", 4, 2 27 16 10 ok
button "exit", 5, 2 15 15 10,cancel
edit [ %mnick ], 21, 22 8 45 10, autohs
edit , 20, 23 28 45 10, autohs
}
on *:dialog:memo:sclick:3: {
set %mnick $did($dname, 21).text
set %mmsg $did($dname, 20).text
msg memoserv send %mnick %mmsg
}
on *:dialog:memo:sclick:4: { msg memoserv read last | halt }
on 1:NOTICE:*New*:?:{
if ($nick == Memoserv) {
memosys
}
}