Just Another X Undernet snippet !!!

menu channel,nicklist {
  -
X Control
  .500
  ..Set
  ...AutoJoin
  ....On: msg x set $vr($$?="Enter #channel name please") autojoin on
  ....Off: msg x set $vr($$?="Enter #channel name please") autojoin off
  ...NoOp
  ....On: msg x set $vr($$?="Enter #channel name please") noop on
  ....Off: msg x set $vr($$?="Enter #channel name please") noop off
  ...StrictOp
  ....On: msg x set $vr($$?="Enter #channel name please") strictop on
  ....Off: msg x set $vr($$?="Enter #channel name please") strictop off
  ...-
  ...FloodPro: msg x set $vr($$?="Enter #channel name please") floodpro $$?="Enter a value in the range of 0 - 7"
  ...Language: msg x set $vr($$?="Enter #channel name please") lang $$?="Enter en for english, or other language"
  ...MassDeOpPro: msg x set $vr($$?="Enter #channel name please") massdeoppro $$?="Enter a value in the range of 0 - 7"
  ..-
  ..Part: msg x part $vr($$?="Enter #channel name please")
  .450 - 499
  ..Set
  ...AutoTopic
  ....On: msg x set $vr($$?="Enter #channel name please") autotopic on
  ....Off: msg x set $vr($$?="Enter #channel name please") autotopic off
  ...UserFlags
  ....No Automode: msg x set $vr($$?="Enter #channel name please") userflags 0
  ....Op Automode: msg x set $vr($$?="Enter #channel name please") userflags 1
  ....Voice Automode: msg x set $vr($$?="Enter #channel name please") userflags 2
  ...-
  ...Description: msg x set $vr($$?="Enter #channel name please") description $$?="Enter a description of the channel. (Maximum is 80 characters)"
  ...Keywords: msg x set $vr($$?="Enter #channel name please") keywords $$?="Enter some key words about the channel, enter no words to reset current"
  ...Mode: msg x set $vr($$?="Enter #channel name please") mode
  ...Description: msg x set $vr($$?="Enter #channel name please") url $$?="Enter the channel's homepage address"
  ..-
  ..Join: msg x join $vr($$?="Enter #channel name please") 
  .400 - 449
  ..ModInfo
  ...AutoMode
  ....None: msg x modinfo $vr($$?="Enter #channel name please") automode $$?="Enter username" none
  ....Op: msg x modinfo $vr($$?="Enter #channel name please") automode $$?="Enter username" op
  ....Voice: msg x modinfo $vr($$?="Enter #channel name please") automode $$?="Enter username" voice
  ...-
  ...Access: msg x modinfo $vr($$?="Enter #channel name please") access $$?="Enter username" $$?="Enter the new access level"
  ..-
  ..AddUser: msg x adduser $vr($$?="Enter #channel name please") $$?="Enter the username you want to add" $$?="Enter the access level you want the new user to have"
  ..ClearMode: msg x clearmode $vr($$?="Enter #channel name please") 
  ..RemUser: msg x remuser $vr($$?="Enter #channel name please") $$?="Enter username"
  .200
  ..Mask Kick: {
    set %xcs01 $vr($$?="Enter #channel name please")
    set %xcs02 $$?="Enter *!*user@*.host"
    set %xcs03 $?="Enter reason (may be left blank)"
    if %xcs03 == $null msg x kick $chan %xcs02
    else msg x kick %xcs01 %xcs02 %xcs03
  }
  ..Status: msg x status $vr($$?="Enter #channel name please")
  .100 - 399
  ..Op: msg x op $vr($$?="Enter #channel name please") $$?="Enter one or several nicks, seperated by spaces"
  ..DeOp: msg x deop $vr($$?="Enter #channel name please") $$?="Enter one or several nicks, seperated by spaces"
  ..Invite X: msg x invite $vr($$?="Enter #channel name please")
  ..Suspend: msg x suspend $vr($$?="Enter #channel name please") $$?="Enter username" $$?="Enter duration (eg. 5 d for 5 days or 2 h for 2 hours or 15 m for 15 minutes)"
  ..UnSuspend: msg x unsuspend $vr($$?="Enter #channel name please") $$?="Enter username"
  .75 - 99
  ..Ban: {
    set %xcs11 $vr($$?="Enter #channel name please") 
    set %xcs12 $$?="Enter nick or *!*user@*.host" 
    set %xcs13 $$?="Enter duration (Max. 336 hours = 2 weks)" 
    set %xcs14 $$?="Enter level (1-74 = no ops; 75+ = total ban)"
    set %xcs15 $?="Enter reason (may be left blank)"
    if %xcs15 == $null msg x ban %xcs11 %xcs12 %xcs13 %xcs14
    else msg x ban %xcs11 %xcs12 %xcs13 %xcs14 %xcs15
  }
  ..UnBan: msg x unban $vr($$?="Enter #channel name please") $$?="Enter nick or *!*user@*.host"
  .50 - 74
  ..Kick: {
    set %xcs21 $vr($$?="Enter #channel name please")
    set %xcs22 $$?="Enter nick"
    set %xcs23 $?="Enter reason (may be left blank)"
    if %xcs23 == $null msg x kick %xcs21 %xcs22
    else msg x kick %xcs21 %xcs22 %xcs23
  }
  ..Topic: msg x topic $$?="Enter #channel name" $$?="Enter new topic (Maximum 145 characters)"
  .25 - 49
  ..Voice: msg x voice $vr($$?="Enter #channel name please") $$?="Enter one or several nicks, seperated by spaces"
  ..DeVoice: msg x devoice $vr($$?="Enter #channel name please") $$?="Enter one or several nicks, seperated by spaces"
  .1 - 24
  ..Status: msg x status $vr($$?="Enter #channel name please")
  .0
  ..Access
  ...Username: msg x access $vr($$?="Enter #channel name please") $$?="Enter username"
  ...-min: msg x access $vr($$?="Enter #channel name please") -min $$?="Enter level"
  ...-max: msg x access $vr($$?="Enter #channel name please") -max $$?="Enter level"
  ...-op: msg x access $vr($$?="Enter #channel name please") -op
  ...-voice: msg x access $vr($$?="Enter #channel name please") -voice
  ...-none: msg x access $vr($$?="Enter #channel name please") -none
  ...-modif: msg x access $vr($$?="Enter #channel name please") -modif
  ..Set Invisible
  ...On: msg x set invisible on
  ...Off: msg x set invisible off
  ..-
  ..BanList: echo -s This command can only be used in a channel.
  ..ChanInfo: msg x chaninfo $$?="Enter #channel name"
  ..Help: msg x help $?="Enter the command you want to learn something about."
  ..Info: msg x info $$?="Enter a username"
  ..LBanList: msg x lbanlist $vr($$?="Enter #channel name please") $$?="Enter * for whole list or *!*user@*.host"
  ..Login: .msg x@channels.undernet.org login $$?="Enter your username" $$?*="Enter your password" | echo $timestamp Your request has been sent, awaiting answer...
  ..Motd: msg x motd
  ..NewPass: {
    set %xcs31 $$?*="Enter your new password (case-sensitive, max. length is 50 characters)"
    set %xcs32 $$?*="Please enter it again, for security reasons"
    if (%xcs31 === %xcs32) {
      .msg x@channels.undernet.org newpass %xcs32
      echo $timestamp Your request has been sent, awaiting answer...
    }
    else {
      echo 0,0 $+ $?!="The two entries didn't match!!! Try again."
      echo 1,0 $+ The two entries didn't match!!! Try again.
    }
  }
  ..Search: msg x search $$?="Enter search parameter"
  ..ShowCommands: msg x showcommands $vr($$?="Enter #channel name please")
  ..ShowIgnore: msg x showignore
  ..Verify: msg x verify $$?="Enter a nickname"
.Simple Commands
.OP: /msg X op # $$?="Enter a nickname"
.DEOP: /msg X deop # $$?="Enter a nickname"
.BAN: /msg X ban # $$?="Enter a nickname"
.Unban: /msg X unban # $$?="Enter a nickname"
.voice: /msg X voice # $$?="Enter a nickname"
.devoice: /msg X devoice # $$?="Enter a nickname"
.kick: /msg X kick # $$?="Enter a nickname"
.Invite: /msg X invite # $$?="Enter a nickname"
}