Allows you to copy a character which is not found on a standard American keyboard to the clipboard and simply just copy/paste it into your message.

If I'm missing any, please PM me them, thanks!

menu status,channel,nicklist {
  [Extra Characters]: $iif(!$dialog(ExtraChars),dialog -mied ExtraChars ExtraChars, halt)
}
alias ExtraChars $iif(!$dialog(ExtraChars),dialog -mied ExtraChars ExtraChars, halt)
dialog ExtraChars {
  title "Extra Character Insert"
  size -1 -1 240 140
  radio "LowerCase", 1, 10 10 80 20
  radio "Caps", 2, 10 40 80 20
  radio "Punctuation", 99, 10 70 80 20
  button "", 3, 90 10 18 17
  button "", 4, 108 10 18 17
  button "", 5, 126 10 18 17
  button "", 6, 143 10 18 17
  button "", 7, 160 10 18 17
  button "", 8, 177 10 18 17
  button "", 9, 194 10 18 17
  button "", 10, 211 10 18 17
  button "", 11, 90 30 18 17
  button "", 12, 108 30 18 17
  button "", 13, 126 30 18 17
  button "", 14, 143 30 18 17
  button "", 15, 160 30 18 17
  button "", 16, 177 30 18 17
  button "", 17, 194 30 18 17
  button "", 18, 211 30 18 17
  button "", 19, 90 50 18 17
  button "", 20, 108 50 18 17
  button "", 21, 126 50 18 17
  button "", 22, 143 50 18 17
  button "", 23, 160 50 18 17
  button "", 24, 177 50 18 17
  button "", 25, 194 50 18 17
  button "", 26, 211 50 18 17
  button "", 27, 90 70 18 17
  button "", 28, 108 70 18 17
  button "", 29, 126 70 18 17
  button "", 30, 143 70 18 17
  button "", 31, 160 70 18 17
  button "", 32, 177 70 18 17
  button "", 33, 194 70 18 17
  button "", 34, 211 70 18 17
  edit "", 35, 10 95 220 20, disable
}
on *:dialog:ExtraChars:init:*: {
  did -b $dname 3-34
  var %x à á â ã ä ç è é ê ë ì í î ï ñ ò ó ô ö ø ù ú û ü ÿ œ, %t 0, %y 2
  while (%t < $numtok(%x,32)) {
    inc %y | inc %t
    did -ie $dname %y 1 $gettok(%x,$calc(%y - 2),32)
  }
  did -c $dname 1
}
on *:dialog:ExtraChars:sclick:*: {
  if (($did == 1) || ($did == 2) || ($did == 99)) {
    did -br $dname 3-34
    var %x $iif($did == 1,à á â ã ä ç è é ê ë ì í î ï ñ ò ó ô ö ø ù ú û ü ÿ œ,) $iif($did == 2,ß Á Â Ã Ä Ç È É Ê Ë Ì Í Î Ï Ñ Ò Ó Ô Ö,) $iif($did == 99,¿ ¡ ? !,), %t 0, %y 2
    while (%t < $numtok(%x,32)) {
      inc %y | inc %t
      did -ie $dname %y 1 $gettok(%x,$calc(%y - 2),32)
    }
  }
  else {
    clipboard $did($dname,$did).text
    did -o $dname 35 1 ' $+ $did($dname,$did).text $+ ' has been selected in clipboard.
  }
}