TheGameCreators - CodeBase - LEET keyboard modified from Troan's :)

Category: Input

Version: 1.0

Information

Uploaded: 5th Jul 2004 02:05

Modified: 1st Jan 1970 01:00

Author: Physics coder

Summary

Tried Troan's LEET keyboard and wanted to improve it a bit using DBP's entry$() command. I only did minor changes to Troan's code to make it more usable and fast, so credit goes to him. :)

Full Description

Tried Troan's LEET keyboard and wanted to improve it a bit using DBP's entry$() command. I only did minor changes to Troan's code to make it more usable and fast, so credit goes to him. :) I took out a lot of wait commands, and set it in window mode, so you can type normal, copy, and paste without needing to exit the program. Also changed it to black text on light grey background. All in All, I hope it's ok I tried to improve the LEET keyboard code.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync on:sync rate 0

set window on

set window title "LEET Keyboard"

cls

Set text font "Arial"

set text size 20

cls

center text 320,230,"LEET Keyboard"

center text 320,250,"By: Troan"

center text 320,270,"Modified by: Physics coder"

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

if scancode()<>0 then exit

sync

loop

wait 50

cls

ink rgb(200,200,200),0

box 0,0,screen width(),screen height()

ink 0,0

text 0,90,"1337"

text 0,120,sent$+n$

text 0,0,"English"

text 0,30,tsent$+n$

if timer()>timer0+600

timer0=timer()

if n=1 then n=0 else n=1

if n=1 then n$="_" else n$=" "

endif

text 0,420,"Left Ctrl Copies Leet"

key$=upper$(entry$())

clear entry buffer

if keystate(29)=1

write to clipboard sent$

CLS

ink rgb(200,200,200),0

box 0,0,screen width(),screen height()

ink 0,0

set text size 40

text 0,0,"COPIED!!"

wait 500

set text size 20

endif

if keystate(14)=1

DEL=0

if right$(tsent$,1)=" ":DEL=1:ENDIF

if right$(tsent$,1)="A":DEL=1:ENDIF

if right$(tsent$,1)="B":DEL=1:ENDIF

if right$(tsent$,1)="C":DEL=1:ENDIF

if right$(tsent$,1)="D":DEL=2:ENDIF

if right$(tsent$,1)="E":DEL=1:ENDIF

if right$(tsent$,1)="F":DEL=2:ENDIF

if right$(tsent$,1)="G":DEL=1:ENDIF

if right$(tsent$,1)="H":DEL=1:ENDIF

if right$(tsent$,1)="I":DEL=1:ENDIF

if right$(tsent$,1)="J":DEL=2:ENDIF

if right$(tsent$,1)="K":DEL=2:ENDIF

if right$(tsent$,1)="L":DEL=1:ENDIF

if right$(tsent$,1)="M":DEL=2:ENDIF

if right$(tsent$,1)="N":DEL=2:ENDIF

if right$(tsent$,1)="O":DEL=1:ENDIF

if right$(tsent$,1)="P":DEL=2:ENDIF

if right$(tsent$,1)="Q":DEL=1:ENDIF

if right$(tsent$,1)="R":DEL=2:ENDIF

if right$(tsent$,1)="S":DEL=1:ENDIF

if right$(tsent$,1)="T":DEL=1:ENDIF

if right$(tsent$,1)="U":DEL=3:ENDIF

if right$(tsent$,1)="V":DEL=1:ENDIF

if right$(tsent$,1)="W":DEL=2:ENDIF

if right$(tsent$,1)="X":DEL=2:ENDIF

if right$(tsent$,1)="Y":DEL=2:ENDIF

if right$(tsent$,1)="Z":DEL=1:ENDIF

sent$=left$(sent$,len(sent$)-del)

tsent$=left$(tsent$,len(tsent$)-1)

wait 100

endif

if key$=" ":sent$=sent$+" ":tsent$=tsent$+" ":endif

if key$="A":sent$=sent$+"4":tsent$=tsent$+"A":endif

if key$="B":sent$=sent$+"8":tsent$=tsent$+"B":endif

if key$="C":sent$=sent$+"[":tsent$=tsent$+"C":endif

if key$="D":sent$=sent$+"|)":tsent$=tsent$+"D":endif

if key$="E":sent$=sent$+"3":tsent$=tsent$+"E":endif

if key$="F":sent$=sent$+"|=":tsent$=tsent$+"F":endif

if key$="G":sent$=sent$+"9":tsent$=tsent$+"G":endif

if key$="H":sent$=sent$+"#":tsent$=tsent$+"H":endif

if key$="I":sent$=sent$+"!":tsent$=tsent$+"I":endif

if key$="J":sent$=sent$+"_|":tsent$=tsent$+"J":endif

if key$="K":sent$=sent$+"|<":tsent$=tsent$+"K":endif

if key$="L":sent$=sent$+"1":tsent$=tsent$+"L":endif

if key$="M":sent$=sent$+"^^":tsent$=tsent$+"M":endif

if key$="N":sent$=sent$+"//":tsent$=tsent$+"N":endif

if key$="O":sent$=sent$+"0":tsent$=tsent$+"O":endif

if key$="P":sent$=sent$+"|>":tsent$=tsent$+"P":endif

if key$="Q":sent$=sent$+"9":tsent$=tsent$+"Q":endif

if key$="R":sent$=sent$+"|2":tsent$=tsent$+"R":endif

if key$="S":sent$=sent$+"$":tsent$=tsent$+"S":endif

if key$="T":sent$=sent$+"7":tsent$=tsent$+"T":endif

if key$="U":sent$=sent$+"(_)":tsent$=tsent$+"U":endif

if key$="V":sent$=sent$+"/":tsent$=tsent$+"V":endif

if key$="W":sent$=sent$+"//":tsent$=tsent$+"W":endif

if key$="X":sent$=sent$+"><":tsent$=tsent$+"X":endif

if key$="Y":sent$=sent$+"`/":tsent$=tsent$+"Y":endif

if key$="Z":sent$=sent$+"2":tsent$=tsent$+"Z":endif

sync

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	Physics coder
CodeBase Entries:	1

CodeBase - LEET keyboard modified from Troan's :)

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments