Realtime 1337 translator

[bf2forlife]

This code needs fixing

While 1
    $Button = ["s", "a", "o", "i", "e", "l", "p", "t", ".", "b", "c", "d", "h", "k", "m", "n","q", "r", "v", "w", "x", "y", "z"]
    Select
    Case $Button
        $string = StringReplace($string, "s", "$")
        $string = StringReplace($string, "a", "4")
        $string = StringReplace($string, "o", "0")
        $string = StringReplace($string, "i", "!")
        $string = StringReplace($string, "e", "3")
        $string = StringReplace($string, "l", "l_")
        $string = StringReplace($string, "p", "|>")
        $string = StringReplace($string, "t", "7")
        $string = StringReplace($string, ".", ",")
        $string = StringReplace($string, "b", "/3")
        $string = StringReplace($string, "c", "(")
        $string = StringReplace($string, "d", "[)")
        $string = StringReplace($string, "h", "]-[")
        $string = StringReplace($string, "k", "l<")
        $string = StringReplace($string, "m", "lvl")
        $string = StringReplace($string, "n", "/\/")
        $string = StringReplace($string, "q", "()_")
        $string = StringReplace($string, "r", "/2")
        $string = StringReplace($string, "v", "\/")
        $string = StringReplace($string, "w", "\/\/")
        $string = StringReplace($string, "x", "><")
        $string = StringReplace($string, "y", "`/")
        $string = StringReplace($string, "z", "7_")
    EndSelect
WEnd

Edited June 13, 2008 by bf2forlife

[monoceres]

This code needs fixing

...

You don't say...

[DW1]

This one works:

expandcollapse popup

For $SETHOTKEY = 97 To 122
    HotKeySet(Chr($SETHOTKEY), "_" & Chr($SETHOTKEY))
Next
Global $NEWLETTER
While 1
    Sleep(1000)
WEnd
Func _A()
    $INT = Random(1, 3, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "A"
        Case $INT = 2
            $NEWLETTER = "4"
        Case $INT = 3
            $NEWLETTER = "a"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _B()
    $INT = Random(1, 2, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "B"
        Case $INT = 2
            $NEWLETTER = "8"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _C()
    $INT = Random(1, 3, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "C"
        Case $INT = 2
            $NEWLETTER = "("
        Case $INT = 3
            $NEWLETTER = "["
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _D()
    $INT = Random(1, 3, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "|)"
        Case $INT = 2
            $NEWLETTER = "])"
        Case $INT = 3
            $NEWLETTER = "D"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _E()
    $INT = Random(1, 2, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "3"
        Case $INT = 2
            $NEWLETTER = "E"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _F()
    $INT = Random(1, 2, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "-F"
        Case $INT = 2
            $NEWLETTER = "F"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _G()
    $INT = Random(1, 2, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "G"
        Case $INT = 2
            $NEWLETTER = "g"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _H()
    $INT = Random(1, 3, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "H"
        Case $INT = 2
            $NEWLETTER = "h"
        Case $INT = 3
            $NEWLETTER = "|-|"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _I()
    $INT = Random(1, 2, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "I"
        Case $INT = 2
            $NEWLETTER = "i"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _J()
    $INT = Random(1, 2, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "J"
        Case $INT = 2
            $NEWLETTER = "j"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _K()
    $INT = Random(1, 2, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "K"
        Case $INT = 2
            $NEWLETTER = "K"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _L()
    $INT = Random(1, 4, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "1"
        Case $INT = 2
            $NEWLETTER = "{!}"
        Case $INT = 3
            $NEWLETTER = "L"
        Case $INT = 4
            $NEWLETTER = "l"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _M()
    $INT = Random(1, 3, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "M"
        Case $INT = 2
            $NEWLETTER = "M"
        Case $INT = 3
            $NEWLETTER = "/\/\"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _N()
    $INT = Random(1, 3, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "N"
        Case $INT = 2
            $NEWLETTER = "n"
        Case $INT = 3
            $NEWLETTER = "|\|"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _O()
    $INT = Random(1, 5, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "0"
        Case $INT = 2
            $NEWLETTER = "o"
        Case $INT = 3
            $NEWLETTER = "O"
        Case $INT = 4
            $NEWLETTER = "[]"
        Case $INT = 5
            $NEWLETTER = "()"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _P()
    $INT = Random(1, 2, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "P"
        Case $INT = 2
            $NEWLETTER = "p"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _Q()
    $INT = Random(1, 3, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "Q"
        Case $INT = 2
            $NEWLETTER = "q"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _R()
    $INT = Random(1, 3, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "|2"
        Case $INT = 2
            $NEWLETTER = "R"
        Case $INT = 3
            $NEWLETTER = "r"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _S()
    $INT = Random(1, 4, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "s"
        Case $INT = 2
            $NEWLETTER = "S"
        Case $INT = 3
            $NEWLETTER = "5"
        Case $INT = 4
            $NEWLETTER = "$"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _T()
    $INT = Random(1, 4, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "7"
        Case $INT = 2
            $NEWLETTER = "t"
        Case $INT = 3
            $NEWLETTER = "T"
        Case $INT = 4
            $NEWLETTER = "{+}"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _U()
    $INT = Random(1, 3, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "u"
        Case $INT = 2
            $NEWLETTER = "U"
        Case $INT = 3
            $NEWLETTER = "|_|"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _V()
    $INT = Random(1, 3, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "v"
        Case $INT = 2
            $NEWLETTER = "V"
        Case $INT = 3
            $NEWLETTER = "\/"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _W()
    $INT = Random(1, 3, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "\/\/"
        Case $INT = 2
            $NEWLETTER = "w"
        Case $INT = 3
            $NEWLETTER = "W"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _X()
    $INT = Random(1, 3, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "x"
        Case $INT = 2
            $NEWLETTER = "><"
        Case $INT = 3
            $NEWLETTER = "X"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _Y()
    $INT = Random(1, 2, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "y"
        Case $INT = 2
            $NEWLETTER = "Y"
    EndSelect
    Send($NEWLETTER)
EndFunc
Func _Z()
    $INT = Random(1, 3, 1)
    Select
        Case $INT = 1
            $NEWLETTER = "z"
        Case $INT = 2
            $NEWLETTER = "Z"
        Case $INT = 3
            $NEWLETTER = "2"
    EndSelect
    Send($NEWLETTER)
EndFunc