Jump to content
Sign in to follow this  
Rejectedz

Code Talker

Recommended Posts

Rejectedz

Its like 1337 talker just uses alt codes, idk if this is orignial but i whiped it up quick and i think its cool :)

CODE
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.10.0

Author:Brett

Email:Brett1605@hotmail.com

Site:http://autoit.proboards98.com/index.cgi

Script Function:

Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

$answer = msgbox(4, "Run program?", "Would you like to run Code Speaker-Made by: Rejectedz<Brett>?")

; Check the user's answer to the prompt (see the help file for MsgBox return values)

; If "No" was clicked (7) then exit the script

If $answer = 7 Then

Exit

EndIf

For $sethotkey = 97 to 122

HotKeySet(Chr($sethotkey),"_"&Chr($sethotkey))

Next

Global $Newletter

While 1

Sleep(1000)

WEnd

Func _a()

$Int = Random(1,4,1)

Select

Case $Int = 1

$NewLetter = "A"

Case $Int = 2

$NewLetter = "Â"

Case $Int = 3

$NewLetter = "ª"

Case $Int = 4

$NewLetter = "à"

EndSelect

Send($NewLetter)

EndFunc

Func _b()

$Int = Random(1,2,1)

Select

Case $Int = 1

$NewLetter = "B"

Case $Int = 2

$NewLetter = "ß"

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 = "c"

Case $Int = 3

$NewLetter = "©"

EndSelect

Send($NewLetter)

EndFunc

Func _d()

$Int = Random(1,3,1)

Select

Case $Int = 1

$NewLetter = "d"

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 = "£"

Case $Int = 2

$NewLetter = "E"

EndSelect

Send($NewLetter)

EndFunc

Func _f()

$Int = Random(1,2,1)

Select

Case $Int = 1

$NewLetter = ""

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 = "h"

EndSelect

Send($NewLetter)

EndFunc

Func _i()

$Int = Random(1,2,1)

Select

Case $Int = 1

$NewLetter = "I"

Case $Int = 2

$NewLetter = "ï"

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 = "¶"

Case $Int = 2

$NewLetter = "l"

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 = "m"

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,6,1)

Select

Case $Int = 1

$NewLetter = "Õ"

Case $Int = 2

$NewLetter = "o"

Case $Int = 3

$NewLetter = "O"

Case $Int = 4

$NewLetter = "Ø"

Case $Int = 5

$NewLetter = "ð"

Case $Int = 6

$NewLetter = "ø"

EndSelect

Send($NewLetter)

EndFunc

Func _p()

$Int = Random(1,2,1)

Select

Case $Int = 1

$NewLetter = "P"

Case $Int = 2

$NewLetter = "þ"

Case $int = 3

$NewLetter = "þ"

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 = "®"

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 = "§"

Case $Int = 4

$NewLetter = "§"

Case $Int = 3

$NewLetter = ""

EndSelect

Send($NewLetter)

EndFunc

Func _t()

$Int = Random(1,4,1)

Select

Case $Int = 1

$NewLetter = ""

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 = "W"

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 = "ÿ"

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 = ""

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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.