Sign in to follow this  
Followers 0
Paulie

1337speak generator

10 posts in this topic

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

Share this post


Link to post
Share on other sites



Spam title generator ? :P

lolo :) kidding. it looks cool in chat room :nuke:


>> AutoMee << NICE AutoIt UTILITY THAT I CAN'T LIVE WITHOUT !

Share this post


Link to post
Share on other sites

|-|EH 7|-|I5 IS -F|_||\| :P

Share this post


Link to post
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]

Share this post


Link to post
Share on other sites

(O0!. I LIKE +|-|I$ 41[]7 /\/\A|\|! K3EP |_|P 7|-|E G()[]D W[]|2K

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

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.

Share this post


Link to post
Share on other sites

|\|I[3 W[]||RK! :P


The cake is a lie.www.theguy0000.com is currentlyUP images.theguy0000.com is currentlyUP all other *.theguy0000.com sites are DOWN

Share this post


Link to post
Share on other sites

This takes ebonics to a whole new level!


[center]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.[/center]

Share this post


Link to post
Share on other sites

Awsome lol:)

Share this post


Link to post
Share on other sites

H4|-|A|-A||-||-|A T|-|IS I5 FUN I7 |2EA!!Y \/\/ORK

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