Jump to content

1337speak generator


Paulie
 Share

Recommended Posts

I know its not the best, and it took like 5 minutes to throw together, but here it is

replaces your tpe with leetspeak

feel free to edit as you see fit

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

LOL C|-|ECK 0|_|+ H[]\/\/ I TYPE A1L !E3T \/\/ITH P4ULIE5 !E3T $PEAKER

Link to comment
Share on other sites

Haha nice ^^

--------------------------------------------------------------------------------------------------------------------------------Scripts : _Encrypt UDF_UniquePCCode UDF MS like calculatorInstall programm *UPDATED* --------------------------------------------------------------------------------------------------------------------------------[quote name='Helge' post='213117' date='Jul 26 2006, 10:22 AM']Have you ever tried surfing the internet with a milk-carton ?This is similar to what you're trying to do.[/quote]

Link to comment
Share on other sites

Good work, ^ took me ages to decipher that :P

Edited by RazerM
My Programs:AInstall - Create a standalone installer for your programUnit Converter - Converts Length, Area, Volume, Weight, Temperature and Pressure to different unitsBinary Clock - Hours, minutes and seconds have 10 columns each to display timeAutoIt Editor - Code Editor with Syntax Highlighting.Laserix Editor & Player - Create, Edit and Play Laserix LevelsLyric Syncer - Create and use Synchronised Lyrics.Connect 4 - 2 Player Connect 4 Game (Local or Online!, Formatted Chat!!)MD5, SHA-1, SHA-256, Tiger and Whirlpool Hash Finder - Dictionary and Brute Force FindCool Text Client - Create Rendered ImageMy UDF's:GUI Enhance - Enhance your GUIs visually.IDEA File Encryption - Encrypt and decrypt files easily! File Rename - Rename files easilyRC4 Text Encryption - Encrypt text using the RC4 AlgorithmPrime Number - Check if a number is primeString Remove - remove lots of strings at onceProgress Bar - made easySound UDF - Play, Pause, Resume, Seek and Stop.
Link to comment
Share on other sites

  • Moderators

This takes ebonics to a whole new level!

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...