MoonScript IRC — File Browser

MoonScriptIRCv3.0 / MoonScriptIRCv3.0 / system / dialogs1.mrc

dialogs1.mrc — 20.26 KB — Download this file

alias open.AltText {
  if ($dialog(AltText) != $null)  { dialog -v AltText AltText }
  else { dialog -m AltText AltText }
}

dialog AltText {
  title "Alternate Text Options"
  size -1 -1 400 295
  box "Style",1, 10 10 375 200
  check "1:",2, 20 30 30 15, group
  check "2:",3, 20 48 30 15
  check "3:",4, 20 66 30 15
  check "4:",5, 20 85 30 15
  check "5:",6, 20 103 30 15
  check "6:",7, 20 121 30 15
  check "7:",8, 20 139 30 15
  check "8:",9, 20 157 30 15
  check "9:",10, 20 175 30 15
  check "10:",11, 230 30 30 15
  check "11:",12, 230 48 30 15
  check "12:",13, 230 66 30 15
  check "13:",14, 230 85 30 15
  check "14:",15, 230 103 30 15
  check "15:",16, 230 121 30 15
  check "16:",17, 230 139 30 15
  check "17:",18, 230 157 30 15
  check "18:",19, 230 175 30 15
  text "Welcome Back", 20, 54 30 165 13 
  text "Laughing My Ass Off", 21, 54 48 165 13
  text "No Problem", 22, 54 66 165 13
  text "Never Mind", 23, 54 85 165 13
  text "Be Right Back", 24, 54 103 165 13
  text "Be Back Later", 25, 54 121 165 13
  text "Be Back Soon", 26, 54 139 165 13
  text "Got To Go", 27, 54 157 165 13
  text "Laughs Out Loud", 28, 54 175 165 13
  text "ROFLMAO", 29, 265 30 165 13
  text "What The Fuck", 30, 265 48 165 13
  text "Away From Keyboard", 31, 265 66 165 13
  text "Just Kidding", 32, 265 85 165 13
  text "Groovy", 33, 265 103 165 13
  text "WooHoo", 34, 265 121 165 13
  text "Doh", 35, 265 139 165 13
  text "Mama Mia", 36, 265 157 165 13
  text "Itsa Me", 37, 265 175 165 13
  button "&OK", 38, 90 230 90 25, ok
  button "&Cancel", 39, 190 230 90 25, cancel
  button "&Check All", 40, 90 260 90 25
  button "&Uncheck All", 41, 190 260 90 25
}

on 1:dialog:AltText:sclick:38: {
  if ($did(2).state == 1) { set %wb ON }
  if ($did(3).state == 1) { set %lmao ON }
  if ($did(4).state == 1) { set %np ON }
  if ($did(5).state == 1) { set %nm ON } 
  if ($did(6).state == 1) { set %brb ON } 
  if ($did(7).state == 1) { set %bbl ON } 
  if ($did(8).state == 1) { set %bbs ON } 
  if ($did(9).state == 1) { set %gtg ON } 
  if ($did(10).state == 1) { set %lol ON }  
  if ($did(11).state == 1) { set %roflmao ON } 
  if ($did(12).state == 1) { set %wtf ON } 
  if ($did(13).state == 1) { set %afk ON }  
  if ($did(14).state == 1) { set %jk ON }  
  if ($did(15).state == 1) { set %groovy ON } 
  if ($did(16).state == 1) { set %woohoo ON }  
  if ($did(17).state == 1) { set %doh ON } 
  if ($did(18).state == 1) { set %mia ON } 
  if ($did(19).state == 1) { set %itsa ON }
  if ($did(2).state == 0) { set %wb OFF }
  if ($did(3).state == 0) { set %lmao OFF }
  if ($did(4).state == 0) { set %np OFF }
  if ($did(5).state == 0) { set %nm OFF } 
  if ($did(6).state == 0) { set %brb OFF } 
  if ($did(7).state == 0) { set %bbl OFF } 
  if ($did(8).state == 0) { set %bbs OFF } 
  if ($did(9).state == 0) { set %gtg OFF } 
  if ($did(10).state == 0) { set %lol OFF }  
  if ($did(11).state == 0) { set %roflmao OFF } 
  if ($did(12).state == 0) { set %wtf OFF } 
  if ($did(13).state == 0) { set %afk OFF }  
  if ($did(14).state == 0) { set %jk OFF }  
  if ($did(15).state == 0) { set %groovy OFF } 
  if ($did(16).state == 0) { set %woohoo OFF }  
  if ($did(17).state == 0) { set %doh OFF } 
  if ($did(18).state == 0) { set %mia OFF } 
  if ($did(19).state == 0) { set %itsa OFF }
}
on 1:dialog:AltText:init:0: {
  if (%wb == on) did -fc AltText 2
  if (%lmao == on) did -fc AltText 3
  if (%np == on) did -fc AltText 4
  if (%nm == on) did -fc AltText 5  
  if (%brb == on) did -fc AltText 6
  if (%bbl == on) did -fc AltText 7
  if (%bbs == on) did -fc AltText 8
  if (%gtg == on) did -fc AltText 9
  if (%lol == on) did -fc AltText 10  
  if (%roflmao == on) did -fc AltText 11
  if (%wtf == on) did -fc AltText 12
  if (%afk == on) did -fc AltText 13
  if (%jk == on) did -fc AltText 14
  if (%groovy == on) did -fc AltText 15  
  if (%woohoo == on) did -fc AltText 16
  if (%doh == on) did -fc AltText 17
  if (%mia == on) did -fc AltText 18
  if (%itsa == on) did -fc AltText 19
}
on 1:dialog:AltText:sclick:40:{
  did -fc alttext 2 
  did -fc alttext 3
  did -fc alttext 4
  did -fc alttext 5  
  did -fc alttext 6
  did -fc alttext 7
  did -fc alttext 8
  did -fc alttext 9
  did -fc alttext 10  
  did -fc alttext 11
  did -fc alttext 12
  did -fc alttext 13
  did -fc alttext 14
  did -fc alttext 15  
  did -fc alttext 16
  did -fc alttext 17
  did -fc alttext 18
  did -fc alttext 19 
}
on 1:dialog:AltText:sclick:41:{
  did -fu alttext 2 
  did -fu alttext 3
  did -fu alttext 4
  did -fu alttext 5  
  did -fu alttext 6
  did -fu alttext 7
  did -fu alttext 8
  did -fu alttext 9
  did -fu alttext 10  
  did -fu alttext 11
  did -fu alttext 12
  did -fu alttext 13
  did -fu alttext 14
  did -fu alttext 15  
  did -fu alttext 16
  did -fu alttext 17
  did -fu alttext 18
  did -fu alttext 19 
}

alias open.talkers {
  if ($dialog(talkers) != $null)  { dialog -v talkers talkers }
  else { dialog -m talkers talkers }
}

dialog Talkers {
  title "Alternate Text Options"
  size 1 2 300 500
  box "Talker Style",1, 10 10 280 400
  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
  radio "18:",19, 20 380 30 15
  edit "Funky Vowels", 20, 54 40 220 19, autohs
  edit "Multi Color 1", 21, 54 60 220 19, autohs
  edit "Multi Color 2", 22, 54 80 220 19, autohs
  edit "Funky Rainbow", 23, 54 100 220 19, autohs
  edit "Moon Talker 1", 24, 54 120 220 19, autohs
  edit "Moon Talker 2", 25, 54 140 220 19, autohs
  edit "L33T Talker", 26, 54 160 220 19, autohs
  edit "Backwards", 27, 54 180 220 19, autohs
  edit "Brick (Red/Black)", 28, 54 200 220 19, autohs
  edit "Brick (Grey/Brown)", 29, 54 220 220 19, autohs
  edit "Brick (Blue/Aqua)", 30, 54 240 220 19, autohs
  edit "Brick (Black/White)", 31, 54 260 220 19, autohs
  edit "Ascii (Color)", 32, 54 280 220 19, autohs
  edit "Ascii (No Color)", 33, 54 300 220 19, autohs
  edit "Bold/Color", 34, 54 320 220 19, autohs
  edit "Bold", 35, 54 340 220 19, autohs
  edit "Bold/Underline edit", 36, 54 360 220 19, autohs
  edit "Encryption", 37, 54 380 220 19, autohs
  button "&OK", 41, 70 420 90 25, ok
  button "&Cancel", 39, 170 420 90 25, cancel
  button "&Explain", 40, 70 450 90 25
  button "&OFF", 38, 170 450 90 25
}

on 1:dialog:Talkers:sclick:38: {
  unset %tawker.* | .enable #nickcomp | echo -a $moontxt2(All Talkers are now OFF)
}

on 1:dialog:Talkers:sclick:40: {
  echo 12 -a $m3(How This Dialog Works)
  echo 12 -a Click a button and type a message in the box.
  echo 12 -a Click okay. You just used an ON INPUT talker.
  echo 12 -a All messages will now appear in this style until
  echo 12 -a you press the off button to disable it.
}
on 1:dialog:Talkers:sclick:41: {
  if ($did(2).state == 1) { unset %tawker.* | .disable #nickcomp | set %tawker.1 on | msg $active $funkyv($did(20).text) }
  if ($did(3).state == 1) { unset %tawker.* | .disable #nickcomp | set %tawker.2 on | msg $active $r1($did(21).text) }
  if ($did(4).state == 1) { unset %tawker.* | .disable #nickcomp | set %tawker.3 on | msg $active $clr($did(22).text) }
  if ($did(5).state == 1) { unset %tawker.* | .disable #nickcomp | set %tawker.4 on | msg $active $r2($did(23).text) }
  if ($did(6).state == 1) { unset %tawker.* | .disable #nickcomp | set %tawker.5 on | msg $active $moontxt($did(24).text) }
  if ($did(7).state == 1) { unset %tawker.* | .disable #nickcomp | set %tawker.6 on | msg $active $moontxt2($did(25).text) }
  if ($did(8).state == 1) { unset %tawker.* | .disable #nickcomp | set %tawker.7 on | msg $active $leet($did(26).text) }
  if ($did(9).state == 1) { unset %tawker.* | .disable #nickcomp | set %tawker.8 on | msg $active $bk($did(27).text) }
  if ($did(10).state == 1) { unset %tawker.* | .disable #nickcomp | set %tawker.9 on | msg $active $brick1($did(28).text) }
  if ($did(11).state == 1) { unset %tawker.* | .disable #nickcomp | set %tawker.10 on | msg $active $brick2($did(29).text) }
  if ($did(12).state == 1) { unset %tawker.* | .disable #nickcomp | set %tawker.11 on | msg $active $brick3($did(30).text) }
  if ($did(13).state == 1) { unset %tawker.* | .disable #nickcomp | set %tawker.12 on | msg $active $brick4($did(31).text) }
  if ($did(14).state == 1) { unset %tawker.* | .disable #nickcomp | set %tawker.13 on | msg $active $asciic($did(32).text) }
  if ($did(15).state == 1) { unset %tawker.* | .disable #nickcomp |  set %tawker.14 on | msg $active $ascii($did(33).text) }
  if ($did(16).state == 1) { unset %tawker.* | .disable #nickcomp | set %tawker.15 on | msg $active $moontalk($did(34).text) }
  if ($did(17).state == 1) { unset %tawker.* | .disable #nickcomp | set %tawker.16 on | msg $active $m3($did(35).text) }
  if ($did(18).state == 1) { unset %tawker.* | .disable #nickcomp |  set %tawker.17 on | msg $active $m2($did(36).text) }
  if ($did(19).state == 1) { unset %tawker.* | .disable #nickcomp | set %tawker.18 on | msg $active $encrypt($did(37).text) }
}
alias open.UserSettingDialog {
  if ($dialog(UserSettingDialog) != $null)  { dialog -v UserSettingDialog UserSettingDialog }
  else { dialog -m UserSettingDialog UserSettingDialog }
}

dialog UserSettingDialog {
  title "User Settings"
  size -1 -1 320 220
  box "Settings",1, 10 10 290 120
  check "1)",2, 20 30 30 15, group
  check "2)",3, 20 50 30 15
  check "3)",4, 20 70 30 15
  check "4)",5, 20 90 30 15
  check "5)",6, 20 110 30 15
  text "A/S/L Reply:", 16, 54 28 165 15
  text "Email Address:", 17, 54 48 165 15
  text "Website URL:", 18, 54 68 165 15
  text "ICQ UIN:", 19, 54 88 165 15
  text "Nickserv Pass:", 20, 54 108 165 15
  edit "", 7, 130 28 165 19, autohs
  edit "", 8, 130 48 165 19, autohs
  edit "", 9, 130 68 165 19, autohs
  edit "", 10, 130 88 165 19, autohs
  edit "", 11, 130 108 165 19, autohs
  button "&Tell", 12, 50 150 90 25, ok
  button "&Cancel", 13, 150 150 90 25, cancel
  button "&Set", 14, 50 185 90 25 
  button "&Help", 15, 150 185 90 25
}

on 1:dialog:UserSettingDialog:sclick:12: {
  if ($did(2).state == 1) { f9 | echo -a $moontxt2(Note: It is quicker to simply press F9) }
  if ($did(3).state == 1) { f10 | echo -a $moontxt2(Note: It is quicker to simply press F10) }
  if ($did(4).state == 1) { f11 | echo -a $moontxt2(Note: It is quicker to simply press F11) }
  if ($did(5).state == 1) { f12 | echo -a $moontxt2(Note: It is quicker to simply press F12) }
  if ($did(6).state == 1) { f2 | echo -a $moontxt2(Identify Sent to Nickserv) | echo -a $moontxt2(Note: It is quicker to simply press F2) }
}
on 1:dialog:UserSettingDialog:sclick:14: {
  if ($did(2).state == 1) { set %asl $moontxt($did(7).text) | echo -a $moontxt2(Age/Sex/Location Reply Is Set To:) $moontxt($strip(%asl)) }
  if ($did(3).state == 1) { set %email $moontxt($did(8).text) | echo -a $moontxt2(E-Mail Address Now Set To:) $moontxt($strip(%email)) }
  if ($did(4).state == 1) { set %url $moontxt($did(9).text) | echo -a $moontxt2(Website Url Now Set To:) $moontxt($strip(%url))  }
  if ($did(5).state == 1) { set %icq $moontxt($did(10).text) | echo -a $moontxt2(ICQ UIN Is Set To:) $moontxt(%icq) }
  if ($did(6).state == 1) { set %nspw $did(11).text | echo -a $moontxt2(Nickserv Password Now Set To:) $moontxt2(%nspw)  }
}
on 1:dialog:UserSettingDialog:sclick:15: {
  echo 12 -a $m3(Check a box. Click TELL... You just advertised your current setting.)
  echo 12 -a $m3(To set new user settings: Type in new setting. Click SET.)
  echo 12 -a $m3(Click HELP button to get this prompt.)
  echo 12 -a $m3(Click CANCEL button if you don't want anything to do with this.)
}
on 1:dialog:UserSettingDialog:init:0: {
  did -fa UserSettingDialog 7 $strip(%asl)
  did -fa UserSettingDialog 8 $strip(%email)
  did -fa UserSettingDialog 9 $strip(%url)
  did -fa UserSettingDialog 10 $strip(%icq) 
  did -fa UserSettingDialog 11 $strip(%nspw)
}
alias open.aliastalkers {
  if ($dialog(aliastalkers) != $null)  { dialog -v aliastalkers aliastalkers }
  else { dialog -m aliastalkers aliastalkers }
}

dialog AliasTalkers {
  title "Talker Aliases"
  size 1 2 300 500
  box "Talker Style",1, 10 10 280 400
  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
  radio "18:",19, 20 380 30 15
  edit "Funky Vowels", 20, 54 40 220 19, autohs
  edit "Multi Color 1", 21, 54 60 220 19, autohs
  edit "Multi Color 2", 22, 54 80 220 19, autohs
  edit "Funky Rainbow", 23, 54 100 220 19, autohs
  edit "Moon Talker 1", 24, 54 120 220 19, autohs
  edit "Moon Talker 2", 25, 54 140 220 19, autohs
  edit "L33T Talker", 26, 54 160 220 19, autohs
  edit "Backwards", 27, 54 180 220 19, autohs
  edit "Brick (Red/Black)", 28, 54 200 220 19, autohs
  edit "Brick (Grey/Brown)", 29, 54 220 220 19, autohs
  edit "Brick (Blue/Aqua)", 30, 54 240 220 19, autohs
  edit "Brick (Black/White)", 31, 54 260 220 19, autohs
  edit "Ascii (Color)", 32, 54 280 220 19, autohs
  edit "Ascii (No Color)", 33, 54 300 220 19, autohs
  edit "Bold/Color", 34, 54 320 220 19, autohs
  edit "Bold", 35, 54 340 220 19, autohs
  edit "Bold/Underline edit", 36, 54 360 220 19, autohs
  edit "Encryption", 37, 54 380 220 19, autohs
  button "&OK", 38, 70 420 90 25, ok
  button "&Cancel", 39, 170 420 90 25, cancel
  button "&Explain", 40, 70 450 90 25
}
on 1:dialog:AliasTalkers:sclick:38: {
  if ($did(2).state == 1) { msg $active $funkyv($did(20).text) }
  if ($did(3).state == 1) { msg $active $r1($did(21).text) }
  if ($did(4).state == 1) { msg $active $clr($did(22).text) }
  if ($did(5).state == 1) { msg $active $r2($did(23).text) }
  if ($did(6).state == 1) { msg $active $moontxt($did(24).text) }
  if ($did(7).state == 1) { msg $active $moontxt2($did(25).text) }
  if ($did(8).state == 1) { msg $active $leet($did(26).text) }
  if ($did(9).state == 1) { msg $active $bk($did(27).text) }
  if ($did(10).state == 1) { msg $active $brick1($did(28).text) }
  if ($did(11).state == 1) { msg $active $brick2($did(29).text) }
  if ($did(12).state == 1) { msg $active $brick3($did(30).text) }
  if ($did(13).state == 1) { msg $active $brick4($did(31).text) }
  if ($did(14).state == 1) { msg $active $asciic($did(32).text) }
  if ($did(15).state == 1) { msg $active $ascii($did(33).text) }
  if ($did(16).state == 1) { msg $active $moontalk($did(34).text) }
  if ($did(17).state == 1) { msg $active $m3($did(35).text) }
  if ($did(18).state == 1) { msg $active $m2($did(36).text) }
  if ($did(19).state == 1) { msg $active $encrypt($did(37).text) }
}
on 1:dialog:AliasTalkers:sclick:40: {
  echo 12 -a $m3(How This Dialog Works)
  echo 12 -a Click a button and type a message in the box...
  echo 12 -a Click okay... You just used an alias talker.
  echo 12 -a Unlike the ON INPUT script, this will only affect
  echo 12 -a your current message. All other messages will appear as normal.
}

alias open.UModes {
  if ($dialog(UModes) != $null)  { dialog -v UModes UModes }
  else { dialog -m UModes UModes }
}

dialog UModes {
  title "User Modes"
  size -1 -1 400 235
  box "Style",1, 10 10 375 150
  check "1:",2, 20 30 30 15, group
  check "2:",3, 20 48 30 15
  check "3:",4, 20 66 30 15
  check "4:",5, 20 85 30 15
  check "5:",6, 20 103 30 15
  check "6:",7, 20 121 30 15
  check "7:",8, 20 139 30 15
  check "8:",9, 230 30 30 15
  check "9:",10, 230 48 30 15
  check "10:",11, 230 66 30 15
  check "11:",12, 230 85 30 15
  check "12:",13, 230 103 30 15
  check "13:",14, 230 121 30 15
  check "14:",15, 230 139 30 15
  text "Invisible (+i)", 16, 54 30 165 13 
  text "Wallops (+w)", 17, 54 48 165 13
  text "Server Messages (+s)", 18, 54 66 165 13
  text "Host Masking (+x)", 19, 54 85 165 13
  text "NewsFlashes (+n)", 20, 54 103 165 13
  text "CTCP Blocking (+p)", 21, 54 121 165 13
  text "Private Msg Block (+m)", 22, 54 139 165 13
  text "DCC Block (+e)", 23, 265 30 165 13
  text "English (+E)", 24, 265 48 165 13
  text "French (+F)", 25, 265 66 165 13
  text "Spanish (+S)", 26, 265 85 165 13
  text "German (+G)", 27, 265 103 165 13
  text "Malaysian (+M)", 28, 265 121 165 13
  text "Sensitive Ears (+L)", 29, 265 139 165 13
  button "&OK", 30, 90 175 90 25, ok
  button "&Cancel", 31, 190 175 90 25, cancel
  button "&All ON", 32, 90 205 90 25
  button "&All OFF", 33, 190 205 90 25
}

on 1:dialog:UModes:sclick:30: {
  if ( $did(2).state == 1 ) && ( i !isincs $usermode ) { mode $me +i }
  if ( $did(3).state == 1 ) && ( w !isincs $usermode ) { mode $me +w }
  if ( $did(4).state == 1 ) && ( s !isincs $usermode ) { mode $me +s }
  if ( $did(5).state == 1 ) && ( x !isincs $usermode ) { mode $me +x }
  if ( $did(6).state == 1 ) && ( n !isincs $usermode ) { mode $me +n }
  if ( $did(7).state == 1 ) && ( p !isincs $usermode ) { mode $me +p }
  if ( $did(8).state == 1 ) && ( m !isincs $usermode ) { mode $me +m }
  if ( $did(9).state == 1 ) && ( e !isincs $usermode ) { mode $me +e }
  if ( $did(10).state == 1 ) && ( E !isincs $usermode ) { mode $me +E }
  if ( $did(11).state == 1 ) && ( F !isincs $usermode ) { mode $me +F }
  if ( $did(12).state == 1 ) && ( S !isincs $usermode ) { mode $me +S }
  if ( $did(13).state == 1 ) && ( G !isincs $usermode ) { mode $me +G }
  if ( $did(14).state == 1 ) && ( M !isincs $usermode ) { mode $me +M } 
  if ( $did(15).state == 1 ) && ( L !isincs $usermode ) { mode $me +L }
  if ( $did(2).state == 0 ) && ( i isincs $usermode ) { mode $me -i }
  if ( $did(3).state == 0 ) && ( w isincs $usermode ) { mode $me -w }
  if ( $did(4).state == 0 ) && ( s isincs $usermode ) { mode $me -s }
  if ( $did(5).state == 0 ) && ( x isincs $usermode ) { mode $me -x }
  if ( $did(6).state == 0 ) && ( n isincs $usermode ) { mode $me -n }
  if ( $did(7).state == 0 ) && ( p isincs $usermode ) { mode $me -p }
  if ( $did(8).state == 0 ) && ( m isincs $usermode ) { mode $me -m }
  if ( $did(9).state == 0 ) && ( e isincs $usermode ) { mode $me -e }
  if ( $did(10).state == 0 ) && ( E isincs $usermode ) { mode $me -E }
  if ( $did(11).state == 0 ) && ( F isincs $usermode ) { mode $me -F }
  if ( $did(12).state == 0 ) && ( S isincs $usermode ) { mode $me -S }
  if ( $did(13).state == 0 ) && ( G isincs $usermode ) { mode $me -G }
  if ( $did(14).state == 0 ) && ( M isincs $usermode ) { mode $me -M } 
  if ( $did(15).state == 0 ) && ( L isincs $usermode ) { mode $me -L }
}
on 1:dialog:UModes:sclick:32:{
  did -fc UModes 2 
  did -fc UModes 3
  did -fc UModes 4
  did -fc UModes 5  
  did -fc UModes 6
  did -fc UModes 7
  did -fc UModes 8
  did -fc UModes 9 
  did -fc UModes 10 
  did -fc Umodes 15
}
on 1:dialog:UModes:sclick:33:{
  did -fu UModes 2 
  did -fu UModes 3
  did -fu UModes 4
  did -fu UModes 5  
  did -fu UModes 6
  did -fu UModes 7
  did -fu UModes 8
  did -fu UModes 9
  did -fu UModes 10  
  did -fu UModes 11
  did -fu UModes 12
  did -fu UModes 13
  did -fu UModes 14
  did -fu UModes 15  
}
on 1:dialog:UModes:init:0: {
  if ( i isincs $usermode ) { did -fc UModes 2 }
  if ( w isincs $usermode ) { did -fc UModes 3 }
  if ( s isincs $usermode ) { did -fc UModes 4 }
  if ( x isincs $usermode ) { did -fc UModes 5 }
  if ( n isincs $usermode ) { did -fc UModes 6 }
  if ( p isincs $usermode ) { did -fc UModes 7 }
  if ( m isincs $usermode ) { did -fc UModes 8 }
  if ( e isincs $usermode ) { did -fc UModes 9 }
  if ( E isincs $usermode ) { did -fc UModes 10 }
  if ( F isincs $usermode ) { did -fc UModes 11 }
  if ( S isincs $usermode ) { did -fc UModes 12 }
  if ( G isincs $usermode ) { did -fc UModes 13 }
  if ( M isincs $usermode ) { did -fc UModes 14 } 
  if ( L isincs $usermode ) { did -fc UModes 15 }
}