Sign in to follow this  
Followers 0
bf2forlife

Realtime 1337 translator

3 posts in this topic

#1 ·  Posted (edited)

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 by bf2forlife

Share this post


Link to post
Share on other sites



This code needs fixing

...

You don't say...


Broken link? PM me and I'll send you the file!

Share this post


Link to post
Share on other sites

This one works:

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0