/ScriptServ

;====================================================================================
;                                                                 NetLand §¢®Ipt V2.0
;                                                                       ßÿ GoodNews 
;                                           We made everything here and it is professional
;                                          so you dont need to touch or change  anything 
;                                     cause it can cause a malfunction to the script .Thx !!!!!!
;                                                               Long Live #NetLand
;=====================================================================================
menu channel,menubar,status,query,nicklist {
  @MemoServ:window -e @Memoserv 5 10 500 270 @MemoServ Arial
  -
}
menu   @MemoServ  {
  dclick:/memoserv list | echo 4 @MemoServ *Getting Memo List
  =®= MeMoSeRv  =®=:/echo 11,1Welcome To Memoserv Window ,here you can read ,send and manage your memoserv .I think it will help you,have fun.   
  -
  =®= List =®=:/memoserv list
  =®= Read  =®=
  .Number:/memoserv read $$?="Memo Number(s)?"
  .All: {
    set %mems $$?="Enter Highest Memo Number"
    set %mems1 0
    :loop
    inc %mems1 1
    if %mems1 > %mems goto end
    /memoserv read %mems1
    goto loop
    :end
  }
  =®= Send =®=:/memoserv send $$?="Nick or Channel?" $$?="Text"
  =®= SendSop =®=:/memoserv sendsop $$?="Channel?" $$?="Text"
  -
  =®= SetTinGs  =®=
  .Delete:/memoserv del $$?="Memo Number?"
  .UnDelete:/memoserv undel $$?="Memo Number?"
  .Purge:/memoserv purge
  .Delete All:/memoserv del all
  .-
  .Forward
  ..Check:/memoserv forward
  ..On:/memoserv forward $$?="Nick To Forward To?" $$?="Password?"
  ..Off:/memoserv forward -
  .No Memos
  ..On:/NickServ SET NOMEMO ON
  ..Off:/NickServ SET NOMEMO OFF
  -
  =®= Window Set  =®=
  .Clear:/clear
  .Close:window -c @Memoserv


}
on ^1:notice:*:*: {
  if (($nick == MemoServ) && (dal isin $server)) {
    if $window(@Memoserv) == $null window -ne @Memoserv 5 10 500 270 @MemoServ Arial
    if $1 == $null { goto next }
    echo 4 @MemoServ $1- 
    :next
    haltdef
  }
}