ok basically the same principal as my chatspace memo system except this one is designed for ircd systems which use memoserv its a dialog box that allows you to easily read send and delete memo's on chatspace servers. when you get a memo it automatically pops up telling you you have a memo from whomever in the top left edit box the right edit box you pick what memo you wana read by typing in the numbers 1 or 2 or 3 depends on how many memos you have in your memo box if only 1 memo then only the 1 will work if more than that you can use 2 3 4 5 i suggest just sticking with 1 then hit read and your memo appears in the middle edit box the i know it may seem small but the memo will all fit in there and all you have to do is use your arrow keys to scroll right and left to read it all the bottom two edit boxes are for sending memos put the nick of the person you wanna send a memo to in the left and the message you wanna send in the right and hit send
if you want a pic designed for this dialog go to my pics it is already done all you have to do is set the name of the pic folder its in in your irc script
on 1:NOTICE:*New*:?:{
if ($nick == Memoserv) {
dialog -v,-md memoserv.system memoserv.system
did -a memoserv.System 4 you have a new memo
}
}
on 1:NOTICE:*memo*:?:{
did -a memoserv.System 4 $$1-
}
on 1:NOTICE:*:?:{
if ($nick == Memoserv) {
did -a memoserv.System 5 $$1-
}
}
Menu Menubar,Nicklist,Channel {
Venom memoserv System
.VenommemoservSys: dialog $iif($dialog(memoserv.System),-v,-md memoserv.System) memoserv.System
}
Dialog memoserv.System {
Title "VenommemoservSystem"
Size -1 -1 200 88
Option dbu
button "read ", 1, 0 0 37 15, flat
button "send ", 2, 0 18 37 15, flat
button "delete ", 3, 0 36 37 15, flat
edit ,4,0 52 80 10, autohs
edit "enter number for memo to read/delete" ,8,90 52 108 10, autohs
edit ,5,0 63 169 10, autohs
edit "nick to send message to" ,6,0 74 90 10, autohs
edit "message" ,7,100 74 80 10, autohs
}
on *:dialog:memoserv.system:sclick:1: {
if (!$did(8).text) { noop $input(Please enter text in box,udho,Error!) }
else { .ms read $did(8).text
}
}
on *:dialog:memoserv.system:sclick:3: {
if (!$did(8).text) { noop $input(Please enter text in box,udho,Error!) }
else { .ms del $did(8).text
}
}
on *:dialog:memoserv.system:sclick:2: {
if (!$did(6).text) { noop $input(Please enter text in box,udho,Error!) }
else { .ms send $did(6).text $did(7).text
}
}