This works ok except if a message is too long you can't see it in box. I did put a double click in it echo but that kinda beats the purpose, any help?
on ^*:notice:*:*: {
if ($nick == memoserv) { haltdef | did -a Memoserv 2 $1- }
}
dialog Memoserv {
title ""
size -1 -1 227 187
option dbu
box "", 1, 1 1 187 137
list 2, 3 6 180 130, size vsbar disable
box "", 3, 185 1 41 137
button "list", 4, 187 6 37 12, disable
button "read", 5, 187 19 37 12, disable
button "Delete", 16, 187 31 37 12, disable
button "Purge", 6, 187 43 37 12, disable
button "Send", 8, 187 55 37 12, disable
button "Help", 7, 187 67 37 12, disable
button "Close", 17, 187 79 37 12, ok
button "Undelete", 9, 187 92 37 12, disable
button "Refresh", 10, 187 104 37 12, disable
icon 19, 1 117 186 88, "icon.bmp"
}
on *:dialog:Memoserv:init:*: {
{ dialog -t $dname $me Memoserv | did -e $dname 2,4,5,6,7,8,9,10,16 }
}
on *:dialog:Memoserv:sclick:2: {
if ($did($did).sel == $null) halt
did -c Memoserv $did($did).sel
}
on *:dialog:Memoserv:sclick:4: { memoserv list }
on *:dialog:Memoserv:sclick:5: { memoserv read $did(2).seltext }
on *:dialog:Memoserv:sclick:16: { memoserv del $did(2).seltext }
on *:dialog:Memoserv:sclick:6: { memoserv purge }
on *:dialog:Memoserv:sclick:7: { memoserv help }
on *:dialog:Memoserv:sclick:8: { memoserv send $$?="nickname:" $$?="message:" }
on *:dialog:Memoserv:sclick:9: { memoserv undelete $$?="message number:" }
on *:dialog:Memoserv:sclick:10: { did -r Memoserv 2 }
on *:dialog:memoserv:dclick:2:{
echo -a $did(2).seltext
}

Menu Channel,status {
Memoserv:dialog -ma Memoserv Memoserv
}

Last edited by Fantas; 05/10/07 10:07 PM.