Sign in to follow this  
Followers 0
Rejectedz

Code Talker

2 posts in this topic

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



nice.

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