Simple ASCII table

I made this snippet dialog, someone might find it usefull in their mirc script.

Postat de	Copyright	Categorie	Review user	Vizualizari	Data
BLKoldSUN	BLKoldSUN	activity	Cod testat	396	2024-08-11 09:38:23

alias ASCII {
  if ($dialog(ASCII_chars)) {
    dialog -voea ASCII_chars ASCII_chars
  }
  else { dialog -moda ASCII_chars ASCII_chars }
}

dialog ASCII_chars {
  title "ASCII Table by BLKoldSUN"
  size -1 -1 105 90
  option dbu
  list 1, 5 5 40 65, size
  text "Doubleclick wanted character to send it to clipboard.",2,50 5 50 30, center
  text "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯", 3, 50 30 50 30, center
  text "I made this just for quick help with $chr()`s. Someone might find it usefull.", 4, 50 35 50 30, center
  link "https://premiumchat.ro/", 5, 40 75 60 10
  button "Close", 6, 5 75 30 10, ok flat
}

on *:dialog:ASCII_chars:init:*: {
  var %i 1
  while (%i <= 250) {
    did -a ASCII_chars 1 $chr(%i) = %i
    inc %i
  }
}

on *:dialog:ASCII_chars:dclick:*: {
  if ($did == 1) {
    clipboard $left($did(1).seltext,1)
  }
  if ($did == 4) {
    ascii_refresh
  }
  if ($did == 5) {
    .Run https://premiumchat.ro
  }
}

menu * {
  ASCII Table:ASCII
}