Nick and chan serv dialog and as per-usual hash tables when you copy and paster this type /hmake Serv 100 to the hash table

menu nicklist {
  Services
  .DR-NCSD { dialog -md NCServ NCServ }
  .NickServ
  ..Register { 
    If ($hget(Serv,$me) == $null) {
      var %pword $$?="Choose a password:"
      var %email $$?="Enter your e-mail:"
      hadd Serv $me Nickserv %pword
      .msg nickserv register %pword %email
    }
    Else {
      echo -ai2 Your nick is already active in the Service Storage
    }
  }
  ..Identify {
    If ($hget(Serv,$me)) {
      var %nikpword $hget(Serv,$me)
      tokenize 32 %nikpword
      .msg nickserv identify $2
    }
    Else {
      .msg nickserv identify $$?="Input Password:"
      hadd Serv $me Nickserv $$!
    }
  }
  ..Auto Identify ( $+ %nickserv $+ ) { if (%nickserv == Off) { %nickserv = On } | else { %nickserv = Off } }
  .ChanServ
  ..Register {
    If ($hget(Serv,$chan) == $null) {
      var %chnpword $$?="Enter password:"
      var %chndis $$?="Enter description:"
      .msg chanserv register $chan %chnpword %chndis
      hadd Serv $chan ChanServ %chnpword
    }
    Else {
      echo -ai2 Sorry, $chan is already listed in the Services list.
    }
  }
  ..Identify {
    set %chan $$?="Enter channel to identify to:"
    If ($hget(Serv,$$!)) {
      var %chnservpword $hget(Serv,$$!)
      tokenize 32 %chnservpword
      .msg chanserv identify %chan $2
      unset %chan
    }
    Else {
      .msg chanserv identify %chan $$?="Enter password:"
      unset %chan
    }
  }
  ..Auto Identify ( $+ %chanserv $+ ) { if (%chanserv == Off) { %chanserv = On } | else { %chanserv = Off } }
}
dialog NCServ {
  title "Nick & Channel Services"
  size 150 150 150 165
  option dbu
  box "NickServ Set Up:",1,5 5 140 50
  text "Choose A Password:",2,8 12 50 10
  text "Enter Your Email:",3,8 32 50 10
  edit "",4,8 20 50 10
  edit "",5,8 40 133 10
  box "",6,62 8 80 30
  link "NickServ Commands:",7,64 12 70 10
  button "Register",8,66 20 30 15
  button "Identify",9,108 20 30 15
  box "ChanServ Set Up",10,5 60 140 70
  text "Enter Channel:",11,8 67 50 10
  text "Enter Password:",12,8 87 50 10
  text "Enter Description:",13,8 107 60 10
  edit "",14,8 75 50 10
  edit "",15,8 95 50 10
  edit "",16,8 115 133 10
  box "",18,62 63 80 50
  link "ChanServ Commands:",19,64 67 70 10
  button "Register",20,76 75 50 15
  button "Identify",21,76 95 50 15
  box "Auto Identify",22,5 130 140 30
  button "NickServ Identify On",23,8 138 60 10
  button "NickServ Identify Off",24,8 148 60 10
  button "ChanServ Identify On",25,82 138 60 10
  button "ChanServ Identify Off",26,82 148 60 10
  menu "&File",27
  item "&Close",29,27,ok
  menu "&Auto Ident",30
  menu "&NickServ",31,30
  item "On",32,31
  item "Off",33,31
  menu "&ChanServ",34,30
  item "On",35,34
  item "Off",36,34
}                                           
on *:dialog:NCServ:sclick:8: { msg nickserv register $did(NCServ,4).text $did(NCServ,5).text | hadd Serv $me NickServ $did(NCServ,4).text }
on *:dialog:NCServ:sclick:9: {
  If ($hget(Serv,$me)) { 
    var %nikpword $hget(Serv,$me)
    tokenize 32 %nikpword
    msg nickserv identify $2
  } 
  Else {
    echo -ai2 Sorry, $did(NCServ,14).text is not on you Nickserv List.
  }
}
on *:dialog:NCServ:sclick:20: { msg chanserv register $did(NCServ,14).text $did(NCServ,15).text $did(NCServ,16).text | hadd Serv $did(NCServ,14).text ChanServ $did(NCServ,15).text }
on *:dialog:NCServ:sclick:21: { 
  If ($hget(Serv,$did(NCServ,14).text)) { 
    var %chnpword $hget(Serv,$did(NCServ,14).text)
    tokenize 32 %chnpword
    msg chanserv identify $did(NCServ,14).text $2
  } 
  Else {
    echo -ai2 Sorry, $did(NCServ,14).text is not on you Chanserv List.
  }
}
on *:dialog:NCServ:sclick:23: { If (%nickserv == Off) { %nickserv = On } | else { %nickserv = Off } }
on *:dialog:NCServ:sclick:24: { If (%chanserv == Off) { %chanserv = On } | else { %chanserv = Off } }
on *:dialog:NCServ:menu:32: { set %nickserv On }
on *:dialog:NCServ:menu:33: { set %nickserv Off }
on *:dialog:NCServ:menu:35: { set %chanserv On }
on *:dialog:NCServ:menu:36: { set %chanserv Off }

On *:Load: {
  set %nickserv Off
  set %chanserv Off
  echo -a *** Script Loaded Sucessfully....
  If ($isfile(Serv.dat)) { hmake Serv 100 | hload Serv Serv.dat }
  Else { hmake Serv 100 }
}
On *:Start: {
  If ($isfile(Serv.dat)) { hmake Serv 100 | hload Serv Serv.dat }
  Else { hmake Serv 100 }
}
On *:Exit: {
  If ($hget(Serv)) { hsave -o Serv Serv.dat }
}
On *:Connect: {
  If (%nickserv == On) && ($nick == $me) && ($hget(Serv,$me)) {
    var %nikpword $hget(Serv,$me)
    tokenize 32 %nikpword
    .msg nickserv identify $2
  }
}
On *:Nick: {
  If (%nickserv == On) && ($nick == $me) && ($hget(Serv,$newnick)) {
    var %nikpword $hget(Serv,$newnick)
    tokenize 32 %nikpword
    .msg nickserv identify $2
  }
}
On *:Join:#: {
  If ($nick == $me) && ($hget(Serv,$chan)) {
    var %chnpword $hget(Serv,$chan)
    tokenize 32 %chnpword
    .msg chanserv identify $chan $2
  }
}