Sorry your browser is not supported!

sync on
sync rate 99



`load sound "bummer.wav", 4
`load music "kickoff.mid", 1
`load music "stagemusic.mid", 2


`load image "sombg.bmp", 1
load image "eccohorse.bmp", 2
load image "shinforward.bmp", 3
load image "shin.bmp", 4







`create animated sprite 2, "eccohorse.bmp", 9,2,2

create animated sprite 3, "shinforward.bmp", 3,1,3





sync
repeat



`paste image 1,0,0

sync

`play sprite 2,10,18,50


sync
 `paste sprite 2,300,200,
shinx = 300
dirshinx = 1
shinframe = 0
shinframe = shinframe + 1

`play sprite 3,1,3,40


sprite 3,shinx,200,1+shinframe

shinx = shinx+dirshinx

if shinframe > 3 then shinframe = 0


 if shinx < 640

 shinx = shinx + dirshinx
 play sprite 3,1,3,50



 endif


 remstart

 shinx = shinx + dirshinx
if shinx > 640
shinx = 640
play sprite 4,1,3,50
dirshinx = dirshinx * -1

endif

if shinx < 0
shinx = 0
play sprite 3,1,3,50
dirshinx = dirshinx * -1

endif

remend



sync

until (escapekey() = 1)

`loads animated image
create animated sprite 1,"some.bmp",3,1,1

set sprite frame 1,1


playerx = 1
playery = 200
do

sprite 1,playerx,playery,1




play sprite 1,1,3,50

`moves the image across the screen 
inc playerx,2

sync
loop