TheGameCreators - CodeBase - Star Wars Scroller

Category: 3D Effects

Version: 1.0

Information

Uploaded: 29th Aug 2003 23:30

Modified: 1st Jan 1970 01:00

Author: Richard Davey

Summary

This is a simple but rather cool Star Wars style scroll text routine. It doesn't need any external files. The GIF is a screen shot of the routine in action. You can customise the text as you see fit. Use the cursor keys to control the speed of the text.

Full Description

========================================================== A Screaming Product Of The DARKFORGE (www.darkforge.co.uk) ========================================================== Title Star Wars Scroller Version 1.0 Date March 14th 2000 Files starwars_scroller.dba 3357 Bytes starwars_scroller.gif 19625 Bytes Programmer Richard Davey [email protected] DB Version DarkBasic v1.02 (Registered) License Public Domain Comments This is a simple but rather cool Star Wars style scroll text routine. It doesn't need any external files. The GIF is a screen shot of the routine in action. You can customise the text as you see fit. Use the cursor keys to control the speed of the text. ========================================================== (c) www.darkforge.co.uk 2000 ==========================================================

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

`        STAR WARS Text Scroller

` -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

` By Rich Davey (rich@fatal-design.com)

` -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

` My thanks to Biff Naked for providing

` the music during the coding of this !

` -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

sync rate 40

sync on

hide mouse

` Count the lines of text in the data statements then restore

total_lines=0

repeat

read a$

inc total_lines

until a$="*"

dec total_lines

restore

` We divide by 9 to see how many bitmaps to create

pages=total_lines/9

` Now set-up the text for drawing to a bitmap

` Using this font/size we get 9 lines per "page"

` We use a yellow colour for true Star Wars style!

set text font "Arial"

set text size 28

set text to bold

ink rgb(255,255,0),rgb(0,0,0)

` This loop creates bitmaps and image grabs them

i=1

for p=0 to pages

create bitmap 1,640,256

set current bitmap 1

y=0

for c=0 to 8

read text$

if text$="*" then text$=""

center text 320,y,text$

y=y+28

next c

get image i,192,0,448,256

delete bitmap 1

inc i

next p

startexture=i

` This just creates a 256x256 bitmap and plots 100 stars to it.

` We make sure the stars aren't on the extreme edge, but otherwise

` it's random. Replace with a nice graphic for better effect.

create bitmap 1,256,256

set current bitmap 1

ink rgb(255,255,255),rgb(0,0,0)

for a=0 to 100

dot x,y

x=rnd(254)+1

y=rnd(254)+1

next a

get image startexture,0,0,256,256

delete bitmap 1

` This loop creates one 3D object per page of text

` it scales it for a "wide screen" effect then ghosts it

dec i

z=0

for a=1 to i

make object cube a,50

scale object a,100,0,150

texture object a,a

ghost object on a

position object a,0,0,z

z=z+74

next a

` Now place the camera at the start of the text

` as we're moving the camera, not the actual text itself

c#=-50

position camera 0,1,c#

yrotate camera 180

xrotate camera 20

` Turn on the fogging for that smooth fade-out effect

texture backdrop startexture

fog color rgb(0,0,0)

fog distance 250

fog on

` Finally calculate the vanish value based on total_pages

vanish=(pages*100)+100

` The main loop, just moves the camera along the text slow enough

` to read at a framerate of 40.  Change to suit your tastes.

` Use the up/down arrow keys to scroll text faster and in reverse.

` Remove the upkey and downkey lines to stop this "feature"

update#=0.25

position camera 0,20,c#

c#=c#+update#

if c#>vanish then c#=-50

if upkey() then update#=update#+0.25

if downkey() then update#=update#-0.25

sync

loop

` ---> Scroll Text

` There are 9 lines per "page".

` Maximum of 18 upper-case or 20 lower-case characters per line

` Use a * on its own to signify the end of the text (don't forget this!)

data "STAR WARS"

data "EPISODE TWO"

data ""

data "THE PHANTOM BASIC"

data ""

data "CODED BY"

data "RICHARD DAVEY"

data "IN MARCH 2000"

data ""

data "DEVELOPED WITH"

data "DARK BASIC V1.02"

data ""

data "THIS CODE IS"

data "PUBLIC DOMAIN"

data "FEEL FREE TO USE"

data "IN YOUR OWN GAMES"

data "OR PROGRAMS"

data ""

data "VISIT MY WEB SITE"

data "www.fatal-design.com"

data ""

data "MAY THE FORCE"

data "BE WITH YOU"

data "*"

Download

Please login to download

Comments

No comments yet.

Author Name:	Richard Davey
CodeBase Entries:	57

CodeBase - Star Wars Scroller

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments