TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Text

Version: The 1

Information

Uploaded: 8th Oct 2004 15:23

Modified: 8th Oct 2004 15:24

Author: Louiz ofRohr

Summary

Write a multiline text (with backspace, too) in real time using sprites like font...

Full Description

This is the easier way to write some text with spritex, but the largest coding :(...<br /> Sorry... kkkk<br /> Enjoy ;)

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`By LUiZ FERNANDO ... LOUiZ (LOUiZOFF@HOTMAiL.COM)

sync on : sync rate 60

backdrop on : color backdrop RGB(0,0,0)

REM CARREGA AS LETRiNHAS (Load images)

load image "letrasL0.gif.jpg", 27 : load image "letrasL1.gif.jpg", 1 : load image "letrasL2.gif.jpg", 2 : load image "letrasL3.gif.jpg", 3

load image "letrasL4.gif.jpg", 4 : load image "letrasL5.gif.jpg", 5 : load image "letrasL6.gif.jpg", 6 : load image "letrasL7.gif.jpg", 7

load image "letrasL8.gif.jpg", 8 : load image "letrasL9.gif.jpg", 9 : load image "letrasL10.gif.jpg", 10 : load image "letrasL11.gif.jpg", 11

load image "letrasL12.gif.jpg", 12 : load image "letrasL13.gif.jpg", 13 : load image "letrasL14.gif.jpg", 14 : load image "letrasL15.gif.jpg", 15

load image "letrasL16.gif.jpg", 16 : load image "letrasL17.gif.jpg", 17 : load image "letrasL18.gif.jpg", 18 : load image "letrasL19.gif.jpg", 19

load image "letrasL20.gif.jpg", 20 : load image "letrasL21.gif.jpg", 21 : load image "letrasL22.gif.jpg", 22 : load image "letrasL23.gif.jpg", 23

load image "letrasL24.gif.jpg", 24 : load image "letrasL25.gif.jpg", 25 : load image "letrasL26.gif.jpg", 26

REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

x#=2

y#=2

sn#=1

REM ESCREVER (Write)

if spaceKey()=1 THEN sprite sn#, x#, y#, 27 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="a" or inKey$()="A") THEN sprite sn#, x#, y#, 1 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="b" or inKey$()="B") THEN sprite sn#, x#, y#, 2 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="c" or inKey$()="C") THEN sprite sn#, x#, y#, 3 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="d" or inKey$()="D") THEN sprite sn#, x#, y#, 4 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="e" or inKey$()="E") THEN sprite sn#, x#, y#, 5 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="f" or inKey$()="F") THEN sprite sn#, x#, y#, 6 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="g" or inKey$()="G") THEN sprite sn#, x#, y#, 7 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="h" or inKey$()="H") THEN sprite sn#, x#, y#, 8 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="i" or inKey$()="I") THEN sprite sn#, x#, y#, 9 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="j" or inKey$()="J") THEN sprite sn#, x#, y#, 10 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="k" or inKey$()="K") THEN sprite sn#, x#, y#, 11 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="l" or inKey$()="L") THEN sprite sn#, x#, y#, 12 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="m" or inKey$()="M") THEN sprite sn#, x#, y#, 13 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="n" or inKey$()="N") THEN sprite sn#, x#, y#, 14 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="o" or inKey$()="O") THEN sprite sn#, x#, y#, 15 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="p" or inKey$()="P") THEN sprite sn#, x#, y#, 16 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="q" or inKey$()="Q") THEN sprite sn#, x#, y#, 17 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="r" or inKey$()="R") THEN sprite sn#, x#, y#, 18 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="s" or inKey$()="S") THEN sprite sn#, x#, y#, 19 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="t" or inKey$()="T") THEN sprite sn#, x#, y#, 20 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="u" or inKey$()="U") THEN sprite sn#, x#, y#, 21 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="v" or inKey$()="V") THEN sprite sn#, x#, y#, 22 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="w" or inKey$()="W") THEN sprite sn#, x#, y#, 23 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="x" or inKey$()="X") THEN sprite sn#, x#, y#, 24 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="y" or inKey$()="Y") THEN sprite sn#, x#, y#, 25 : x#=x#+19 : sn#=sn#+1 : wait 30

if (inKey$()="z" or inKey$()="Z") THEN sprite sn#, x#, y#, 26 : x#=x#+19 : sn#=sn#+1 : wait 30

if scancode()=14 THEN delete sprite sn#-1: sn#=sn#-1 : x#=x#-19 : wait 40

REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

REM RESPECTiVAMENTE, MUDA DE LiNHA PARA BAiXO, E PARA CiMA (Line down || line up)

CodeBase - Sprite writes

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Louiz ofRohr
CodeBase Entries:	8