SMF Script 8 — File Browser
SMFScript8v8.13 / SMFScript8v8.13 / system / setup.mrc
setup.mrc — 19.49 KB — Download this file
alias psets if ($dialog(smfset)) return | dialog -mn smfset smfset | setopen %script.setopen $iif(%script.setopen = $null,-General) | did -a smfset 3 -General | did -a smfset 3 -Server Notices | did -a smfset 3 -User Modes | did -a smfset 3 -SPAM Block | did -a smfset 3 -User Lists | did -a smfset 3 -Nick Registration | did -a smfset 3 -Self Protection | did -a smfset 3 -Chan Registration | did -a smfset 3 -Channel Modes | did -a smfset 3 -Channel Protection | did -a smfset 3 -Counters | did -a smfset 3 -Sounds | did -a smfset 3 -FKeys | did -a smfset 3 -Flashing | if ($1 = -f) set %smf.set.first -
dialog smfset {
title "SMF Script Settings"
size -1 -1 420 338
button "Close" 1,9 295 99 26,cancel
text "Category:" 2,13 10 50 13
list 3,8 25 106 280
list 4,125 25 230 189
button "Edit",5,359 26 54 26
button "Remove",6,359 59 54 26
check "Show Jupes" 7,190 242 160 13
check "Show Erroneous Raws" 8,190 260 160 13
check "Show Max. Users" 9,190 278 160 13
text "Show SNotices In" 10,126 185 95 13,center
edit "" 11,125 25 230 189,multi,return,autovs,vsbar
text "(Enter each pattern on a sep line. 5 words max)" 12,125 10 230 13,center
button "Save" 13,359 26 54 26
check "Active" 16,252 243 73 13
check "Ignore" 14,252 267 73 13
check "Notify" 15,252 285 88 13
check "Log" 17,252 303 88 13
combo 18,125 202 95 105,drop
button "View Log" 19,359 59 54 26
list 20,125 57 230 189
button "Add" 21,359 26 54 26,
edit "" 22,125 25 115 22
edit "" 23,240 25 115 22
text "Nickname" 24,125 10 115 12,center
text "Password" 25,240 10 115 12,center
button "Remove" 26,359 58 54 26
button "Edit" 27,359 90 54 26
list 28,125 57 230 189
button "Add" 29,359 26 54 26
edit "" 30,125 25 115 22
edit "" 31,240 25 115 22
text "Channel" 32,125 10 115 12,center
text "Password" 33,240 10 115 12,center
button "Remove" 34,359 58 54 26
button "Edit" 35,359 90 54 26
check "Kick" 36,138 267 73 13
box "Lag Bar" 37,225 200 150 70
check "Active" 38,275 220 75 13
text "Show Whois In" 39,126 65 95 13,center
combo 40,125 82 95 105,drop
text "Show CTCP In" 41,126 105 95 13,center
combo 42,125 122 95 105,drop
text "Show DNS In" 43,126 145 95 13,center
combo 44,125 162 95 105,drop
button "Away" 45,125 285 95 21
button "Mediaplayer" 46,125 231 95 21
box "Ping Notice" 47,225 25 150 105
edit "" 48,235 70 128 23,autohs
check "Active" 49,270 48 75 13
button "Default" 50,265 98 75 26
text "Show Notices In" 51,126 25 95 13,center
combo 52,125 42 95 105,drop
box "Quit Message" 53,225 140 150 50
edit "" 54,235 160 128 23,autohs
box "Regular" 55,155 5 185 43
check "Set Modes On Connect" 56,165 25 130 13
check "Invisible (+i)" 57,165 55 75 13
check "See Server Messages (+s)" 58,165 75 145 13
check "See Wallop Messages (+w)" 59,165 95 150 13
check "See Globop Messages (+g)" 60,165 115 150 13
check "See Server-originating Kills (+k)" 61,165 135 165 13
box "Regular" 62,155 5 185 180
check "IRCop (+o)" 63,165 155 70 13
edit "" 64,240 151 75 23,autohs,pass
box "IRC Operator" 65,155 190 185 43
box "IRC Operator" 66,155 190 185 135
check "Set Modes On Oper" 67,165 210 130 13
check "Services Admin (+a)" 68,165 240 150 13
check "HelpOp (+h)" 69,165 260 145 13
check "See User Joins/Quits (+c)" 70,165 280 165 13
check "ChatOps (+b)" 71,165 300 150 13
check "Show Server Kills" 72,190 44 150 13
check "Show Ghostings" 73,190 62 150 13
check "Show Regular Kills" 74,190 80 150 13
check "Show K:lines" 75,190 98 150 13
check "Show Connect Failures" 76,190 116 150 13
check "Show Nick Collisions" 77,190 134 150 13
check "Show DNS Mismatches" 78,190 152 150 13
check "Show Splits and Connects" 79,190 170 150 13
check "Show Server Rehashes" 80,190 188 150 13
check "Show Oper-Ups" 81,190 206 150 13
check "Show Connects/Disconnects" 82,190 224 160 13
check "Show SAModes" 83,190 26 150 13
text "Check every" 84,235 243 60 13
edit "" 85,300 239 25 23
text "secs" 86,330 243 30 13
button "Schemes" 87,125 258 95 21
check "Active",88,359 90 54 13
box "" 89,125 224 116 40
box "Channel" 90,125 224 116 105
check "Active" 91,138 243 73 13
check "Notify" 92,138 285 88 13
check "Log" 93,138 303 88 13
box "" 94,239 224 116 40
box "Query" 95,239 224 116 105
check "Show Nickserv Enforcements" 96,190 296 160 13
check "Show Changed Timestamps",97,190 314 160 13
check "Automatically set these modes when opped:",98,160 30 230 13
check "&Invite Only",99,160 68 75 13
check "&limited to",100,160 86 60 13
edit "",101,223 81 75 23
text "users",102,299 86 50 13
check "&Private",103,160 104 51 13
check "&Secret",104,160 122 50 13
check "&Key",105,160 140 40 13
edit "",106,200 135 75 23,autohs
check "&Moderated",107,160 158 70 13
check "&No ext. messages",108,160 176 102 13
check "&Topic can only be changed by ops",109,160 194 190 13
box "",110,152 48 240 8
radio "Wait for",111,127 208 57 13
edit "",112,183 203 25 23
text "seconds before performing.",113,209 208 150 13
radio "Don't wait, perform instantly.",114,127 231 200 13
text "On start:",115,126 30 75 13
button "",116,203 25 200 23
text "On connect:",117,126 58 75 13
button "",118,203 53 200 23
text "On CTCP:",119,126 86 75 13
button "",120,203 81 200 23
text "On join:",121,126 114 75 13
button "",122,203 109 200 23
text "Alarm:",123,126 142 75 13
button "",124,203 137 200 23
button "!",125,186 25 15 23
button "!",126,186 53 15 23
button "!",127,186 81 15 23
button "!",128,186 109 15 23
button "!",129,186 137 15 23
check "Open quick menu on startup",130,225 288 160 13
box "Caps Kick",131,125 20 280 95
check "Activate caps kicker",132,200 38 200 13
text "Kick when the caps percentage is higher than",133,130 58 217 13
edit "",134,349 53 25 23
text "%",135,376 58 10 13
text "And the total number of chars is higher than",136,130 88 217 13
edit "",137,349 83 37 23,autohs
text "F1",138,125 19 15 13
edit "",139,143 14 250 23,autohs
text "F2",140,125 45 15 13
edit "",141,143 40 250 23,autohs
text "F3",142,125 71 15 13
edit "",143,143 66 250 23,autohs
text "F4",144,125 97 15 13
edit "",145,143 92 250 23,autohs
text "F5",146,125 123 15 13
edit "",147,143 118 250 23,autohs
text "F6",148,125 149 15 13
edit "",149,143 144 250 23,autohs
text "F7",150,125 175 15 13
edit "",151,143 170 250 23,autohs
text "F8",152,125 201 15 13
edit "",153,143 196 250 23,autohs
text "F9",154,125 227 15 13
edit "",155,143 222 250 23,autohs
text "F10",156,122 253 18 13
edit "",157,143 248 250 23,autohs
text "F11",158,122 279 18 13
edit "",159,143 274 250 23,autohs
text "F12",160,122 305 18 13
edit "",161,143 300 250 23,autohs
box "Kick Counter",162,125 20 280 95
check "Activate kick counter",163,200 35 150 13
edit "",164,205 53 50 23,autohs,read,center
button "Reset",165,257 54 54 21
text "Message Format:",166,130 82 81 13
combo 167,215 79 180 200,drop
box "Kill Counter",168,125 120 280 95
check "Activate kill counter",169,200 135 150 13
edit "",170,205 153 50 23,autohs,read,center
button "Reset",171,257 154 54 21
text "Message Format:",172,130 182 81 13
combo 173,215 179 180 200,drop
box "Text Flood Kick",174,125 120 280 65
check "Activate text flood kicker",175,179 138 200 13
text "Kick after",176,130 158 45 13
edit "",177,178 153 25 23
text "lines in",178,205 158 37 13
text "seconds",179,280 158 217 13
edit "",180,241 153 37 23,autohs
}
on *:dialog:smfset:sclick:*:{
if ($did = 3) && ($did(3,$did(3).sel) != %script.setopen) setopen $did(3,$did(3).sel)
if ($did = 7) { if (%sn.jupe) unset %sn.jupe | else set %sn.jupe - }
if ($did = 8) { if (%sn.badserv) unset %sn.badserv | else set %sn.badserv - }
if ($did = 9) { if (%sn.usrmax) unset %sn.usrmax | else set %sn.usrmax - }
if ($did = 13) { if ($lof($scriptdiradpats.txt)) .remove $qts($scriptdiradpats.txt) | :loop | inc %ad.save | set %ad.save.line $did(11,%ad.save) | if (%ad.save.line) { write $qts($scriptdiradpats.txt) $replace(%ad.save.line,$chr(35),$chr(1)) | goto loop } | unset %ad.save }
if ($did = 14) { if (%ad.ignore) unset %ad.ignore | else set %ad.ignore - }
if ($did = 15) { if (%ad.q.notify) unset %ad.q.notify | else set %ad.q.notify - }
if ($did = 16) { if (%ad.q.prot) unset %ad.q.prot | else set %ad.q.prot - }
if ($did = 17) { if (%ad.q.log) unset %ad.q.log | else set %ad.q.log - }
if ($did = 18) { if ($did(18,$did(18).sel) = default) smf.set snotice - | else smf.unset snotice }
if ($did = 36) { if (%ad.kick) unset %ad.kick | else set %ad.kick - }
if ($did = 91) { if (%ad.c.prot) unset %ad.c.prot | else set %ad.c.prot - }
if ($did = 92) { if (%ad.c.notify) unset %ad.c.notify | else set %ad.c.notify - }
if ($did = 93) { if (%ad.c.log) unset %ad.c.log | else set %ad.c.log - }
if ($did = 19) if ($lof($scriptdirads.txt)) run $scriptdirads.txt
if ($did = 21) { if ($did(22)) && ($did(23)) { if ($lof($scriptdirdalnick.txt)) { if ($read -s $+ $did(22) $qts($scriptdirdalnick.txt) = $null) did -a smfset 20 $did(22) } | else did -a smfset 20 $did(22) | writeini $qts($scriptdirservices.ini) NickPassDal $did(22) $encd($did(23)) | nick.sets.save | did -r smfset 22,23 } }
if ($did = 26) { if ($did(20,$did(20).sel)) { set %nick.remove.temp $did(20,$did(20).sel) | did -d smfset 20 $did(20).sel | remini $qts($scriptdirservices.ini) NickPassDal %nick.remove.temp | unset %nick.remove.* | nick.sets.save } }
if ($did = 27) { if ($did(20,$did(20).sel)) { if ($did(22)) && ($did(23)) { if ($read -s $+ $did(22) $qts($scriptdirdalnick.txt) = $null) did -a smfset 20 $did(22) | writeini $qts($scriptdirservices.ini) NickPassDal $did(22) $encd($did(23)) | nick.sets.save | did -r smfset 22,23 } | did -a smfset 22 $did(20,$did(20).sel) | set %temp.pass $readini $qts($scriptdirservices.ini) NickPassDal $did(20,$did(20).sel) | did -a smfset 23 $dcd(%temp.pass) | unset %temp.pass } }
if ($did = 29) { if ($did(30)) && ($did(31)) { if ($chr(35) !isin $did(30)) set %chan.temp $chr(35) $+ $did(30) | else set %chan.temp $did(30) | if ($lof($scriptdirdalchan.txt)) { if ($read -s $+ %chan.temp $qts($scriptdirdalchan.txt) = $null) did -a smfset 28 %chan.temp } | else did -a smfset 28 %chan.temp | writeini $qts($scriptdirservices.ini) ChanPassDal %chan.temp $encd($did(31)) | chan.sets.save | did -r smfset 30,31 | unset %chan.temp } }
if ($did = 34) { if ($did(28,$did(28).sel)) { set %chan.remove.temp $did(28,$did(28).sel) | did -d smfset 28 $did(28).sel | remini $qts($scriptdirservices.ini) ChanPassDal %chan.remove.temp | unset %chan.remove.* | chan.sets.save } }
if ($did = 35) { if ($did(28,$did(28).sel)) { if ($did(30)) && ($did(31)) { if ($chr(35) !isin $did(30)) set %chan.temp $chr(35) $+ $did(30) | else set %chan.temp $did(30) | if ($read -s $+ %chan.temp $qts($scriptdirdalchan.txt) = $null) did -a smfset 28 %chan.temp | writeini $qts($scriptdirservices.ini) ChanPassDal %chan.temp $encd($did(31)) | chan.sets.save | did -r smfset 30,31 | unset %chan.temp } | did -a smfset 30 $did(28,$did(28).sel) | set %temp.pass $readini $qts($scriptdirservices.ini) ChanPassDal $did(28,$did(28).sel) | did -a smfset 31 $dcd(%temp.pass) | unset %temp.pass } }
if ($did = 40) smf.set whois $did(40,$did(40).sel)
if ($did = 42) smf.set ctcp $did(42,$did(42).sel)
if ($did = 44) smf.set dns $did(44,$did(44).sel)
if ($did = 45) as.stp.main
if ($did = 46) .timer 1 0 mp.stp.main
if ($did = 49) { if (%pingrep.on) unset %pingrep.on | else set %pingrep.on - }
if ($did = 50) { did -r smfset 48 | did -a smfset 48 PON-N-N-N-N-N-NG! | set %pingrep PON-N-N-N-N-N-NG! }
if ($did = 52) smf.set notice $did(52,$did(52).sel)
if ($did = 56) { if (%script.modes) unset %script.modes | else set %script.modes - }
if ($did = 57) { if (i isin $sets(usermodes)) smf.set usermodes $remove($sets(usermodes),i) | else smf.set usermodes $sets(usermodes) $+ i }
if ($did = 58) { if (s isin $sets(usermodes)) smf.set usermodes $remove($sets(usermodes),s) | else smf.set usermodes $sets(usermodes) $+ s }
if ($did = 59) { if (w isin $sets(usermodes)) smf.set usermodes $remove($sets(usermodes),w) | else smf.set usermodes $sets(usermodes) $+ w }
if ($did = 60) { if (g isin $sets(usermodes)) smf.set usermodes $remove($sets(usermodes),g) | else smf.set usermodes $sets(usermodes) $+ g }
if ($did = 61) { if (k isin $sets(usermodes)) smf.set usermodes $remove($sets(usermodes),k) | else smf.set usermodes $sets(usermodes) $+ k }
if ($did = 63) { if (o isin $sets(usermodes)) smf.set usermodes $remove($sets(usermodes),o) | else smf.set usermodes $sets(usermodes) $+ o }
if ($did = 67) { if (%script.omodes) unset %script.omodes | else set %script.omodes - }
if ($did = 68) { if (a isin $sets(opermodes)) smf.set opermodes $remove($sets(opermodes),a) | else smf.set opermodes $sets(opermodes) $+ a }
if ($did = 69) { if (h isin $sets(opermodes)) smf.set opermodes $remove($sets(opermodes),h) | else smf.set opermodes $sets(opermodes) $+ h }
if ($did = 70) { if (c isin $sets(opermodes)) smf.set opermodes $remove($sets(opermodes),c) | else smf.set opermodes $sets(opermodes) $+ c }
if ($did = 71) { if (b isin $sets(opermodes)) smf.set opermodes $remove($sets(opermodes),b) | else smf.set opermodes $sets(opermodes) $+ b }
if ($did = 72) { if (%sn.servkill) unset %sn.servkill | else set %sn.servkill - }
if ($did = 73) { if (%sn.ghost) unset %sn.ghost | else set %sn.ghost - }
if ($did = 74) { if (%sn.kill) unset %sn.kill | else set %sn.kill - }
if ($did = 75) { if (%sn.kline) unset %sn.kline | else set %sn.kline - }
if ($did = 76) { if (%sn.confail) unset %sn.confail | else set %sn.confail - }
if ($did = 77) { if (%sn.nickcol) unset %sn.nickcol | else set %sn.nickcol - }
if ($did = 78) { if (%sn.dns) unset %sn.dns | else set %sn.dns - }
if ($did = 79) { if (%sn.split) unset %sn.split | else set %sn.split - }
if ($did = 80) { if (%sn.rehash) unset %sn.rehash | else set %sn.rehash - }
if ($did = 81) { if (%sn.oper) unset %sn.oper | else set %sn.oper - }
if ($did = 82) { if (%sn.j-p) unset %sn.j-p | else set %sn.j-p - }
if ($did = 83) { if (%sn.samode) unset %sn.samode | else set %sn.samode - }
if ($did = 38) { if (%cl.stt) { unset %cl.stt | .timerCL.CHK off | window -c @Self-Lag } | else { set %cl.stt - | if ($server) { cl.win.opn | .notice [ [ $!me ] ] sping [ [ $!ctime ] ] | cl.strt } } }
if ($did = 87) col.sets.main
if ($did = 1) { unset %usr.lst.nme %usr.lst.grp.nme %usr.lst.nick %usr.lst.addy | if (%smf.set.first) { unset %smf.set.first | echo $colour(info2) *** Welcome to the $smf $+ . | smf.set script set | dialog -mn smftips smftips | showtip F } }
if ($did = 6) && ($did(4,$did(4).sel)) { .timer 1 0 set -u0 %usr.lst.chk $!?!="Are you sure?" $chr(124) if (%usr.lst.chk) usr.lst.rmv $did(4,$did(4).sel) }
if ($did = 5) && ($did(4,$did(4).sel)) usr.lst.dlt.mn $did(4,$did(4).sel)
if ($did = 88) { if (%usr.lst) unset %usr.lst | else set %usr.lst - }
if ($did = 96) { if (%sn.nsenforce) unset %sn.nsenforce | else set %sn.nsenforce - }
if ($did = 97) { if (%sn.ts) unset %sn.ts | else set %sn.ts - }
if ($did = 98) { if (%smf.setcmodes) unset %smf.setcmodes | else set %smf.setcmodes - }
if ($did = 99) { if ($did(99).state = 0) smf.set chanmodes $remove($sets(chanmodes),i) | else smf.set chanmodes $sets(chanmodes) $+ i }
if ($did = 100) { if ($did(100).state = 0) smf.set chanmodes $remove($sets(chanmodes),l) | else smf.set chanmodes $sets(chanmodes) $+ l | if (l isin $sets(chanmodes)) && (k isin $sets(chanmodes)) smf.set chanmodes $remove($sets(chanmodes),l,k) $+ kl }
if ($did = 103) { if ($did(103).state = 0) smf.set chanmodes $remove($sets(chanmodes),p) | else smf.set chanmodes $sets(chanmodes) $+ p }
if ($did = 104) { if ($did(104).state = 0) smf.set chanmodes $remove($sets(chanmodes),s) | else smf.set chanmodes $sets(chanmodes) $+ s }
if ($did = 105) { if ($did(105).state = 0) smf.set chanmodes $remove($sets(chanmodes),k) | else smf.set chanmodes $sets(chanmodes) $+ k | if (l isin $sets(chanmodes)) && (k isin $sets(chanmodes)) smf.set chanmodes $remove($sets(chanmodes),l,k) $+ kl }
if ($did = 107) { if ($did(107).state = 0) smf.set chanmodes $remove($sets(chanmodes),m) | else smf.set chanmodes $sets(chanmodes) $+ m }
if ($did = 108) { if ($did(108).state = 0) smf.set chanmodes $remove($sets(chanmodes),n) | else smf.set chanmodes $sets(chanmodes) $+ n }
if ($did = 109) { if ($did(109).state = 0) smf.set chanmodes $remove($sets(chanmodes),t) | else smf.set chanmodes $sets(chanmodes) $+ t }
if ($did = 111) smf.set usrlistwait yes | if ($did = 114) smf.set usrlistwait no | if ($did = 116) { if ($qts.wav($def.wav(start))) { set.wav start | did -a smfset 116 } else { .timer 1 0 wavset start 116 } }
if ($did = 118) { if ($qts.wav($def.wav(connect))) { set.wav connect | did -a smfset 118 } | else { .timer 1 0 wavset connect 118 } }
if ($did = 120) { if ($qts.wav($def.wav(ctcps))) { set.wav ctcps | did -a smfset 120 } | else { .timer 1 0 wavset ctcps 120 } }
if ($did = 122) { if ($qts.wav($def.wav(join))) { set.wav join | did -a smfset 122 } | else { .timer 1 0 wavset join 122 } }
if ($did = 124) .timer 1 0 wavset alarm 124
if ($did = 125) && ($qts.wav($def.wav(start))) splay $qts.wav($def.wav(start))
if ($did = 126) && ($qts.wav($def.wav(connect))) splay $qts.wav($def.wav(connect))
if ($did = 127) && ($qts.wav($def.wav(CTCPs))) splay $qts.wav($def.wav(CTCPs))
if ($did = 128) && ($qts.wav($def.wav(join))) splay $qts.wav($def.wav(join))
if ($did = 129) && ($qts.wav($def.wav(Alarm))) splay $qts.wav($def.wav(Alarm))
if ($did = 130) { if (%qmenu) unset %qmenu | else set %qmenu - }
if ($did = 132) { if (%prt.caps) unset %prt.caps | else set %prt.caps - }
if ($did = 167) set %kc.style $did(167).sel
if ($did = 163) { if (%kc.active) unset %kc.active | else set %kc.active - }
if ($did = 165) { set %kc.count 0 | did -ra smfset 164 0 }
if ($did = 173) set %klc.style $did(173).sel
if ($did = 169) { if (%klc.active) unset %klc.active | else set %klc.active - }
if ($did = 171) { set %klc.count 0 | did -ra smfset 170 0 }
if ($did = 175) { if (%prt.text) unset %prt.text | else set %prt.text - }
}
on *:dialog:smfset:dclick:4: usr.lst.dlt.mn $did(4,$did(4).sel)
on *:dialog:smfset:edit:*:{
if ($did = 48) { if ($did(48)) set %pingrep $did(48) | else unset %pingrep } | if ($did = 85) && ($did(85) isnum) set %cl.time $did(85) | if ($did = 54) { if ($did(54)) set %quit $did(54) | else unset %quit } | if ($did = 64) smf.set operpass $encd($did(64)) | if ($did = 101) { if ($did(101) = $null) || ($did(101) !isnum) smf.set chanmodelimit 5 | else smf.set chanmodelimit $did(101) } | if ($did = 106) { if ($did(106) = $null) smf.set chanmodekey key | else smf.set chanmodekey $did(106) } | if ($did = 112) { if ($did(112) = $null) smf.set usrlistcheck 3 | else smf.set usrlistcheck $did(112) } | if ($did = 134) && ($did(134)) smf.set capsprcnt $did(134) | if ($did = 137) && ($did(137)) smf.set capslen $did(137)
if ($did = 139) alias f1 $did(139) | if ($did = 141) alias f2 $did(141) | if ($did = 143) alias f3 $did(143) | if ($did = 145) alias f4 $did(145) | if ($did = 147) alias f5 $did(147) | if ($did = 149) alias f6 $did(149) | if ($did = 151) alias f7 $did(151) | if ($did = 153) alias f8 $did(153) | if ($did = 155) alias f9 $did(155) | if ($did = 157) alias f10 $did(157) | if ($did = 159) alias f11 $did(159) | if ($did = 161) alias f12 $did(161) | if ($did = 177) && ($did(177)) smf.set textlines $did(177) | if ($did = 180) && ($did(180)) smf.set texttime $did(180)
}