;compiled by terri october 1998
;the popups produced by this file correspond to the syntax of CS5
;   as implemented in X on the Othernet IRC

on 1:start:/xidconfig

alias /xidconfig {
  if (%xidnick == $null) {
    /set %xidnick $$?="Enter your registered IDnick"
    /notice $me My registered IDnick is assumed to be %xidnick
  }
}

menu channel {
  X Level 500
  .Auth
  ..auth only:/msg X auth # %xidnick $$?="Enter password"
  ..get op'd also:/msg X authop # %xidnick $$?="Enter password"
  ..Deauth:/msg X deauth # %xidnick
  .your personal Info
  ..delete it:/msg X  info #
  ..modify it:/msg X info # $$?="Enter revised Information about yourself"
  .your personal configuration
  ..toggle being Auto-op'd [400]:/msg X moduser # autoop %xidnick
  ..add a Mask for yourself [400]:/msg X moduser # addmask %xidnick $$?="Enter additional mask in the form nick!user@host"
  ..delete one of your Masks [400]:/msg X moduser # delmask %xidnick $$?="Enter unneeded mask in the form nick!user@host"
  ..change your Password:/msg X NEWPASS # %xidnick $$?="Enter new password"
  ..current IDnick:/notice $me Your current IDnick is assumed to be  $+ %xidnick
  ..change assumed IDnick (does not affect X):{
    /unset %xidnick
    /xidconfig
  }
  ..change IDnick [400]:{
    /set %tmp $?="Enter new IDnick"
    /msg X moduser # newidnick %xidnick %tmp
    /msg X chanopt # ownernick %tmp
    /set %xidnick %tmp
    /unset %tmp
  }
  ..change your real name [400]:/msg X chanopt # ownername $$?="Enter your first and last names"
  ..change your email address [400]:/msg X chanopt # owneremail $$?="user@address"
  .-
  .Bans, Kicks, Ops
  ..list all Bans:/msg X banlist #
  ..unBan someone [100]:/msg X unban # $$?="Enter nick!user@host"
  ..remove all Bans at your level and lower [300]:/msg X clearbans #
  ..toggle 'noban' mode [400]:/msg X chanopt # noban
  ..set minimum ban level [400]:/msg X chanopt # banlevel $$?="0 - 500"
  ..-
  ..toggle 'strictop' mode [400]:/msg X chanopt # strictop
  ..grant @ to everyone [400]:/msg X opall #
  ..remove @ from everyone [400]:/msg X deopall #
  ..toggle allowing Auto-opping [400]:/msg X chanopt # autoops
  ..toggle disallowing non-X Opping [400]:/msg X chanopt # noops
  ..-
  ..kick everyone out [400]:/msg X kickall # $?="Enter the reason (optional)"
  ..kick and ban everyone [450]:/msg X kickbanall # $$?="Enter the reason"
  .set channel Description [400]:/msg X chanopt # description $?="Enter description of the channel"
  .see channel Info:/msg X chaninfo #
  .Invite someone to this channel [100]:/msg X invite # $$?="Enter one or more nicknames (separated by spaces)"
  .channel Modes
  ..+i:/msg X mode # +i
  ..+k:/msg X mode # +k $$?="Enter a key (password) for entering the channel"
  ..+l:/msg X mode # +l $$?="Enter the maximum number of people allowed in the channel"
  ..+m with users at +v [300]:/msg X moderate #
  ..+nt:/msg X mode # +nt
  ..+s:/msg X mode # +s
  ..-
  ..-i:/msg X mode # -i
  ..-k:/msg X mode # -k $chan(#).key
  ..-l:/msg X mode # -l
  ..-m:/msg X mode # -m
  ..-nt:/msg X mode # -nt
  ..-s:/msg X mode # -s
  ..-
  ..toggle 'noban' mode [400]:/msg X chanopt # noban
  ..toggle 'strictop' mode [400]:/msg X chanopt # strictop
  ..-
  ..set minimum level for changing modes [400]:/msg X chanopt # chmodeslevel $$?="0 - 500"
  ..clear all modes [400]:/msg X clearmodes #
  ..set default modes [400]:/msg X chanopt # defmodes $$?="+/-iklmnpst"
  ..restore default modes [300]:/msg X rdefmodes #
  ..restore default modes and topic [300]:/msg X rdefaults #
  .set the channel's Topic
  ..enter new topic [100]:/msg X topic # $$?="Enter topic"
  ..random topic [100]:/msg X topic #
  ..restore default topic [300]:/msg X rdeftopic #
  ..set default topic [400]:/msg X chanopt # deftopic $?="Enter default topic"
  ..toggle the Lock on the topic [400]:/msg X chanopt # locktopic
  ..toggle X's presence in the channel [400]:/msg X chanopt # stay
  .the channel's welcome message
  ..set the channel's Welcome message [400]:/msg X chanopt # welcome $?="Enter the welcome message"
  ..toggle whether the welcome message is active [400]:/msg X chanopt # setwelcome
  .Registration of this channel
  ..is it registered?:/msg X isregistered #
  ..register it:/msg X register # $email
  ..unregister it [500]:/msg X unreg #
  .toggle giving +V to everyone [400]:/msg X chanopt # setvoice
  .set the channel's URL [400]:/msg X chanopt # chanurl $$?="Enter URL"
  .-
  .have X perform a /me [100]:/msg X do # $$?="Enter what X is to do"
  .have X perform a /say [100]:/msg X say # $$?="Enter what X is to say"
  .-
  .when a user last auth'd:/msg X seen # $$?="Enter a nickname"
  .remove access from a user [450]:/msg X deluser # $$?="Enter user's IDnick"
  .toggle the suspension of a user from accessing X [400]:/msg X suspendnick # $$?="Enter user's IDnick"
  .list Users with Access
  ..Levels 0-100:/msg X access # <101
  ..Levels 0-449:/msg X access # <450
  ..Levels 450-500:/msg X access # >449
  ..Levels 490-500:/msg X access # >489
  ..Type in a nickname or mask:/msg X access # $$?="Enter nickname or mask"
  .-
  .show available X commands:/msg X showcommands #
}

menu nicklist,query {
  X Level 500
  .Bans and Kicks [100]
  ..kick and ban for one hour:/msg X kickban # $1 1:hours $?="Enter reason (optional)"
  ..kick and ban for one day:/msg X kickban # $1 1:days $?="Enter reason (optional)"
  ..kick and ban for one week:/msg X kickban # $1 1:weeks $?="Enter reason (optional)"
  ..kick and ban for one month:/msg X kickban # $1 1:months $?="Enter reason (optional)"
  ..kick and ban forever:/msg X kickban # $1 $?="Enter reason (or don't)"
  ..-
  ..ban for one hour:/msg X ban # $address($1,3) 1:hours $?="Enter reason (optional)"
  ..ban for one day:/msg X ban # $address($1,3) 1:days $?="Enter reason (optional)"
  ..ban for one week:/msg X ban # $address($1,3) 1:weeks $?="Enter reason (optional)"
  ..ban for one month:/msg X ban # $address($1,3) 1:months $?="Enter reason (optional)"
  ..ban forever:/msg X ban # $address($1,3) $?="Enter reason (or don't)"
  ..-
  ..kick this user:/msg X kick # $1 $?="Enter reason (optional)"
  .give @ [100]:/msg X op # $1
  .remove @ [100]:/msg X deop # $1
  .-
  .user's Access
  ..check:/msg X access # $1
  ..give [450]:{
    /set %tmplevel $?="Enter Level to be assigned (0 - yours)"
    /msg X ADDUSER # $1 %tmplevel $?="Enter password to be assigned"
    /unset %tmplevel
  }
  ..set new level [400]:/msg X moduser # level $1 $$?="Enter new Level (0 - 499)"
  ..toggle suspension of this user [400]:/msg X suspendnick # $1
  .change user's info etc
  ..delete user Info line [400]:/msg X moduser # info $1 delete
  ..Modify user Info line [400]:/msg X moduser # info $1 $$?="Enter revised Information about this user"
  ..toggle Auto-op [400]:/msg X moduser # autoop $1
  ..add a Mask for this user [400]:/msg X moduser # addmask $1 $$?="Enter additional mask in the form nick!user@host"
  ..delete one of this user's Masks [400]:/msg X moduser # delmask $1 $$?="Enter unneeded mask in the form nick!user@host"
  ..assign new Password [400]:/msg X moduser # newpass $1 $$?="Enter new password"
  ..toggle Protect mode [400]:/msg X moduser # protect $1 
  .-
  .last time user auth'd:/msg X seen # $1
  .fetch user's IP:/msg X getip $1
  .fetch user's Mask:/msg X whois $1
  .is channel Services rep?:/msg X verify $1
}

menu menubar {
  X Level 500
  .list Admins:/msg X admin
  .list on-line Operators:/msg X operlist
  .verify a potential channel Services rep:/msg X verify $$?="Enter a nickname"
  .-
  .-invite yourself to your channel:/msg X opers $$?="Enter channel name, including #"
  .check a channel's Registration:/msg X isregistered $$?="Enter a channel name"
  .see servers Map:/msg X map
  .list all X commands:/msg X showcommands
  .see X's uptime:/msg X uptime
  .-
}