;%%%%%%%%%%%%%%%%%%%%%%%%
;script iSettings
;version 1.1
;author icN
;email icn@ircn.com
;url http://www.ircN.com
;%%%%%%%%%%%%%%%%%%%%%%%%
on 1:LOAD {
  set.w1
  set.w2
}
alias set.w1 {
  clear @Control
  window -alb @Control %conloc @Control Courier New 12
  aline @Control  ircN settings
  aline @Control _______________
  aline @Control    options
  aline @Control ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  aline @Control $str( ,2) chan
  aline @Control $str( ,2) msgs
  aline @Control $str( ,2) fserv
  aline @Control $str( ,2) prefs
  aline @Control $str( ,2) theme
  aline @Control $str( ,2) flood
  aline @Control $str( ,2) other
  aline @Control _______________
  aline @Control      info
  aline @Control ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  aline @Control  www.ircN.com
  aline @Control  icn@ircn.com
  aline @Control _______________
  aline @Control      exit
  sline @Control 5
}
alias set.w2 {
  clear @Settings
  window -a @Settings %setloc @Control Courier New 12
  vecho $str( ,28) Welcome to ircN Settings
  vecho $chr(160)
  vecho $str( ,28) 1. Select an option.
  vecho $str( ,28) 2. Double-click to view.
  vecho $str( ,28) 3. Enjoy!
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
}
alias set.chk {
  if ($window(@Control) == $null) set.w1
  if ($window(@Settings) == $null) set.w2
}
alias getset {
  set.chk
  if ($sline(@Control,1).ln == 5) view.chan
  elseif ($sline(@Control,1).ln == 6) view.msgs
  elseif ($sline(@Control,1).ln == 7) view.fserv
  elseif ($sline(@Control,1).ln == 8) view.prefs
  elseif ($sline(@Control,1).ln == 9) view.theme
  elseif ($sline(@Control,1).ln == 10) view.flood
  elseif ($sline(@Control,1).ln == 11) view.other
  elseif ($sline(@Control,1).ln == 15) run $readini mirc.ini Files browser http://www.ircN.com
  elseif ($sline(@Control,1).ln == 16) sendmail icn@ircn.com ircN settings
  elseif ($sline(@Control,1).ln == 18) vexit
  else halt
}
alias vecho echo @Settings $1-
alias view.flood {
  set.chk
  clear @Settings
  vecho $str( ,10) . $+ $str(-,59) $+ .
  vecho $str( ,10) $chr(124) $hc($center(57,User Protection Settings ( [ $upper(%userprot) ] ) )) $chr(124)
  vecho $str( ,10) $chr(124) $+ $str(-,59) $+ $chr(124)
  vecho $str( ,10) $chr(124) $str( ,7) $chr(91) $center(20,user) $chr(93) $chr(91) $center(20,total) $chr(93) $chr(124)
  vecho $str( ,10) $chr(124) $+ $center(7,type) $+ : $chr(91) max  $chr(124) rate/s $chr(124) undo $chr(93) $chr(91) max  $chr(124) rate/s $chr(124) undo $chr(93) $chr(124)
  vecho $str( ,10) $chr(124) $fix(7,dcc) $chr(91) $center(4,%fdccmaxu) $chr(124) $center(6,$div(%durps,1000)) $chr(124) $center(4,%fdccremu) $chr(93) $chr(91) $center(4,%fdccmax) $chr(124) $center(6,$div(%drps,1000)) $chr(124) $center(4,%fdccrem) $chr(93) $chr(124)
  vecho $str( ,10) $chr(124) $fix(7,ctcp) $chr(91) $center(4,%ctcpmaxu) $chr(124) $center(6,$div(%curps,1000)) $chr(124) $center(4,%ctcpremu) $chr(93) $chr(91) $center(4,%ctcpmax) $chr(124) $center(6,$div(%crps,1000)) $chr(124) $center(4,%ctcprem) $chr(93) $chr(124)
  vecho $str( ,10) $chr(124) $fix(7,msgs) $chr(91) $center(4,%msgmaxu) $chr(124) $center(6,$div(%murps,1000)) $chr(124) $center(4,%msgremu) $chr(93) $chr(91) $center(4,%msgmax) $chr(124) $center(6,$div(%mrps,1000)) $chr(124) $center(4,%msgrem) $chr(93) $chr(124)
  vecho $str( ,10) $chr(124) $fix(7,action) $chr(91) $center(4,%actmaxu) $chr(124) $center(6,$div(%aturps,1000)) $chr(124) $center(4,%actremu) $chr(93) $chr(91) $center(4,%actmax) $chr(124) $center(6,$div(%atrps,1000)) $chr(124) $center(4,%actrem) $chr(93) $chr(124)
  vecho $str( ,10) $chr(124) $fix(7,invite) $chr(91) $center(4,%invmaxu) $chr(124) $center(6,$div(%iurps,1000)) $chr(124) $center(4,%invremu) $chr(93) $chr(91) $center(4,%invmax) $chr(124) $center(6,$div(%irps,1000)) $chr(124) $center(4,%invrem) $chr(93) $chr(124)
  vecho $str( ,10) $chr(124) $fix(7,notice) $chr(91) $center(4,%notmaxu) $chr(124) $center(6,$div(%nturps,1000)) $chr(124) $center(4,%notremu) $chr(93) $chr(91) $center(4,%notmax) $chr(124) $center(6,$div(%ntrps,1000)) $chr(124) $center(4,%notrem) $chr(93) $chr(124)
  vecho $str( ,10) ' $+ $str(-,59) $+ '
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
}
alias view.msgs {
  set.chk
  clear @Settings
  vecho . $+ $str(-,79) $+ .
  vecho $chr(124) $hc($center(77,Default Messages)) $chr(124)
  vecho $chr(124) $+ $str(-,79) $+ $chr(124)
  vecho $chr(124) url         : $fix(63,%url) $chr(124)
  vecho $chr(124) email       : $fix(63,%email) $chr(124)
  vecho $chr(124) topic       : $fix(63,%defaultt) $chr(124)
  vecho $chr(124) wallop      : $fix(63,%wall) $chr(124)
  vecho $chr(124) usermode    : $fix(63,+ [ %umode ] ) $chr(124)
  vecho $chr(124) away msg    : $fix(63,%defaulta) $chr(124)
  vecho $chr(124) idle msg    : $fix(63, [ %im ] repeats every [ $div(%it,60) ] mins) $chr(124)
  vecho $chr(124) kickban msg : $fix(63,%shitkick) $chr(124)
  vecho $chr(124) timezone    : $fix(63,%tz) $chr(124)
  vecho $chr(124) show word   : $fix(63,%shortnick) $chr(124)
  vecho $chr(124) idle kick   : $fix(63,%idreason) $chr(124)
  vecho $chr(124) ban on you  : $fix(63,%bankick) $chr(124)
  vecho $chr(124) return msg  : $fix(63,%dback) $chr(124)
  vecho $chr(124) idle limit  : $fix(63, [ $div(%idle,60) ] minutes) $chr(124)
  vecho $chr(124) idle phrase : $fix(63,%idphrase) $chr(124)
  vecho $chr(124) invite kick : $fix(63,%ckb) $chr(124)
  vecho $chr(124) pager sound : $fix(63,%sound) $chr(124)
  vecho $chr(124) masskick msg: $fix(63,%msk) $chr(124)
  vecho ' $+ $str(-,79) $+ '
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
}
alias view.chan {
  set.chk
  clear @Settings
  vecho . $+ $str(-,79) $+ .
  vecho $chr(124) $hc($center(77,Channel Protection Settings [ ( $+ [ $upper(%chanprot) ] $+ ) ] )) $chr(124)
  vecho $chr(124) $+ $str(-,79) $+ $chr(124)
  vecho $chr(124) $str( ,31) $chr(91) $center(8,kick) $chr(93) $str( ,32) $chr(124)
  vecho $chr(124) $+ $center(7,type) $+ : $chr(91) $+ on/off $+ $chr(93) $chr(91) $+ max $+ $chr(93) $chr(91) $+ rate/s $+ $chr(93) $chr(91) $+ ops $chr(124) buds $+ $chr(93) $chr(91) $+ ban $+ $chr(93) $center(26,channels) $chr(124)
  vecho $chr(124) $+ $str(-,79) $+ $chr(124)
  vecho $chr(124) $fix(7,text) $chr(91) $+ $hc($center(6,%txtfld)) $+ ] $chr(91) $+ $lfix(3,$sc(%maxlines)) $+ ] $chr(91) $+ $center(6,$div(%lps,1000)) $+ ] $chr(91) $+ $center(4,%ktops) $+ $chr(124) $+ $center(5,%tck) $+ ] $chr(91) $+ $center(3,%txban) $+ ] $center(26,%tfchans) $chr(124)
  vecho $chr(124) $fix(7,nick) $chr(91) $+ $hc($center(6,%nickfld)) $+ ] $chr(91) $+ $lfix(3,$sc(%maxnicks)) $+ ] $chr(91) $+ $center(6,$div(%nps,1000)) $+ ] $chr(91) $+ $center(4,%knpops) $+ $chr(124) $+ $center(5,%nck) $+ ] $chr(91) $+ $center(3,%nban) $+ ] $center(26,all) $chr(124)
  vecho $chr(124) $fix(7,kick) $chr(91) $+ $hc($center(6,%kickfld)) $+ ] $chr(91) $+ $lfix(3,$sc(%maxkicks)) $+ ] $chr(91) $+ $center(6,$div(%kcps,1000)) $+ ] $chr(91) $+ $center(4,%kkops) $+ $chr(124) $+ $center(5,%kck) $+ ] $chr(91) $+ $center(3,%kban) $+ ] $center(26,%kfchans) $chr(124)
  vecho $chr(124) $fix(7,deop) $chr(91) $+ $hc($center(6,%mdopfld)) $+ ] $chr(91) $+ $lfix(3,$sc(%maxdeops)) $+ ] $chr(91) $+ $center(6,$div(%dps,1000)) $+ ] $chr(91) $+ $center(4,%kdops) $+ $chr(124) $+ $center(5,%dck) $+ ] $chr(91) $+ $center(3,%dban) $+ ] $center(26,%dfchans) $chr(124)
  vecho $chr(124) $fix(7,join) $chr(91) $+ $hc($center(6,%joinfld)) $+ ] $chr(91) $+ $lfix(3,$sc(%maxjoins)) $+ ] $chr(91) $+ $center(6,$div(%jps,1000)) $+ ] $chr(91) $+ $center(4,----) $+ $chr(124) $+ $center(5,%jck) $+ ] $chr(91) $+ $center(3,%jban) $+ ] $center(26,%jfchans) $chr(124)
  vecho $chr(124) $fix(7,idle) $chr(91) $+ $hc($center(6,%idcheck)) $+ ] $chr(91) $+ $lfix(2,$sc($div(%idlemax,60))) $+ m] [------] $chr(91) $+ $center(4,n) $+ $chr(124) $+ $center(5,-----) $+ ] [ n $chr(93) $center(26,%idchan) $chr(124)
  vecho $chr(124) $fix(7,caps) $chr(91) $+ $hc($center(6,%capsfld)) $+ ] $chr(91) $+ $lfix(2,$sc(%maxcaps)) $+ $chr(37) $+ $chr(93) [------] $chr(91) $+ $center(4,%capskops) $+ $chr(124) $+ $center(5,%capskfrnd) $+ ] [ n $chr(93) $center(26,%capschn) $chr(124)
  vecho $chr(124) $fix(7,ascii) $chr(91) $+ $hc($center(6,%asciifld)) $+ ] $chr(91) $+ $lfix(2,$sc(%maxascii)) $+ $chr(37) $+ $chr(93) [------] $chr(91) $+ $center(4,%asciikops) $+ $chr(124) $+ $center(5,%asciikfrnd) $+ ] [ n $chr(93) $center(26,%asciichn) $chr(124)
  vecho $chr(124) $fix(7,action) $chr(91) $+ $hc($center(6,%actfld)) $+ ] $chr(91) $+ $lfix(3,$sc(%amaxlines)) $+ ] $chr(91) $+ $center(6,$div(%aaps,1000)) $+ ] $chr(91) $+ $center(4,%atops) $+ $chr(124) $+ $center(5,%ack) $+ ] $chr(91) $+ $center(3,%aban) $+ ] $center(26,%afchans) $chr(124)
  vecho $chr(124) $fix(7,repeat) $chr(91) $+ $hc($center(6,%rptfld)) $+ ] $chr(91) $+ $lfix(3,$sc(%maxrpt)) $+ ] $chr(91) $+ $center(6,$div(%rps,1000)) $+ ] $chr(91) $+ $center(4,%krops) $+ $chr(124) $+ $center(5,%rck) $+ ] $chr(91) $+ $center(3,%rban) $+ ] $center(26,%rpchans) $chr(124)
  vecho $chr(124) $fix(7,servop) $chr(91) $+ $hc($center(6,%serverprot)) $+ ] [---] [------] [----|-----] [ n $chr(93) $center(26,%servc) $chr(124)
  vecho ' $+ $str(-,79) $+ '
  vecho . $+ $str(-,79) $+ .
  vecho $chr(124) $center(78, [ [ $hc(Multi-users (Botnet) Protection [ ( $+ [ $upper(%bt.flood) ] $+ ) ] ) ] ] ) $+ $chr(124)
  vecho $chr(124) $+ $str(-,79) $+ $chr(124)
  vecho $chr(124) $+ $center(7,type) $+ : $chr(91) $+ on/off $+ $chr(93) $chr(91) $+ max $+ $chr(93) $chr(91) $+ time $+ $chr(93) $+  [nonops] [mode] $center(31,channels) $chr(124)
  vecho $chr(124) $+ $str(-,79) $+ $chr(124)
  vecho $chr(124) $fix(7,text) $chr(91) $+ $hc($center(6,%bt.msg)) $+ ] $chr(91) $+ $lfix(3,$sc(%bt.maxmsgs)) $+ ] $chr(91) $+ $center(4,%bt.mtime) $+ ] $chr(91) $+ $center(6,%bt.mknop) $+ $chr(93) $chr(91) $+ $center(4,%bt.mmod) $+ $chr(93) $center(31,%bt.mchan) $chr(124)
  vecho $chr(124) $fix(7,join) $chr(91) $+ $hc($center(6,%bt.join)) $+ ] $chr(91) $+ $lfix(3,$sc(%bt.maxjoins)) $+ ] $chr(91) $+ $center(4,%bt.jtime) $+ ] $chr(91) $+ $center(6,%bt.jknop) $+ $chr(93) $chr(91) $+ $center(4,%bt.jmod) $+ $chr(93) $center(31,%bt.jchan) $chr(124)
  vecho $chr(124) $fix(7,nick) $chr(91) $+ $hc($center(6,%bt.nick)) $+ ] $chr(91) $+ $lfix(3,$sc(%bt.maxnicks)) $+ ] $chr(91) $+ $center(4,%bt.ntime) $+ ] $chr(91) $+ $center(6,%bt.nknop) $+ $chr(93) $chr(91) $+ $center(4,%bt.nmod) $+ $chr(93) $center(31,%bt.nchan) $chr(124)
  vecho $chr(124) $fix(7,action) $chr(91) $+ $hc($center(6,%bt.act)) $+ ] $chr(91) $+ $lfix(3,$sc(%bt.maxacts)) $+ ] $chr(91) $+ $center(4,%bt.atime) $+ ] $chr(91) $+ $center(6,%bt.aknop) $+ $chr(93) $chr(91) $+ $center(4,%bt.amod) $+ $chr(93) $center(31,%bt.achan) $chr(124)
  vecho ' $+ $str(-,79) $+ '
}
alias view.prefs {
  set.chk
  clear @Settings
  vecho . $+ $str(-,79) $+ .
  vecho $chr(124) $hc($center(77,Preferences)) $chr(124)
  vecho $chr(124) $+ $str(-,79) $+ $chr(124)
  vecho $chr(124) bots          : $fix(61,autoop[ [ %opbot ] ] reop[ [ %reopbot ] ] deop[ [ %botdeop ] ] ) $chr(124)
  vecho $chr(124) notify        : $fix(61, [ %inotify ]   show unknown[ [ %nsukn ] ] whois[ [ %ntwhs ] ] ) $chr(124)
  vecho $chr(124) friends       : $fix(61,commands[ [ %friendscmd ] ] autoop[ [ %autoop ] ] protect[ [ %pfban ] ] ) $chr(124)
  vecho $chr(124) protect       : $fix(61, [ %protect ]    deop[ [ [ %protdeop ] $+ [ $chr(160) ] $+ [ $chr(93) ] ] ) $chr(124)
  vecho $chr(124) del logs      : $fix(61, [ %delogs ] ) $chr(124)
  vecho $chr(124) seen bot      : $fix(61,%seenbot) $chr(124)
  vecho $chr(124) dcc chat      : $fix(61,%creq) $chr(124)
  vecho $chr(124) dcc send      : $fix(61,%sreq) $chr(124)
  vecho $chr(124) s-wallop      : $fix(61,%wllp) $chr(124)
  vecho $chr(124) iDOS dir      : $fix(61,%idosdir) $chr(124)
  vecho $chr(124) decrypter     : $fix(61, [ %decrypt ]    password[ [ $sub(%pwno,1183) ] ] ) $chr(124)
  if (%lag == n/a) vecho $chr(124) lag stat      : $fix(61,off) $chr(124)
  else vecho $chr(124) lag stat      : $fix(61,updated every [ %pongi ] minutes) $chr(124)
  vecho $chr(124) pw opping     : $fix(61,%reqpass) $chr(124)
  vecho $chr(124) info line     : $fix(61, [ %info ]     left [ [ %lb ] $+ ] ircN [ $+ [ %rb ] ] right) $chr(124)
  if (%hideping == on) vecho $chr(124) PING?PONG!    : $fix(61,Hidden) $chr(124)
  else vecho $chr(124) PING?PONG!    : $fix(61,Visible) $chr(124)
  if (%ial == on) vecho $chr(124) update ial    : $fix(61,on at maximum of [ %maxial ] users) $chr(124)
  else vecho $chr(124) update ial    : $fix(61,off) $chr(124)
  vecho $chr(124) show ctcp     : $fix(61,%showctcp) $chr(124)
  vecho $chr(124) join stats    : $fix(61, [ %joinch ]  tpc[ [ %jointpc ] ] set[ [ %jointst ] ] synch[ [ %joinsyn ] ] names[ [ %joinnms ] ] totals[ [ %jointtl ] ] ) $chr(124)
  vecho $chr(124) mail account  : $fix(61,%maildef) $chr(124)
  vecho $chr(124) message cntr  : $fix(61,%msgcntr) $chr(124)
  vecho $chr(124) function keys : $fix(61,%func) $chr(124)
  vecho $chr(124) version reply : $fix(61,%vereply) $chr(124)
  vecho $chr(124) channel clock : $fix(61,%clockchan) $chr(124)
  vecho $chr(124) split detector: $fix(61,%netsplit) $chr(124)
  vecho ' $+ $str(-,79) $+ '
}
alias view.other {
  set.chk
  clear @Settings
  vecho . $+ $str(-,79) $+ .
  vecho $chr(124) $hc($center(77,Other Settings)) $chr(124)
  vecho $chr(124) $+ $str(-,79) $+ $chr(124)
  vecho $chr(124) $fix(77,$hc(Away Settings)) $chr(124)
  vecho $chr(124) pager     : $fix(65,%pager) $chr(124)
  vecho $chr(124) msg log   : $fix(65,%msglog) $chr(124)
  vecho $chr(124) anti-idle : $fix(65,%idlesave) $chr(124)
  vecho $chr(124) auto away : $fix(65,%autoaway) $chr(124)
  vecho $chr(124) show email: $fix(65,%em) $chr(124)
  vecho $chr(124) close msgs: $fix(65,%clsmsg) $chr(124)
  vecho $chr(124) $str( ,77) $chr(124)
  vecho $chr(124) $fix(77,$hc(Xdcc Settings)) $chr(124)
  vecho $chr(124) delay  : $fix(68, [ $div(%tc,60) ] minutes) $chr(124)
  vecho $chr(124) slots  : $fix(68,%maxslots) $chr(124)
  vecho $chr(124) queue  : $fix(68,%maxqueue) $chr(124)
  vecho $chr(124) status : $fix(68,%xstatus) $chr(124)
  vecho $chr(124) timeout: $fix(68, [ $div(%chsend,60) ] minutes) $chr(124)
  vecho $chr(124) $str( ,77) $chr(124)
  vecho $chr(124) $fix(77,$hc(irc2 Settings)) $chr(124)
  vecho $chr(124) port     : $fix(66,%irc2.dport) $chr(124)
  vecho $chr(124) timeout  : $fix(66, [ %irc2.timeout ] seconds) $chr(124)
  vecho $chr(124) names    : $fix(66, [ %irc2.names ] ) $chr(124)
  vecho $chr(124) nick comp: $fix(66, [ %irc2.names ] ) $chr(124)
  vecho $chr(124) dcc      : $fix(66, [ get: [ $fix(5,%irc2.dcc.get) ] $+ chat: [ %irc2.dcc.chat ] ] ) $chr(124)
  vecho ' $+ $str(-,79) $+ '
}
alias view.theme {
  set.chk
  clear @Settings
  vecho $str( ,27) . $+ $str(-,22) $+ .
  vecho $str( ,27) $chr(124) $hc($center(20,Themes ( [ $upper(%theme) ] ) )) $chr(124)
  vecho $str( ,27) $chr(124) $+ $str( ,22) $+ $chr(124)
  if ($exists($themedir(%themename))) vecho $str( ,27) $chr(124) $sc($center(20, [ %themename ] )) $chr(124)
  vecho $str( ,27) $chr(124) $+ $str(-,22) $+ $chr(124)
  vecho $str( ,27) $chr(124) page        : $hc($center(6,%theme.page)) $chr(124)
  vecho $str( ,27) $chr(124) flood       : $hc($center(6,%theme.flood)) $chr(124)
  vecho $str( ,27) $chr(124) notice      : $hc($center(6,%theme.notice)) $chr(124)
  vecho $str( ,27) $chr(124) invite      : $hc($center(6,%theme.invite)) $chr(124)
  vecho $str( ,27) $chr(124) message     : $hc($center(6,%theme.msg)) $chr(124)
  vecho $str( ,27) $chr(124) connect     : $hc($center(6,%theme.conc)) $chr(124)
  vecho $str( ,27) $chr(124) welcome     : $hc($center(6,%theme.welcome)) $chr(124)
  vecho $str( ,27) $chr(124) netsplit    : $hc($center(6,%theme.split)) $chr(124)
  vecho $str( ,27) $chr(124) dcc send    : $hc($center(6,%theme.send)) $chr(124)
  vecho $str( ,27) $chr(124) dcc chat    : $hc($center(6,%theme.chat)) $chr(124)
  vecho $str( ,27) $chr(124) set away    : $hc($center(6,%theme.away)) $chr(124)
  vecho $str( ,27) $chr(124) set back    : $hc($center(6,%theme.back)) $chr(124)
  vecho $str( ,27) $chr(124) view msg    : $hc($center(6,%theme.seemsg)) $chr(124)
  vecho $str( ,27) $chr(124) file sent   : $hc($center(6,%theme.sent)) $chr(124)
  vecho $str( ,27) $chr(124) file rcvd   : $hc($center(6,%theme.get)) $chr(124)
  vecho $str( ,27) $chr(124) delete msg  : $hc($center(6,%theme.delmsg)) $chr(124)
  vecho $str( ,27) $chr(124) disconnect  : $hc($center(6,%theme.disc)) $chr(124)
  vecho $str( ,27) $chr(124) net rejoin  : $hc($center(6,%theme.rejoin)) $chr(124)
  vecho $str( ,27) $chr(124) client exit : $hc($center(6,%theme.exit)) $chr(124)
  vecho $str( ,27) $chr(124) client quit : $hc($center(6,%theme.quit)) $chr(124)
  vecho $str( ,27) $chr(124) no messages : $hc($center(6,%theme.nomsg)) $chr(124)
  vecho $str( ,27) $chr(124) got messages: $hc($center(6,%theme.gotmsg)) $chr(124)
  vecho $str( ,27) ' $+ $str(-,22) $+ '
}
alias view.fserv {
  set.chk
  clear @Settings
  vecho $str( ,19) $chr(91) $+ $hc(%fservename) is $hc($upper(%fserve)) $+ $chr(93)
  vecho $chr(160)
  vecho $str( ,19) current users    : $hc($fserv(0))
  vecho $str( ,19) home directory   : $hc(%fservedir)
  if (%ratio == leech) vecho $str( ,19) ratio            : $hc(leech)
  else vecho $str( ,19) ratio            : $hc(1) to $hc(%ratio)
  vecho $str( ,19) newuser credits  : $hc(%scredits) bytes
  vecho $str( ,19) directory info   : $hc(%showdiz) using $sc(%dirchange)
  vecho $str( ,19) maximum logins   : $hc(%maxfsrv)
  vecho $str( ,19) maximum filesize : $hc(%fmsize) at $sc(%maxfsize) bytes
  vecho $str( ,19) files accepted   : $hc(%filetypes)
  vecho $str( ,19) dupe checker     : $hc(%findfile)
  vecho $str( ,19) trigger commmand : $hc(%fcomnd)
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
  vecho $chr(160)
}
alias vexit {
  if ($window(@Control)) set %conloc $swlc(@Control)
  window -c @Control
  if ($window(@Settings)) set %setloc $swlc(@Settings)
  window -c @Settings
  .timer 1 1 .unload -rs settings.mrc
}
menu @Control {
  dclick getset
   go! { getset | halt }
  -
  chan { view.chan | halt }
  msgs { view.msgs | halt }
  fserv { view.fserv | halt }
  prefs { view.prefs | halt }
  theme { view.theme | halt }
  flood { view.flood | halt }
  other { view.other | halt }
  -
   exit { vexit | halt }
  
}