1 reply to this topic

[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

[Swift]

nice.