Rejectedz Posted December 30, 2007 Share Posted December 30, 2007 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 Link to comment Share on other sites More sharing options...
Swift Posted December 30, 2007 Share Posted December 30, 2007 nice. Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now