/ScriptServ

[script]
n0=dialog settings { 
n1=  title "Settings"
n2=  size -1 -1 116 250
n3=  check "&kick", 1, 20 10 75 40 
n4=  check "&deowner", 2, 20 35 75 40 
n5=  check "&c-chat", 4, 20 60 75 40 
n6=  check "&key on q", 5, 20 88 75 40 
n7=  check "&ctcp", 6, 20 115 75 40 
n8=  check "talker", 10, 20 143 75 40 
n9=  box "",8, 7 2 100 185
n10=  button "&Ok" 9, 15 215 82 22, OK default group
n11=}
n12=alias settings { $dialog(settings,settings) }
n13=on *:dialog:settings:init:0: {
n14=  if (%kickprot = on) did -c settings 1
n15=  if (%selfprot = on) did -c settings 2
n16=  if (%lame = on) did -c settings 4
n17=  if (%konq = on) did -c settings 5
n18=  if (%ctcp.p = on) did -c settings 6
n19=  if (%talker.status = on) did -c settings 10
n20=}
n21=on *:dialog:settings:sclick:1:{ 
n22=  if ($did(1).state) %kickprot = on
n23=  else set %kickprot off
n24=}
n25=on *:dialog:settings:sclick:2:{ 
n26=  if ($did(2).state) %selfprot = on 
n27=  else set %selfprot off
n28=}
n29=on *:dialog:settings:sclick:4:{ 
n30=  if ($did(4).state) %lame = on
n31=  else set %lame off
n32=}
n33=on *:dialog:settings:sclick:5:{
n34=  if ($did(5).state) %konq = on  
n35=  else set %konq off  
n36=}
n37=on *:dialog:settings:sclick:6:{ 
n38=  if ($did(6).state) %ctcp.p = on 
n39=  else set %ctcp.p off
n40=}
n41=on *:dialog:settings:sclick:10:{ 
n42=  if ($did(10).state) %talker.status = on 
n43=  else set %talker.status off
n44=}
n45=Menu Channel,Menubar,Status {
n46=  settings: {
n47=    settings
n48=  }
n49=}
n50=
n51=dialog color { 
n52=  title "Talker Colors"
n53=  size -1 -1 190 258
n54=  text "&First Letter:", 1, 20 6 100 30
n55=  check "&Red", 2, 20 23 75 40 
n56=  check "&Light Green", 3, 20 50 75 40 
n57=  check "&Blue", 4, 20 77 75 40 
n58=  check "&Dark Green", 5, 20 103 75 40 
n59=  check "&Light Gray", 6, 20 130 75 40 
n60=  check "&White", 7, 20 160 75 40 
n61=  check "&Gray", 8, 20 188 75 40 
n62=  text "&Last letters:", 9, 115 6 100 30
n63=  check "&Red", 10, 115 23 75 40 
n64=  check "&Light Green", 11, 115 50 75 40 
n65=  check "&Blue", 12, 115 77 75 40 
n66=  check "&Dark Green",13, 115 103 75 40 
n67=  check "&Light Gray", 14, 115 130 75 40 
n68=  check "&White", 15, 115 160 75 40 
n69=  check "&Gray", 16, 115 188 75 40 
n70=  button "&Ok" 17, 52 232 82 22, OK default group
n71=}
n72=alias color { $dialog(color,color) }
n73=on *:dialog:color:init:0: {
n74=  if (%color1 = 4) did -c color 2
n75=  if (%color1 = 9) did -c color 3
n76=  if (%color1 = 12) did -c color 4  
n77=  if (%color1 = 3) did -c color 5
n78=  if (%color1 = 15) did -c color 6
n79=  if (%color1 = 0) did -c color 7
n80=  if (%color1 = 14) did -c color 8
n81=  if (%color2 = 4) did -c color 10
n82=  if (%color2 = 9) did -c color 11
n83=  if (%color2 = 12) did -c color 12  
n84=  if (%color2 = 3) did -c color 13
n85=  if (%color2 = 15) did -c color 14
n86=  if (%color2 = 0) did -c color 15
n87=  if (%color2 = 14) did -c color 16 
n88=}
n89=on *:dialog:color:sclick:2:{ 
n90=  if ($did(2).state) %color1 = 4
n91=  else set %color1
n92=}
n93=on *:dialog:color:sclick:3:{ 
n94=  if ($did(3).state) %color1 = 9 
n95=  else set %color1
n96=}
n97=on *:dialog:color:sclick:4:{
n98=  if ($did(4).state) %color1 = 12
n99=  else set %color1
n100=}
n101=on *:dialog:color:sclick:5:{ 
n102=  if ($did(5).state) %color1 = 3
n103=  else set %color1
n104=}
n105=on *:dialog:color:sclick:6:{
n106=  if ($did(6).state) %color1 = 15  
n107=  else set %color1  
n108=}
n109=on *:dialog:color:sclick:7:{ 
n110=  if ($did(7).state) %color1 = 0
n111=  else set %color1 
n112=}
n113=on *:dialog:color:sclick:8:{ 
n114=  if ($did(8).state) %color1 = 14 
n115=  else set %color1
n116=}
n117=on *:dialog:color:sclick:10:{ 
n118=  if ($did(10).state) %color2 = 4
n119=  else set %color2
n120=}
n121=on *:dialog:color:sclick:11:{ 
n122=  if ($did(11).state) %color2 = 9 
n123=  else set %color2
n124=}
n125=on *:dialog:color:sclick:12:{
n126=  if ($did(12).state) %color2 = 12
n127=  else set %color2
n128=}
n129=on *:dialog:color:sclick:13:{ 
n130=  if ($did(13).state) %color2 = 3
n131=  else set %color2
n132=}
n133=on *:dialog:color:sclick:14:{
n134=  if ($did(14).state) %color2 = 15  
n135=  else set %color2  
n136=}
n137=on *:dialog:color:sclick:15:{ 
n138=  if ($did(15).state) %color2 = 0
n139=  else set %color2 
n140=}
n141=on *:dialog:color:sclick:16:{ 
n142=  if ($did(16).state) %color2 = 14 
n143=  else set %color2
n144=}