/ScriptServ

menu menubar {
  raw
  .irc2
  ..dcc
  ...get
  ....ask { set %irc2.dcc.get ask }
  ....auto { set %irc2.dcc.get auto }
  ....ignore { set %irc2.dcc.get off }
  ...chat
  ....ask { set %irc2.dcc.chat ask }
  ....auto { set %irc2.dcc.chat auto }
  ....ignore { set %irc2.dcc.chat off }
  ..nick
  ...nick { set %irc2.nick $phlp(mirc2.nick) $$?="Enter nickname for irc2" }
  ...alt { set %irc2.altnick $phlp(mirc2.altnick) $$?="Enter alternate nickname for irc2" }
  ..names list
  ...on { irc2names on mnu }
  ...-
  ...off { irc2names off mnu }
  ..nick cmpltn
  ...on/off
  ....on { set %irc2.nc on }
  ....-
  ....off { set %irc2.nc off }
  ...left side
  ....none { unset %irc2.nlb }
  ....define { set %irc2.nlb $$?="Enter left bracket [ $current(%irc2.nlb) ] " }
  ...right side
  ....none { unset %irc2.nrb }
  ....define { set %irc2.nrb $$?="Enter right bracket [ $current(%irc2.nrb) ] " }
  ...-
  ...activator { set %irc2.nch $$?="Irc2 Nick completion footer [ $current(%irc2.nch) ] " }
  ..-
  ..help { pophelp mirc2 }
  .email
  ..pop  (read) { setpop }
  ..smtp (send) { setsmtp }
  ..-
  ..nicknames
  ...add { mailnick -n $$?="Enter new email nickname" }
  ...rem { mailnick -d $$?="Enter email nickname" }
  ...-
  ...address
  ....add { mailnick -a $$?="Enter nickname to add to" $$?="Enter address to add" }
  ....rem { mailnick -r $$?="Enter email nickname to del from" $$?="Enter address to delete" }
  ....-
  ....view { mailnick -v $$?="Enter email nickname to view" }
  ..-
  ..help { pophelp memail }
  .www
  ..run browser { set %www.run browser }
  ..run text viewer { set %www.run text }
  ..-
  ..help { pophelp mwww }
  .telnet
  ..port
  ...23 { set %def.tel.port 23 }
  ...80 { set %def.tel.port 80 }
  ...110 { set %def.tel.port 110 }
  ...2000 { set %def.tel.port 2000 }
  ...-
  ...set { set %def.tel.port &&?="enter default telnet port:" }
  ..wrap
  ...on { set %telwordwrap on }
  ...-
  ...off { set %telwordwrap off }
  ..-
  ..help { pophelp mtelnet }
  misc
  .sounds
  ..on { set %playsnds on }
  ..-
  ..off { set %playsnds off }
  .lag stat
  ..on { set %lag 0 | tb }
  ..off { set %lag n/a | tb }
  ..-
  ..rate { set %pongi $$?="Update lag every N minutes (current [ %pongi ] )" }
  .del logs
  ..on startup { set %delogs start }
  ..on connect { set %delogs connect }
  ..-
  ..manual only { set %delogs off }
  .copy dns
  ..on { set %copydns on }
  ..-
  ..off { set %copydns off }
  .hide ping
  ..on { set %hideping on | iecho Display of PING? PONG! in status turned $hc(off) $+ . | iecho You will have to reconnect to your server for this to take effect. }
  ..-
  ..off { set %hideping off | if ($timer(%pingtimer)) $timoff(%pingtimer) }
  .update ial
  ..on { set %ial on }
  ..off { set %ial off }
  ..-
  ..max { set %maxial $$?="Maximum nicks to update (current [ %maxial ] )" }
  .auto cycle
  ..on/off
  ...on { set %autocycle on }
  ...-
  ...off { set %autocycle off }
  ..-
  ..mode
  ...+t { set %autocycle.mode t }
  ...+s { set %autocycle.mode s }
  ...+n { set %autocycle.mode n }
  ...+tn { set %autocycle.mode tn }
  ...+pt { set %autocycle.mode pt }
  ...+pn { set %autocycle.mode pn }
  ...+stn { set %autocycle.mode stn }
  ...+pstn { set %autocycle.mode st }
  ...-
  ...set { set %autocycle.mode $$?="Enter mode to set chan on autocycle" }
  .online help
  ..on { set %onhelp on }
  ..-
  ..off { set %onhelp off }
  .msg center
  ..on { set %msgcntr on }
  ..-
  ..off { set %msgcntr off }
  .dcc options
  ..get
  ...off { set %irc2.dcc.get off }
  ...-
  ...ask { set %irc2.dcc.get ask }
  ...auto { set %irc2.dcc.get auto }
  ..chat
  ...off { set %irc2.dcc.chat off }
  ...-
  ...ask { set %irc2.dcc.chat ask }
  ...auto { set %irc2.dcc.chat auto }
  .rejoin chans
  ..on { set %rejoin on }
  ..-
  ..off { set %rejoin off }
  .script theme
  ..on { set %sthemes on }
  ..-
  ..off { set %sthemes off }
  .kick on ban
  ..on { set %kickban.on on }
  ..-
  ..off { set %kickban.on off }
  .nick colours
  ..on { colnick on }
  ..-
  ..off { colnick off }
  .version reply
  ..ircN
  ...on { set %vereply on }
  ...-
  ...off { set %vereply off }
  ..mIRC
  ...on { set %mvereply on }
  ...-
  ...off { set %mvereply off }
  ..-
  ..custom
  ...set { setvr $$?="Enter reply to send on CTCP version" }
  ...unset { unset %ver-reply }
  .split detector
  ..on { set %netsplit on }
  ..-
  ..off { set %netsplit off }
  .function keys
  ..on { set %func on }
  ..-
  ..off { set %func off }
  .remote control
  ..on/off
  ...on { if (%rcpass == irc) set %rcpass $$?="Enter new password for remote control" | set %rcontrol on }
  ...-
  ...off { set %rcontrol off }
  ..-
  ..security
  ...set pass { set %rcpass $$?="Enter new password for remote control" }
  ...-
  ...tries { set %rctries $$?="User try remote how many times before ignore" }
  ...ignore time { set %rcignore $$?="Enter time to ignore requests after failed attempts" }
  .-
  .help { pophelp mmisc }
  echo
  .colour
  ..primary
  ...white { set %c 0 | ch }
  ...black { set %c 1 | ch }
  ...blue { set %c 2 | ch }
  ...green { set %c 3 | ch }
  ...red { set %c 4 | ch  }
  ...magenta { set %c 5 | ch }
  ...purple { set %c 6 | ch }
  ...orange { set %c 7 | ch }
  ...yellow { set %c 8 | ch }
  ...bright green { set %c 9 }
  ...aqua { set %c 10 | ch }
  ...light blue { set %c 11 | ch }
  ...bright blue { set %c 12 | ch }
  ...light purple { set %c 13 | ch }
  ...grey { set %c 14 | ch }
  ...light grey { set %c 15 | ch }
  ..highlight
  ...white { set %c2 16 | ch }
  ...black { set %c2 17 | ch }
  ...blue { set %c2 18 | ch }
  ...green { set %c2 19 | ch }
  ...red { set %c2 20 | ch }
  ...magenta { set %c2 21 | ch }
  ...purple { set %c2 22 | ch }
  ...orange { set %c2 23 | ch }
  ...yellow { set %c2 24 | ch }
  ...bright green { set %c2 25 | ch }
  ...aqua { set %c2 10 | ch }
  ...light blue { set %c2 11 | ch }
  ...bright blue { set %c2 12 | ch }
  ...light purple { set %c2 13 | ch }
  ...grey { set %c2 14 | ch }
  ...light grey { set %c2 15 | ch }
  ..alternate
  ...white { set %c4 16 | ch }
  ...black { set %c4 17 | ch }
  ...blue { set %c4 18 | ch }
  ...green { set %c4 19 | ch }
  ...red { set %c4 20 | ch }
  ...magenta { set %c4 21 | ch }
  ...purple { set %c4 22 | ch }
  ...orange { set %c4 23 | ch }
  ...yellow { set %c4 24 | ch }
  ...bright green { set %c4 25 | ch }
  ...aqua { set %c4 10 | ch }
  ...light blue { set %c4 11 | ch }
  ...bright blue { set %c4 12 | ch }
  ...light purple { set %c4 13 | ch }
  ...grey { set %c4 14 | ch }
  ...light grey { set %c4 15 | ch }
  ..secondary
  ...white { set %c3 16 | ch }
  ...black { set %c3 17 | ch }
  ...blue { set %c3 18 | ch }
  ...green { set %c3 19 | ch }
  ...red { set %c3 20 | ch }
  ...magenta { set %c3 21 | ch }
  ...purple { set %c3 22 | ch }
  ...orange { set %c3 23 | ch }
  ...yellow { set %c3 24 | ch }
  ...bright green { set %c3 25 | ch }
  ...aqua { set %c3 10 | ch }
  ...light blue { set %c3 11 | ch }
  ...bright blue { set %c3 12 | ch }
  ...light purple { set %c3 13 | ch }
  ...grey { set %c3 14 | ch }
  ...light grey { set %c3 15 | ch }
  ..-
  ..help { pophelp mcolor }
  .op beg
  ..on { set %opbeg on }
  ..-
  ..off { set %opbeg off }
  ..-
  ..help { pophelp mopbeg }
  .user join
  ..on { set %userjoin on }
  ..-
  ..off { set %userjoin off }
  ..-
  ..help { pophelp muserjoin }
  .join stats
  ..on/off
  ...on { set %joinch on | set %jstats off }
  ...-
  ...off { set %joinch off | set %jstats off }
  ..-
  ..topic
  ...show { set %jointpc on }
  ...-
  ...hide { set %jointpc off }
  ..totals
  ...show { set %jointtl on }
  ...-
  ...hide { set %jointtl off }
  ..names
  ...show { set %joinnms on }
  ...-
  ...hide { set %joinnms off }
  ..synched
  ...show { set %joinsyn on }
  ...-
  ...hide { set %joinsyn off }
  ..topic set
  ...show { set %jointst on }
  ...-
  ...hide { set %jointst off }
  ..-
  ..help { pophelp mjoinstats }
  .set clock
  ..chan { set %clockchan on }
  ..-
  ..echo { set %clockchan off }
  ..-
  ..help { pophelp msetclock }
  .s-wallops
  ..on { set %wllp on }
  ..-
  ..off { set %wllp off }
  ..-
  ..help { pophelp mswallops }
  .clone join
  ..on { set %clonenotify on }
  ..-
  ..off { set %clonenotify off }
  ..-
  ..help { pophelp mclonejoin }
  .whois win
  ..on { set %whoiswin on }
  ..-
  ..off { set %whoiswin off }
  ..-
  ..help { pophelp mwhoiswin }
  .messages
  ..on { set %actmsg on }
  ..-
  ..off { set %actmsg off }
  ..-
  ..help { pophelp mmessages }
  .show ctcp
  ..active { set %showctcp on }
  ..-
  ..status { set %showctcp off }
  ..-
  ..help { pophelp mshowctcp }
  .svr notices
  ..active { set %snotice on }
  ..-
  ..status { set %snotice off }
  ..-
  ..help { pophelp msvrnotices }
  theme
  .on/off
  ..on { themes on }
  ..-
  ..off { themes off }
  .-
  .dcc
  ..fileget
  ...on { set %theme.fileget on }
  ...off { set %theme.fileget off }
  ...-
  ...hear { theme filesent }
  ..filesent
  ...on { set %theme.filesent on }
  ...off { set %theme.filesent off }
  ...-
  ...hear { theme filesent }
  ..dccchat
  ...on { set %theme.dccchat on }
  ...off { set %theme.dccchat off }
  ...-
  ...hear { theme dccchat }
  ..dccsend
  ...on { set %theme.dccsend on }
  ...off { set %theme.dccsend off }
  ...-
  ...hear { theme dccsend }
  .read
  ..no msg
  ...on { set %theme.nomsg on }
  ...off { set %theme.nomsg off }
  ...-
  ...hear { theme nomsg }
  ..del msg
  ...on { set %theme.delmsg on }
  ...off { set %theme.delmsg off }
  ...-
  ...hear { theme msg }
  ..got msg
  ...on { set %theme.gotmsg on }
  ...off { set %theme.gotmsg off }
  ...-
  ...hear { theme gotmsg }
  ..see msg
  ...on { set %theme.seemsg on }
  ...off { set %theme.seemsg off }
  ...-
  ...hear { theme seemsg }
  .msgs
  ..msg
  ...on { set %theme.msg on }
  ...off { set %theme.msg off }
  ...-
  ...hear { theme msg }
  ..page
  ...on { set %theme.page on }
  ...off { set %theme.page off }
  ...-
  ...hear { theme page }
  ..notice
  ...on { set %theme.notice on }
  ...off { set %theme.notice off }
  ...-
  ...hear { theme notice }
  .client
  ..user exit
  ...on { set %theme.exit on }
  ...off { set %theme.exit off }
  ...-
  ...hear { theme exit }
  ..user quit
  ...on { set %theme.quit on }
  ...off { set %theme.quit off }
  ...-
  ...hear { theme quit }
  ..connect
  ...on { set %theme.connect on }
  ...off { set %theme.connect off }
  ...-
  ...hear { theme connect }
  ..welcome
  ...on { set %theme.welcome on }
  ...off { set %theme.welcome off }
  ...-
  ...hear { theme welcome }
  ..disconnect
  ...on { set %theme.disconnect on }
  ...off { set %theme.disconnect off }
  ...-
  ...hear { theme disconnect }
  .events
  ..split
  ...on { set %theme.split on }
  ...off { set %theme.split off }
  ...-
  ...hear { theme split }
  ..nick
  ...on { set %theme.nick on }
  ...off { set %theme.nick off }
  ...-
  ...hear { theme nick }
  ..topic
  ...on { set %theme.topic on }
  ...off { set %theme.topic off }
  ...-
  ...hear { theme topic }
  ..back
  ...on { set %theme.back on }
  ...off { set %theme.back off }
  ...-
  ...hear { theme back }
  ..away
  ...on { set %theme.away on }
  ...off { set %theme.away off }
  ...-
  ...hear { theme away }
  ..flood
  ...on { set %theme.flood on }
  ...off { set %theme.flood off }
  ...-
  ...hear { theme flood }
  ..invite
  ...on { set %theme.invite on }
  ...off { set %theme.invite off }
  ...-
  ...hear { theme invite }
  ..rejoin
  ...on { set %theme.rejoin on }
  ...off { set %theme.rejoin off }
  ...-
  ...hear { theme rejoin }
  .-
  .help { pophelp mstheme }
  -
  setup
  .idle
  ..limit { $phlp(midle) | %idle = 60 * $$?="New idle limit (in mins)" }
  ..msg { $phlp(mim) | set %im $$?="Idle message [ $current(%im) ] " }
  ..time { $phlp(mit) | %it = 60 * $$?="Minutes to display idle msg" }
  .kick
  ..kb { $phlp(mshitkick) | set %shitkick $$?="Kickban message" }
  ..idle { $phlp(midreason) | set %idreason $$?="Enter idle kick reason" }
  ..mass { $phlp(mmsk) | set %msk $$?="Mass kick message" }
  ..invite { $phlp(mckb) | set %ckb $$?="Kickban message on invite" }
  ..ban msg { $phlp(mbankick) | set %bankick $$?="On ban kick message" }
  .user
  ..email { set %email $$?="Your email" }
  ..idos dir { set %idosdir $$?="Enter default directory [ $current(%idosdir) ] " }
  ..time zone { set %tz $$?="Time zone" }
  ..user mode { $phlp(mumode) | set %umode $$?="Sign on mode [ $current( [ + $+ [ %umode ] ] ) ] " }
  ..homepage { set %url $$?="Your homepage" }
  ..show word { $phlp(mshortnick) | set %shortnick $$?="Word to highlight when said" }
  ..nick cmpltn
  ...on/off
  ....on { set %nc on }
  ....-
  ....off { set %nc off }
  ...left side
  ....none { unset %nlb }
  ....define { $phlp(mnlb) | set %nlb $$?="Enter left bracket [ $current(%nlb) ] " }
  ...right side
  ....none { unset %nrb }
  ....define { $phlp(mnrb) | set %nrb $$?="Enter right bracket [ $current(%nrb) ] " }
  ...-
  ...activator { $phlp(mnch) | set %nch $$?="Nick completion footer [ $current(%nch) ] " }
  .irc2
  ..port { set %irc2.dport $$?="Enter default server port" }
  ..timeout { set %irc2.timeout $$?="Enter server timeout in seconds" }
  ..nickname { seti2nick }
  .away
  ..pager { $phlp(msound) | set %sound $$dir="Select pager sound" ../wav/*.wav;*.mp3 }
  ..away msg { $phlp(mdefaulta) | set %defaulta $$?="Default away message" }
  ..back msg { $phlp(mdback) | set %dback $$?="Default return message" }
  .chan
  ..topic { $phlp(mdefaultt) | set %defaultt $$?="New default topic" }
  ..wallop { $phlp(mwall) | set %wall $$?="Wallop prefix" }
  ..voice { $phlp(mvoice) | set %voice $$?="Voice message prefix" }
  ..nonops { $phlp(mnonops) | set %nonops $$?="Nonops message prefix" }
  ..-
  ..modes/line
  ...networks
  ....EFnet { set %modesonline 4 }
  ....IRCNet { set %modesonline 3 }
  ....DALnet { set %modesonline 10 }
  ....NewNet { set %modesonline 6 }
  ....ChatNet { set %modesonline 5 }
  ....UnderNet { set %modesonline 4 }
  ...-
  ...set { $phlp(mmodesonline) | set %modesonline $$?="Mode changes on 1 line (usually 4)" }
  .other
  ..load { lset }
  ..save { sset }
  ..-
  ..view { vset }
  .-
  .set all { setall }
}