TheGameCreators - CodeBase - Flying text characters

Return to the CodeBase listing

Category: Text

Version: 1.0

Information

Uploaded: 13th Dec 2005 12:52

Modified: 1st Jan 1970 01:00

Author: MonoCoder

Summary

Simple code that, with maybe some tweeking to make the letters settle faster, could be used in a program.

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Sync On

Sync Rate 0

Dim Chars#(1400,6)

Dim Chars$(1400)

remstart

Chars#(,1) current x pos

Chars#(,2) current y pos

Chars#(,3) final x pos

Chars#(,4) final y pos

Chars#(,5) x speed

Chars#(,6) y speed

chars$()  letter

remend

message$="Replace this message with whatever you like..."

sw=screen width()

sh=screen height()

x=20

y=0

messagepoint=1

For n=1 to 1400

If (mid$(message$,messagepoint)=" " and x=20)=0

Chars$(n)=mid$(message$,messagepoint)

Chars#(n,1)=-400+rnd((sw+400))

Chars#(n,2)=-400+rnd((sh+400))

Chars#(n,3)=x

Chars#(n,4)=y

x=x+7

If x=>sw-80 and mid$(message$,n)=" " or x=>sw-20

x=20

y=y+11

Endif

messagepoint=messagepoint+1

Next n

rem update position of characters and draw to screen

For n=1 to 1400

If chars$(n)<>" " and chars$(n)<>""

If Chars#(n,1)<Chars#(n,3)

Chars#(n,5)=Chars#(n,5)+0.1

If Chars#(n,5)<0 then Chars#(n,5)=Chars#(n,5)+0.04

Endif

If Chars#(n,2)<Chars#(n,4)

Chars#(n,6)=Chars#(n,6)+0.1

If Chars#(n,6)<0 then Chars#(n,6)=Chars#(n,6)+0.04

Endif

If Chars#(n,1)>Chars#(n,3)

Chars#(n,5)=Chars#(n,5)-0.1

If Chars#(n,5)>0 then Chars#(n,5)=Chars#(n,5)-0.04

Endif

If Chars#(n,2)>Chars#(n,4)

Chars#(n,6)=Chars#(n,6)-0.1

If Chars#(n,6)>0 then Chars#(n,6)=Chars#(n,6)-0.04

Endif

Chars#(n,1)=Chars#(n,1)+Chars#(n,5)

Chars#(n,2)=Chars#(n,2)+Chars#(n,6)

If Chars#(n,1)=>Chars#(n,3)-1.4 and Chars#(n,2)=>Chars#(n,4)-1.4 and Chars#(n,1)=<Chars#(n,3)+1.4 and Chars#(n,2)=<Chars#(n,4)+1.4 and Chars#(n,5)=>-0.14 and Chars#(n,6)=>-0.14 and Chars#(n,5)=<0.14 and Chars#(n,6)=<0.14

Chars#(n,1)=Chars#(n,3)

Chars#(n,2)=Chars#(n,4)

Chars#(n,5)=0

Chars#(n,6)=0

Endif

Text Chars#(n,1),Chars#(n,2),chars$(n)

Endif

Next n

If mouseclick()=1

If mclick=0

For n=1 to 1400

Chars#(n,5)=Chars#(n,5)*1.05

Chars#(n,6)=Chars#(n,6)*1.05

Next n

Endif

mclick=1

Else

mclick=0

Endif

Sync

Cls 0

Loop

Download

Please login to download

Comments

No comments yet.

Author Name:	MonoCoder
CodeBase Entries:	4

CodeBase - Flying text characters

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments