CodeBase - L33T Keyboard

Return to the CodeBase listing

Category: Text

Version: 1.0

0

0

Information

Uploaded: 2nd Jul 2004 18:06

Modified: 8th Dec 2004 12:12

Author: TravisP

Summary

Type Leet! Just type on your keyboard and it types leet.

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync on:hide mouse

Set text font "Arial"

set text size 20

center text 320,230,"L33T Keyboard 1.0"

center text 320,250,"By:Travis P"

center text 320,380,"Press any key to continue"

wait key

cls

wait 50

do

text 0,90,"1337"

text 0,120,sent$

text 0,0,"English"

text 0,30,tsent$

text 0,420,"Left Ctrl Copies Leet"

text 0,460,"Right Alt Exits"

text 0,440,"Backspace deletes"

if scancode()=184

End

endif

if scancode()=29

write to clipboard sent$

CLS

set text size 40

text 0,0,"COPIED!!"

wait 500

set text size 20

endif

if scancode()=14

sent$=""

tsent$=""

wait 75

endif

if scancode()=57

sent$=sent$+" "

tsent$=tsent$+" "

wait 75

endif

if scancode()=30

sent$=sent$+"4"

tsent$=tsent$+"A"

wait 75

endif

if scancode()=48

sent$=sent$+"8"

tsent$=tsent$+"B"

wait 75

endif

if scancode()=46

sent$=sent$+"["

tsent$=tsent$+"C"

wait 75

endif

if scancode()=32

sent$=sent$+"|)"

tsent$=tsent$+"D"

wait 75

endif

if scancode()=18

sent$=sent$+"3"

tsent$=tsent$+"E"

wait 75

endif

if scancode()=33

sent$=sent$+"|="

tsent$=tsent$+"F"

wait 75

endif

if scancode()=34

sent$=sent$+"9"

tsent$=tsent$+"G"

wait 75

endif

if scancode()=35

sent$=sent$+"#"

tsent$=tsent$+"H"

wait 75

endif

if scancode()=23

sent$=sent$+"!"

tsent$=tsent$+"I"

wait 75

endif

if scancode()=36

sent$=sent$+"_|"

tsent$=tsent$+"J"

wait 75

endif

if scancode()=37

sent$=sent$+"|<"

tsent$=tsent$+"K"

wait 75

endif

if scancode()=38

sent$=sent$+"1"

tsent$=tsent$+"L"

wait 75

endif

if scancode()=50

sent$=sent$+"^^"

tsent$=tsent$+"M"

wait 75

endif

if scancode()=49

sent$=sent$+"//"

tsent$=tsent$+"N"

wait 75

endif

if scancode()=24

sent$=sent$+"0"

tsent$=tsent$+"O"

wait 75

endif

if scancode()=25

sent$=sent$+"|>"

tsent$=tsent$+"P"

wait 75

endif

if scancode()=16

sent$=sent$+"9"

tsent$=tsent$+"Q"

wait 75

endif

if scancode()=19

sent$=sent$+"|2"

tsent$=tsent$+"R"

wait 75

endif

if scancode()=31

sent$=sent$+"$"

tsent$=tsent$+"S"

wait 75:endif

if scancode()=20

sent$=sent$+"7"

tsent$=tsent$+"T"

wait 75

endif

if scancode()=22

sent$=sent$+"(_)"

tsent$=tsent$+"U"

wait 75

endif

if scancode()=47

sent$=sent$+"/"

tsent$=tsent$+"V"

wait 75

endif

if scancode()=17

sent$=sent$+"//"

tsent$=tsent$+"W"

wait 75

endif

if scancode()=45

sent$=sent$+"><"

tsent$=tsent$+"X"

wait 75

endif

if scancode()=21

sent$=sent$+"`/"

tsent$=tsent$+"Y"

wait 75

endif

if scancode()=44

sent$=sent$+"2"

tsent$=tsent$+"Z"

wait 75

endif

sync:cls

loop

Download

Please login to download

Comments

No comments yet.