/ScriptServ

;filestart
[qpopup]
n0=clear { c }
[cpopup]
n0=Chanstats { .channel }
n1=ChanServ
n2=.Ident {
n3=  var %tmp = %chanserv. [ $+ [ $active ] ]
n4=  $iif(%tmp == $null,set %chanserv. [ $+ [ $active ] ] $$?="Please enter the founder pass for $active $+ :",chanserv identify $active %tmp)
n5=}
n6=.List
n7=..Userlist { chanserv access $active list }
n8=..Levels { chanserv level $active list }
n9=..Matching { chanserv access $active list $$?="Please enter the address mask to search for:" }
n10=.Add
n11=..Auto-ops { chanserv access $active add $$?="Please enter the nick or address to add:" 20 }
n12=..SET access { chanserv access $active add $$?="Please enter the nick or address to add:" 25 }
n13=..Superop { chanserv access $active add $$?="Please enter the nick or address to add:" 40 }
n14=.Del { chanserv access $active del $$?="Please enter the nick or address to remove:" }

[lpopup]
n0=Kban { kb $1 %kick.def }
n1=-
n2=Flip -/+ { var %i = 1 | while $snick(#,%i) { mode # $iif($snick(#,%i) isop #,-o,+o) $remove($snick(#,%i),$me) | inc %i } }
n3=-
n4=Mode
n5=.+o { op $remove($replace($snicks,$chr(44),$chr(32)),$me) }
n6=.-o { deop $remove($replace($snicks,$chr(44),$chr(32)),$me) }
n7=.+v { v $remove($replace($snicks,$chr(44),$chr(32)),$me) }
n8=.-v { dv $remove($replace($snicks,$chr(44),$chr(32)),$me) }
n9=-
n10=Xlist { xlist $snicks }
[bpopup]
n0=..changes..
n1=Help { help }
n2=Msgs
n3=.Read { run notepad system\away.log }
n4=.Clear { _s Messages cleared at $getTime | write -c system\away.log Messages last cleared at $getTime $+ , $day $getConDate ( $+ $sub($lines(system\away.log),1) messages cleared) }
n5=Select
n6=.Autojoin
n7=..$iif($rt($+(%,ajoin.,$network)) == on,$network Autojoin is on.,$network Autojoin is off.) {
n8=  if $rt($+(%,ajoin.,$network)) == on { unset $+(%,ajoin.,$network) | _s $network Autojoin is off. }
n9=  else { set $+(%,ajoin.,$network) on | _s $network Autojoin is on. }
n10=}
n11=..-
n12=..Join all { j $rt($+(%,autojoin.,$network)) }
n13=..-
n14=..$iif($active !ischan || $active isin $rt($+(%,autojoin.,$network)),$style(2)) Add current { set $+(%,autojoin.,$network) $rt($+(%,autojoin.,$network)) $active }
n15=..Add channel { set $+(%,autojoin.,$network) $rt($+(%,autojoin.,$network)) $?="Please enter the #channel to add to autojoin:" }
n16=..Del channel { set $+(%,autojoin.,$network) $remove($rt($+(%,autojoin.,$network)),$?="Please enter the #channel to remove from autojoin:") | set $+(%,autojoin.,$network) $gettok($rt($+(%,autojoin.,$network)),1-50,32) }
n17=.Chantext
n18=..$iif(%textout == prefix,Prefix chantext - on,Prefix chantext - off) {
n19=  if %textout == prefix { unset %textout | _s Your nick will not prefix your text on channels. }
n20=  else { %textout = prefix | _s Your nick will now prefix your text on channels. }
n21=}
n22=..-
n23=..Set text-out { %c.delim = $$?="Please enter the character you want your text on channels prefaced by:" }
n24=..Set left-bracket { %l.delim = $$?="Please enter the left-hand character to delimit user nicknames for channel text: $crlf $crlf $+ :@Leareth   : hi, what i mean is, what character you want that : on the left to be." }
n25=..Set right-bracket { %r.delim = $$?="Please enter the right-hand character to delimit user nicknames for channel text: $crlf $crlf $+ :@Leareth   : hi, what i mean is, what character you want that : on the right to be." }
n26=.Colorsets
n27=..Add/edit { var %ctm = $$?="Please enter the color name to add or edit:" | var %ctm2 = $$?="Please enter your 3 color numbers (highlite, light, dark) seperated by spaces:" | writeini system\cs.txt cs %ctm $replace(%ctm2,$chr(32),.) }
n28=..Remove { var %ctm = $$?="Please enter the color name to remove:" | remini system\cs.txt cs %ctm }
n29=.Defaults
n30=..Ircname { %irc = $$?="Please enter your irc name:" }
n31=..Kickmsg { %kickdef = $$?="Please enter your default kick message:" }
n32=..Nickcomp { %nick.c = $$?="Please enter nickcomp delimiter. Control characters such as bold are allowed. $crlf $crlf $+ Example; the : in '<luser> leareth: blah blah' " }
n33=..Nick F2 { %nick1 = $$?="Please enter your usual nick:" }
n34=..Nick F3 { %nick2 = $$?="Please enter your alternate nick:" }
n35=..Prefix { %event = $$?="Please enter the character you want events prefaced by:" }
n36=.Gain-ops
n37=..Add Chan { writeini system\gainop.ini gainop $?="Please enter the #channel to add to your gainop list:" $?="Please enter the bot to msg for ops:" op $?="Please enter the password to send:" }
n38=..Del Chan { remini system\gainop.ini gainop $?="Please enter the #channel to remove from your gainop list:" }
n39=.Switch
n40=..Default { switch 00001100::0: }
n41=..Send bin to $active { say $switch(bin) }
n42=..Send key to $active { say $switch(key) }
n43=.-
n44=.$iif(%aop == on,Auto-op - on,Auto-op - off) { inc %reflect.mod
n45=  if %aop == on { unset %aop | _s Users in friends list must now ctcp for ops. }
n46=  else { %aop = on | _s Users in friends list will now be auto-opped. }
n47=}
n48=.$iif(%charm == off,Charm - off,Charm - on) { inc %reflect.mod
n49=  if %charm == off { %charm = on | _s You've turned on your Charm© }
n50=  else { %charm = off | _s You've turned off your Charm© }
n51=}
n52=.$iif(%showMsgAddr == on,MsgAddr - on,MsgAddr - off) { inc %reflect.mod
n53=  if %showMsgAddr == on { unset %showMsgAddr %showMsgCur | _s Incoming messages will now no longer show user addresses appended to messages. }
n54=  else { %showMsgAddr = on | _s Incoming messages will now show user addresses appended to messages. }
n55=}
n56=.$iif(%nethack == on,Nethack - on,Nethack - off) { inc %reflect.mod
n57=  if %nethack == on { unset %nethack | _s Nethack protection is off. }
n58=  else { %nethack = on | _s Nethack protection is on. }
n59=}  
n60=.$iif(%nickcomp == on,Nickcomp - on,Nickcomp - off) { inc %reflect.mod
n61=  if %nickcomp == on { unset %nickcomp | _s Nick completion is off. }
n62=  else { %nickcomp = on | _s Nick completion is on. }
n63=}
n64=.$iif(%tog.gi == on,NServ - on,NServ - off) { inc %reflect.mod
n65=  if %tog.gi == on { unset %tog.gi | _s Automatic ident is disabled. }
n66=  else { %tog.gi = on | _s Automatic ident is enabled. | if %op-n-n == $null { %op-n-n = $$?*="Please enter your Nickserv password -" } }
n67=}
n68=.$iif(%quit == all,Quitloop - on,Quitloop - off) { inc %reflect.mod
n69=  if %quit == all { %quit = act | _s User quits will now show a message in the active channel only. }
n70=  else { %quit = all | _s User quits will now display in all common channels. }
n71=}
n72=.$iif(%query == on,Queries - on,Queries - off) { inc %reflect.mod
n73=  if %query == on { unset %query | _s Seperate query windows are disabled. }
n74=  else { %query = on | _s Seperate query windows are enabled. }
n75=}
n76=.$iif(%reincarnate == on,Reconnect - on,Reconnect - off) { inc %reflect.mod
n77=  if %reincarnate == on { unset %reincarnate | _s changes will not reconnect after disconnection from server. }
n78=  else { %reincarnate = on | _s changes will now reconnect after disconnection from server. }
n79=}
n80=.$iif($group(#shitlist) == on,Shitlist - on,Shitlist - off) { inc %reflect.mod
n81=  if $group(#shitlist) == on { .disable #shitlist | _s Shitlists are off. }
n82=  else { .enable #shitlist | _s Shitlists are on. }
n83=}
n84=.$iif(%who.w == on,Whowas - on,Whowas - off) { inc %reflect.mod
n85=  if %who.w == on { unset %who.w | _s Auto-whowas after errmsg is off. }
n86=  else { %who.w = on | _s 'No such nick' errmsgs will auto-whowas the nickname. }
n87=}