TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0 beta

Information

Uploaded: 29th Oct 2005 11:32

Modified: 29th Oct 2005 11:35

Author: WillG

Summary

A program that translates whatever you type into l33t speak.

Full Description

Once the program has started up, whatever key you press will be translated into l33t there and then. Whan you've finished, you press return, and you get the options to save your message, clear the screen or quit. *still in beta, suggestions welcome! mail suggestions to [email protected] with transleetor in the subject line*

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem Created by Will Gordon, October 2005

rem program startup and fullscreen options with display offset

rem for maximum Matrix effect

disable escapekey

set display mode 1023,760,32

set window title "Transl33tor v1.0 beta4 by Will Gordon"

set text font "Courier New"

set text size 72

ink rgb (0,150,0), rgb(0,0,0)

center text 500,250, "Fullscreen? (Y/N)"

if keystate(21)=1 then goto startup

if keystate(49)=1 then goto windowmode

loop

windowmode:

set window size 1024,750

rem title screen

startup:

cls

center text 500,250, "TRANSLEETOR"

wait 2000

cls

center text 500,250, "7RANSLEETOR"

wait 500

cls

center text 500,250, "7|2ANSLEETOR"

wait 500

cls

center text 500,250, "7|24NSLEETOR"

wait 500

cls

center text 500,250, "7|24||SLEETOR"

wait 500

cls

center text 500,250, "7|24||5LEETOR"

wait 500

cls

center text 500,250, "7|24||51EETOR"

wait 500

cls

center text 500,250, "7|24||513ETOR"

wait 500

cls

center text 500,250, "7|24||5133TOR"

wait 500

cls

center text 500,250, "7|24||51337OR"

wait 500

cls

center text 500,250, "7|24||51337()R"

wait 500

cls

center text 500,250, "7|24||51337()|2"

wait 1500

set text size 36

center text 500,350, "Press any key to begin"

wait key

goto mainprog

rem main program key detection rules

mainprog:

text$=""

wait 200

cls

center text 500,25, " Type in English what you want to real-time translate."

center text 500,50, "press return when finished (500 char. max)"

x=25

y=100

set cursor x,y

if keystate(30)=1 then gosub a

if keystate(48)=1 then gosub b

if keystate(46)=1 then gosub c

if keystate(32)=1 then gosub d

if keystate(18)=1 then gosub e

if keystate(33)=1 then gosub f

if keystate(34)=1 then gosub g

if keystate(35)=1 then gosub h

if keystate(23)=1 then gosub i

if keystate(36)=1 then gosub j

if keystate(37)=1 then gosub k

if keystate(38)=1 then gosub l

if keystate(50)=1 then gosub m

if keystate(49)=1 then gosub n

if keystate(24)=1 then gosub o

if keystate(25)=1 then gosub p

if keystate(16)=1 then gosub q

if keystate(19)=1 then gosub r

if keystate(31)=1 then gosub s

if keystate(20)=1 then gosub t

if keystate(22)=1 then gosub u

if keystate(47)=1 then gosub v

if keystate(17)=1 then gosub w

if keystate(45)=1 then gosub x

if keystate(21)=1 then gosub y

if keystate(44)=1 then gosub z

if keystate(51)=1 then gosub comma

if keystate(52)=1 then gosub fullstop

if shiftkey()=1 and keystate(2)=1 then gosub pling

if shiftkey()=1 and keystate(53)=1 then gosub question

if keystate(2)=1 and shiftkey()=0 then gosub one

if keystate(3)=1 then gosub two

if keystate(4)=1 then gosub three

if keystate(5)=1 then gosub four

if keystate(6)=1 then gosub five

if keystate(7)=1 then gosub six

if keystate(8)=1 then gosub seven

if keystate(9)=1 then gosub eight

if keystate(10)=1 and shiftkey()=0 then gosub nine

if keystate(11)=1 and shiftkey()=0 then gosub zero

if keystate(12)=1 then gosub hyphen

if shiftkey()=1 and keystate(10)=1 then gosub openbracket

if shiftkey()=1 and keystate(11)=1 then gosub closebracket

if keystate(28)=1 then gosub nxt

if spacekey()=1 then gosub space

gosub xandy

loop

rem English > l33t conversion rules and cursor movement

print "4"

text$=text$+"4"

x=x+20

wait 200

return

print "|3"

text$=text$+"|3"

x=x+35

wait 200

return

print "<"

text$=text$+"<"

x=x+20

wait 200

return

print "|)"

text$=text$+"|)"

x=x+30

wait 200

return

print "3"

text$=text$+"3"

x=x+20

wait 200

return

print "|="

text$=text$+"|="

x=x+35

wait 200

return

print "9"

text$=text$+"9"

x=x+20

wait 200

return

print "|-|"

text$=text$+"|-|"

x=x+50

wait 200

return

print "|"

text$=text$+"|"

x=x+15

wait 200

return

print ";"

text$=text$+";"

x=x+15

wait 200

return

print "|<"

text$=text$+"|<"

x=x+35

wait 200

return

print "1"

text$=text$+"1"

x=x+15

wait 200

return

print "|/|"

text$=text$+"|/|"

x=x+70

wait 200

return

print "||"

text$=text$+"||"

x=x+50

wait 200

return

print "()"

text$=text$+"()"

x=x+30

wait 200

return

print "|>"

text$=text$+"|>"

x=x+35

wait 200

return

print "0,"

text$=text$+"0,"

x=x+30

wait 200

return

print "|2"

text$=text$+"|2"

x=x+35

wait 200

return

print "5"

text$=text$+"5"

x=x+20

wait 200

return

print "7"

text$=text$+"7"

x=x+20

wait 200

return

print "|_|"

text$=text$+"|_|"

x=x+50

wait 200

return

print "/"

text$=text$+"/"

x=x+30

wait 200

return

print "//"

text$=text$+"//"

x=x+70

wait 200

return

print "><"

text$=text$+"><"

x=x+40

wait 200

return

print "`/"

text$=text$+"`/"

x=x+30

wait 200

return

print "2"

text$=text$+"2"

x=x+20

wait 200

return

comma:

print ","

text$=text$+","

x=x+10

wait 200

return

pling:

print "!"

text$=text$+"!"

x=x+10

wait 200

return

question:

print "?"

text$=text$+"?"

x=x+20

wait 200

return

fullstop:

print "."

text$=text$+"."

x=x+10

wait 200

return

space:

text$=text$+" "

x=x+25

wait 200

return

one:

print "1"

text$=text$+"1"

x=x+20

wait 200

return

two:

print "2"

text$=text$+"2"

x=x+20

wait 200

return

three:

print "3"

text$=text$+"3"

x=x+20

wait 200

return

four:

print "4"

text$=text$+"4"

x=x+20

wait 200

return

five:

print "5"

text$=text$+"5"

x=x+20

wait 200

return

six:

print "6"

text$=text$+"6"

x=x+20

wait 200

return

seven:

print "7"

text$=text$+"7"

x=x+20

wait 200

return

eight:

print "8"

text$=text$+"8"

x=x+20

wait 200

return

nine:

print "9"

text$=text$+"9"

x=x+20

wait 200

return

zero:

print "0"

text$=text$+"0"

x=x+20

wait 200

return

hyphen:

print "-"

text$=text$+"-"

x=x+20

wait 200

return

openbracket:

print "("

text$=text$+"("

x=x+20

wait 200

return

closebracket:

print ")"

text$=text$+")"

x=x+20

wait 200

return

rem line change rules

xandy:

if x<900 then return

x=25

y=y+40

if y>=750 then goto mainprog

return

rem procedure when the message is done and user presses return

nxt:

wait 200

center text 500,650, "To clear press c, to quit press q,"

center text 500,675, "to save as l33t_message.txt file press s"

if keystate(46)=1 then goto mainprog

if keystate(16)=1 then end

if keystate(31)=1 then goto save

loop

rem saving file procedure

save:

delete file "l33t_message.txt"

open to write 1, "l33t_message.txt"

write string 1, text$

close file 1

goto mainprog

Download

Please login to download

Comments

No comments yet.

CodeBase - Transl33tor

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	WillG
CodeBase Entries:	1