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.
}
}