Mirc Script Mirc Ascii Chart

Add in remotes and type /ascii to see the ascii chart.

alias ascii { $iif(!$dialog(ascii),dialog -m ascii ascii,dialog -v ascii) }

dialog ascii {
  title "Ascii Chart [/ascii]"
  size -1 -1 124 114
  option dbu
  tab "&General", 1, 1 3 121 93
  list 2, 4 23 116 70, tab 1 size
  button "&Done", 3, 86 100 37 12, ok
  button "Copy", 4, 46 100 37 12
}

on *:dialog:ascii:init:0: {
  load_ascii
}

on *:dialog:ascii:sclick:4: {
  if ($did($dname,2).sel) {
    var %sel = $did($dname,2).sel
    var %s = $cell(ascii,2,%sel,2)
    clipboard %s
  }
}

alias -l load_ascii {
  var %a = 32, %b = 128
  while (%a < 128) { did -a ascii 2 No. %a $chr(9) $chr(%a) | inc %a }
  while (%b < 256) { did -a ascii 2 No. %b $chr(9) $chr(%b) | inc %b }
}
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-Share Alike 2.5 License.