TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Miscellaneous

Version: 1.0

Information

Uploaded: 8th Mar 2011 17:55

Modified: 1st Jan 1970 01:00

Author: Kamakazi

Summary

Side scrolling with a background and object.

Full Description

This short code takes an image and scrolls it vertically (background) and places an object on top. The object is controllable by using the cursor keys. Could be used as a starting point of a space shooter. This code contains code work from the Side Scrolling tutorial and adds to it. Simply replace the background and objects with your own.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: Side Scrolling 1

Rem Created: Thursday, February 17, 2011

Rem ***** Main Source File *****

set display mode 800,600,16

sync rate 60

sync on:hide mouse

backdrop off

delay=timer()

ObjectNumber=4

`SecondObject=2

rem load image

set image colorkey 0,0,255

load bitmap "media\level1.png"

rem setup variables

x1=0

y1=0

x2=784

y2=384

rem get sprites

get image 1,0,0,800,600,0

get image 2,x1,y1,x2,y2,0

sprite 1,0,0,1

`sprite 2,x1,y1,2

rem position object

load object "objects\jet.X",ObjectNumber,3

rotate object ObjectNumber,260,0,180

scale object ObjectNumber,35,35,35

fix object pivot ObjectNumber

point object ObjectNumber,0,0,0

position object ObjectNumber,0,0,0

move object down ObjectNumber,10

rem main

spr=1

draw sprites first

repeat

if leftkey()=1 and timer()>delay+50

move object left ObjectNumber,1

delay=timer()

endif

if rightkey()=1 and timer()>delay+50

move object right ObjectNumber,1

delay=timer()

endif

if upkey()=1 and timer()>delay+50

move object up ObjectNumber,1

delay=timer()

endif

if downkey()=1 and timer()>delay+50

move object down ObjectNumber,1

delay=timer()

endif

if x>0 and rightkey()=0 then x=x-1

if x<0 and leftkey()=0 then x=x+1

tv#=tv#+0.001

set sprite texture coord spr,0,0.0,0.0-tv#

set sprite texture coord spr,1,1.0,0.0-tv#

set sprite texture coord spr,2,0.0,1.0-tv#

set sprite texture coord spr,3,1.0,1.0-tv#

sync

until spacekey()=1

delete object ObjectNumber

delete object SecondObject

Download

Please login to download

Comments

No comments yet.

CodeBase - Side Scroller

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Kamakazi
CodeBase Entries:	1