MoonScript IRC — File Browser
MoonScriptIRCv3.0 / MoonScriptIRCv3.0 / system / dialogs2.mrc
dialogs2.mrc — 12.38 KB — Download this file
alias open.Topics {
if ($dialog(Topics) != $null) { dialog -v Topics Topics }
else { dialog -m Topics Topics }
}
dialog Topics {
title "Topic Dialog"
size -1 -1 300 450
box "Topic Style",1, 10 10 280 375
radio "1:",2, 20 40 30 15, group
radio "2:",3, 20 60 30 15
radio "3:",4, 20 80 30 15
radio "4:",5, 20 100 30 15
radio "5:",6, 20 120 30 15
radio "6:",7, 20 140 30 15
radio "7:",8, 20 160 30 15
radio "8",9, 20 180 30 15
radio "9:",10, 20 200 30 15
radio "10:",11, 20 220 30 15
radio "11:",12, 20 240 30 15
radio "12:",13, 20 260 30 15
radio "13:",14, 20 280 30 15
radio "14:",15, 20 300 30 15
radio "15:",16, 20 320 30 15
radio "16:",17, 20 340 30 15
radio "17:",18, 20 360 30 15
edit "Moonscript", 20, 54 40 220 19, autohs
edit "Moon Talker 1", 21, 54 60 220 19, autohs
edit "Moon Talker 2", 22, 54 80 220 19, autohs
edit "Brick (Red/Black)", 23, 54 100 220 19, autohs
edit "Brick (Grey/Brown)", 24, 54 120 220 19, autohs
edit "Brick (Blue/Aqua)", 25, 54 140 220 19, autohs
edit "Brick (Black/White)", 26, 54 160 220 19, autohs
edit "¤¤¤¤¤¤¤¤¤¤¤ (Neon)", 27, 54 180 220 19, autohs
edit "ææææææææææææ (Neon)", 28, 54 200 220 19, autohs
edit "%%%%%%%%%%% (Red/Black/White)", 29, 54 220 220 19, autohs
edit "|||||||||||||||||| (Neon)", 30, 54 240 220 19, autohs
edit "<><><><><> (Grey)", 31, 54 260 220 19, autohs
edit "<><><><><> (Blue)", 32, 54 280 220 19, autohs
edit "©º°°º©©º°°º©", 33, 54 300 220 19, autohs
edit "\\\\\\\\\\\\ (Green/Gold)", 34, 54 320 220 19, autohs
edit "®®®®®®®®®®®®® (Blue)", 35, 54 340 220 19, autohs
edit "®®®®®®®®®®®®® (Gold)", 36, 54 360 220 19, autohs
button "&OK", 38, 70 390 90 25, ok
button "&Cancel", 39, 170 390 90 25, cancel
button "&Explain", 40, 70 420 90 25
}
on 1:dialog:Topics:sclick:38: {
if ($did(2).state == 1) { topic $active $irc $+ 11,1 $+ $moontxt2($chr(91)) $+ $moontxt2($did(20).text) $+ $moontxt2($chr(93)) $irc }
if ($did(3).state == 1) { topic $active $moontxt($did(21).text)) }
if ($did(4).state == 1) { topic $active $moontxt2($did(22).text)) }
if ($did(5).state == 1) { topic $active $brick1($did(23).text)) }
if ($did(6).state == 1) { topic $active $brick2($did(24).text)) }
if ($did(7).state == 1) { topic $active $brick3($did(25).text)) }
if ($did(8).state == 1) { topic $active $brick4($did(26).text)) }
if ($did(9).state == 1) { topic $active 8,0¤0,8¤9,8¤8,9¤13,9¤9,13¤1,13¤13,1¤9,1 $did(27).text 13,1¤1,13¤9,13¤13,9¤8,9¤9,8¤0,8¤8,0¤ }
if ($did(10).state == 1) { topic $active 8,0æ0,8æ9,8æ8,9æ13,9æ9,13æ1,13æ13,1æ9,1 $did(28).text 13,1æ1,13æ9,13æ13,9æ8,9æ9,8æ0,8æ8,0æ }
if ($did(11).state == 1) { topic $active 4%16,4%¸4,45,4`%4,5%¸5,51,5`%5,1%¸1,116,1 16,1 $did(29).text 1,15,1`%1,5%¸5,54,5`%5,4%¸4,416,4`%4% }
if ($did(12).state == 1) { topic $active 8,0|0,8|7,8|8,7|4,7|7,4|5,4|4,5|1,5|5,1| 9,1 $did(30).text 5,1 |1,5|4,5|5,4|7,4|4,7|8,7|7,8| }
if ($did(18).state == 1) { topic $active 8,1®8,14®8,15®8,0®8,15®8,14®8,1® 0 $did(36).text 8,1®8,14®8,15®8,0®8,15®8,14®8,1® }
if ($did(13).state == 1) { topic $active 15,14<1>15<1>15<1>15,14<1>15<1>15<1>1 $did(31).text 15<1>15<1>15<1>15,14<1>15<1>15<1> }
if ($did(14).state == 1) { topic $active 11,12 <2,12>11,12 <2,12> 11,12<2,12>11,12 <2,12> 11,12 $+ $did(32).text $+ 11,12<2,12>11,12 <2,12> 11,12<2,12>11,12 <2,12> }
if ($did(15).state == 1) { topic $active 4,1©8,1º3,1°12,1°6,1º10©10©6,1º12,1°3,1°8,1º4,1©15,1 $did(33).text 4,1©8,1º3,1°12,1°6,1º10©10©6,1º12,1°3,1°8,1º4,1© }
if ($did(16).state == 1) { topic $active 3,1\1,3\9,3\3,9\0,9\9,0\0,0-15,0\0,15\14,15\15,14\1,14\14,1\ 8 $did(34).text 3,1\1,3\9,3\3,9\0,9\9,0\0,0-15,0\0,15\14,15\15,14\1,14\14,1\ }
if ($did(17).state == 1) { topic $active 11,0®0,11®12,11®11,12®2,12®12,2®1,2®2,1®11,1 $did(35).text 2,1®1,2®12,2®2,12®11,12®12,11®0,11®11,0® }
}
on 1:dialog:Topics:sclick:40: {
echo 12 -a $m3(How This Dialog Works)
echo 12 -a Pick A Topic
echo 12 -a Click OK
echo 12 -a Nice Topic, $me
}
alias open.Setup {
if ($dialog(Setup) != $null) { dialog -v Setup Setup }
else { dialog -m Setup Setup }
}
dialog Setup {
title "MoonScript Options"
size -1 -1 550 450
box "Nickname",1, 10 10 260 60
text "Nick:",11, 20 44 30 15
edit "",12, 50 40 145 19, autohs
box "User Levels",15, 10 70 260 130
text "Auto OP:",16, 20 86 70 15
text "Auto Voice:",17, 20 102 75 15
text "User Protection:",18, 20 118 93 15
text "Shitlist:",19, 20 134 70 15
text "Blacklist:",20, 20 150 70 15
text "Shut Up Kick:",21, 20 166 77 15
text "Repeat List:",22, 20 182 70 15
radio "On",23, 100 86 50 15, group
radio "Off",24, 150 86 50 15
radio "On",25, 100 102 50 15, group
radio "Off",26, 150 102 50 15
radio "On",27, 100 118 50 15, group
radio "Off",28, 150 118 50 15
radio "On",29, 100 134 50 15, group
radio "Off",30, 150 134 50 15
radio "On",31, 100 150 50 15, group
radio "Off",32, 150 150 50 15
radio "On",33, 100 166 50 15, group
radio "Off",34, 150 166 50 15
radio "On",35, 100 182 50 15, group
radio "Off",36, 150 182 50 15
box "Channel/Self Protection",37, 10 202 260 163
text "Auto Kicks:",38, 20 220 70 15
text "Topic Lock:",39, 20 236 70 15
text "Kick Catcher:",40, 20 252 70 15
text "Ban Lock:",41, 20 268 70 15
text "No Ban:",42, 20 284 70 15
text "Deop Protection:",43, 20 300 90 15
text "Ban Protection:",44, 20 316 90 15
text "Kick Protection:",45, 20 332 90 15
text "Flood Protection:",46, 20 348 90 15
radio "On",47, 100 220 50 15, group
radio "Off",48, 150 220 50 15
radio "On",49, 100 236 50 15, group
radio "Off",50, 150 236 50 15
text "N/A",200, 100 252 50 15
; radio "On",51, 100 252 50 15, group
; radio "Off",52, 150 252 50 15
radio "On",53, 100 268 50 15, group
radio "Off",54, 150 268 50 15
radio "On",55, 100 284 50 15, group
radio "Off",56, 150 284 50 15
radio "On",57, 100 300 50 15, group
radio "Off",58, 150 300 50 15
radio "On",59, 100 316 50 15, group
radio "Off",60, 150 316 50 15
radio "On",61, 100 332 50 15, group
radio "Off",62, 150 332 50 15
radio "On",63, 100 348 50 15, group
radio "Off",64, 150 348 50 15
box "User Settings",65, 275 10 260 125
text "A/S/L Reply:",66, 285 44 70 15
text "Email Reply:",67, 285 60 70 15
text "Website URL:",68, 285 76 70 15
text "ICQ UIN:",69, 285 92 70 15
text "Nickserv Pass:",70, 285 108 80 15
edit "",71, 360 44 165 19
edit "",72, 360 60 165 19
edit "",73, 360 76 165 19
edit "",74, 360 92 165 19
edit "",75, 360 108 165 19
box "Misc. Settings",76, 275 140 260 133
text "MP3 Directory:",77, 285 160 90 15
text "Auto Join:",78, 285 176 90 15
text "Time Reminder:",79, 285 192 90 15
text "Lag Checker:",80, 285 208 90 15
text "Ping Meter:",81, 285 224 90 15
text "OP Question:",82, 285 240 90 15
text "Halt Default Text:",83, 285 256 100 15
edit "",84, 360 155 165 19, autohs
radio "On",85, 380 176 50 15, group
radio "Off",86, 430 176 50 15
radio "On",87, 380 192 50 15, group
radio "Off",88, 430 192 50 15
radio "On",89, 380 208 50 15, group
radio "Off",90, 430 208 50 15
radio "On",91, 380 224 50 15, group
radio "Off",92, 430 224 50 15
radio "On",93, 380 240 50 15, group
radio "Off",94, 430 240 50 15
radio "On",95, 380 256 50 15, group
radio "Off",96, 430 256 50 15
box "Texts/Talkers",97, 275 280 260 85
text "Nick Completor:",98, 285 305 90 15
text "Use Talker?",99, 285 321 90 15
text "Alternate Text:",100, 285 337 90 15
radio "On",101, 380 305 50 15, group
radio "Off",102, 430 305 50 15
radio "Yes",103, 380 321 50 15, group
radio "No",104, 430 321 50 15
radio "On",105, 380 337 50 15, group
radio "Off",106, 430 337 50 15
button "&OK",107, 70 390 90 25, ok
button "&Cancel",108, 170 390 90 25, cancel
button "&Help",109, 270 390 90 25
button "&About",110,370 390 90 25
}
on 1:dialog:Setup:sclick:107: {
if ( $did(12).text == $null ) { set %nick.first MoonScriptV30 }
if ( $did(12).text != $null ) { set %nick.first $did(12).text }
if ($did(23).state == 1) { .enable #autoop }
if ($did(24).state == 1) { .disable #autoop }
if ($did(25).state == 1) { .enable #autovoice }
if ($did(26).state == 1) { .disable #autovoice }
if ($did(27).state == 1) { .enable #protect }
if ($did(28).state == 1) { .disable #protect }
if ($did(29).state == 1) { .enable #shitlist }
if ($did(30).state == 1) { .disable #shitlist }
if ($did(31).state == 1) { .enable #blacklist }
if ($did(32).state == 1) { .disable #blacklist }
if ($did(33).state == 1) { .enable #shutup }
if ($did(34).state == 1) { .disable #shutup }
if ($did(35).state == 1) { .enable #repeat }
if ($did(36).state == 1) { .disable #repeat }
if ($did(47).state == 1) { .allkickson }
if ($did(48).state == 1) { .allkicksoff }
if ($did(49).state == 1) { .enable #toplock }
if ($did(50).state == 1) { .disable #toplock }
if ($did(51).state == 1) { .enable #kickcatch }
if ($did(52).state == 1) { .disable #kickcatch }
if ($did(53).state == 1) { .enable #banlock }
if ($did(54).state == 1) { .disable #banlock }
if ($did(55).state == 1) { .enable #banunlock }
if ($did(56).state == 1) { .disable #banunlock }
if ($did(57).state == 1) { .enable #autoreoper }
if ($did(58).state == 1) { .disable #autoreoper }
if ($did(59).state == 1) { .enable #unbanner }
if ($did(60).state == 1) { .disable #unbanner }
if ($did(61).state == 1) { .enable #retaliator }
if ($did(62).state == 1) { .disable #retaliator }
if ($did(63).state == 1) { .enable #personalprotect }
if ($did(64).state == 1) { .disable #personalprotect }
if ( $did(71).text == $null ) { set %asl Age/Sex/Location }
if ( $did(71).text != $null ) { set %asl $moontxt($did(71).text) }
if ( $did(72).text == $null ) { set %email Email Address }
if ( $did(72).text != $null ) { set %email $moontxt($did(72).text) }
if ( $did(73).text == $null ) { set %url Website URL }
if ( $did(73).text != $null ) { set %url $moontxt($did(73).text) }
if ( $did(74).text == $null ) { set %icq ICQ UIN }
if ( $did(74).text != $null ) { set %icq $moontxt($did(74).text) }
if ( $did(75).text == $null ) { set %nspw Nickserv Password }
if ( $did(75).text != $null ) { set %nspw $did(75).text }
if ( $did(84).text == $null ) { set %mp3 c:\my music\ }
if ( $did(84).text != $null ) { set %mp3 $did(84).text }
if ($did(85).state == 1) { .set %autojoin ON }
if ($did(86).state == 1) { .set %autojoin OFF }
if ($did(87).state == 1) { .set %autoTime ON }
if ($did(88).state == 1) { .set %autoTime OFF }
if ($did(89).state == 1) { .set %lagcheck ON }
if ($did(90).state == 1) { .set %lagcheck OFF }
if ($did(91).state == 1) { .set %pingmeter ON }
if ($did(92).state == 1) { .set %pingmeter OFF }
if ($did(93).state == 1) { .enable #opfun }
if ($did(94).state == 1) { .disable #opfun }
if ($did(95).state == 1) { .enable #haltdef }
if ($did(96).state == 1) { .disable #haltdef }
if ($did(101).state == 1) { .enable #nickcomp }
if ($did(102).state == 1) { .disable #nickcomp }
if ($did(103).state == 1) { open.talkers }
if ($did(104).state == 1) { halt }
if ($did(105).state == 1) { .atson }
if ($did(106).state == 1) { .allatsoff }
}
on 1:dialog:Setup:sclick:109: {
echo 12 -a c'mon now...this is pretty self explanatory. just click on the options you like. make sure everything is filled out. then click ok. MoonScript will select a default value for anything left blank. Thank you. Enjoy the script. - [MiKe|MoOn]
}
on 1:dialog:Setup:sclick:110: {
echo 12 -a You are using $ircversion $+ . I hope you enjoy the script and find everything you are looking for in it. I have tried to make everything as configurable as possible so that it may suit the needs of many different people. If you happen to read this and see any bugs or errors or other annoyances, please email me at moon415@lexcominc.net. Thank you. - $ircmaker
}
on 1:dialog:Setup:init:0: {
did -fa Setup 12 %nick.first
did -fa Setup 71 $strip(%asl)
did -fa Setup 72 $strip(%email)
did -fa Setup 73 $strip(%url)
did -fa Setup 74 $strip(%icq)
did -fa Setup 75 %nspw
did -fa Setup 84 %mp3
}