Zxanphorian/Zxanserv

dialog Zxanlockedtopic {
  title "=================================WARNING================================"
  size -1 -1 248 35
  option dbu
  button "=====================================NO====================================", 1, 19 17 228 17, default cancel
  button "YES", 2, 0 25 17 9, ok
  text "WARNING: YOU WILL NEED A SERVICES ADMIN TO UNLOCK YOUR CHANNEL AFTER YOU USE THE LOCK CHANNEL COMMAND!! ARE YOU SURE YOU WANT TO DO THIS???", 3, 0 1 254 15
}
dialog Zxanlockedtopicverify {
  title "=================================WARNING================================"
  size -1 -1 248 35
  option dbu
  button "=====================================NO====================================", 1, 19 17 228 17, default cancel
  button "YES",2, 0 25 17 9, ok
  text "ARE YOU SURE???", 3, 0 1 254 15
}
on 1:dialog:Zxanlockedtopic:sclick:2: {
  dialog -m Zxanlockedtopicverify Zxanlockedtopicverify
}
on 1:dialog:Zxanlockedtopic:sclick:1: {
  echo good choice
}
on 1:dialog:Zxanlockedtopicverify:sclick:2: {
  /msg chanserv lockchan %zxanserv_channel %zxanserv_adminpass
}
on 1:dialog:Zxanlockedtopicverify:sclick:1: {
  echo good choice
}

menu channel {
  &Zxanphoriscripts
  .Zxanserv
  ..%zxanserv_channel
  ...Set / &Remove Channel and Adminpass: 
  ....&Set:/set %zxanserv_channel $$?"Channel" | /set %zxanserv_adminpass $$?"Adminpass for channel"
  ....&Remove
  .....&Remove:/unset %zxanserv_channel | /unset %zxanserv_adminpass
  ...-
  ...Passwords
  ....Channel Pass:/msg chanserv set channelpass %zxanserv_channel %zxanserv_adminpass $$?"What is the channel password?"
  ....Services Pass:/msg chanserv set servicespass %zxanserv_channel %zxanserv_adminpass $$?"What is the services password?"

  ...Command &Help
  ....&Broad Command Help:/msg chanserv help
  ....Command &Specific Help:/msg chanserv help $$?"Which command do you need help on?"
  ...Channel &Info
  ....&Basic Channel Info:/msg chanserv info $chan
  ....&Admin Channel Info:/msg chanserv info $chan %zxanserv_adminpass
  ....&Topic for Current Channel:/topic $chan

  ...&User's auto-status Commands
  ....&Add Auto-x
  .....Auto-&Operator:/msg chanserv addop %zxanserv_channel %zxanserv_adminpass $$?"Name or Hostmask to add to the auto-operator list"
  .....Auto-&Voice:/msg chanserv addv %zxanserv_channel %zxanserv_adminpass $$?"Name or Hostmask to add to the auto-voice list"
  .....Auto-&Ban:/msg chanserv addban %zxanserv_channel %zxanserv_adminpass $$?"Name or Hostmask to add to the auto-ban list"
  ....&Remove Auto-x
  .....Auto-&Operator:/msg chanserv delop %zxanserv_channel %zxanserv_adminpass $$?"Name or Hostmask delete from the auto-operator list"
  .....Auto-&Voice:/msg chanserv delv %zxanserv_channel %zxanserv_adminpass $$?"Name or Hostmask to delete from the auto-voice list"
  .....Auto-&Ban:/msg chanserv delban %zxanserv_channel %zxanserv_adminpass $$?"Name or Hostmask to delete from the auto-ban list"

  ...Channel &Admin's Commands
  ....Op &yourself: /msg chanserv opme %zxanserv_channel %zxanserv_adminpass
  ....Mass &Deop Channel: /msg chanserv massdeop %zxanserv_channel %zxanserv_adminpass
  ....&Invite yourself to Channel: /msg chanserv inviteme %zxanserv_channel
  ....&Lock Channel
  .....L&ock Channel
  ......Lo&ck Channel
  .......Lock Channel:{
    dialog -m Zxanlockedtopic Zxanlockedtopic
    echo   5WARNING: YOU WILL NEED A SERVICES ADMIN TO UNLOCK YOUR CHANNEL AFTER YOU USE THE LOCK CHANNEL COMMAND!! ARE YOU SURE YOU WANT TO DO THIS???  
  }
  ....Reset Channel &Modes: /msg chanserv resetmodes %zxanserv_channel %zxanserv_adminpass
  ....Pre&vent Channel Modes
  .....On:/msg chanserv set preventmodes %zxanserv_channel %zxanserv_adminpass on 
  .....Off:/msg chanserv set preventmodes %zxanserv_channel %zxanserv_adminpass off
  ....&Unban yourself in Channel: /msg chanserv unbanme %zxanserv_channel %zxanserv_adminpass
  ....Unban all &people in Channel: /msg chanserv unbanall %zxanserv_channel %zxanserv_adminpass

  ...Channel &Prevention Commands
  ....Prevent Channel &Modes
  .....On:/msg chanserv set preventmodes %zxanserv_channel %zxanserv_adminpass on 
  .....Off:/msg chanserv set preventmodes %zxanserv_channel %zxanserv_adminpass off
  ....Prevent Channel &Ops
  .....On:/msg chanserv set preventops %zxanserv_channel %zxanserv_adminpass on 
  .....Off:/msg chanserv set preventops %zxanserv_channel %zxanserv_adminpass off
  ....Prevent Channel &Joins
  .....On:/msg chanserv set preventjoins %zxanserv_channel %zxanserv_adminpass on $$?"How many minutes do you want to prevent joins?"
  .....Off:/msg chanserv set preventjoins %zxanserv_channel %zxanserv_adminpass on 0


  ...&Channel Information Commands
  ....Channel &Description:/msg chanserv set desc %zxanserv_channel %zxanserv_adminpass $$?"Description of Channel"
  ....Channel &Website:/msg chanserv set website %zxanserv_channel %zxanserv_adminpass $$?"Website of Channel"
  ....Channel &Contact:/msg chanserv set contact %zxanserv_channel %zxanserv_adminpass $$?"Contact of Channel"
  ....Channel &Members:/msg chanserv set members %zxanserv_channel %zxanserv_adminpass $$?"Members of Channel"

  ...Channel &Topics and Messages
  ....&LockedTopic:/msg chanserv set lockedtopic %zxanserv_channel %zxanserv_adminpass $$?"LockedTopic"
  ....On&JoinMessage:/msg chanserv set onjoinmsg %zxanserv_channel %zxanserv_adminpass $$?"OnJoinMessage"
  ....On&OpMessage:/msg chanserv set onopmsg %zxanserv_channel %zxanserv_adminpass $$?"OnOpMessage"

  ...About &Zxanserv: { 
    echo ---- 
    echo Zxanserv™ 1.0
    echo Copyright © 2003 Nicholas "Zxanphorian" Parker
    echo Zxanserv is my first script for mIRC that helps you out with Chanserv's commands.
    echo If you have any questions about Zxanserv, ask me at irc.enterthegame.com #zxansmaps , or ask at http://wiki.beyondunreal.com/wiki/Zxanphorian. I will usually be on #zxansmaps and the wiki. 
    echo ----
  }
}
menu nicklist {
  &Zxanphoriscripts
  .Zxanserv
  ..%zxanserv_channel
  ...&User's auto-status Commands
  ....&Add Auto-x
  .....Add Auto-&Operator:/msg chanserv addop %zxanserv_channel %zxanserv_adminpass $1 $2-
  .....Add Auto-&Voice:/msg chanserv addv %zxanserv_channel %zxanserv_adminpass $1 $2-
  .....Add Auto-&Ban:/msg chanserv addban %zxanserv_channel %zxanserv_adminpass $1 $2-
  ....&Remove Auto-x
  .....Remove Auto-&Operator:/msg chanserv delop %zxanserv_channel %zxanserv_adminpass $1 $2-
  .....Remove Auto-&Voice:/msg chanserv delv %zxanserv_channel %zxanserv_adminpass $1 $2-
  .....Remove Auto-&Ban:/msg chanserv delban %zxanserv_channel %zxanserv_adminpass $1 $2-

  ...About &Zxanserv: { 
    echo ---- 
    echo Zxanserv™ 1.0
    echo Copyright © 2003 Nicholas "Zxanphorian" Parker
    echo Zxanserv is my first script for mIRC that helps you out with Chanserv's commands.
    echo If you have any questions about Zxanserv, ask me at irc.enterthegame.com #zxansmaps , or ask at http://wiki.beyondunreal.com/wiki/Zxanphorian. I will usually be on #zxansmaps and the wiki. 
    echo ----
  }

}