Memo System

By Shadow_Slayerz on Nov 09, 2004

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
  }
}

Comments

Sign in to comment.
Setever   -  Dec 02, 2006

Completely agree with Raid. Having the messages in the dialog would be much better than just getting the notices.

Simple, nice script, but could be much better.

 Respond  
Raid   -  Feb 25, 2006

Its ok, it would be better if you would update an make it display your memos in the dialog. then you would have to increase the dialogs size.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.