Channel Modes Dialoge with memoserv

menu * { 
  Modes: //dialog -m mode Mode
} 
dialog Memo {
  title "Evil"
  size -1 -1 141 90
  option dbu
  button "Read ", 1, 1 20 32 16
  button "R1", 2, 4 36 24 8
  button "R2", 3, 4 44 24 8
  button "R3", 4, 4 52 24 8
  button "R4", 5, 4 60 24 8
  button "R5", 6, 4 68 24 8
  button "R6", 7, 4 76 24 8
  button "D1", 8, 36 36 24 8
  button "D2", 9, 36 44 24 8
  button "D3", 10, 36 52 24 8
  button "D4", 11, 36 60 24 8
  button "D5", 12, 36 68 24 8
  button "D6", 13, 36 76 24 8
  button "Del", 14, 33 20 32 16
  button "List", 15, 1 3 64 16
  button " undel ", 16, 70 9 32 16
  box "Memoserv", 17, 67 1 72 88
  button "purge", 18, 102 9 32 16
  button "Forward ", 19, 70 25 32 16
  button "forward Off", 20, 102 25 32 16
  button "Forward To", 21, 70 41 32 16
  button "Help", 22, 102 41 32 16
  button "Send to nick", 23, 71 59 32 8
  button "Send to oP's", 24, 104 59 32 8
  button "Send to SoP", 25, 87 67 32 8
  button "OK\Cancel", 26, 72 79 64 8, ok cancel
}
on 1:dialog:Memo:sclick:1 { .MemoServ read $?"type the number" }
on 1:dialog:Memo:sclick:2 { .MemoServ read 1 }
on 1:dialog:Memo:sclick:3 { .MemoServ read 2 }
on 1:dialog:Memo:sclick:4 { .MemoServ read 3 }
on 1:dialog:Memo:sclick:5 { .MemoServ read 4 }
on 1:dialog:Memo:sclick:6 { .MemoServ read 5 }
on 1:dialog:Memo:sclick:7 { .MemoServ read 6 }
on 1:dialog:Memo:sclick:8 { .MemoServ del 1 }
on 1:dialog:Memo:sclick:9 { .MemoServ del 2 }
on 1:dialog:Memo:sclick:10 { .MemoServ del 3 }
on 1:dialog:Memo:sclick:11 { .MemoServ del 4 }
on 1:dialog:Memo:sclick:12 { .MemoServ del 5 }
on 1:dialog:Memo:sclick:13 { .MemoServ del 6 }
on 1:dialog:Memo:sclick:14 { .MemoServ del $?"type the number" }
on 1:dialog:Memo:sclick:15 { .MemoServ list }
on 1:dialog:Memo:sclick:16 { .MemoServ undel $?"type the number"  }
on 1:dialog:Memo:sclick:18 { .MemoServ purge  }
on 1:dialog:Memo:sclick:19 { .MemoServ forward  }
on 1:dialog:Memo:sclick:20 { .MemoServ forward -  }
on 1:dialog:Memo:sclick:21 { .memoserv forward $?"nick" $?"pass" }
on 1:dialog:Memo:sclick:22 { .memoserv help }
on 1:dialog:Memo:sclick:23 { .memoserv send $?"nick" 6[14memoe:14 $?"The msg" 6] }
on 1:dialog:Memo:sclick:24 { .memoserv send $?"type the Channel?" $?"the msg" }
on 1:dialog:Memo:sclick:25 { .memoserv SENDSOP $?"type the Channel?" $?"the msg" }

dialog quit {
  title "Baaz"
  size -1 -1 67 84
  option dbu
  button "&Quit", 1, 5 7 56 16, default flat
  box "", 2, 1 1 64 80
  button "&Auto Ping", 3, 5 23 56 16, default flat
  button "&Good Bye", 4, 5 39 56 16, default flat
  button "&Quit And add Msg", 5, 5 55 56 16, default flat
  button "Ok/Cancel", 6, 5 71 56 8, ok cancel
}
on 1:dialog:quit:sclick:1 { .quit %quit }
on 1:dialog:quit:sclick:3 { .quit Auto Ping  }
on 1:dialog:quit:sclick:4 { .quit Good bye %quit  }
on 1:dialog:quit:sclick:5 { .quit $?"msg" %quit  }

dialog Mode {
  title "Mode Script: a3nzy & aFter-Night "
  size -1 -1 57 148
  option dbu
  button "+&m", 1, 3 12 24 8
  button "-&m", 2, 30 12 24 8
  button "+&M", 3, 3 21 24 8
  button "-&M", 4, 30 21 24 8
  button "+&R", 5, 3 30 24 8
  button "-&R", 6, 30 30 24 8
  button "+&c", 7, 3 39 24 8
  button "-&c", 8, 30 39 24 8
  button "+&s", 9, 3 48 24 8
  button "-&s", 10, 30 48 24 8
  button "+&l", 11, 3 57 24 8
  button "-&l", 12, 30 57 24 8
  button "+&i", 13, 3 66 24 8
  button "-&i", 14, 30 66 24 8
  button "+&I", 15, 3 75 24 8
  button "-&I", 16, 30 75 24 8
  button "+&e", 17, 3 84 24 8
  button "-&e", 18, 30 84 24 8
  button "+&j", 19, 3 93 24 8
  button "-&j", 20, 30 93 24 8
  button "+&n", 21, 3 102 24 8
  button "-&n", 22, 30 102 24 8
  button "+&k", 23, 3 111 24 8
  button "-&k", 24, 30 111 24 8
  button "+&t", 25, 3 120 24 8
  button "-&t", 26, 30 120 24 8
  button "+&p", 27, 3 129 24 8
  button "-&p", 28, 30 129 24 8
  button "MLOCK", 29, 4 2 48 8
  button "OK/Cancel", 30, 7 139 40 8, ok cancel
}

on 1:dialog:mode:sclick:1 { .mode $active +m } { .Echo -a 4<1Now The Converse Just to Voice And The Operators4>  }
on 1:dialog:mode:sclick:2 { .mode $active -m } { .Echo -a 4<1The Converse Now To all4>  }
on 1:dialog:mode:sclick:3 { .mode $active +M } { .Echo -a 4<1Now The Converse Just to Registered in The nick Service4> 1] }
on 1:dialog:mode:sclick:4 { .mode $active -M } { .Echo -a 4<1The Converse Now To all4>  }
on 1:dialog:mode:sclick:5 { .mode $active +R }
on 1:dialog:mode:sclick:6 { .mode $active -R }
on 1:dialog:mode:sclick:7 { .mode $active +c }
on 1:dialog:mode:sclick:8 { .mode $active -c }
on 1:dialog:mode:sclick:9 { .mode $active +s }
on 1:dialog:mode:sclick:10 { .mode $active -s }
on 1:dialog:mode:sclick:11 { .mode $active +l $?"type The Number" }
on 1:dialog:mode:sclick:12 { .mode $active -l }
on 1:dialog:mode:sclick:13 { .mode $active +i }
on 1:dialog:mode:sclick:14 { .mode $active -i }
on 1:dialog:mode:sclick:15 { .mode $active +I $?"type The Host"  }
on 1:dialog:mode:sclick:16 { .mode $active -I $?"type The Host"  }
on 1:dialog:mode:sclick:17 { .mode $active +e $?"type The Host"  }
on 1:dialog:mode:sclick:18 { .mode $active -e $?"type The Host"  }
on 1:dialog:mode:sclick:19 { .mode $active +j $?"type The Seconds "Example" 4:2 }
on 1:dialog:mode:sclick:20 { .mode $active -j $?"type The Seconds "Example" 4:2 }
on 1:dialog:mode:sclick:21 { .mode $active +n }
on 1:dialog:mode:sclick:22 { .mode $active -n }
on 1:dialog:mode:sclick:23 { .mode $active +k }
on 1:dialog:mode:sclick:24 { .mode $active -k }
on 1:dialog:mode:sclick:25 { .mode $active +t }
on 1:dialog:mode:sclick:26 { .mode $active -t }
on 1:dialog:mode:sclick:27 { .mode $active +p }
on 1:dialog:mode:sclick:28 { .mode $active -p }
on 1:dialog:mode:sclick:29 { .chanserv set $active mlock $?"’mode" }