Hello this is a dialog for these who are bored to type the memoserv commands.
It's easy to use.. if you find any mistake in the code, please post..
Type /memo.manager to open the MemoServ Manager.
Aw, and for beginners:
Put this code in the Remotes section..
dialog memoserv {
title "MemoServ Manager"
size -1 -1 275 224
option pixels notheme
button "Read Memo:", 1, 19 29 69 25
edit "", 2, 19 56 100 20, return limit 2
button "Send Memo:", 3, 19 79 69 25
text "To:", 4, 20 109 39 17
edit "", 5, 19 130 100 20, limit 15
text "Text:", 6, 20 151 39 17
edit "", 7, 19 172 240 20, autohs
button "List All Memos", 8, 130 79 79 25
button "Del Memo:", 9, 131 29 69 25
edit "", 10, 131 56 100 20, return limit 2
box "MemoServ", 11, 3 4 267 210
}
on *:DIALOG:memoserv:sclick:*:{
if ($did == 1) {
if ($did(2).text != $null) { /ms read $did(2).text }
else { /echo -a Please enter a number of memo. }
}
if ($did == 3) {
if ($did(5).text != $null) && ($did(7).text != $null) {
if (%memo.protection != on) {
/ms send $did(5).text $did(7).text
/set -u15 %memo.protection on
}
else { /echo -a Please wait Before Sending A Memo Again. }
}
else { /echo -a Please Enter A Nick or A Text if you didn't. }
}
if ($did == 8) { /ms list }
if ($did == 9) {
if ($did(10) != $null) {
/ms del $did(10).text
}
else { /echo -a Please enter a number of memo. }
}
}
alias memo.manager { dialog -m memoserv memoserv }
menu menubar,channel {
.MemoServ Manager { /memo.manager }
}