Side scrolling with a background and object.

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.

                                    ` 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