/ScriptServ

alias setopen {
  set %script.setopen $1-
  hidemain | hideall
  if ($1- = -Counters) { did -v smfset 162,163,164,165,166,167,168,169,170,171,172,173 | did -ra smfset 167 (<message> (N users served) | did -a smfset 167 (<message> (Kick #N) | did -a smfset 167 (<message> (#N) | did -c smfset 167 $iif(%kc.style = 1,1) $iif(%kc.style = 2,2) $iif(%kc.style != 1 && %kc.style != 2,3)  | did -ra smfset 164 %kc.count | if (%kc.active) did -c smfset 163  | did -ra smfset 173 (<message> (N users served) | did -a smfset 173 (<message> (Kill #N) | did -a smfset 173 (<message> (#N) | did -c smfset 173 $iif(%klc.style = 1,1) $iif(%klc.style = 2,2) $iif(%klc.style != 1 && %klc.style != 2,3)  | did -ra smfset 170 %klc.count | if (%klc.active) did -c smfset 169 }
  if ($1- = -General) {
    did -r smfset 40,42,48 | did -v smfset 10,18,37,38,39,40,84,87,48,49,50,51,52,53,54,86,41,42,43,44,45,46,47,85,130 | did -ra smfset 85 %cl.time | did -a smfset 40 Default | did -a smfset 40 Active | did -a smfset 40 Special | did -c smfset 40 $iif($sets(whois) = Default,1) $iif($sets(whois) = Active,2) $iif($sets(whois) = Special,3) | did -a smfset 42 Default | did -a smfset 42 Active | did -a smfset 42 Special | did -a smfset 44 Default | did -c smfset 42 $iif($sets(ctcp) = Default,1) $iif($sets(ctcp) = Active,2) $iif($sets(ctcp) = Special,3)
    did -a smfset 44 Active | did -a smfset 44 Special | did -a smfset 48 %pingrep | did -a smfset 52 Default | did -c smfset 44 $iif($sets(dns) = Default,1) $iif($sets(dns) = Active,2) $iif($sets(dns) = Special,3) | did -a smfset 52 Active | did -a smfset 52 Special | if (%pingrep.on) did -c smfset 49 | if (%quit) did -a smfset 54 %quit | if (%qmenu) did -c smfset 130 | did -c smfset 52 $iif($sets(notice) = Default,1) $iif($sets(notice) = Active,2) $iif($sets(notice) = Special,3) | if (%cl.stt) did -c smfset 38 | did -a smfset 18 Default | did -a smfset 18 Special | did -c smfset 18 $iif($sets(snotice),1,2)
  }
  if ($1- = -Nick Registration) { did -v smfset 20,21,22,23,24,25,26,27 | if ($lof($scriptdirDALnick.txt)) { set %nick.temp.num 0 | :loop | inc %nick.temp.num | set %nick.temp.line $read -l $+ %nick.temp.num $qts($scriptdirDALnick.txt) | if (%nick.temp.line) { did -a smfset 20 %nick.temp.line | goto loop } | unset %nick.temp.* } }
  if ($1- = -Chan Registration) { did -v smfset 28,29,30,31,32,33,34,35 | if ($lof($scriptdirDALchan.txt)) { set %chan.temp.num 0 | :loop | inc %chan.temp.num | set %chan.temp.line $read -l $+ %chan.temp.num $qts($scriptdirDALchan.txt) | if (%chan.temp.line) { did -a smfset 28 %chan.temp.line | goto loop } | unset %chan.temp.* } }
  if ($1- = -Server Notices) { did -v smfset 7,8,9,72,73,74,75,76,77,78,79,80,81,82,83,96,97 | if (%sn.jupe) did -c smfset 7 | if (%sn.badserv) did -c smfset 8 | if (%sn.usrmax) did -c smfset 9 | if (%sn.servkill) did -c smfset 72 | if (%sn.ghost) did -c smfset 73 | if (%sn.kill) did -c smfset 74 | if (%sn.kline) did -c smfset 75 | if (%sn.confail) did -c smfset 76 | if (%sn.nickcol) did -c smfset 77 | if (%sn.dns) did -c smfset 78 | if (%sn.split) did -c smfset 79 | if (%sn.rehash) did -c smfset 80 | if (%sn.oper) did -c smfset 81 | if (%sn.j-p) did -c smfset 82 | if (%sn.samode) did -c smfset 83 | if (%sn.nsenforce) did -c smfset 96 | if (%sn.ts) did -c smfset 97 }
  if ($1- = -SPAM Block) { did -v smfset 36,11,12,13,14,15,16,17,19,89,90,91,92,93,94,95 | if (%ad.ignore) did -c smfset 14 | if (%ad.q.notify) did -c smfset 15 | if (%ad.q.prot) did -c smfset 16 | if (%ad.q.log) did -c smfset 17 | if (%ad.kick) did -c smfset 36 | if (%ad.c.prot) did -c smfset 91 | if (%ad.c.notify) did -c smfset 92 | if (%ad.c.log) did -c smfset 93 | if ($lof($scriptdiradpats.txt)) { :loop | inc %ad.read | set %ad.read.line $read -l $+ %ad.read $qts($scriptdiradpats.txt) | if (%ad.read.line) { did -a smfset 11 $replace(%ad.read.line,$chr(1),$chr(35)) | did -a smfset 11 $crlf $+ | goto loop } | unset %ad.rea* } }
  if ($1- = -User Modes) { did -v smfset 55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71 | if (%script.modes) did -c smfset 56 | if ( i isin $sets(usermodes)) did -c smfset 57 | if ( s isin $sets(usermodes)) did -c smfset 58 | if ( w isin $sets(usermodes)) did -c smfset 59 | if ( g isin $sets(usermodes)) did -c smfset 60 | if ( k isin $sets(usermodes)) did -c smfset 61 | if ( o isin $sets(usermodes)) did -c smfset 63 | set -u0 %operpass $sets(operpass) | if (%operpass) did -a smfset 64 $dcd(%operpass) | if (%script.omodes) did -c smfset 67 | if ( a isin $sets(opermodes)) did -c smfset 68 | if ( h isin $sets(opermodes)) did -c smfset 69 | if ( c isin $sets(opermodes)) did -c smfset 70 | if ( b isin $sets(opermodes)) did -c smfset 71 }
  if ($1- = -User Lists) { did -v smfset 88,4,5,6,111,112,113,114 | if (%usr.lst) did -c smfset 88 | usr.lst.main | did -ra smfset 112 $sets(usrlistcheck) | if ($sets(usrlistwait) = yes) did -c smfset 111 | else did -c smfset 114 }
  if ($1- = -Channel Modes) { did -v smfset 98,99,100,101,102,103,104,105,106,107,108,109,110 | if (i isin $sets(chanmodes)) did -c smfset 99 | if (l isin $sets(chanmodes)) did -c smfset 100 | if (p isin $sets(chanmodes)) did -c smfset 103 | if (s isin $sets(chanmodes)) did -c smfset 104 | if (k isin $sets(chanmodes)) did -c smfset 105 | if (m isin $sets(chanmodes)) did -c smfset 107 | if (n isin $sets(chanmodes)) did -c smfset 108 | if (t isin $sets(chanmodes)) did -c smfset 109 | did -ra smfset 106 $sets(chanmodekey) | did -ra smfset 101 $sets(chanmodelimit) | if (%smf.setcmodes) did -c smfset 98 }
  if ($1- = -Sounds) { did -v smfset 115,116,117,118,119,120,121,122,123,124,125,126,127,128,129 | if ($qts.wav($def.wav(start))) did -a smfset 116 $suplower(37,$qts.wav($def.wav(start))) | if ($qts.wav($def.wav(connect))) did -a smfset 118 $suplower(37,$qts.wav($def.wav(connect))) | if ($qts.wav($def.wav(ctcps))) did -a smfset 120 $suplower(37,$qts.wav($def.wav(ctcps))) | if ($qts.wav($def.wav(join))) did -a smfset 122 $suplower(37,$qts.wav($def.wav(join))) | if ($qts.wav($def.wav(alarm))) did -a smfset 124 $suplower(37,$qts.wav($def.wav(alarm))) }
  if ($1- = -FKeys) { did -v smfset 138,139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161 | did -ra smfset 139 $falias(1) | did -ra smfset 141 $falias(2) | did -ra smfset 143 $falias(3) | did -ra smfset 145 $falias(4) | did -ra smfset 147 $falias(5) | did -ra smfset 149 $falias(6) | did -ra smfset 151 $falias(7) | did -ra smfset 153 $falias(8) | did -ra smfset 155 $falias(9) | did -ra smfset 157 $falias(10) | did -ra smfset 159 $falias(11) | did -ra smfset 161 $falias(12) }
  if ($1- = -Channel Protection) { did -v smfset 131,132,133,134,135,136,137,174,175,176,177,178,179,180 | if (%prt.caps) did -c smfset 132 | did -ra smfset 134 $sets(capsprcnt) | did -ra smfset 137 $sets(capslen) | if (%prt.text) did -c smfset 175 | did -ra smfset 177 $sets(textlines) | did -ra smfset 180 $sets(texttime) }
  if ($1- = -Flashing) { }
  if ($1- = -Self Protection) { }
}
alias wavset set -u0 %smf.muhu $mircdir $+ *.wav | if ($1 = alarm) set.wav $$1 $$dir="Select File" %smf.muhu | else set.wav $$1 $dir="Select File" %smf.muhu | if ($qts.wav($def.wav($1))) did -a smfset $$2 $suplower(37,$qts.wav($def.wav($1)))
alias suplower if ($len($$2-) >= $$1) { set -u0 %suplower $calc($1 - 3) | return ... $+ $lower( [ $+ [ $right($2-,%suplower) ] $+ ] ) } | return $lower( [ $+ [ $2- ] $+ ] )
alias hideall did -h smfset 88,4,5,6,7,8,9,36,11,12,13,14,15,16,17,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,180 | did -r smfset 4,11,20,28,64
alias hidemain did -r smfset 52,40,42,44,48,54 | did -h smfset 10,18,84,85,86,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,87,130
alias nick.sets.save set %nick.num.temp 1 | if ($lof($scriptdirDALnick.txt)) .remove $qts($scriptdirDALnick.txt) | :loop | set %nick.line.temp $did(20,%nick.num.temp) | if (%nick.line.temp) { write $qts($scriptdirDALnick.txt) %nick.line.temp | inc %nick.num.temp | goto loop } | unset %nick.num.temp %nick.line.temp
alias chan.sets.save set %chan.num.temp 1 | if ($lof($scriptdirDALchan.txt)) .remove $qts($scriptdirDALchan.txt) | :loop | set %chan.line.temp $did(28,%chan.num.temp) | if (%chan.line.temp) { write $qts($scriptdirDALchan.txt) %chan.line.temp | inc %chan.num.temp | goto loop } | unset %chan.num.temp %chan.line.temp
alias usr.lst.main :loop | inc %usr.lst.cnt | set %usr.lst.txt $readini $users.ini users %usr.lst.cnt | if (%usr.lst.txt) { did -a smfset 4 %usr.lst.txt | goto loop } | unset %usr.lst.cnt %usr.lst.txt
alias usr.lst.rmv :loop | inc %usr.lst.cnt | set %usr.lst.txt $readini $users.ini users %usr.lst.cnt | if (%usr.lst.txt = $null) goto end | if (%usr.lst.txt != $1) goto loop | set %usr.lst.txt $readini $users.ini users $1 | remini $users.ini %usr.lst.txt | remini $users.ini users $1 | remini $users.ini users %usr.lst.cnt | set %usr.lst.cnt.2 $calc(%usr.lst.cnt - 1) | :remloop | inc %usr.lst.cnt | inc %usr.lst.cnt.2 | set %usr.lst.txt $readini -n $users.ini users %usr.lst.cnt | if (%usr.lst.txt) { writeini $users.ini users %usr.lst.cnt.2 %usr.lst.txt | remini $users.ini users %usr.lst.cnt | goto remloop } | :end | unset %usr.lst.cn* %usr.lst.txt | did -r smfset 4 | usr.lst.main
alias falias if ($1 < 13) && ($1 > 0) return $readini -n $qts($scriptdirsettings.ini) faliases f [ $+ [ $1 ] ]
alias def.wav if ($1 = start) || ($1 = connect) || ($1 = ctcp) || ($1 = join) || ($1 = alarm) return $readini $qts($scriptdirsettings.ini) settings $1 | return $readini $qts($mircini) waves $$1
alias qts.wav if ($1 = $null) return | if ($mid($1-,2,1) != :) return $qts($mircdir [ $+ [ $1- ] $+ ] ) | return $qts($$1-)
alias set.wav if ($1 = start) || ($1 = connect) || ($1 = ctcp) || ($1 = join) || ($1 = alarm) { if ($2 = $null) remini $qts($scriptdirsettings.ini) settings $1 | else writeini $qts($scriptdirsettings.ini) settings $1- } | else { if ($2 = $null) remini $qts($mircini) waves $$1 | else writeini $qts($mircini) waves $1 $$2- }
alias alias if ($left($1,1) = f) && ($right($1,-1) isnum) { alias $1- | if ($2) writeini -n $qts($scriptdirsettings.ini) faliases $1- | else remini $qts($scriptdirsettings.ini) faliases $1 } | else alias $1-