dialog setup {
  size -1 -1 490 299
  title "Chaos Configuration"
  icon images\icones\ $+ %icon,13
  button "&Ok" 1, 328 270 75 24, ok
  list 2, 7 15 154 243, size
  box "" 4, 5 256 479 8
  button "&Cancel" 5, 408 270 75 24, cancel
  list 80, 167 16 314 22, size
  box "" 81, 166 9 318 250
  box "" 82, 167 32 316 8
  text "" 282, 168 40 314 6

  ;general
  check "Servers drop-down menu in toolbar" 6, 178 55 200 15
  edit "" 7, 177 74 240 21, autohs
  button "Add" 8, 346 158 62 20
  button "Remove" 9, 412 158 62 20
  list 10, 177 75 297 80, size sort
  check "Check for updates on connect" 11, 178 193 200 15
  box "" 12, 177 177 297 8
  check "Open News window on connect" 27, 178 213 180 15
  check "Show tips on start" 20, 178 233 150 15

  ;switchbar
  list 133, 177 50 295 90, hide size
  edit "" 135, 234 142 213 21, hide disabled
  button "?" 136, 450 142 22 20, hide
  box "" 137, 177 163 295 8, hide
  text "Status" 138, 177 146 55 15, hide
  check "Highlight Buttons" 139, 178 178 120 15, hide
  check "Flat Buttons" 140, 178 198 100 15, hide
  check "Show active server only" 141, 330 178 137 15, hide
  check "Resize to fit" 142, 330 198 80 15, hide
  list 143, 179 225 295 22, size hide
  box "" 144, 177 217 294 33, hide

  ;themes
  box "" 19, 166 75 318 37
  text "" 212, 167 81 200 29
  text "" 281, 367 82 115 4
  text "Description" 213, 175 89 100 15
  list 214, 353 85 128 24, size
  text "Theme:" 215, 179 54 55 15
  combo 216, 220 50 100 200, drop sort
  text "Scheme:" 217, 328 54 60 15
  combo 218, 375 50 100 200, drop sort
  text "Author:" 219, 177 120 60 15 
  text "E-mail:" 220, 177 140 60 15
  text "Version:" 221, 350 120 60 15
  text "Comment:" 222, 177 160 60 15
  text "" 223, 244 120 60 15
  text "" 224, 405 120 70 15
  link "" 225, 244 140 200 15
  edit "" 226, 243 160 230 85, multi pass vsbar disabled

  button "" 227, 177 120 295 103
  edit "" 297, 177 227 295 20
  text "Under Construction" 289, 265 170 200 15, hide

  list 228, 177 115 295 90, size
  button "Download" 229, 400 228 72 23
  button "Refresh" 230, 324 228 72 23
  text "Ready" 231, 179 231 120 15
  text "" 232, 178 208 293 10

  check "Clear all windows (Recommended)" 283, 178 120 200 15
  check "Modify sidepanel along with theme" 284, 178 140 200 15
  check "Modify DCC Bar along with theme" 296, 178 160 220 15
  check "Color nicknames in nicklist" 290, 178 180 220 15
  check "Alert me when new themes come online" 285, 178 200 220 15
  check "Load random theme on start" 286, 178 220 200 15

  ;display
  check "Enable custom switchbar" 159, 178 55 190 15
  check "Enable statusbar" 21, 178 75 150 15
  check "Enable custom toolbar" 22, 178 95 150 15
  check "Show commands in dialog titlebars" 26, 178 155 190 15
  box "" 43, 167 212 316 8
  text "Icon Package:" 86, 178 232 70 15
  combo 87, 260 227 215 100
  check "Background color" 122, 330 95 100 15
  check "Enable sidepanel" 13, 178 115 100 15
  edit "" 74, 425 113 50 21
  combo 14, 330 113 90 50, drop
  check "Enable Channel WindowFX" 271, 178 135 150 15
  check "I am using a Windows® XP theme" 288, 178 175 190 15

  ;fkeys
  list 40, 177 48 295 200, hide size

  ;about
  text "Created by: Morphy" 41, 177 52 120 15
  text "Contact: morphy_chaos@hotmail.com" 156, 177 68 200 55
  button "Website" 158, 178 228 70 23

  ;sounds
  list 45, 177 48 295 166, hide size
  list 47, 180 220 293 15, size hide
  box "" 145, 178 212 295 36

  ;toolbar
  list 48, 177 45 297 127, hide size
  text "Item name:" 49, 178 181 80 15, hide
  edit "" 50, 240 176 123 21, hide autohs
  text "Command:" 51, 178 229 55 15, hide
  combo 52, 365 177 109 50, hide drop
  edit "" 53, 240 226 123 21, hide autohs
  text "Icon:" 54, 178 205 60 15, hide
  edit "" 55, 240 201 210 21, hide autohs disabled
  button "?" 56, 452 202 21 19, hide
  button "Add" 67, 365 226 53 21, hide
  button "Rem" 68, 420 226 53 21, hide

  ;custom bars
  list 293, 177 50 295 102, size
  button "Disable >" 294, 410 225 62 24, hide
  button "< Enable" 295, 345 225 62 24, hide
  box "Description" 298, 178 151 294 68
  text "Select a custom bar for a brief description." 299, 187 170 250 40


  ;statusbar
  text "Choose the items to be displayed in the statusbar cells, each number represents a cell." 58, 180 50 290 50, hide
  text "1." 59, 190 100 15 15, hide
  text "2." 60, 190 122 15 15, hide
  text "3." 61, 190 144 15 15, hide
  text "4." 62, 190 166 40 15, hide

  combo 63, 230 96 190 60, hide drop
  combo 64, 230 118 190 60, hide drop
  combo 65, 230 140 190 60, hide drop
  combo 66, 230 162 190 60, hide drop

  text "Style:" 160, 190 231 60 15
  combo 161, 230 227 190 60, drop
  box "" 162, 167 210 315 8
  check "Enable mp3 controls" 287, 230 189 200 15

  ;away system
  tab "Reasons" 88, 175 110 297 140
  tab "Advanced" 89,
  list 90, 185 140 277 70, size hide tab 88 vsbar
  button "Remove" 91, 402 215 60 22, hide tab 88
  button "Add", 92, 339 215 60 22, hide tab 88
  check "Log messages" 93, 178 48 100 15, hide
  check "Auto-away after" 94, 178 68 100 15
  edit "" 95, 280 64 35 19, hide
  text "minutes" 96, 320 68 50 15, hide
  check "Change nick" 97, 178 88 80 15
  edit "" 98, 280 86 90 20, autohs hide
  button "" 99, 281 55 6 6, hide
  ; tab2
  check "Set back on key press" 100, 185 145 140 15, hide tab 89
  text "Away Mode:" 101, 185 175 100 15, hide tab 89
  radio "Silent" 102, 270 175 60 18, hide tab 89
  radio "Verbose" 103, 330 175 60 18, hide tab 89
  box "" 104, 185 160 277 8, hide tab 89
  edit "" 105, 186 195 275 17, hide autohs tab 89
  button "" 106, 186 217 275 17, hide autohs tab 89
  text "Current: " 115, 187 219 100 15, hide tab 88

  ;quit messages
  list 107, 177 48 295 172, hide size
  button "Remove" 108, 410 225 62 22, hide
  button "Add" 109, 345 225 62 22, hide
  text "Current:" 110, 179 229 100 15, hide

  ;ctcp replies
  list 111, 177 48 295 172, hide size
  button "Remove" 112, 410 225 62 22, hide
  button "Add" 113, 345 225 62 22, hide
  text "Current:" 114, 179 229 100 15, hide

  ;auto-identify
  list 116, 177 48 295 172, hide size
  button "Remove" 117, 410 225 62 22, hide
  button "Add" 118, 345 225 62 22, hide
  check "Disabled" 119, 178 225 62 22, push
  box "" 120, 338 219 2 28

  ;auto-join
  list 200, 177 68 295 152, hide size
  button "Remove" 201, 410 225 62 22, hide
  button "Add" 202, 345 225 62 22, hide
  check "Disabled" 203, 178 225 62 22, push
  box "" 204, 338 219 2 28
  check "Wait until auto-identified before auto-joining" 292, 178 48 250 15

  ;message blocker
  list 123, 177 48 295 125, hide size
  edit "" 124, 177 178 240 22, hide
  button "+" 125, 420 178 24 22, hide
  button "-" 126, 448 178 24 22, hide
  box "" 127, 177 200 295 8, hide
  check "Exclude notifies" 128, 177 216 180 15, hide
  check "Block all incoming messages" 129, 177 236 180 15, hide
  check "Disabled" 132, 410 230 62 22, hide push

  ;nick completion
  check "Enable nick completion" 146, 178 57 130 15, hide
  box "Display" 147, 177 80 295 93, hide
  edit "" 148, 187 110 273 17, hide autohs
  button "" 149, 187 132 273 17, hide autohs
  text "<nick> - nick of the person you are refering to." 150, 178 205 290 15, hide
  text "Tags:" 151, 178 185 60 15, hide
  text "<message> - your message." 152, 178 221 290 15, hide

  ;modules
  list 153, 177 48 295 200, hide size

  ;updates
  list 154, 177 48 295 110, size
  button "Download" 163, 400 175 72 23
  button "Refresh" 164, 324 175 72 23
  check "Load module when completed" 165, 179 235 195 15
  text "Ready" 166, 179 180 120 15
  box "" 167, 177 200 295 8
  check "Explorer window" 168, 179 215 195 15
  text "" 169, 178 160 293 10

  ;personal protections
  text "Editing:" 170, 179 54 70 15
  combo 171, 225 50 246 100, drop
  box "" 172, 166 75 318 30
  text "" 173, 167 81 315 22
  text "Query Flood" 174, 175 86 200 15

  ; - - text flood
  check "Disabled" 233, 178 225 62 23, push
  text "Punishment:    Ignore user for" 234, 179 193 150 15
  edit "" 235, 345 190 50 20, right limit 4
  text "Trigger:" 236, 179 169 70 15
  edit "" 237, 249 166 50 20, right limit 2
  text "lines in" 238, 305 169 40 15
  edit "" 239, 345 166 50 20, right limit 2
  text "second(s)" 240, 400 169 60 15
  text "This protection triggers when someone tries to write a certain amount of lines in a certain period of time." 241, 179 120 295 43
  text "second(s)" 242, 400 193 60 15

  ; - - ban protection
  check "Disabled" 272, 178 225 62 23, push
  text "Punishment:" 273, 179 160 90 15
  check "Kick user        /        Reason:" 274, 190 180 160 15
  check "Ban user        /" 275, 190 201 100 15
  edit "" 276, 370 176 100 20, autohs
  edit "" 277, 370 197 47 20, right
  text "second(s)" 278, 422 201 100 15
  check "Only for:" 279, 300 200 60 15
  text "This protection triggers when you are banned from a channel where your current status is operator." 280, 179 120 295 30

  ; - - kick protection
  check "Disabled" 243, 178 225 62 23, push
  text "Punishment:" 244, 179 160 90 15
  check "Kick user        /        Reason:" 245, 190 180 160 15
  check "Ban user        /" 246, 190 201 100 15
  edit "" 247, 370 176 100 20, autohs
  edit "" 248, 370 197 47 20, right
  text "second(s)" 249, 422 201 100 15
  check "Only for:" 250, 300 200 60 15
  text "This protection triggers when you are kicked from a channel where your current status is operator." 251, 179 120 295 30

  ; - - badwords
  text "Punishment:" 183, 179 118 100 15
  combo 184, 250 115 221 60, drop
  list 175, 177 140 295 80, size sort
  button "Add" 176, 343 225 62 23
  button "Remove" 177, 410 225 62 23
  check "Disabled" 178, 178 225 62 23, push

  ; - - Excess caps
  text "Punishment:" 187, 179 198 100 15
  combo 188, 250 195 221 60, drop
  text "This type of protection triggers when someone writes a large amount of words with CAPS. You can edit the limit of the allowed words per line." 189, 179 120 295 43
  text "Percentage of words allowed:" 190, 179 173 150 15
  edit "70" 191, 329 169 40 21, limit 2
  check "Disabled" 192, 178 225 62 23, push

  ; - - Channel advertising
  check "Disabled" 199, 178 225 62 23, push
  text "Punishment:" 205, 179 185 100 15
  combo 206, 250 182 221 60, drop
  text "This protection triggers when someone tries to advertise a channel on a private chat with you." 207, 179 120 295 33

  ; - - Excluded nicks
  list 208, 177 120 295 100, size sort
  edit "" 209, 177 225 245 22, autohs
  button "+" 210, 425 226 21 20
  button "-" 211, 450 226 21 20

  ;------------------------------------------

  ;Channel Protections

  ; - - badwords (channel)
  text "Punishment:" 185, 179 118 100 15
  combo 186, 250 115 221 60, drop
  list 179, 177 140 295 80, size
  button "Add" 180, 343 225 62 23
  button "Remove" 181, 410 225 62 23
  check "Disabled" 182, 178 225 62 23, push

  ; - - Excess caps
  text "Punishment:" 193, 179 198 100 15
  combo 194, 250 195 221 60, drop
  text "This type of protection triggers when someone write a large amount of words with CAPS. You can edit the limit of the allowed words per phrase." 195, 179 120 295 43
  text "Percentage of words allowed:" 196, 179 173 150 15
  edit "70" 197, 329 169 40 21, limit 2
  check "Disabled" 198, 178 225 62 23, push


  ;tray icon
  icon 252, 180 51 32 32, system\SysWin.icl,13
  edit "system\SysWin.icl,13" 253, 225 62 220 21, disabled
  button "!" 254, 450 62 20 20
  box "" 255, 177 82 295 8
  check "Display Chaos in Tray" 256, 178 100 130 15
  check "Hide/Show Chaos on double left-click" 257, 178 120 197 15
  check "Popup Menu on right-click" 258, 178 140 190 15
  check "Enable Balloon Tips" 259, 178 160 150 15

  ;help topics
  combo 260, 178 50 120 150, drop
  combo 261, 304 50 167 150, drop sort
  edit "" 262, 177 77 296 170, multi pass autovs vsbar

  ;feedback
  text "From:" 263, 178 64 50 15
  edit "your@mail.here" 264, 225 60 245 21
  text "Subject:" 265, 178 87 60 15
  combo 266, 226 83 244 100, drop
  text "Message:" 267, 178 110 60 15
  edit "" 268, 177 128 295 94, multi pass vsbar autovs return
  button "Send" 269, 401 227 70 22
  text "Standing By..." 270, 178 230 150 15

}

; --------------------------------------------------------------------------------------------------------------

on *:dialog:setup:sclick:8: {
  var %n = $remove($input(Enter server name.,eq,Add server...),:)
  var %s = $input(Enter server.,eq,Add server...)
  if (!%s || !%n) { halt }
  did -a $dname 10 %n $chr(9) %s
  write docs\servers.dat %n $+ : $+ %s
}


on *:dialog:setup:sclick:9: {
  if ( $did($dname,10).sel != $null ) {
    var %s = $calc($did($dname,10).sel -1)
    write -dl $+ %s docs\servers.dat
    did -d $dname 10 $did($dname,10).sel
  } 
}

on *:dialog:setup:sclick:1: {
  set %icon $gettok($did($dname,87).seltext,5-,32) $+ .icl
  set %dmisc2 %dmisc
  unset %dmisc
  unset %mod | unset %mod2 | unset %mod.size
  writeini system\pcfg.sys display xptheme $iif($did($dname,288).state = 1,yes,no)
  if ($did($dname,21).state = 1) { set %dmisc %dmisc statusbar }
  if ($did($dname,22).state = 1) { set %dmisc %dmisc toolbar }
  if ($did($dname,13).state = 1) { set %dmisc %dmisc sidepanel }
  if ($did($dname,26).state = 1) { set %dmisc %dmisc alias }
  if ($did($dname,271).state = 1) { set %dmisc %dmisc winfx }
  if ($did($dname,159).state = 1) { set %dmisc %dmisc switchbar }
  var %k = $did($dname,159).state
  if (%k = 0 && $dialog(sb)) { dialog -x sb sb }
  elseif (%k = 1 && !$dialog(sb)) { dialog -m sb sb }

  if ($did($dname,122).state == 1 && $dialog(tb)) { set %dmisc %dmisc bgcolor | mdx SetDialog tb bgcolor $rgb(222,219,214) | mdx SetColor tb 2 background $rgb(222,219,214) | did -f tb 3 }
  elseif ( $did($dname,122).state = 1 && !$dialog(tb)) { set %dmisc %dmisc bgcolor }
  else { 
    if ($dialog(tb)) { did -i tb 2 1 setbkg none | did -f tb 3  }
  }

  if ($did($dname,287).state = 1) { writeini system\pcfg.sys statusbar mp3 Yes }
  else { writeini system\pcfg.sys statusbar mp3 No }
  if ($did($dname,21).state = 0) { dll system\hos.dll RemStatusBar }
  else { dll system\hos.dll RemStatusBar | statusbar -i }

  if (toolbar isin %dmisc && !$dialog(tb)) { 
    dialog -m tb tb
    tbstatus
  }
  elseif ($dialog(tb) && toolbar !isin %dmisc) {
    dialog -x tb tb
  }
  unset %general
  if ( $did($dname,6).state == 1 ) { set %general %general dropdown }
  if ( $did($dname,11).state == 1 ) { set %general %general updates }
  if ( $did($dname,27).state == 1 ) { set %general %general newz }
  if ( $did($dname,20).state == 1 ) { set %general %general tips }

  unset %sbar.data
  set %sbar.data $sbt(63) $sbt(64) $sbt(65) $sbt(66)

  var %st = $iif($did($dname,161).sel,$did($dname,161).seltext,Regular)
  set %sbar.data %sbar.data $iif(%st = flat,flat,$iif(%st = regular,regular,popout))



  if ($did($dname,13).state = 1 && !$dialog(switchbar)) { sidepanel }
  elseif ($did($dname,13).state = 0 && $dialog(switchbar)) { sidepanel }

  if ($dialog(switchbar)) { nl.update }
  if ($did($dname,14).seltext != $null) { set %sw.pos $ifmatch }
  if ($gettok($did($dname,74),-1,32) < 221 && $gettok($did($dname,74),-1,32) > 149) { 
    set %w1 $calc($gettok($did($dname,74),-1,32)-8) $gettok(%w1,2,32)
    if ($dialog(switchbar)) {
      sidepanel | sidepanel
    }
  }

  if ($dialog(tb)) { tb.refresh }

  if ($dialog(switchbar)) {
    did -i switchbar 45,10 1 clearicons normal
    did -i switchbar 45 1 seticon normal $iif(%icon = qnx.icl,58,0) $+ ,images\icones\ $+ %icon
    did -i switchbar 45 1 seticon normal $iif(%icon = qnx.icl,54,1) $+ ,images\icones\ $+ %icon
    did -i switchbar 10 1 seticon normal 10,system\SysWin.icl
  }

  ;away
  var %l = $did($dname,93).state
  var %a = $did($dname,94).state
  var %t = $did($dname,95).text
  var %c = $did($dname,97).state
  var %n = $did($dname,98).text
  var %an = $did($dname,100).state
  var %m = $did($dname,102).state
  var %am = $did($dname,105).text
  set %away.options %l $+ , $+ %a $+ , $+ $iif(!%t,10,$remove(%t,$chr(44))) $+ , $+ %c $+ , $+ $iif(!%n,$me,$remove(%n,$chr(44))) $+ , $+ %an $+ , $+ %m $+ , $+ %am

  ;quits / ctcp / autoid
  var %q = $gettok($did($dname,110).text,2,35)
  var %cr = $gettok($did($dname,114).text,2,35)
  var %ar = $gettok($did($dname,115).text,2,35)
  var %a = $did($dname,119).state
  var %aj = $did($dname,203).state
  set %messages $iif(!%q,1,%q) $+ , $+ $iif(!%cr,1,%cr) $+ , $+ $iif(!%ar,1,%ar) $+ , $+ %a $+ , $+ %aj

  ;switchbar
  var %a = $did($dname,139).state
  var %b = $did($dname,140).state
  var %c = $did($dname,141).state
  var %d = $did($dname,142).state
  set %sb %a $+ , $+ %b $+ , $+ %c $+ , $+ %d
  if ($dialog(sb)) {
    dialog -x sb sb
    dialog -m sb sb
    update.sb
  }

  writeini system\pcfg.sys misc ajwait $iif($did($dname,292).state = 1,yes,no)

  ;message blocker
  unset %blocker
  set %blocker $iif($did($dname,128).state = 1,notify)
  set %blocker %blocker $iif($did($dname,129).state = 1,all)
  set %blocker %blocker $iif($did($dname,132).state = 1,enabled)

  ;nick completion
  unset %nickcomp
  var %e = $did($dname,146).state
  var %t = $did($dname,148).text
  set %nickcomp %e $+ , $+ $iif(%t,%t,<nick>: <message>)

  ;modules
  unset %modules
  var %m = 2
  while $did($dname,153,%m) {
    var %s = $did($dname,153,%m)
    if ($gettok(%s,5,32) = 2) { .load -rs " $+ $mircdirsystem\remote\ $+ $gettok($gettok(%s,6-,32),1,9) $+ .mrc $+ " }
    else { .unload -rs " $+ $mircdirsystem\remote\ $+ $gettok($gettok(%s,6-,32),1,9) $+ .mrc $+ " | if ($gettok($gettok(%s,6-,32),1,9) = mp3) { .timermp3 off } }
    inc %m
  }
  set %modules $iif($did($dname,165).state = 1,load) $iif($did($dname,168).state = 1,explorer)



  ;sounds
  unset %sounds
  var %s = connect,dis,open,close,part,kick,notice,exit
  var %l = 2
  while $did(setup,45,%l) {
    if ($gettok($did(setup,45,%l), 5, 32) == 2) { set %sounds %sounds $gettok(%s,$calc(%l -1),44) }
    inc %l
  }
  ;protections
  var %b = $iif($did($dname,178).text = enabled,yes,no)
  writeini system\pcfg.sys personal badwords %b  

  var %e = $iif($did($dname,192).text = enabled,yes,no)
  writeini system\pcfg.sys personal excesscaps %e  

  var %c = $iif($did($dname,199).text = enabled,yes,no)
  writeini system\pcfg.sys personal channel %c

  var %t = $iif($did($dname,233).text = enabled,yes,no)
  writeini system\pcfg.sys personal textflood %t

  var %k = $iif($did($dname,243).text = enabled,yes,no)
  writeini system\pcfg.sys personal kickprot %k

  var %b = $iif($did($dname,272).text = enabled,yes,no)
  writeini system\pcfg.sys personal banprot %b

  var %bwp = $gettok($did($dname,184).seltext,1,32)
  writeini system\pcfg.sys personal bwpu %bwp

  var %ecp = $gettok($did($dname,188).seltext,1,32)
  writeini system\pcfg.sys personal ecpu %ecp

  var %cap = $gettok($did($dname,206).seltext,1,32)
  writeini system\pcfg.sys personal capu %cap

  var %tfp = $gettok($did($dname,235).text,1,32)
  writeini system\pcfg.sys personal tfpu %tfp

  var %kppu = $iif($did($dname,245).state = 1,Kick) $iif($did($dname,246).state = 1,Ban)
  if (%kppu) { writeini system\pcfg.sys personal kppu %kppu }
  else { writeini system\pcfg.sys personal kppu none }

  var %bppu = $iif($did($dname,274).state = 1,Kick) $iif($did($dname,275).state = 1,Ban)
  if (%bppu) { writeini system\pcfg.sys personal bppu %bppu }
  else { writeini system\pcfg.sys personal bppu none }

  writeini system\pcfg.sys personal kickreason $iif($did($dname,247).text,$did($dname,247).text,Kick Protection!)
  writeini system\pcfg.sys personal onlyfor $iif($did($dname,250).state = 1,Yes,No)
  writeini system\pcfg.sys personal bantime $iif($did($dname,248).text,$did($dname,248).text,90)

  writeini system\pcfg.sys personal bkickreason $iif($did($dname,276).text,$did($dname,276).text,Ban Protection!)
  writeini system\pcfg.sys personal bonlyfor $iif($did($dname,279).state = 1,Yes,No)
  writeini system\pcfg.sys personal bbantime $iif($did($dname,277).text,$did($dname,277).text,90)


  writeini system\pcfg.sys personal percentage $did($dname,191).text
  if ($did($dname,237).text && $did($dname,237).text !isalpha) { writeini system\pcfg.sys personal tfl $ifmatch }
  if ($did($dname,239).text && $did($dname,239).text !isalpha) { writeini system\pcfg.sys personal tfs $ifmatch }

  ;tray
  writeini system\pcfg.sys tray icon $gettok($did($dname,252),1,32) " $+ $gettok($did($dname,252),2-,32) $+ "
  writeini system\pcfg.sys tray enable $iif($did($dname,256).state = 1,yes,no)
  writeini system\pcfg.sys tray sclick $iif($did($dname,257).state = 1,yes,no)
  writeini system\pcfg.sys tray popups $iif($did($dname,258).state = 1,yes,no)
  writeini system\pcfg.sys tray balloon $iif($did($dname,259).state = 1,yes,no)

  if ($_pcf(tray,enable) = no) { dll system\systray.dll RemoveIcon 10 }
  else { systray | dll system\systray.dll ReplaceIcon 10 > $calc($gettok($_pcf(tray,icon),1,32) +1) $+ , $+ $right($left($gettok($_pcf(tray,icon),2-,32),-1),-1) }

  ;theme options
  var %f = system\pcfg.sys themes
  var %s = $did($dname,284).state
  var %d = $did($dname,296).state

  writeini %f Clear $iif($did($dname,283).state = 1,Yes,No)
  writeini %f Sidepanel $iif(%s = 1,Yes,No)
  writeini %f Update $iif($did($dname,285).state = 1,Yes,No)
  writeini %f Random $iif($did($dname,286).state = 1,Yes,No)
  writeini %f Cline $iif($did($dname,290).state = 1,Yes,No)
  writeini %f DCC $iif(%d = 1,Yes,No)

  if (%s = 1 && %d = 1) { spadjust -a 0 }
  if (%s = 1 && %d = 0) { spadjust -a 1 | spadjust -r 2 }
  if (%s = 0 && %d = 1) { spadjust -a 2 | spadjust -r 1 }
  if (%s = 0 && %d = 0) { spadjust -r 0 }


  ;custom bars
  var %l = 2
  while %l < 5 {
    write -l $+ $calc(%l -1) system\cbars.sys $cell(setup,293,%l,1) $+ $chr(9) $+ $cell(setup,293,%l,2)
    inc %l
  }
  if ($gettok($read(system\cbars.sys,3),2,9) == disabled && $dialog(mp3bar)) { dll system\hos.dll UndockWindow mp3bar }
  if ($gettok($read(system\cbars.sys,1),2,9) == disabled && $dialog(bwbar)) { bwbar }
  if ($gettok($read(system\cbars.sys,2),2,9) == disabled && $dialog(dccbar)) { .timer -m 1 100 dccbar }

  if ($gettok($read(system\cbars.sys,1),2,9) == enabled && !$dialog(bwbar)) { bwbar }
  if ($gettok($read(system\cbars.sys,2),2,9) == enabled && !$dialog(dccbar)) { dccbar }
  if ($gettok($read(system\cbars.sys,3),2,9) == enabled && !$dialog(mp3bar)) { mp3bar }


  ;positions
  unset %expand
  var %b = 2
  while %b <= 5 {
    did -i $dname 2 1 cb root
    set %expand %expand $iif(+e isin $gettok($did($dname,2,%b),1,32),$gettok($did($dname,2,%b),7-,32)) 
    inc %b
  }
  set %expand $iif(!%expand,a,%expand) $+ * $+ %selected
  unset %selected

  if ($window($active)) { window -a " $+ $active $+ " }

}


on *:dialog:setup:init:0: {
  dialog -t $dname Chaos Configuration $iif(alias isin %dmisc,[/setup])
  did -b $dname 11,106,149,166,174,213,231,270,289,285,294,295
  did -m $dname 297
  mdx SetMircVersion $version
  mdx MarkDialog $dname
  dfont $dname 299
  mdx SetControlMDX $dname 2 treeview haslines hasbuttons linesatroot > system\views.mdx
  mdx SetFont $dname 59,60,61,62,80,151,166,174,213,231,270,289 +a 13 600 tahoma
  mdx SetControlMDX $dname 87 ComboBoxEx drop > system\views.mdx
  mdx SetControlMDX $dname 40 listview report rowselect single > system\views.mdx
  mdx SetControlMDX $dname 45 listview report single rowselect checkboxes > system\views.mdx
  mdx SetControlMDX $dname 153 listview sortascending report single infotip rowselect checkboxes > system\views.mdx
  mdx SetControlMDX $dname 47 toolbar flat list nodivider arrows > system\bars.mdx
  mdx SetControlMDX $dname 214,80 toolbar flat list nodivider arrows noresize > system\bars.mdx
  mdx SetControlMDX $dname 143 toolbar $iif($gettok(%sb,2,44) = 1,flat) list nodivider arrows > system\bars.mdx
  mdx SetControlMDX $dname 111,116,10,154,228 listview infotip report showsel single rowselect > system\views.mdx
  mdx SetControlMDX $dname 48,133 listview infotip report showsel single noheader rowselect > system\views.mdx
  mdx SetControlMDX $dname 200 listview infotip report showsel single sortascending rowselect > system\views.mdx
  mdx SetControlMDX $dname 74 UpDown edit alignright numeric > system\ctl_gen.mdx
  mdx SetControlMDX $dname 169,232 Progressbar smooth > system\ctl_gen.mdx
  mdx SetControlMDX $dname 106,149,227 window > system\dialog.mdx
  mdx SetBorderStyle $dname 74 clientedge
  mdx SetBorderStyle $dname 2,105,148 staticedge
  did -i $dname 74 1 $calc($gettok(%w1,1,32) +8) 150 220 1 1:1
  did -m $dname 74
  did -i $dname 48 1 headerdims 170 0 100
  did -i $dname 48 1 headertext Name $tab $+ +c Type $tab Command
  did -i $dname 47,80,143 1 bmpsize 16 16
  mdx SetBorderStyle $dname 47,80,143,214

  did -i $dname 80 1 setimage +nhd 0 icon small 63,images\icones\ $+ %icon
  did -i $dname 80 1 setimage +nhd 0 icon small 20,images\icones\ $+ %icon
  did -i $dname 80 1 setimage +nhd 0 icon small 33,images\icones\ $+ %icon
  did -i $dname 80 1 setimage +nhd 0 icon small 51,images\icones\ $+ %icon
  did -i $dname 80 1 setimage +nhd 0 icon small 47,images\icones\ $+ %icon
  did -i $dname 80 1 setimage +nhd 0 icon small 26,images\icones\ $+ %icon
  did -i $dname 80 1 setimage +nhd 0 icon small 31,images\icones\ $+ %icon
  did -i $dname 80 1 setimage +nhd 0 icon small 57,images\icones\ $+ %icon
  did -i $dname 80 1 setimage +nhd 0 icon small 16,images\icones\ $+ %icon
  did -i $dname 80 1 setimage +nhd 0 icon small 64,images\icones\ $+ %icon

  ; general icons
  did -i $dname 80 1 setimage +nhd 0 icon small 54,images\icones\ $+ %icon
  did -i $dname 80 1 setimage +nhd 0 icon small 37,images\icones\ $+ %icon
  did -i $dname 80 1 setimage +nhd 0 icon small 36,images\icones\ $+ %icon
  did -i $dname 80 1 setimage +nhd 0 icon small 64,images\icones\ $+ %icon
  did -i $dname 80 1 setimage +nhd 0 icon small 46,images\icones\ $+ %icon

  did -i $dname 80 1 setimage +nhd 0 icon small 7,images\icones\ $+ %icon
  did -i $dname 80 1 setimage +nhd 0 icon small 17,images\icones\ $+ %icon
  did -i $dname 80 1 setimage +nhd 0 icon small 55,images\icones\ $+ %icon
  did -i $dname 80 1 setimage +nhd 0 icon small 59,images\icones\ $+ %icon
  did -i $dname 80 1 setimage +nhd 0 icon small 29,images\icones\ $+ %icon
  did -i $dname 80 1 setimage +nhd 0 icon small 13,system\SysWin.icl
  did -i $dname 80 1 setimage +nhd 0 icon small 2,images\icones\ $+ %icon
  did -i $dname 80 1 setimage +nhd 0 icon small 11,images\icones\ $+ %icon
  did -i $dname 80 1 setimage +nhd 0 icon small 41,images\icones\ $+ %icon

  did -i $dname 80 1 bwidth 200 200
  did -a $dname 80 1 General Configuration
  mdx SetColor $dname 80 background $rgb(222,219,214)
  did -b $dname 80

  did -i $dname 47 1 pad 5 10
  did -i $dname 47 1 bwidth 97 97
  mdx SetColor $dname 47 background $rgb(222,219,214)
  did -i $dname 47 1 setimage +nhd 0 icon small 61,images\icones\ $+ %icon
  did -i $dname 47 1 setimage +nhd 0 icon small 26,images\icones\ $+ %icon
  did -i $dname 47 1 setimage +nhd 0 icon small 33,images\icones\ $+ %icon
  did -a $dname 47 2 Play $tab $+ Plays selected sound file
  did -a $dname 47 3 Stop $tab $+ Stops playing
  did -a $dname 47 1 Edit $tab $+ Edits selected event's sound file
  did -i $dname 45 1 headerdims 100 189
  did -i $dname 45 1 headertext Event $tab $+ +c Sound file
  did -i $dname 40 1 headerdims 50 220
  did -i $dname 40 1 headertext Key $tab Function

  did -i $dname 87 1 iconsize small
  var %i = $findfile(images\icones\,*.icl,0)
  var %l = 1
  while %l <= %i {
    var %n = $dll(system\zircx.dll,CountIcons, $+ $findfile(images\icones\,*.icl,%l))
    if (%n > 60) {
      did -i $dname 87 1 seticon 0 0, $+ $findfile(images\icones\,*.icl,%l)
      did -a $dname 87 %l %l 0 0 $mp($findfile(images\icones\,*.icl,%l))
    }
    inc %l
  }
  var %c = 2
  while %c <= $calc(%i +1) {
    if (%icon isin $gettok($did(setup,87,%c),5-,32) $+ .icl) { did -c $dname 87 %c }
    inc %c
  }

  did -a $dname 2 $iif(general isin %expand,+e) General
  did -i $dname 2 1 cb root 2
  did -a $dname 2 Away System
  did -a $dname 2 Auto-identify
  did -a $dname 2 Auto-join
  did -a $dname 2 CTCP Replies
  did -a $dname 2 Quit Messages
  did -i $dname 2 1 cb root
  did -a $dname 2 $iif(display isin %expand,+e) Display
  did -i $dname 2 1 cb root 3
  did -a $dname 2 Themes
  did -a $dname 2 Custom Bars
  did -a $dname 2 Switchbar
  did -a $dname 2 Toolbar
  did -a $dname 2 Statusbar
  did -a $dname 2 Nick Completion
  did -i $dname 2 1 cb root
  did -a $dname 2 $iif(protections isin %expand,+e) Protections
  did -i $dname 2 1 cb root 4
  did -a $dname 2 Personal
  did -a $dname 2 Channel
  did -a $dname 2 Message Blocker
  did -i $dname 2 1 cb root
  did -a $dname 2 $iif(modules isin %expand,+e) Modules
  did -i $dname 2 1 cb root 5
  did -a $dname 2 Update
  did -i $dname 2 1 cb root
  did -a $dname 2 $iif(Miscellaneous isin %expand,+e) Miscellaneous
  did -i $dname 2 1 cb root 6
  did -a $dname 2 Sounds
  did -a $dname 2 Function keys
  did -a $dname 2 Tray
  did -i $dname 2 1 cb root
  did -a $dname 2 Help Topics
  did -a $dname 2 Feedback
  did -a $dname 2 About

  did -a $dname 14 Right
  did -a $dname 14 Left
  did -c $dname 14 $didwm($dname,14,%sw.pos)


  hot.list
  if ($_pcf(display,xptheme) = yes) { did -c $dname 288 }
  if (&tod.s = y ) { did -c $dname 20 }
  if (statusbar isin %dmisc) { did -c $dname 21 }
  if (toolbar isin %dmisc) { did -c $dname 22 }
  if (sidepanel isin %dmisc) { did -c $dname 13 }
  if (alias isin %dmisc) { did -c $dname 26 }
  if (bgcolor isin %dmisc) { did -c $dname 122 }
  if (switchbar isin %dmisc) { did -c $dname 159 }
  if (winfx isin %dmisc) { did -c $dname 271 }

  ;GENERAL

  did -i $dname 10 1 headerdims 120 155
  did -i $dname 10 1 headertext Name $chr(9) Server
  var %drop = 1
  while %drop <= $lines(docs\servers.dat) {
    var %n = $gettok($read(docs\servers.dat,%drop),1,58)
    var %s = $gettok($read(docs\servers.dat,%drop),2,58)
    did -a $dname 10 %n $chr(9) %s
    inc %drop
  }

  if (dropdown isin %general) { did -c $dname 6 }
  if (updates isin %general) { did -c $dname 11 }
  if (newz isin %general) { did -c $dname 27 }
  if (tips isin %general) { did -c $dname 20 }


  var %sound = 1
  while %sound <= $lines(docs\sounds.dat) {
    did -a $dname 45 $gettok($read(docs\sounds.dat,%sound),1,42) $tab $lower($nopath($gettok($read(docs\sounds.dat,%sound),2-,42)))
    inc %sound
  }
  if (connect isin %sounds) { did -o setup 45 2 0 0 0 2 $gettok($did(setup,45,2),6-,32) }
  if (dis isin %sounds) { did -o setup 45 3 0 0 0 2 $gettok($did(setup,45,3),6-,32) }
  if (open isin %sounds) { did -o setup 45 4 0 0 0 2 $gettok($did(setup,45,4),6-,32) }
  if (close isin %sounds) { did -o setup 45 5 0 0 0 2 $gettok($did(setup,45,5),6-,32) }
  if (part isin %sounds) { did -o setup 45 6 0 0 0 2 $gettok($did(setup,45,6),6-,32) }
  if (kick isin %sounds) { did -o setup 45 7 0 0 0 2 $gettok($did(setup,45,7),6-,32) }
  if (notice isin %sounds) { did -o setup 45 8 0 0 0 2 $gettok($did(setup,45,8),6-,32) }
  if (exit isin %sounds) { did -o setup 45 9 0 0 0 2 $gettok($did(setup,45,9),6-,32) }

  ;STATUSBAR
  didtok -a $dname 63,64,65,66 44 Server,Network,IP Address,Server Uptime,System Uptime,Time,Idle Time,Date,Nickname,Notify (Online / Offline),Full name,Lag,MP³ Track,Active Window

  did -c $dname 63 $didwm($dname,63,$sbcell(1).type)
  did -c $dname 64 $didwm($dname,64,$sbcell(2).type)
  did -c $dname 65 $didwm($dname,65,$sbcell(3).type)
  did -c $dname 66 $didwm($dname,66,$sbcell(4).type)

  did -a $dname 161 Flat
  did -a $dname 161 Popped Out
  did -a $dname 161 Regular
  did -c $dname 161 $iif(flat isin %sbar.data,1,$iif(popout isin %sbar.data,2,3))
  if ($_pcf(statusbar,mp3) = yes) { did -c $dname 287 | did -c $dname 66 13 | did -b $dname 66 }

  ;TOOLBAR
  var %tb = 1
  while %tb <= $lines(system\tb.sys) {
    if ($read(system\tb.sys,%tb) = -) { inc %tb }
    var %tb.icon = $replace($gettok($read(system\tb.sys,%tb),2,42),$chr(37) $+ icon,%icon)
    did -i setup 48 1 seticon list %tb.icon
    inc %tb

  }
  did -a $dname 52 Normal
  did -a $dname 52 Separator
  did -c $dname 52 1
  var %tb = 1
  var %seps = 0
  while %tb <= $lines(system\tb.sys) {
    if ($read(system\tb.sys,%tb) != - ) {
      did -a $dname 48 +r $calc(%tb - %seps) $calc(%tb - %seps) $gettok($read(system\tb.sys,%tb),1,42) $chr(9) $+ Normal $chr(9) $gettok($read(system\tb.sys,%tb),3-,42) $chr(4) Item name: $gettok($read(system\tb.sys,%tb),1,42) $crlf Type: Normal $crlf Command: $gettok($read(system\tb.sys,%tb),3-,42)
      inc %tb
    }

    else {
      did -a $dname 48 - $tab $+ Separator $chr(4) Separator
      inc %tb
      inc %seps
    }
  }
  ;AWAY
  if (!$gettok(%away.options,8,44)) { set %away.options %away.options $+ › away: <reason> }
  var %a = 1
  while %a <= $lines(docs\reasons.dat) {
    did -a $dname 90 $read(docs\reasons.dat,%a)
    inc %a
  }
  if ($gettok(%away.options,1,44) = 1) { did -c $dname 93 }
  if ($gettok(%away.options,2,44) = 1) { did -c $dname 94 }
  if ($gettok(%away.options,3,44)) { did -a $dname 95 $ifmatch }
  if ($gettok(%away.options,4,44) = 1) { did -c $dname 97 }
  if ($gettok(%away.options,5,44)) { did -a $dname 98 $ifmatch }
  if ($gettok(%away.options,6,44) = 1) { did -c $dname 100 }
  if ($gettok(%away.options,7,44) = 1) { did -c $dname 102 }
  elseif ($gettok(%away.options,7,44) = 0) { did -c $dname 103 }
  if ($gettok(%away.options,8-,44)) { did -a $dname 105 $ifmatch }
  window -lh @away.preview 100 100 277 20
  aline @away.preview $did($dname,105).text
  did -a $dname 106 grab $window(@away.preview).hwnd @away.preview
  did -c $dname 90 $gettok(%messages,3,44) 
  did -ra $dname 115 Current: $chr(35) $+ $did($dname,90).sel

  ;QUITS
  var %q = 1
  while %q <= $lines(docs\quits.txt) {
    did -a $dname 107 $read(docs\quits.txt,%q)
    inc %q
  }

  did -c $dname 107 $gettok(%messages,1,44)
  did -ra $dname 110 Current: $chr(35) $+ $did($dname,107).sel

  ;CTCP
  did -i $dname 111 1 headerdims 80 400
  did -i $dname 111 1 headertext Type $chr(9) Replies
  var %c = 1
  while %c <= $lines(docs\ctcp.txt) {
    did -a $dname 111 $gettok($read(docs\ctcp.txt,%c),1,42) $chr(9) $gettok($read(docs\ctcp.txt,%c),2,42)
    inc %c
  }

  ;AUTO.ID
  did -i $dname 116 1 headerdims 80 80 90 150
  did -i $dname 116 1 headertext Nick $chr(9) Password $chr(9) Network $chr(9) Command
  if ($gettok(%messages,4,44) = 1) { did -ra $dname 119 Enabled | did -c $dname 119 }
  var %a = 1
  while %a <= $lines(docs\id.dat) {
    did -a $dname 116 $gettok($read(docs\id.dat,n,%a),1,32) $chr(9) $str(*,$len($decode($gettok($read(docs\id.dat,n,%a),2,32)))) $chr(9) $cap($gettok($read(docs\id.dat,n,%a),3,32)) $chr(9) $gettok($read(docs\id.dat,n,%a),4-,32)
    inc %a
  }

  ;AUTO.JOIN
  if ($_pcf(misc,ajwait) = yes) { did -c $dname 292 }
  did -i $dname 200 1 headerdims 100 80 90
  did -i $dname 200 1 headertext Channel $chr(9) Network $chr(9) Password
  if ($gettok(%messages,5,44) = 1) { did -ra $dname 203 Enabled | did -c $dname 203 }
  var %a = 1
  while $read(docs\aj.txt,%a) {
    var %r = $read(docs\aj.txt,%a)
    did -a $dname 200 $gettok(%r,1,58) $chr(9) $gettok(%r,2,58) $chr(9) $str(*,$len($decode($gettok(%r,3-,58)))) $chr(4) Channel: $gettok(%r,1,58) $crlf Network: $gettok(%r,2,58)
    inc %a
  }

  ;SWITCHBAR
  unset %times
  did -i $dname 133 1 headerdims 100 173
  did -i $dname 133 1 headertext Window $chr(9) Icon
  var %i = 1
  while %i <= $lines(system\sb.sys) {
    did -i $dname 133 1 seticon list $gettok($read(system\sb.sys,%i),2,9)
    did -a $dname 133 +r %i $chr(160) $gettok($read(system\sb.sys,%i),1,9) $chr(9) $gettok($read(system\sb.sys,%i),2,9)
    inc %i
  }
  did -c $dname 133 2
  did -ra $dname 135 $gettok($read(system\sb.sys,1),2,9)
  if ($gettok(%sb,1,44) = 1) { did -c $dname 139 }
  if ($gettok(%sb,2,44) = 1) { did -c $dname 140 }
  if ($gettok(%sb,3,44) = 1) { did -c $dname 141 }
  if ($gettok(%sb,4,44) = 1) { did -c $dname 142 }

  did -i $dname 143 1 bwidth 92 92
  did -i $dname 143 1 setimage +nhd 0 icon small $gettok($read(system\sb.sys,1),2,9)
  did -i $dname 143 1 setimage +nhd 0 icon small $gettok($read(system\sb.sys,2),2,9)
  did -i $dname 143 1 setimage +nhd 0 icon small $gettok($read(system\sb.sys,3),2,9)
  did -a $dname 143 +cgx $+ $iif($gettok(%sb,3,44) = 1,v) 1 Status $chr(9) $+ Status Window
  did -a $dname 143 +cg 2 #Channel $chr(9) $+ #Channel
  did -a $dname 143 +cg 3 MoRpHy $chr(9) $+ MoRpHy

  ;MESSAGE BLOCKER
  if (notify isin %blocker) { did -c $dname 128 }
  if (all isin %blocker) { did -c $dname 129 }
  if (enable isin %blocker) { did -c $dname 132 | did -ra $dname 132 Enabled }
  var %m = 1
  while %m <= $lines(docs\blocker.dat) {
    did -a $dname 123 $read(docs\blocker.dat,%m)
    inc %m
  }

  ;NICK COMPLETION
  if ($gettok(%nickcomp,1,44) = 1) { did -c $dname 146 }
  did -a $dname 148 $gettok(%nickcomp,2-,44)
  window -lh @nick.comp 100 100 277 20
  if ($did($dname,148).text) { aline @nick.comp $ifmatch }
  did -a $dname 149 grab $window(@nick.comp).hwnd @nick.comp

  ;MODULES
  did -i $dname 153 1 headerdims 150 41 98
  did -i $dname 153 1 headertext Name $chr(9) Ver. $chr(9) Author
  var %f = 1
  var %t = $findfile(system\remote,*.mrc,0)
  while %f <= %t {
    var %x = $findfile(system\remote,*.mrc,%f)
    var %c = $mp($findfile(system\remote,*.mrc,%f))
    var %d = $remove($read($findfile(system\remote,*.mrc,%f),1),;)
    var %v = $remove($read($findfile(system\remote,*.mrc,%f),4),;)
    var %a = $remove($read($findfile(system\remote,*.mrc,%f),3),;)
    if (%c != core && %c != setup && %c != bars && %c != custombars) { did -a $dname 153 0 0 0 $iif($script(%x),2,1) %c $+ $chr(9) %v $chr(9) %a  $chr(4) %d } 
    inc %f
  }

  did -i $dname 154 1 headerdims 150 100 400 80
  did -i $dname 154 1 headertext Name $chr(9) Author $chr(9) Description $chr(9) Size
  did -a $dname 169,232 BarColor $rgb(128,128,128)
  did -a $dname 169,232 0 0 100
  if (load isin %modules) { did -c $dname 165 }
  if (explorer isin %modules) { did -c $dname 168 }

  ;PROTECTIONS
  did -a $dname 171 Text Flood
  did -a $dname 171 Channel advertising
  did -a $dname 171 
  did -a $dname 171 Excess Caps
  did -a $dname 171 Badwords
  did -c $dname 171 $iif(%prot,$gettok(%prot,1,42),1)
  did -ra $dname 174 $did($dname,171).seltext

  did -a $dname 186,194 Kick user
  did -a $dname 186,194 Ban user
  did -a $dname 184,186,188,194,206 Ignore user
  did -a $dname 184,188,206 Close query

  if ($readini(system\pcfg.sys,Personal,Channel) = Yes) { did -c $dname 199 | did -ra $dname 199 Enabled }
  did -ra $dname 191 $readini(system\pcfg.sys,personal,percentage)
  if ($readini(system\pcfg.sys,Personal,ExcessCaps) = Yes) { did -c $dname 192 | did -ra $dname 192 Enabled }
  did -c $dname 188 $didwm($dname,188,$readini(system\pcfg.sys,Personal,ECPu) $+ *)
  if ($readini(system\pcfg.sys,Personal,BadWords) = Yes) { did -c $dname 178 | did -ra $dname 178 Enabled }
  if ($readini(system\pcfg.sys,Personal,KickProt) = Yes) { did -c $dname 243 | did -ra $dname 243 Enabled }
  if ($readini(system\pcfg.sys,Personal,BanProt) = Yes) { did -c $dname 272 | did -ra $dname 272 Enabled }
  if ($_pcf(Personal,textflood) = Yes) { did -c $dname 233 | did -ra $dname 233 Enabled }
  did -ra $dname 237 $_pcf(personal,tfl) | did -ra $dname 239 $_pcf(personal,tfs)
  did -c $dname 184 $didwm($dname,184,$readini(system\pcfg.sys,Personal,BWPu) $+ *)
  did -c $dname 206 $didwm($dname,206,$readini(system\pcfg.sys,Personal,CAPu) $+ *)
  did -a $dname 235 $readini(system\pcfg.sys,Personal,TFPu)
  if (kick isin $_pcf(personal,KPPu)) { did -c $dname 245 }
  if (ban isin $_pcf(personal,KPPu)) { did -c $dname 246 }
  if ($_pcf(personal,KickReason)) { did -ra $dname 247 $ifmatch }
  else { did -ra $dname 247 Kick protection! }
  if ($_pcf(personal,Bantime)) { did -ra $dname 248 $ifmatch }
  else { did -ra $dname 248 90 }
  if ($_pcf(personal,onlyfor) = yes) { did -c $dname 250 }

  if (kick isin $_pcf(personal,BPPu)) { did -c $dname 274 }
  if (ban isin $_pcf(personal,BPPu)) { did -c $dname 275 }
  if ($_pcf(personal,BKickReason)) { did -ra $dname 276 $ifmatch }
  else { did -ra $dname 276 Kick protection! }
  if ($_pcf(personal,BBantime)) { did -ra $dname 277 $ifmatch }
  else { did -ra $dname 277 90 }
  if ($_pcf(personal,bonlyfor) = yes) { did -c $dname 279 }



  var %p = 1
  while $gettok($readini(system\pcfg.sys,personal,bwords),%p,44) {
    did -a $dname 175 $gettok($readini(system\pcfg.sys,personal,bwords),%p,44)
    inc %p
  }
  var %p = 1
  while $gettok($_pcf(personal,excluded),%p,44) {
    did -a $dname 208 $gettok($_pcf(personal,excluded),%p,44)
    inc %p
  }

  mdx SetColor $dname 173,174,212,213,214,281 background $rgb(222,219,214)
  mdx SetColor $dname 174,213,212 textbg $rgb(222,219,214)

  ;THEMES
  mdx SetBorderStyle setup 297 staticedge
  did -i $dname 214 1 bmpsize 16 16
  did -i $dname 214 1 bwidth 22 22
  ;did -a $dname 214 +v 1 View...
  did -i $dname 214 1 setimage +nhd 0 icon small 23,images\icones\ $+ %icon
  did -i $dname 214 1 setimage +nhd 0 icon small 15,images\icones\ $+ %icon
  did -i $dname 214 1 setimage +nhd 0 icon small 22,images\icones\ $+ %icon
  did -i $dname 214 1 setimage +nhd 0 icon small 13,images\icones\ $+ %icon
  did -i $dname 214 1 setimage +nhd 0 icon small 21,images\icones\ $+ %icon
  did -a $dname 214 1 $chr(160) $chr(9) $+ Load
  did -a $dname 214 -
  did -a $dname 214 +cgxG 2 $chr(160) $chr(9) $+ Description
  did -a $dname 214 +cgG 3 $chr(160) $chr(9) $+ Preview
  did -a $dname 214 +cgG 4 $chr(160) $chr(9) $+ Options
  did -a $dname 214 -
  did -a $dname 214 +cgG 5 $chr(160) $chr(9) $+ Get more themes...

  var %f = 1
  while $findfile(system\themes\,*.cts,%f) {
    did -a $dname 216 $cap($mp($findfile(system\themes\,*.cts,%f)))
    inc %f
  }
  did -c $dname 216 $didwm($dname,216,$left(%theme,-4))
  var %t = $did($dname,216).seltext
  if (!%t) { halt }
  var %p = system\themes\ $+ %t $+ .cts
  var %s = 2
  while %s <= $ini(%p,0) {
    did -a $dname 218 $ini(%p,%s)
    inc %s
  }
  did -c setup 218 $didwm(setup,218,$_pcf(themes,scheme))
  did -ra $dname 223 $readini(%p,info,author)
  did -ra $dname 224 $readini(%p,info,version)
  did -ra $dname 225 $readini(%p,info,e-mail)
  did -ra $dname 226 $readini(%p,info,comment)
  .timer -m 1 20 did -f $dname 19

  theme.prev

  did -i $dname 228 1 headerdims 100 100 300 60
  did -i $dname 228 1 headertext Name $chr(9) Author $chr(9) Description $chr(9) Size

  if ($_pcf(themes,clear) = yes) { did -c $dname 283 }
  if ($_pcf(themes,sidepanel) = yes) { did -c $dname 284 }
  if ($_pcf(themes,update) = yes) { did -c $dname 285 }
  if ($_pcf(themes,random) = yes) { did -c $dname 286 }
  if ($_pcf(themes,cline) = yes) { did -c $dname 290 }
  if ($_pcf(themes,dcc) = yes) { did -c $dname 296 }
  did -h $dname 227

  ;TRAY
  if ($_pcf(tray,enable) = yes) { did -c $dname 256 }
  if ($_pcf(tray,sclick) = yes) { did -c $dname 257 }
  if ($_pcf(tray,popups) = yes) { did -c $dname 258 }
  if ($_pcf(tray,balloon) = yes && 9 !isin $os) { did -c $dname 259 }
  if ($_pcf(tray,icon)) { 
    did -g $dname 252 $ifmatch 
    did -ra $dname 253 $gettok($ifmatch,1,32) $+ , $+ $right($left($gettok($ifmatch,2-,32),-1),-1)
  }
  if (9 isin $os) { did -b $dname 259 }

  ;CUSTOM BARS
  mdx SetControlMDX $dname 293 listview report single rowselect showsel > system\views.mdx
  did -i $dname 293 1 headerdims 180 80
  did -i $dname 293 1 headertext Bar $chr(9) Status
  var %l = 1
  while %l <= 4 {
    did -a $dname 293 $read(system\cbars.sys,%l)
    inc %l
  }

  ;HELP TOPICS
  did -m $dname 262
  didtok $dname 260 44 Contents,/Commands
  var %a = 1
  while $findfile(docs\help,*.dat,%a) {
    did -a $dname 261 $mp($ifmatch)
    inc %a
  }
  did -c $dname 260,261 1
  var %l = 1
  var %f = docs\help\ $+ $did($dname,261).seltext $+ .dat
  while %l <= $lines(%f) {
    did -a setup 262 $read(%f,%l)
    did -a setup 262 $chr(13)
    did -a setup 262 $chr(10)
    inc %l
  }

  ;FEEDBACK
  didtok $dname 266 44 Suggestion,Bug Report,Comment,Question
  did -c $dname 266 1

  ;SELECT ITEM
  var %r = $gettok(%expand,2,42)
  set %selected %r
  if (%r) {
    did -i $dname 2 1 cb root $left(%r,-2)
    did -c $dname 2 $right(%r,1)
    hideall
    if (%r = 2) { show.gen }
    elseif (%r = 3) { show.misc }
    elseif (%r = 4) { show.personal }
    elseif (%r = 5) { show.modules }
    elseif (%r = 6) { show.sounds }
    elseif (%r = 7) { show.help }
    elseif (%r = 8) { show.feedback }
    elseif (%r = 9) { show.about }

    elseif (%r = 2 2) { show.away }
    elseif (%r = 2 3) { show.networks }
    elseif (%r = 2 4) { show.autojoin }
    elseif (%r = 2 5) { show.ctcp }
    elseif (%r = 2 6) { show.quits }

    elseif (%r = 3 2) { show.themes }
    elseif (%r = 3 3) { show.custom }
    elseif (%r = 3 4) { show.switch }
    elseif (%r = 3 5) { show.tool }
    elseif (%r = 3 6) { show.sbar }
    elseif (%r = 3 7) { show.nick }

    elseif (%r = 4 2) { show.personal }
    elseif (%r = 4 3) { show.channel }
    elseif (%r = 4 4) { show.advanced }

    elseif (%r = 5 2) { show.update }

    elseif (%r = 6 2) { show.sounds }
    elseif (%r = 6 3) { show.hot }
    elseif (%r = 6 4) { show.tray }
  }
  .timer -m 1 50 mdx SetColor setup 282 background $rgb(face)
}

alias cell {
  return $gettok($gettok($gettok($did($1,$2,$3),$4,9),$iif($4 = 1,6,5) $+ -,32),1,4)
}

on *:dialog:setup:sclick:67: {
  if ( $did($dname,52).sel == 2 ) {
    var %line = $iif($did($dname,48).sel,$calc($did($dname,48).sel -1),$did($dname,48).lines)
    write -il $+ %line system\tb.sys -
  }
  elseif ($did($dname,52).sel == 1 && $did($dname,50).text && $did($dname,55).text && $did($dname,53).text ) {
    var %line = $iif($did($dname,48).sel,$calc($did($dname,48).sel -1),$did($dname,48).lines)
    write -il $+ %line system\tb.sys $did($dname,50).text $+ * $+ $did($dname,55).text $+ * $+ $did($dname,53).text
  }

  .timer -m 1 50 tb.refresh
}

on *:dialog:setup:sclick:68: {
  if ($did($dname,48).sel) {
    var %line = $did($dname,48).sel
    write -dl $+ $calc(%line -1) system\tb.sys
    tb.refresh
  }
}

on *:dialog:setup:sclick:5: {
  unset %expand
  unset %mod | unset %mod2 | unset %mod.size
  var %b = 2
  while %b <= 6 {
    did -i $dname 2 1 cb root
    set %expand %expand $iif(+e isin $gettok($did($dname,2,%b),1,32),$gettok($did($dname,2,%b),7-,32)) 
    inc %b
  }
  set %expand $iif(!%expand,a,%expand) $+ * $+ %selected
  unset %selected
  dialog -x setup setup
}


on *:dialog:setup:sclick:48: {
  var %m = $calc($did($dname,$did).sel -1)
  var %i = $gettok($read(system\tb.sys,%m),2,42)
  did -ra $dname 50 $gettok($read(system\tb.sys,%m),1,42)
  did -ra $dname 55 $iif($read(system\tb.sys,%m) != -,$replace(%i,$chr(37) $+ icon,%icon),n/a)
  did -c $dname 52 $iif($read(system\tb.sys,%m) = -,2,1)
  did -ra $dname 53 $gettok($read(system\tb.sys,%m),3,42)
}

on *:dialog:setup:sclick:56: {
  if (!$dialog(dicons)) { set %tic tool | dialog -m dicons dicons }
}

alias hot.list {
  var %hot = 1
  while %hot <= $lines(docs\hotkeys.dat) {
    did -a setup 40 $gettok($read(docs\hotkeys.dat,%hot),1,32) $tab $gettok($read(docs\hotkeys.dat,%hot),3-,32)
    inc %hot
  }
}

alias hideall {
  did -h setup 6,7,8,9,10,11,12,13,14,19,20,21,22,26,27,40,41,43,45,47,48
  did -h setup 49,50,51,52,53,54,55,56,58,59,60,61,62,63,64,65,66,67,68,74,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100
  did -h setup 101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,122,123,124,125,126,127,128,129,132,133
  did -h setup 135,136,137,138,139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,156,158,159,160,161,162,163,164
  did -h setup 165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,192
  did -h setup 193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,224,225,226,227
  did -h setup 228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255,256,257,258,259,260,261,262
  did -h setup 263,264,265,266,267,268,269,270,271,272,273,274,275,276,277,278,279,280,281,283,284,285,286,287,288,289,290,292,293,294,295,296,297,298,299
}

alias show.switch {
  hideall
  did -v setup 133,135,136,137,138,139,140,141,142,143,144
  did -ra setup 80 4 Switchbar | did -f setup 81,82
}

alias show.gen {
  hideall
  did -v setup 6,8,9,10,11,12,27,20
  did -ra setup 80 1 General Configuration | did -f setup 81,82
}

alias show.custom {
  hideall
  did -v setup 293,294,295,298,299
  did -ra setup 80 24 Custom Bars | did -f setup 81,82
}

alias show.misc {
  hideall 
  did -v setup 21,22,26,43,86,87,122,13,74,14,159,271,288
  did -ra setup 80 2 Display | did -f setup 81,82
}


alias show.hot {
  hideall
  did -v setup 40
  did -ra setup 80 9 Function Keys | did -f setup 81,82
}

alias show.help {
  hideall
  did -v setup 260,261,262
  did -ra setup 80 22 Help Topics | did -f setup 81,82
}

alias show.feedback {
  hideall
  did -v setup 263,264,265,266,267,268,269,270
  did -ra setup 80 14 Feedback | did -f setup 81,82
}

alias show.about {
  hideall
  did -v setup 41,156,158
  did -ra setup 80 23 About Chaos %version | did -f setup 81,82

}

alias show.sounds {
  hideall
  did -v setup 45,47,145
  did -ra setup 80 7 Sounds | did -f setup 81,82

}

alias show.tool {
  hideall
  did -v setup 48,49,50,51,52,53,54,55,56,67,68
  did -ra setup 80 5 Toolbar | did -f setup 81,82
}

alias show.sbar {
  hideall
  did -v setup 58,59,60,61,62,63,64,65,66,160,161,162,287
  did -ra setup 80 6 Statusbar | did -f setup 81,82
}

alias show.away {
  hideall
  did -v setup 88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,115
  did -f setup 81
  did -ra setup 80 11 Away System | did -f setup 81,82
}

alias show.networks {
  hideall
  did -v setup 116,117,118,119,120
  did -ra setup 80 12 Auto-identify | did -f setup 81,82
}

alias show.quits {
  hideall
  did -v setup 107,108,109,110
  did -ra setup 80 13 Quit Messages | did -f setup 81,82
}

alias show.ctcp {
  hideall
  did -v setup 111,112,113
  did -ra setup 80 14 CTCP Replies | did -f setup 81,82
}

alias show.advanced {
  hideall
  did -v setup 123,124,125,126,127,128,129,132
  did -ra setup 80 15 Message Blocker | did -f setup 81,82
}

alias show.nick {
  hideall
  did -v setup 146,147,148,149,150,151,152
  did -ra setup 80 16 Nick Completion | did -f setup 81,82
}

alias show.modules {
  hideall
  did -v setup 153
  did -ra setup 80 17 Modules | did -f setup 81,82
}

alias show.update {
  hideall
  did -v setup 154,163,164,165,166,167,168,169
  did -ra setup 80 17 Modules Update | did -f setup 81,82
}

alias show.themes {
  hideall
  did -v setup 213,212,19,214,215,216,217,218,219,220,221,222,223,224,225,226,281
  did -ra setup 80 20 Themes | did -f setup 81,82
}

alias show.autojoin {
  hideall
  did -v setup 200,201,202,203,204,292
  did -ra setup 80 19 Auto-join | did -f setup 81,82
}

alias show.tray {
  hideall
  did -v setup 252,253,254,255,256,257,258,259
  did -ra setup 80 21 Tray | did -f setup 81,82
}

alias show.personal {
  hideall
  did -r setup 171
  did -a setup 171 Text Flood
  did -a setup 171 Channel advertising
  did -a setup 171
  did -a setup 171 Ban Protection
  did -a setup 171 Kick Protection
  did -a setup 171
  did -a setup 171 Excess Caps
  did -a setup 171 Badwords
  did -a setup 171
  did -a setup 171 Excluded users
  did -v setup 170,171,172,173,174
  did -c setup 171 $iif(%prot,$gettok(%prot,1,42),1)
  did -ra setup 174 $did(setup,171).seltext
  pprot $did(setup,171).seltext
  did -ra setup 80 18 Personal Protections | did -f setup 81,82
}


alias show.channel {
  hideall
  goto pass
  did -r setup 171
  did -a setup 171 Text Flood
  did -a setup 171 Join Flood
  did -a setup 171
  did -a setup 171 Channel Advertising
  did -a setup 171 Excess Caps
  did -a setup 171 Badwords
  did -c setup 171 $iif(%prot,$gettok(%prot,2,42),1)
  cprot $did(setup,171).seltext
  :pass
  did -v setup 172,173,174
  did -ra setup 174 Under Construction
  did -ra setup 80 18 Channel Protections | did -f setup 81,82
}

alias countup {
  var %t = $1-
  var %l = 1
  var %n = 0
  while %l <= $len(%t) {
    var %w = $mid(%t,%l,1)
    if ($isupper(%w) && %w isalpha) { inc %n }
    inc %l
  }
  return $calc(%n *100 / $len(%t))
}


alias pprot {
  var %p = $1-
  if (%p = badwords) { 
    did -v setup 175,176,177,178,183,184
  }
  elseif (%p = excess caps) {
    did -v setup 187,188,189,190,191,192
  }
  elseif (%p = Channel Advertising) {
    did -v setup 199,205,206,207
  }
  elseif (%p = Excluded users) {
    did -v setup 208,209,210,211
  }
  elseif (%p = Text Flood) {
    did -v setup 233,234,235,236,237,238,239,240,241,242
  }
  elseif (%p = Kick Protection) {
    did -v setup 243,244,245,246,247,248,249,250,251
  }
  elseif (%p = Ban Protection) {
    did -v setup 272,273,274,275,276,277,278,279,280
  }
}

alias cprot {
  var %p = $1-
  if (%p = badwords) { 
    did -v setup 179,180,181,182,185,186
  }
  if (%p = excess caps) {
    did -v setup 193,194,195,196,197,198
  }
}

on *:dialog:setup:sclick:47: {
  if ($did($dname,$did).sel == 2 && - !isin $did($dname,45).seltext && $did($dname,45).sel != $null ) { splay $gettok($read(docs\sounds.dat,$calc( $did($dname,45).sel -1)),2-,42) }
  if ($did($dname,$did).sel == 3) { splay -w stop }
  if ($did($dname,$did).sel == 4 && $did($dname,45).sel != $null ) {
    var %file = $mid($gettok($mid($did(setup,45).seltext,13,13),1,9),1,$calc($len($gettok($mid($did(setup,45).seltext,13,13),1,9)-1)))
    var %path.to.file $sfile($mircdir\sounds\)
    if (%path.to.file == $null) { var %path.to.file = - }
    var %path+file %file $+ * $+ %path.to.file
    if ( .wav !isin $mid(%path.to.file,$calc($len(%path.to.file)-3),4) && %path.to.file != - ) { echo -s Choose a valid wave file. | halt }
    write -l $+ $calc($did($dname,45).sel -1) docs\sounds.dat %path+file
    did -r $dname 45
    var %sound = 1
    while %sound <= $lines(docs\sounds.dat) {
      did -a $dname 45 $gettok($read(docs\sounds.dat,%sound),1,42) $tab $nopath($gettok($read(docs\sounds.dat,%sound),2-,42))
      inc %sound
    }
    if (connect isin %sounds) { did -o setup 45 2 0 0 0 2 $gettok($did(setup,45,2),6-,32) }
    if (dis isin %sounds) { did -o setup 45 3 0 0 0 2 $gettok($did(setup,45,3),6-,32) }
    if (open isin %sounds) { did -o setup 45 4 0 0 0 2 $gettok($did(setup,45,4),6-,32) }
    if (close isin %sounds) { did -o setup 45 5 0 0 0 2 $gettok($did(setup,45,5),6-,32) }
    if (part isin %sounds) { did -o setup 45 6 0 0 0 2 $gettok($did(setup,45,6),6-,32) }
    if (kick isin %sounds) { did -o setup 45 7 0 0 0 2 $gettok($did(setup,45,7),6-,32) }
    if (notice isin %sounds) { did -o setup 45 8 0 0 0 2 $gettok($did(setup,45,8),6-,32) }
    if (exit isin %sounds) { did -o setup 45 9 0 0 0 2 $gettok($did(setup,45,9),6-,32) }
  }
}

on *:dialog:setup:sclick:42: {
  if ($did($dname,$did).state = 1) { did -e $dname 85 }
  else { did -b $dname 85 }
} 


on *:dialog:setup:sclick:88: {
  .timer -m 1 10 did -f setup 81
}

on *:dialog:setup:sclick:89: {
  .timer -m 1 10 did -f setup 81
}

on *:dialog:setup:sclick:90: {
  .timer -m 1 10 did -f setup 81
}

on *:dialog:setup:sclick:99: {
  view.log
}

on *:dialog:setup:dclick:90: {
  did -ra $dname 115 Current: $chr(35) $+ $did($dname,$did).sel
}

on *:dialog:setup:dclick:107: {
  did -ra $dname 110 Current: $chr(35) $+ $did($dname,$did).sel
}

on *:dialog:setup:sclick:108: {
  var %l = $did($dname,107).sel
  if (!%l) { halt }
  .write -dl $+ %l docs\quits.txt
  did -d $dname 107 $did($dname,107).sel
}

on *:dialog:setup:sclick:269: {
  if ( *@*.* !iswm $did($dname,264).text ) { did -ra $dname 270 Invalid e-mail address | halt }
  if ( !$did($dname,266) || !$did($dname,268) ) { did -ra $dname 270 Fill out all fields | halt }
  email
}

on *:dialog:setup:sclick:225: {
  if (*@*.* iswm $did($dname,225)) { run mailto: $+ $did($dname,225) }
}

on *:dialog:setup:sclick:214: {
  var %s = $did($dname,$did).sel
  if (%s = 2) { loadthm $did(setup,216).seltext $+ / $+ $did(setup,218).seltext }
  elseif (%s = 4) { theme.description | did -o $dname 214 8 +cGg 5 $chr(160) $chr(9) $+ Get More Themes... }
  elseif (%s = 5) { theme.preview | did -o $dname 214 8 +cGg 5 $chr(160) $chr(9) $+ Get More Themes... }
  elseif (%s = 6) { theme.options | did -o $dname 214 8 +cGg 5 $chr(160) $chr(9) $+ Get More Themes... }
  elseif (%s = 8) { 
    theme.download 
    did -o $dname 214 4 +cGg 2 $chr(160) $chr(9) $+ Description
    did -o $dname 214 5 +cGg 3 $chr(160) $chr(9) $+ Preview
    did -o $dname 214 6 +cGg 4 $chr(160) $chr(9) $+ Options
    did -f $dname 19
  }
  did -f $dname 19
}

;on *:dialog:setup:dclick:214: {
;  did -f $dname 19
;  theme.action.pop
;  do-popup themes $mouse.dx $mouse.dy
;}

;alias theme.action.pop {
;  menu New themes 8 16
;  item themes +d Preview (Under Construction) $cr theme.preview
;  item themes $iif(!$did(setup,216).seltext,+d) Description $cr theme.description
;  item themes +D $+ $iif(!$did(setup,216).seltext || !$did(setup,218).seltext,d) Load $cr loadthm $did(setup,216).seltext $+ / $+ $did(setup,218).seltext
;  item themes
;  item themes Get more themes $cr theme.download
;}

alias theme.description {
  did -ra setup 213 Description
  did -h setup 227,228,229,230,231,232,283,284,285,286,289,290,296,297
  did -v setup 219,220,221,222,223,224,225,226
}

alias theme.preview {
  did -ra setup 213 Preview
  did -h setup 219,220,221,222,223,224,225,226,228,229,230,231,232,283,284,285,286,290,296,289
  did -v setup 227,297
  var %t = $did($dname,216).seltext
  var %s = $did($dname,218).seltext
  var %p = system\themes\ $+ %t $+ .cts

}

alias theme.download {
  did -ra setup 213 Download
  did -h setup 219,220,221,222,223,224,225,226,227,283,284,285,286,289,290,296,297
  did -v setup 228,229,230,231,232
}

alias theme.options {
  did -ra setup 213 Options
  did -h setup 219,220,221,222,223,224,225,226,227,228,229,230,231,232,289,297
  did -v setup 283,284,285,286,290,296
}

on *:dialog:setup:sclick:230: {
  did -r $dname 228
  did -ra $dname 232 0 0 100
  did -ra $dname 231 Connecting...
  themez
}


on *:dialog:setup:sclick:229: {
  if (!$did($dname,228).sel || $cell($dname,228,$did($dname,228).sel,1) = $null) { halt }
  set %get $cell($dname,228,$did($dname,228).sel,1)
  set %get.size $calc($left($cell($dname,228,$did($dname,228).sel,4),-1) *1000)
  sockclose gettheme
  sockopen gettheme pwp.netcabo.pt 80
}

alias theme.load {
  var %t = $gettok($1-,1,47)
  var %s = $gettok($1-,2,47)
  var %p = system\themes\ $+ %t $+ .cts

  var %x = 1
  while $color(%x) {
    color -r %x
    inc %x
  }

  var %x = 1
  while %x < 5 {
    var %c = $gettok($readini(%p,%s,RGB),%x,32))
    var %r = $gettok(%c,1,44)
    var %g = $gettok(%c,2,44)
    var %b = $gettok(%c,3,44)
    echo -s color $calc(%x +3) $rgb(%r $+ , %g $+ , %b)
    inc %x
  }
  var %x = 2
  while $ini(%p,%s,%x) {
    echo -s color $replace($ini(%p,%s,%x),.,$chr(32)) $readini(%p,%s,$ini(%p,%s,%x))
    inc %x
  } 
  if ($readini(%p,format,font)) {
    var %font = $readini(%p,format,font)
    var %fsize = $readini(%p,format,fontsize)
    writeini mirc.ini fonts fstatus $reptok($readini(mirc.ini,fonts,fstatus),$gettok($readini(mirc.ini,fonts,fstatus),1,44),%font %fontsize,44)
  }
}

alias draw.theme {
  drawtext -pb @theme.preview $1-
}

on *:dialog:setup:sclick:119: {
  if ($did($dname,$did).state = 1) { did -ra $dname $did Enabled }
  else { did -ra $dname $did Disabled }
}

on *:dialog:setup:sclick:109: {
  var %q = $$?="Enter Quit Message"
  if (%q) {
    .write docs\quits.txt %q
    did -a $dname 107 $read(docs\quits.txt,$lines(docs\quits.txt))
  }
}

on *:dialog:setup:sclick:112: {
  var %l = $did($dname,111).sel
  if (!%l) { halt }
  var %l = $calc(%l -1)
  .write -dl $+ %l docs\ctcp.txt
  did -d $dname 111 $did($dname,111).sel
}

on *:dialog:setup:sclick:125: {
  if (!$did($dname,124).text) { halt }
  var %t = $did($dname,124).text
  did -a $dname 123 %t
  write docs\blocker.dat %t
  did -r $dname 124
}

on *:dialog:setup:sclick:126: {
  var %l = $did($dname,123).sel
  if (!%l) { halt }
  did -d $dname 123 %l
  write -dl $+ %l docs\blocker.dat
}

on *:dialog:setup:sclick:254: {
  if (!$dialog(dicons)) { set %tic tray | dialog -m dicons dicons }
}

on *:dialog:setup:sclick:113: {
  var %t = $$?"Enter type of reply. (eg. VERSION or TIME)"
  var %r = $$?"Enter reply."
  if (%t && %r) {
    write docs\ctcp.txt $upper(%t) $+ * $+ %r
    did -a $dname 111 $upper(%t) $chr(9) %r
  }
}

on *:dialog:setup:sclick:158: { run www.chaos.page.vu }

on *:dialog:setup:dclick:111: {
  did -ra $dname 114 Current: $chr(35) $+ $calc($did($dname,$did).sel -1)
}

on *:dialog:setup:sclick:118: {
  var %n = $$?="Enter nickname (eg. my_nick)"
  if (!%n) { halt }
  var %p = $$?*"Enter password (eg. password)"
  if (!%p) { halt }
  var %w = $$?="Enter network (eg. Undernet)"
  if (!%w) { halt }
  var %c = $$?="Enter identify command (eg. /nickserv identify)"
  if (!%c) { halt }
  write docs\id.dat %n $encode(%p) %w %c
  did -a $dname 116 %n $chr(9) $str(*,$len(%p)) $chr(9) $cap(%w) $chr(9) %c
}

on *:dialog:setup:sclick:117: {
  if ($did($dname,116).sel) {
    var %l = $did($dname,116).sel
    write -dl $+ $calc(%l -1) docs\id.dat
    did -d $dname 116 %l
  }
}

on *:dialog:setup:sclick:287: {
  if ($did($dname,$did).state = 1) { did -c $dname 66 13 | did -b $dname 66 }
  else { did -e $dname 66 }
}

on *:dialog:setup:sclick:92: {
  var %r = $$?"Enter away reason (eg. i'm out)"
  if (!%r) { halt }
  write docs\reasons.dat %r
  did -a $dname 90 %r
}

on *:dialog:setup:sclick:91: {
  if ($did($dname,90).sel) {
    var %l = $did($dname,90).sel
    write -dl $+ %l docs\reasons.dat
    did -d $dname 90 %l
  }
}

on *:dialog:setup:edit:105: {
  var %m = $did(setup,105).text
  if (%m) { .rline @away.preview 1 %m }
  else { .dline @away.preview 1 }
}

on *:dialog:setup:edit:148: {
  var %m = $did(setup,148).text
  if (%m) { .rline @nick.comp 1 %m }
  else { .dline @nick.comp 1 }
}


on *:dialog:setup:sclick:136: {
  set %tic switch
  if (!$did(setup,133).sel) { halt }
  dicons
}

on *:dialog:setup:sclick:203: {
  did -ra $dname $did $iif($did($dname,$did).state = 1,Enabled,Disabled)
}

on *:dialog:setup:sclick:2: {
  set %tmp $did(2,1)
  set %action $gettok(%tmp, 2, 32)
  if (%action == SELECT) {
    var %root = $gettok(%tmp, 4-, 32)
    var %item = $gettok(%tmp, -1, 32)
    did -i $dname 2 1 cb root %root up
    if ( $gettok(%tmp,4,32) == 2 && !$gettok(%tmp,5,32)) { hideall | show.gen }
    elseif ($gettok(%tmp,4,32) == 2 && $gettok(%tmp,5,32) = 2) { show.away }
    elseif ($gettok(%tmp,4,32) == 2 && $gettok(%tmp,5,32) = 3) { show.networks }
    elseif ($gettok(%tmp,4,32) == 2 && $gettok(%tmp,5,32) = 4) { show.autojoin }
    elseif ($gettok(%tmp,4,32) == 2 && $gettok(%tmp,5,32) = 5) { show.ctcp }
    elseif ($gettok(%tmp,4,32) == 2 && $gettok(%tmp,5,32) = 6) { show.quits }

    elseif ( $gettok(%tmp,4,32) == 3 && $gettok(%tmp,5,32) == 2 ) { show.themes | did -f $dname 214,215 }
    elseif ( $gettok(%tmp,4,32) == 3 && $gettok(%tmp,5,32) == 3 ) { show.custom }
    elseif ( $gettok(%tmp,4,32) == 3 && $gettok(%tmp,5,32) == 4 ) { show.switch }
    elseif ( $gettok(%tmp,4,32) == 3 && $gettok(%tmp,5,32) == 6 ) { show.sbar }
    elseif ( $gettok(%tmp,4,32) == 3 && $gettok(%tmp,5,32) == 7 ) { show.nick }
    elseif ( $gettok(%tmp,4,32) == 3 && $gettok(%tmp,5,32) == 5 ) { show.tool  }
    elseif ( $gettok(%tmp,4,32) == 3 && $gettok(%tmp,5,32) == $null ) { show.misc }

    elseif ( $gettok(%tmp,4,32) = 4 && !$gettok(%tmp,5,32)) { show.personal }
    elseif ( $gettok(%tmp,4,32) == 4 && $gettok(%tmp,5,32) == 2 ) { show.personal }
    elseif ( $gettok(%tmp,4,32) == 4 && $gettok(%tmp,5,32) == 3 ) { show.channel }
    elseif ( $gettok(%tmp,4,32) == 4 && $gettok(%tmp,5,32) == 4 ) { show.advanced }

    elseif ( $gettok(%tmp,4,32) == 5 && $gettok(%tmp,5,32) == $null ) { show.modules }
    elseif ( $gettok(%tmp,4,32) == 5 && $gettok(%tmp,5,32) = 2 ) { show.update }

    elseif ( $gettok(%tmp,4,32) == 6 && !$gettok(%tmp,5,32)) { show.sounds }
    elseif ( $gettok(%tmp,4,32) == 6 && $gettok(%tmp,5,32) = 2 ) { show.sounds }
    elseif ( $gettok(%tmp,4,32) == 6 && $gettok(%tmp,5,32) = 3 ) { show.hot }
    elseif ( $gettok(%tmp,4,32) == 6 && $gettok(%tmp,5,32) = 4 ) { show.tray }
    elseif ( $gettok(%tmp,4,32) == 7 ) { show.help }
    elseif ( $gettok(%tmp,4,32) == 8 ) { show.feedback }
    elseif ( $gettok(%tmp,4,32) == 9 ) { show.about }
  }
  set %selected $gettok(%tmp,4-,32)
  mdx SetColor setup 282 background $rgb(face)
}

on *:dialog:setup:sclick:171: {
  if ($did($dname,$did).seltext) { 
    did -ra $dname 174 $ifmatch
    hideall
    .timer -m 1 50 $iif(%selected = 4 || %selected = 4 2,show.personal,show.channel)
    .timer -m 1 100 did -f $dname $did
    if (%selected = 4 || %selected = 4 2) { set %prot $replace($gettok(%prot,1,42),$gettok(%prot,1,42),$did($dname,$did).sel) $+ * $+ $gettok(%prot,2,42) }
    elseif (%selected = 4 3) { set %prot $gettok(%prot,1,42) $+ * $+ $replace($gettok(%prot,2,42),$gettok(%prot,2,42),$did($dname,$did).sel) }
  }
}

on *:dialog:setup:sclick:260: {
  var %x = $did($dname,261).sel
  did -r $dname 262,261
  var %s = $did($dname,$did).sel
  if (!%s || !%x) { halt }
  if (%s = 1) {
    var %a = 1
    while $findfile(docs\help,*.dat,%a) {
      did -a $dname 261 $mp($ifmatch)
      inc %a
    }
    did -c $dname 261 1
    var %l = 1
    var %f = docs\help\ $+ $did($dname,261).seltext $+ .dat
    while %l <= $lines(%f) {
      did -a setup 262 $read(%f,%l)
      did -a setup 262 $chr(13)
      did -a setup 262 $chr(10)
      inc %l
    }
    did -c $dname 262 1
  }
  else { 
    var %a = 1
    while %a <= $lines(docs\commands.dat) {
      did -a $dname 261 $gettok($read(docs\commands.dat,%a),1,58)
      inc %a
    }
    did -c $dname 261 1
    did -a $dname 262 $gettok($read(docs\commands.dat,w,* $+ $did($dname,261).seltext $+ *),2-,58)
  }
}

on *:dialog:setup:sclick:261: {
  did -r $dname 262
  var %s = $did($dname,260).sel
  if (!%s || !$did($dname,261).sel) { halt }
  if (%s = 1) {
    var %l = 1
    var %f = docs\help\ $+ $did($dname,261).seltext $+ .dat
    while %l <= $lines(%f) {
      did -a setup 262 $read(%f,%l)
      did -a setup 262 $chr(13)
      did -a setup 262 $chr(10)
      inc %l
    }
    did -c $dname 262 1
  }
  else { 
    did -a $dname 262 $gettok($read(docs\commands.dat,w,* $+ $did($dname,261).seltext $+ *),2-,58)
  }
}
on *:dialog:setup:sclick:140: {
  var %s = $did($dname,$did).state
  mdx SetMDXStyle $dname 143 toolbar list nodivider arrows $iif(%s = 1,flat)
}

on *:dialog:setup:sclick:141: {
  var %s = $did($dname,$did).state
  if (%s = 1) { did -o $dname 143 2 +cgv $calc(%times *3 +1) Status $chr(9) $+ Status }
  else { did -o $dname 143 2 +cg $calc(%times *3 +1) Status $chr(9) $+ Status }
  did -f $dname 144

}

on *:dialog:setup:sclick:132: {
  did -ra $dname $did $iif($did($dname,$did).state = 1,Enabled,Disabled)
}

on *:dialog:setup:sclick:133: {
  if ($did($dname,$did).sel) {
    did -ra $dname 138 $mid($gettok($gettok($did($dname,133).seltext,6-,32),1,9),2,10)
    did -ra $dname 135 $gettok($read(system\sb.sys,$calc($did($dname,133).sel -1)),2,9)
  }
}

on *:dialog:setup:sclick:201: {
  if ($did($dname,200).sel) {
    var %a = $read(docs\aj.txt,w,$cell(setup,200,$did($dname,200).sel,1) $+ : $+ $cell(setup,200,$did($dname,200).sel,2) $+ *)
    var %l = $readn
    write -dl $+ %l docs\aj.txt
    did -d $dname 200 $did($dname,200).sel
  }
}

on *:dialog:setup:sclick:202: {
  var %c = $input(Enter channel to add. (eg. #channel),eq,Add to auto-join...)
  if (%c) var %n = $input(Enter network for %c $+ . (eg. DALnet),eq,Add to auto-join...)
  if (%n && %c) { var %p = $input(Enter password for %c $+ . (Optional),eq,Add to auto-join...) }
  if (%n && %c) {
    write docs\aj.txt $+($card(%c),:,$cap(%n),$iif(%p,: $+ $encode(%p)))
    did -a $dname 200 $card(%c) $chr(9) $cap(%n) $iif(%p,$chr(9) $str(*,$len(%p))) $chr(4) Channel: $card(%c) $crlf Network: $cap(%n)
  }
}

alias card {
  if ($mid($1-,1,1) = $chr(35)) { return $1- }
  else { return $chr(35) $+ $1- }
}


on *:dialog:setup:sclick:178: {
  did -ra $dname $did $iif($did($dname,$did).state = 1,Enabled,Disabled)
}

on *:dialog:setup:sclick:192: {
  did -ra $dname $did $iif($did($dname,$did).state = 1,Enabled,Disabled)
}

on *:dialog:setup:sclick:199: {
  did -ra $dname $did $iif($did($dname,$did).state = 1,Enabled,Disabled)
}

on *:dialog:setup:sclick:233: {
  did -ra $dname $did $iif($did($dname,$did).state = 1,Enabled,Disabled)
}

on *:dialog:setup:sclick:243: {
  did -ra $dname $did $iif($did($dname,$did).state = 1,Enabled,Disabled)
}

on *:dialog:setup:sclick:272: {
  did -ra $dname $did $iif($did($dname,$did).state = 1,Enabled,Disabled)
}

on *:dialog:setup:sclick:293: {
  if ($did($dname,293).sel) {
    var %pos = $cell($dname,293,$did($dname,293).sel,3)
    did -ra $dname 298 $cell(setup,$did,$did($dname,293).sel,1)
    did -e $dname 294,295
    if ($cell($dname,$did,$did($dname,293).sel,2) = enabled) { did -b $dname 295 | did -e $dname 294 }
    else { did -b $dname 294 | did -e $dname 295 }
  }
  else { did -b $dname 294,295 | did -ra $dname 298 Description | did -ra setup 299 Select a custom bar for a brief description. }
  if ($did($dname,293).sel = 2) { did -ra setup 299 Shows a graphic of your current DCC Transfers' speeds. Due to docking issues it can't be used if Mp3 is enabled. }
  elseif ($did($dname,293).sel = 3) { did -ra setup 299 Shows a list with your current DCC Transfers as well as information about them such as speed, progress, time left. }
  elseif ($did($dname,293).sel = 4) { did -ra setup 299 Allows you to easily control Chaos Mp3 Player with the player closed. Due to docking issues it can't be used if Bandwidth is enabled. }

}

on *:dialog:setup:sclick:294: {
  var %l = $did($dname,293).sel
  did -o $dname 293 %l $cell($dname,293,%l,1) $chr(9) $+ Disabled $chr(9) $+ $cell($dname,293,%l,3)
  did -c $dname 293 %l
  if ($cell($dname,293,$did($dname,293).sel,2) = enabled) { did -b $dname 295 | did -e $dname 294 }
  else { did -b $dname 294 | did -e $dname 295 }
}

on *:dialog:setup:sclick:295: {
  var %l = $did($dname,293).sel
  if (%l = 2 && $cell(setup,293,4,2) = enabled) { var %i = $input(Due to docking issues $chr(44) the bandwidth bar can't be used if mp3 is enabled. Please disable the mp3 bar before enabling this one.,io,INFO) | halt }
  if (%l = 4 && $cell(setup,293,2,2) = enabled) { var %i = $input(Due to docking issues $chr(44) the mp3 bar can't be used if bandwidth is enabled. Please disable the bandwidth bar before enabling this one.,io,INFO) | halt }
  did -o $dname 293 %l $cell($dname,293,%l,1) $chr(9) $+ Enabled $chr(9) $+ $cell($dname,293,%l,3)
  did -c $dname 293 %l
  if ($cell($dname,293,$did($dname,293).sel,2) = enabled) { did -b $dname 295 | did -e $dname 294 }
  else { did -b $dname 294 | did -e $dname 295 }
}

on *:dialog:setup:sclick:297: {
  var %l = $did($dname,293).sel
  did -o $dname 293 %l $cell($dname,293,%l,1) $chr(9) $+ $cell($dname,293,%l,2) $chr(9) $+ $did($dname,$did).seltext
  did -c $dname 293 %l
}

on *:dialog:setup:sclick:216: {
  var %t = $did($dname,$did).seltext
  if (!%t) { halt }
  var %p = system\themes\ $+ %t $+ .cts
  did -r $dname 218
  var %s = 2
  while %s <= $ini(%p,0) {
    did -a $dname 218 $ini(%p,%s)
    inc %s
  }
  did -c $dname 218 1
  did -ra $dname 223 $readini(%p,info,author)
  did -ra $dname 224 $readini(%p,info,version)
  did -ra $dname 225 $readini(%p,info,e-mail)
  did -ra $dname 226 $readini(%p,info,comment)
  theme.prev
}

on *:dialog:setup:sclick:218: {
  theme.prev
}

alias load.preview {
  var %f = system\themes\ $+ $1 $+ .cts
  var %s = $2
  var %a = 1
  while %a < 5 {
    echo -s color $calc(%a +3) $rgb( [ $gettok($readini(%f,%s,rgb),%a,32) ] )
    inc %a
  }
  drawrect -fr @theme.preview $rgb(255,255,255) 1 0 0 300 300
  draw.theme $rgb(0,0,0) tahoma 11 2 3 (0310:33) $replace($right($readini(%f,format,ChannelEnter),-1),&chan,#preview,4,8,5,9,6,10,7,11)
  draw.theme $rgb(0,0,0) tahoma 11 2 18 (0310:33) $replace($right($readini(%f,format,topic),-1),&topic,Now we have a stupid topic!,4,8,5,9,6,10,7,11)
  draw.theme $rgb(0,0,0) tahoma 11 2 33 (0310:33) $replace($right($readini(%f,format,setby),-1),&nick,Gallagher,&hour,23:45:34,&date,07/01/2003,4,8,5,9,6,10,7,11)
  draw.theme $rgb(0,0,0) tahoma 11 2 48 (0310:34) $replace($right($readini(%f,format,brackets),-1),&nick,Gallagher)  $+ $replace($right($readini(%f,format,text),-1),&text,hey morphy dude,4,8,5,9,6,10,7,11)
  draw.theme $rgb(0,0,0) tahoma 11 2 63 (0310:34) <MoRpHy> How's it hanging?
  draw.theme $rgb(0,0,0) tahoma 11 2 78 (0310:36) › Join: 3Kboy (dawdx@127.34.232.81)
  draw.theme $rgb(0,0,0) tahoma 11 2 93 (0310:36) $replace($right($readini(%f,format,kick),-1),&nick1,Kboy,&nick2,Gallagher,&address1,dawdx@127.34.232.81)
  drawrect -fr @theme.preview $rgb(face) 1 0 109 305 3
  drawrect -fr @theme.preview $rgb(128,128,128) 1 0 112 305 1
  drawrect -fr @theme.preview $rgb(222,219,214) 1 0 113 305 20
  drawtext -rb @theme.preview $rgb(0,0,0) $rgb(222,219,214) tahoma 11 3 114 LOL
  drawdot @theme.preview
}

on *:dialog:setup:sclick:163: {
  if (!$did($dname,154).sel) { halt }
  set %mod $cell($dname,154,$did($dname,154).sel,1)
  set %mod.size $calc($left($cell($dname,154,$did($dname,154).sel,4),-1) *1000)
  if (!%mod) { halt }
  sockclose dmodule
  sockopen dmodule pwp.netcabo.pt 80
}

on *:dialog:setup:sclick:176: {
  var %w = $gettok($remove($input(Enter badword,eq,Add new word...),$chr(44)),1,32)
  if (%w && !$istok($readini(system\pcfg.sys,personal,bwords),%w,44)) {
    writeini system\pcfg.sys personal bwords $addtok($readini(system\pcfg.sys,personal,bwords),%w,44)
    did -a $dname 175 %w
  }
}

on *:dialog:setup:sclick:177: {
  var %w = $did($dname,175).seltext
  if (!%w) { halt }
  if ($did($dname,175).lines > 1) { writeini system\pcfg.sys personal bwords $remtok($readini(system\pcfg.sys,personal,bwords),%w,44) } 
  else { remini system\pcfg.sys personal bwords }
  did -d $dname 175 $did($dname,175).sel
}

on *:dialog:setup:sclick:210: {
  var %w = $gettok($remove($did($dname,209).text,$chr(44)),1,32)
  if (%w && !$istok($readini(system\pcfg.sys,personal,excluded),%w,44)) {
    writeini system\pcfg.sys personal excluded $addtok($readini(system\pcfg.sys,personal,excluded),%w,44)
    did -a $dname 208 %w | did -r $dname 209
  }
}

on *:dialog:setup:sclick:211: {
  var %w = $did($dname,208).seltext
  if (!%w) { halt }
  if ($did($dname,208).lines > 1) { writeini system\pcfg.sys personal excluded $remtok($readini(system\pcfg.sys,personal,excluded),%w,44) } 
  else { remini system\pcfg.sys personal excluded }
  did -d $dname 208 $did($dname,208).sel
}

alias cbw {
  var %a = 1
  while %a <= $numtok($1-,32) {
    if ($istok($readini(system\pcfg.sys,personal,bwords),$gettok($1-,%a,32),44)) { return $true | halt }
    inc %a
  }
  return $false
}   

on *:sockopen:dmodule: {
  if ($sockerr = 0) {
    write -c system\remote\ $+ %mod $+ .mrc
    sockwrite -n $sockname GET /morphy/ $+ %mod $+ .txt
    sockwrite -n $sockname Host: pwp.netcabo.pt $+ $str($crlf ,2)
    if ($dialog(setup)) { did -ra setup 166 Downloading... }
  }
  else {
    if ($dialog(Setup)) { did -ra setup 166 Error downloading! }
  }
}

on *:sockread:dmodule: {
  sockread %mod2
  write system\remote\ $+ %mod $+ .mrc %mod2
  if ($dialog(setup)) { did -a setup 169 $gettok($calc($file(system\remote\ $+ %mod $+ .mrc).size * 100 / %mod.size ),1,46) 0 100 }
  .timermod -m 1 500 mod.complete

}

alias mod.complete {
  if ($dialog(setup)) {
    did -ra setup 166 Download Complete
    did -a setup 169 100 0 100
    if ($did(setup,168).state = 1) { run system\remote }
    if ($did(setup,165).state = 1) { load -rs system\remote\ $+ %mod $+ .mrc }
    unset %mod | unset %mod2 | unset %mod.size
  }
}


on *:dialog:setup:sclick:164: {
  did -a $dname 169 0 0 100
  did -r $dname 154
  did -ra $dname 166 Connecting...
  module.refresh
}

alias module.refresh { sockclose modules | sockopen modules pwp.netcabo.pt 80 }
on *:sockopen:modules: {
  if ($sockerr = 0) {
    sockwrite -n $sockname GET /morphy/modules.txt
    sockwrite -n $sockname Host: pwp.netcabo.pt $+ $str($crlf ,2)
    if ($dialog(setup)) { did -ra setup 166 Connected }
  }
  else {
    if ($dialog(Setup)) { did -ra setup 166 Error connecting! }
  }
}


on *:sockread:modules: {
  sockread %temp
  if ($dialog(setup) && %temp != .) { did -a setup 154 $gettok(%temp,1,42) $chr(9) $gettok(%temp,2,42) $chr(9) $gettok(%temp,3,42) $chr(9) $gettok(%temp,4,42) }
  if (%temp = . && $dialog(setup)) { did -ra setup 166 Ready }
  unset %temp
  halt 
}


alias sidepanel {
  var %t = $dialog(switchbar)
  if (%t) { dll system\hos.dll UndockWindow switchbar }
  else { dialog -m switchbar switchbar | nl.update | window -a " $+ $active $+ " }
}


on *:dialog:setup:sclick:40: {
  if ($gettok($did($dname,$did,1),1,32) = rclick && $did($dname,40).sel != 14 && $did($dname,40).sel != 27) {
    photkeys
  }
}

alias photkeys {
  var %m = $mpdll(MPCreateMenu,photkeys)
  var %h = $gettok(%m,2,32)
  mpcolors photkeys
  var %m = $mpdll(MPAddItem, %h > 1 0 0 $chr(160) Edit > edit.hk)
  var %m = $mpdll(MPAddItem, %h > 2 0 0 $chr(160) Clear > clear.hk)
  var %m = $mpdll(MPopup, photkeys > $mouse.dx $mouse.dy left top right)
}

alias edit.hk {
  var %l = $did(setup,40).sel
  if (!%l) { halt }
  elseif (%l = 6 ) { var %y = $input(Function Key reserved for Configuration.,io,Info) | halt }
  elseif (%l = 3 || %l = 4) { var %y = $input(Function Key reserved for switchbar scrolling.,io,Info) | halt }
  elseif (%l = 18) { var %y = $input(Function Key reserved for window closing.,io,Info) | halt }
  elseif (%l = 12) { var %y = $input(Function Key reserved for log trimming.,io,Info) | halt }
  elseif (%l = 20) { var %y = $input(Function Key reserved for window switching.,io,Info) | halt }
  var %l = $calc(%l -1)
  var %c = $input(Enter command for $cell(setup,40,$calc(%l +1),1),e,Command for $cell(setup,40,$calc(%l +1),1))
  if (!%c) { halt }
  if ($gettok($read(docs\hotkeys.dat,%l),3,32)) {
    .write -l $+ %l docs\hotkeys.dat $gettok($read(docs\hotkeys.dat,%l),1,32) $gettok($read(docs\hotkeys.dat,%l),2,32) $replace($gettok($read(docs\hotkeys.dat,%l),3-,32),$gettok($read(docs\hotkeys.dat,%l),3-,32),%c)
  }
  else {
    .write -l $+ %l docs\hotkeys.dat $gettok($read(docs\hotkeys.dat,%l),1,32) $gettok($read(docs\hotkeys.dat,%l),2,32) %c
  }
  did -o setup 40 $did(setup,40).sel $gettok($read(docs\hotkeys.dat,%l),1,32) $chr(9) $gettok($read(docs\hotkeys.dat,%l),3-,32)
}

alias clear.hk {
  var %l = $did(setup,40).sel
  if (!%l) { halt }
  if (%l = 6) { scid $activecid echo -s › Function Key reserved for configuration. | halt }
  if (%l = 3 || %l = 4) { scid $activecid echo -s › Function Key reserved for switchbar scrolling. | halt } 
  if (%l = 12) { scid $activecid echo -s › Function Key reserved for log trimming. | halt } 
  if (%l = 18) { scid $activecid echo -s › Function Key reserved for window closing. | halt } 
  if (%l = 20) { scid $activecid echo -s › Function Key reserved for window switching. | halt } 
  var %l = $calc(%l -1)
  .write -l $+ %l docs\hotkeys.dat $gettok($read(docs\hotkeys.dat,%l),1,32) $gettok($read(docs\hotkeys.dat,%l),2,32) $remove($gettok($read(docs\hotkeys.dat,%l),3-,32),$gettok($read(docs\hotkeys.dat,%l),3-,32))
  did -o setup 40 $did(setup,40).sel $gettok($read(docs\hotkeys.dat,%l),1,32) $chr(9) $gettok($read(docs\hotkeys.dat,%l),3-,32)

}

alias sbcell {
  var %g = $1
  if ($prop = type) {
    var %a = $gettok(%sbar.data,%g,32)
    if (%a = server) { return Server }
    elseif (%a = network) { return Network }
    elseif (%a = ip) { return IP Address }

    elseif (%a = servup) { return Server Uptime }
    elseif (%a = sysup) { return System Uptime }
    elseif (%a = time) { return Time }
    elseif (%a = idle) { return Idle Time }
    elseif (%a = date) { return Date }

    elseif (%a = nick) { return Nickname }
    elseif (%a = notify) { return Notify (Online / Offline) }
    elseif (%a = name) { return Full name }

    elseif (%a = lag) { return Lag }
    elseif (%a = mp3) { return MP³ Track }
    elseif (%a = active) { return Active Window }
  }

  elseif ($prop = info) {
    var %a = $gettok(%sbar.data,%g,32)
    scid $activecid
    if (%a = server) { return Server: $iif($server,$server,Not Connected) }
    elseif (%a = network) { return Network: $iif($network && $server,$network,Not Connected) }
    elseif (%a = ip) { return IP Address: $ip }

    elseif (%a = servup) { return Server Uptime: $iif($server,$uptime(server,1),n/a) }
    elseif (%a = sysup) { return System Uptime: $uptime(system,1) }
    elseif (%a = time) { return Time: $time }
    elseif (%a = idle) { return Idle Time: $time($idle) }
    elseif (%a = date) { return Date: $fulldate }

    elseif (%a = nick) { return Nickname: $me $iif($away,$chr(40) $+ Away $+ $chr(41)) }
    elseif (%a = notify) { return Notify: $nnicks }
    elseif (%a = name) { return Name: $fullname }

    elseif (%a = lag) { return Lag: $iif($server,%lagb $+ s,n/a) }
    elseif (%a = mp3) { return MP³: $iif($insong,$mp($insong.fname) $chr(40) $+ $mp3.len($calc($insong.pos +1000)) $+ $chr(41) $iif($paused = paused && $insong,(Paused)),Standing By...) }
    elseif (%a = active) { return Active Window: $active $iif($network,$chr(40) $+ $network $+ $chr(41)) }
  }
}

alias sbt {
  var %a = $did(setup,$1).seltext
  if (%a = Server) { return server }
  elseif (%a = Network) { return network }
  elseif (%a = IP Address) { return ip }

  elseif (%a = Server Uptime) { return servup }
  elseif (%a = System Uptime) { return sysup }
  elseif (%a = Time) { return time }
  elseif (%a = Idle Time) { return idle }
  elseif (%a = Date) { return date }

  elseif (%a = Nickname) { return nick }
  elseif (%a = Notify (Online / Offline)) { return notify }
  elseif (%a = Full name) { return name }

  elseif (%a = Lag) { return lag }
  elseif (%a = MP³ Track) { return mp3 }
  elseif (%a = Active Window) { return active }
}


alias ref.sw.pre {
  if (!$dialog(setup)) { halt }
  did -i setup 133,143 1 clearicons normal
  did -r setup 133
  var %i = 1
  while %i <= $lines(system\sb.sys) {
    did -i setup 133 1 seticon list $gettok($read(system\sb.sys,%i),2,9)
    did -a setup 133 +r %i $chr(160) $gettok($read(system\sb.sys,%i),1,9) $chr(9) $gettok($read(system\sb.sys,%i),2,9)
    inc %i
  }
  mdx SetControlMDX setup 143 toolbar $iif($gettok(%sb,2,44) = 1,flat) list nodivider arrows > system\bars.mdx
  did -i setup 143 1 bwidth 92 92
  did -r setup 143
  did -i setup 143 1 setimage +nhd 0 icon small $gettok($read(system\sb.sys,1),2,9)
  did -i setup 143 1 setimage +nhd 0 icon small $gettok($read(system\sb.sys,2),2,9)
  did -i setup 143 1 setimage +nhd 0 icon small $gettok($read(system\sb.sys,3),2,9)
  did -a setup 143 +cg $+ $iif($did(setup,141).state = 1,v) $calc(%times *3 +1) Status $chr(9) $+ Status Window
  did -a setup 143 +cg $calc(%times *3 +2) #Channel $chr(9) $+ #Channel
  did -a setup 143 +cg $calc(%times *3 +3) MoRpHy $chr(9) $+ MoRpHy
  did -f setup 144
}

alias theme.prev {
  var %t = $did(setup,216).seltext
  var %p = system\themes\ $+ %t $+ .cts
  var %s = $did(setup,218).seltext
  var %b = $readini(%p,%s,0)
  if (%t = Dust) {
    var %ed = $readini(%p,%s,c_ed)
    var %edt = $readini(%p,%s,c_edt)
  }
  color 8 %b
  color 9 $readini(%p,%s,1)
  color 11 $readini(%p,%s,2)
  color 12 $readini(%p,%s,3)
  color 13 $readini(%p,%s,6)

  if (!$window(@theme.preview)) window -bph @theme.preview 0 0 300 160
  did -a setup 227 grab $window(@theme.preview).hwnd @theme.preview
  drawrect -fr @theme.preview %b 1 0 0 400 200
  mdx SetFont setup 297 +a - $+ $gettok($readini(%p,%s,font),1,32) 400 $gettok($readini(%p,%s,font),2,32)
  if (%t = Dust) {
    mdx SetColor setup 297 textbg $readini(%p,%s,%ed)
    mdx SetColor setup 297 background $readini(%p,%s,%ed)
    mdx SetColor setup 297 text $readini(%p,%s,%edt)
    did -ra setup 297 hey Dude!
  }
  else {
    mdx SetColor setup 297 textbg $readini(%p,%s,0)
    mdx SetColor setup 297 background $readini(%p,%s,0)
    mdx SetColor setup 297 text $readini(%p,%s,1)
    did -ra setup 297 hey Dude!
  }
  if (%t = chaos) {
    draw.theme 11 8 tahoma 11 2 3 $chr(124) $asctime(HH:nn) $chr(124) $str($chr(160),3) 9› Now talking in  $+ #chaos $+  - $date @ $time
    draw.theme 11 8 tahoma 11 2 17 $chr(124) $asctime(HH:nn) $chr(124) $str($chr(160),3) › 12Topic9:9 Chaos %version released! Check out www.chaos.page.vu
    draw.theme 11 8 tahoma 11 2 31 $chr(124) $asctime(HH:nn) $chr(124) $str($chr(160),3) › 12Set By9:9 Morphy on Thu Sep 11 12@9 10:00:00
    draw.theme 11 8 tahoma 11 2 45 $chr(124) $asctime(HH:nn) $chr(124) $str($chr(160),3) 12› Op:12 Chanserv sets mode +o 11 $+ $me
    draw.theme 11 8 tahoma 11 2 59 $chr(124) $asctime(HH:nn) $chr(124) $str($chr(160),3) 9‹12@9Spilner $+ › hey $me
    draw.theme 11 8 tahoma 11 2 73 $chr(124) $asctime(HH:nn) $chr(124) $str($chr(160),3) 13› Morphy $+  is away (gone fishing)
    draw.theme 11 8 tahoma 11 2 87 $chr(124) $asctime(HH:nn) $chr(124) $str($chr(160),3) 12› Join: 11 $+ Dude  $+ 12( $+ adress@goes.here $+ )
  }
  elseif (%t = Dust) {
    draw.theme 11 8 bright 11 2 3 $strip($timestamp) 9› Now talking in  $+ #chaos $+  - $date @ $time
  }
}

alias thcol {
  if ($1 = 0) { return 8 }
  if ($1 = 1) { return 9 }
  if ($1 = 2) { return 11 }
  if ($1 = 3) { return 12 }
  else { return 13 }
}