Special Char Maker

[Scriptkiddi3]

expandcollapse popup

HotKeySet("^S","make")
HotKeySet("{PAUSE}","GETOUT")

while 1
sleep(100)
WEnd

Func make()
$input = InputBox("Special char maker", "Text to 'SCM':")
Dim $spaced
For $i = 1 to StringLen($input)
    if  $i = 1 Then
        $spaced = $spaced & StringMid($input,$i,1)
    Else
        $spaced = $spaced & ";*" & StringMid($input,$i,1)
    EndIf
Next
$split = StringSplit($spaced, ";*", 1)
Dim $tekst
For $ii = 1 To $split[0]
    checkifchr($split[$ii])
    If $ii = 1 Then
        $text = $split[$ii]
    Else
        $text = $tekst & $split[$ii]
    EndIf
Send($text, 1)
Next
EndFunc
Func GETOUT()
    Exit
EndFunc
Func checkifchr(ByRef $chr)
    If $chr = "a" Or $chr = "A" Then
        $chr = "ª"
    ElseIf $chr = "b" Or $chr = "B" Then
        $chr = "ß"
    ElseIf $chr = "c" Or $chr = "C" Then
        $chr = "©"
    ElseIf $chr = "d" Or $chr = "D" Then
        $chr = "Ð"
    ElseIf $chr = "e" Or $chr = "E" Then
        $chr = ""
    ElseIf $chr = "f" Or $chr = "F" Then
        $chr = ""
    ElseIf $chr = "g" Or $chr = "G" Then
        $chr = "9"
    ElseIf $chr = "h" Or $chr = "H" Then
        $chr = "¦-¦"
    ElseIf $chr = "i" Or $chr = "I" Then
        $chr = "¡"
    ElseIf $chr = "j" Or $chr = "J" Then
        $chr = "J"
    ElseIf $chr = "k" Or $chr = "K" Then
        $chr = "k"
    ElseIf $chr = "l" Or $chr = "L" Then
        $chr = "|"
    ElseIf $chr = "m" Or $chr = "M" Then
        $chr = "m"
    ElseIf $chr = "n" Or $chr = "N" Then
        $chr = "Ñ"
    ElseIf $chr = "o" Or $chr = "O" Then
        $chr = "Ø"
    ElseIf $chr = "p" Or $chr = "P" Then
        $chr = "Þ"
    ElseIf $chr = "q" Or $chr = "Q" Then
        $chr = "Q"
    ElseIf $chr = "r" Or $chr = "R" Then
        $chr = "®"
    ElseIf $chr = "s" Or $chr = "S" Then
        $chr = "$"
    ElseIf $chr = "t" Or $chr = "T" Then
        $chr = "t"
    ElseIf $chr = "u" Or $chr = "U" Then
        $chr = "Ú"
    ElseIf $chr = "v" Or $chr = "V" Then
        $chr = "V"
    ElseIf $chr = "w" Or $chr = "W" Then
        $chr = "w"
    ElseIf $chr = "x" Or $chr = "X" Then
        $chr = "×"
    ElseIf $chr = "y" Or $chr = "Y" Then
        $chr = "¥"
    ElseIf $chr = "z" Or $chr = "Z" Then
        $chr = "Z"
    ElseIf $chr = " " Then
        $chr = $chr & "-" & $chr
    Else
        $chr = $chr
    EndIf
EndFunc

®9ª®Ð$, - $©®¡Þtk¡ÐС3!

[peethebee]

Hi!

Nice idea. I would like it as a func which I call e.g.:

_special_char("copy") ; to get copyright sign

_special_char("tm") ; tm sign

That would be easiyer to use I believe.

peethebee