TheGameCreators - CodeBase - Sphere Hopper (Level 1)

Return to the CodeBase listing

Category: 3D

Version: 1.0

Information

Uploaded: 6th Mar 2009 13:57

Modified: 4th Aug 2009 00:15

Author: Daygamer

Summary

Jump gaps, ride moving platform and dodge enemies. No Media!

Full Description

Welcome to Sphere Hopper. This is the Internet version my best game so far. The real version had sound, and a skybox, and you had to do the levels in order, but this is just about as good. I'm working on Sphere Hopper 2, and it is much improved in every way. I hope to make a webpage to put them on someday, but you can go ahead and give this version a try right now if you want. I had to split the game up into three program to fit it on Dark Basic's wonderful website. The goal of my game is to get to the endgate which is a blue sphere. Ride moving platforms and watch out for Sphere's enemies. Also, for fun, you can collect the jewel scatter across the level. See if you can grab all six on every level. The first level is fun but difficult. Good Luck, and please try level two when you're done!!!

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

hide mouse

ink rgb(85,0,85),0

Menu:

cls

set text size 30 : center text 320,50,"PRESS SPACE TO PLAY OR"

set text size 30 : center text 320,90,"PRESS ENTER TO SEE CONTROLS"

if spacekey()=1

gosub L1

endif

if returnkey()=1

gosub HTP

endif

loop

HTP:

cls

wait 200

set text size 25 : center text 200,30,"UP = MOVE FORWARD"

set text size 25 : center text 200,70,"DOWN = MOVE BACKWARD"

set text size 25 : center text 200,110,"RIGHT = TURN RIGHT"

set text size 25 : center text 500,30,"LEFT = TURN LEFT"

set text size 25 : center text 500,70,"SPACE = JUMP"

set text size 25 : center text 500,110,"P = PAUSE"

set text size 20 : center text 320,170,"PRESS ENTER TO RETURN TO MENU"

if returnkey()=1

gosub Menu

endif

loop

rem level 1 ================================================================

L1:

cls

set text size 80 : center text 320,170,"SPHERE HOPPER"

wait 1000

set text size 70 : center text 320,250,"LEVEL 1"

wait 3000

cls

autocam off : hide mouse

sync on : sync rate 30

ink rgb(1000,1000,1000),0

rem controled object

make object sphere 1,1.5

color object 1,rgb(30,30,225)

position object 1,0,5,0

make object collision box 1,-0.5,-0.5,-0.5,0.5,0.5,0.5,0

rem end gate

make object sphere 99,8

color object 99,rgb(30,30,225)

position object 99,160,13.75,-37

ghost object on 99

make object box 98,5,0,5

position object 98,160,13.75,-37

hide object 98

rem sky

color backdrop 0

rem ground boxes

make object box 3,20,2,20

color object 3,rgb(85,0,85)

make static object 3

objx#=object position x(3)

objy#=object position y(3)

objz#=object position z(3)

objsx#=object size x(3)/2.0

objsy#=object size y(3)/2.0

objsz#=object size z(3)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 4,7.5,2,10

color object 4,rgb(85,0,85)

position object 4,0,0,15

make static object 4

objx#=object position x(4)

objy#=object position y(4)

objz#=object position z(4)

objsx#=object size x(4)/2.0

objsy#=object size y(4)/2.0

objsz#=object size z(4)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 5,20,2,10

color object 5,rgb(85,0,85)

position object 5,0,0,25

make static object 5

objx#=object position x(5)

objy#=object position y(5)

objz#=object position z(5)

objsx#=object size x(5)/2.0

objsy#=object size y(5)/2.0

objsz#=object size z(5)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 6,7.5,2,10

color object 6,rgb(85,0,85)

position object 6,6.25,0,35

make static object 6

objx#=object position x(6)

objy#=object position y(6)

objz#=object position z(6)

objsx#=object size x(6)/2.0

objsy#=object size y(6)/2.0

objsz#=object size z(6)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 7,20,2,10

color object 7,rgb(85,0,85)

position object 7,0,0,50

make static object 7

objx#=object position x(7)

objy#=object position y(7)

objz#=object position z(7)

objsx#=object size x(7)/2.0

objsy#=object size y(7)/2.0

objsz#=object size z(7)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 9,20,2,10

color object 9,rgb(85,0,85)

position object 9,0,0,100

make static object 9

objx#=object position x(9)

objy#=object position y(9)

objz#=object position z(9)

objsx#=object size x(9)/2.0

objsy#=object size y(9)/2.0

objsz#=object size z(9)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 8,20,2,10

color object 8,rgb(85,0,85)

position object 8,70,0,100

make static object 8

objx#=object position x(8)

objy#=object position y(8)

objz#=object position z(8)

objsx#=object size x(8)/2.0

objsy#=object size y(8)/2.0

objsz#=object size z(8)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 10,40,2,20

color object 10,rgb(85,0,85)

position object 10,70,0,50

make static object 10

objx#=object position x(10)

objy#=object position y(10)

objz#=object position z(10)

objsx#=object size x(10)/2.0

objsy#=object size y(10)/2.0

objsz#=object size z(10)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 11,8,2,8

color object 11,rgb(85,0,85)

position object 11,-25,0,100

make static object 11

objx#=object position x(11)

objy#=object position y(11)

objz#=object position z(11)

objsx#=object size x(11)/2.0

objsy#=object size y(11)/2.0

objsz#=object size z(11)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 12,8,2,8

color object 12,rgb(85,0,85)

position object 12,115,12,15

make static object 12

objx#=object position x(12)

objy#=object position y(12)

objz#=object position z(12)

objsx#=object size x(12)/2.0

objsy#=object size y(12)/2.0

objsz#=object size z(12)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 13,8,2,8

color object 13,rgb(85,0,85)

position object 13,115,9,30

make static object 13

objx#=object position x(13)

objy#=object position y(13)

objz#=object position z(13)

objsx#=object size x(13)/2.0

objsy#=object size y(13)/2.0

objsz#=object size z(13)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 14,8,2,8

color object 14,rgb(85,0,85)

position object 14,100,6,30

make static object 14

objx#=object position x(14)

objy#=object position y(14)

objz#=object position z(14)

objsx#=object size x(14)/2.0

objsy#=object size y(14)/2.0

objsz#=object size z(14)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 15,8,2,8

color object 15,rgb(85,0,85)

position object 15,100,3,45

make static object 15

objx#=object position x(15)

objy#=object position y(15)

objz#=object position z(15)

objsx#=object size x(15)/2.0

objsy#=object size y(15)/2.0

objsz#=object size z(15)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 16,8,2,8

color object 16,rgb(85,0,85)

position object 16,44,3,56

make static object 16

objx#=object position x(16)

objy#=object position y(16)

objz#=object position z(16)

objsx#=object size x(16)/2.0

objsy#=object size y(16)/2.0

objsz#=object size z(16)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 17,8,2,8

color object 17,rgb(85,0,85)

position object 17,44,6,66

make static object 17

objx#=object position x(17)

objy#=object position y(17)

objz#=object position z(17)

objsx#=object size x(17)/2.0

objsy#=object size y(17)/2.0

objsz#=object size z(17)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 18,8,2,8

color object 18,rgb(85,0,85)

position object 18,44,9,76

make static object 18

objx#=object position x(18)

objy#=object position y(18)

objz#=object position z(18)

objsx#=object size x(18)/2.0

objsy#=object size y(18)/2.0

objsz#=object size z(18)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 19,8,2,8

color object 19,rgb(85,0,85)

position object 19,34,9,76

make static object 19

objx#=object position x(19)

objy#=object position y(19)

objz#=object position z(19)

objsx#=object size x(19)/2.0

objsy#=object size y(19)/2.0

objsz#=object size z(19)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 20,30,2,30

color object 20,rgb(85,0,85)

position object 20,30,12,97

make static object 20

objx#=object position x(20)

objy#=object position y(20)

objz#=object position z(20)

objsx#=object size x(20)/2.0

objsy#=object size y(20)/2.0

objsz#=object size z(20)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 21,30,2,10

color object 21,rgb(85,0,85)

position object 21,30,12,127

make static object 21

objx#=object position x(21)

objy#=object position y(21)

objz#=object position z(21)

objsx#=object size x(21)/2.0

objsy#=object size y(21)/2.0

objsz#=object size z(21)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 22,30,2,6

color object 22,rgb(85,0,85)

position object 22,73,12,125

make static object 22

objx#=object position x(22)

objy#=object position y(22)

objz#=object position z(22)

objsx#=object size x(22)/2.0

objsy#=object size y(22)/2.0

objsz#=object size z(22)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 23,8,2,8

color object 23,rgb(85,0,85)

position object 23,30,14,220

make static object 23

objx#=object position x(23)

objy#=object position y(23)

objz#=object position z(23)

objsx#=object size x(23)/2.0

objsy#=object size y(23)/2.0

objsz#=object size z(23)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 24,8,2,8

color object 24,rgb(85,0,85)

position object 24,30,14,170

make static object 24

objx#=object position x(24)

objy#=object position y(24)

objz#=object position z(24)

objsx#=object size x(24)/2.0

objsy#=object size y(24)/2.0

objsz#=object size z(24)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 25,30,2,6

color object 25,rgb(85,0,85)

position object 25,115,12,125

make static object 25

objx#=object position x(25)

objy#=object position y(25)

objz#=object position z(25)

objsx#=object size x(25)/2.0

objsy#=object size y(25)/2.0

objsz#=object size z(25)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 26,30,2,6

color object 26,rgb(85,0,85)

position object 26,160,12,125

make static object 26

objx#=object position x(26)

objy#=object position y(26)

objz#=object position z(26)

objsx#=object size x(26)/2.0

objsy#=object size y(26)/2.0

objsz#=object size z(26)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

make object box 27,30,2,30

color object 27,rgb(85,0,85)

position object 27,160,12,-37

make static object 27

objx#=object position x(27)

objy#=object position y(27)

objz#=object position z(27)

objsx#=object size x(27)/2.0

objsy#=object size y(27)/2.0

objsz#=object size z(27)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

rem jewels

make object cube 175,1

make object cone 75,1 : xrotate object 75,180 : color object 75,rgb(750,10,0)

position object 75,-7,2,25

position object 175,-7,2,25

hide object 175

make object cube 176,1

make object cone 76,1 : xrotate object 76,180 : color object 76,rgb(750,10,0)

position object 76,-25,2,100

position object 176,-25,2,100

hide object 176

make object cube 177,1

make object cone 77,1 : xrotate object 77,180 : color object 77,rgb(750,10,0)

position object 77,115,14,15

position object 177,115,14,15

hide object 177

make object cube 178,1

make object cone 78,1 : xrotate object 78,180 : color object 78,rgb(750,10,0)

position object 78,34,11,76

position object 178,34,11,76

hide object 178

make object cube 179,1

make object cone 79,1 : xrotate object 79,180 : color object 79,rgb(750,10,0)

position object 79,30,16,220

position object 179,30,16,220

hide object 179

make object cube 180,1

make object cone 80,1 : xrotate object 80,180 : color object 80,rgb(750,10,0)

position object 80,160,14,50

position object 180,160,14,50

hide object 180

rem jewel conterparts

make object cone 275,1 : xrotate object 275,180

position object 275,165,21,-37.5

make object cone 276,1 : xrotate object 276,180

position object 276,163,21,-37.5

make object cone 277,1 : xrotate object 277,180

position object 277,161,21,-37.5

make object cone 278,1 : xrotate object 278,180

position object 278,159,21,-37.5

make object cone 279,1 : xrotate object 279,180

position object 279,157,21,-37.5

make object cone 280,1 : xrotate object 280,180

position object 280,155,21,-37.5

rem moving platforms

make object box 100,10,1,10

color object 100,rgb(0,100,0)

position object 100,0,-0.1,70

make object collision box 100,-5,-1,-5,5,1,5,0

make object box 101,10,1,10

color object 101,rgb(0,100,0)

position object 101,30,-0.1,100

point object 101,100,-0.1,100

make object collision box 101,-5,-1,-5,5,1,5,0

make object box 102,10,1,10

color object 102,rgb(0,100,0)

position object 102,70,-0.1,70

make object collision box 102,-5,-1,-5,5,1,5,0

make object box 103,10,1,10

color object 103,rgb(0,100,0)

position object 103,30,12,150

make object collision box 103,-5,-1,-5,5,1,5,0

make object box 104,10,1,10

color object 104,rgb(0,100,0)

position object 104,160,12,75

make object collision box 104,-5,-1,-5,5,1,5,0

point object 104,160,12,125

make object box 105,10,1,10

color object 105,rgb(0,100,0)

position object 105,160,12,25

make object collision box 105,-5,-1,-5,5,1,5,0

point object 105,160,12,-25

rem enimies

make object box 200,5,5,5

color object 200,rgb(1000,10,10)

position object 200,70,2.5,45

point object 200,60,2.5,45

make object box 201,5,5,5

color object 201,rgb(1000,10,10)

position object 201,70,2.5,55

point object 201,80,2.5,55

make object box 202,5,5,5

color object 202,rgb(1000,10,10)

position object 202,40,14,97

point object 202,42.5,14,85

make object box 203,5,5,5

color object 203,rgb(1000,10,10)

position object 203,20,14,97

point object 203,18.5,14,110

make object box 204,5,5,5

color object 204,rgb(1000,10,10)

position object 204,30,14,87

point object 204,18.5,14,85

make object box 205,5,5,5

color object 205,rgb(1000,10,10)

position object 205,30,14,107

point object 205,42.5,14,110

make object box 206,5,5,5

color object 206,rgb(1000,10,10)

position object 206,73,14,125

point object 206,70,14,125

make object box 207,5,5,5

color object 207,rgb(1000,10,10)

position object 207,160,14,125

point object 207,70,14,125

rem stopers

make object box 300,0,5,20

position object 300,50,0,50

hide object 300

make object box 301,0,5,20

position object 301,90,0,50

hide object 301

make object box 302,1,1,1

position object 302,42.5,14,85

hide object 302

make object box 303,1,1,1

position object 303,18.5,14,85

hide object 303

make object box 304,1,1,1

position object 304,18.5,14,110

hide object 304

make object box 305,1,1,1

position object 305,42.5,14,110

hide object 305

make object box 306,8,2,0

position object 306,30,12,228

hide object 306

make object box 307,0,2,10

position object 307,88,14,125

hide object 307

make object box 308,0,2,10

position object 308,58,14,125

hide object 308

make object box 309,0,2,10

position object 309,175,14,125

hide object 309

make object box 310,0,2,10

position object 310,145,14,125

hide object 310

make object box 350,3000,100,3000

position object 350,0,-80,0

hide object 350

rem start off player gravity

playergrav#=0.1

rem

rem MX# = object position x(100)

rem MY# = object position y(100)

rem main loop --------------------------------------------------------------

rem level 1 print

center text 320,20,"LEVEL 1"

set text to italic

set text size 40

rem move platforms and enimies; rotate jewels

move object 100,0.08

move object 101,0.08

move object 102,0.08

move object 200,0.2

move object 201,0.2

move object 202,0.2

move object 203,0.2

move object 204,0.2

move object 205,0.2

move object 206,0.2

move object 103,0.08

move object 207,0.2

move object 104,0.08

move object 105,0.08

yrotate object 75,wrapvalue(object angle y(75)-2)

yrotate object 76,wrapvalue(object angle y(76)-2)

yrotate object 77,wrapvalue(object angle y(77)-2)

yrotate object 78,wrapvalue(object angle y(78)-2)

yrotate object 79,wrapvalue(object angle y(79)-2)

yrotate object 80,wrapvalue(object angle y(80)-2)

rem pickup jewel

if object collision(1,175) then hide object 75 : position object 175,0,-80,0 : color object 275,rgb(750,10,0)

if object collision(1,176) then hide object 76 : position object 176,0,-80,0 : color object 276,rgb(750,10,0)

if object collision(1,177) then hide object 77 : position object 177,0,-80,0 : color object 277,rgb(750,10,0)

if object collision(1,178) then hide object 78 : position object 178,0,-80,0 : color object 278,rgb(750,10,0)

if object collision(1,179) then hide object 79 : position object 179,0,-80,0 : color object 279,rgb(750,10,0)

if object collision(1,180) then hide object 80 : position object 180,0,-80,0 : color object 280,rgb(750,10,0)

if object collision(350,180) then yrotate object 280,wrapvalue(object angle y(280)-4)

if object collision(350,179) then yrotate object 279,wrapvalue(object angle y(279)-4)

if object collision(350,178) then yrotate object 278,wrapvalue(object angle y(278)-4)

if object collision(350,177) then yrotate object 277,wrapvalue(object angle y(277)-4)

if object collision(350,176) then yrotate object 276,wrapvalue(object angle y(276)-4)

if object collision(350,175) then yrotate object 275,wrapvalue(object angle y(275)-4)

rem control moving platforms

if object collision(100,7) then point object 100,0,0,100

if object collision(100,9) then point object 100,0,0,50

if object collision(101,9) then point object 101,50,0,100

if object collision(101,8) then point object 101,0,0,100

if object collision(102,8) then point object 102,70,0,50

if object collision(102,10) then point object 102,70,0,100

if object collision(103,21) then point object 103,30,12,200

if object collision(103,306) then point object 103,30,12,150

if object collision(104,26) then point object 104,160,12,-25

if object collision(104,105) then point object 104,160,12,125 : point object 105,160,12,-25

if object collision(105,27) then point object 105,160,12,125

rem control enimies

if object collision(200,300) then point object 200,70,2.5,45

if object collision(200,301) then point object 200,70,2.5,45

if object collision(201,300) then point object 201,70,2.5,55

if object collision(201,301) then point object 201,70,2.5,55

if object collision(202,302) then point object 202,18.5,14,85

if object collision(202,303) then point object 202,18.5,14,110

if object collision(202,304) then point object 202,42.5,14,110

if object collision(202,305) then point object 202,42.5,14,85

if object collision(203,302) then point object 203,18.5,14,85

if object collision(203,303) then point object 203,18.5,14,110

if object collision(203,304) then point object 203,42.5,14,110

if object collision(203,305) then point object 203,42.5,14,85

if object collision(204,302) then point object 204,18.5,14,85

if object collision(204,303) then point object 204,18.5,14,110

if object collision(204,304) then point object 204,42.5,14,110

if object collision(204,305) then point object 204,42.5,14,85

if object collision(205,302) then point object 205,18.5,14,85

if object collision(205,303) then point object 205,18.5,14,110

if object collision(205,304) then point object 205,42.5,14,110

if object collision(205,305) then point object 205,42.5,14,85

if object collision(206,307) then point object 206,58,14,125

if object collision(206,308) then point object 206,88,14,125

if object collision(207,309) then point object 207,145,14,125

if object collision(207,310) then point object 207,175,14,125

rem game over

if object collision(1,350) then delete object 350 : wait 3000 : position object 1,0,5,0 : point object 1,0,0,100 : make object box 350,3000,100,3000 : position object 350,0,-100,0 : hide object 350

if object collision(1,200) then wait 3000 : position object 1,0,5,0 : point object 1,0,0,100

if object collision(1,201) then wait 3000 : position object 1,0,5,0 : point object 1,0,0,100

if object collision(1,202) then wait 3000 : position object 1,0,5,0 : point object 1,0,0,100

if object collision(1,203) then wait 3000 : position object 1,0,5,0 : point object 1,0,0,100

if object collision(1,204) then wait 3000 : position object 1,0,5,0 : point object 1,0,0,100

if object collision(1,205) then wait 3000 : position object 1,0,5,0 : point object 1,0,0,100

if object collision(1,206) then wait 3000 : position object 1,0,5,0 : point object 1,0,0,100

if object collision(1,207) then wait 3000 : position object 1,0,5,0 : point object 1,0,0,100

rem enter endgate

if object collision(1,98) then if spacekey()=1

delete object 3

delete object 4

delete object 5

delete object 6

delete object 7

delete object 8

delete object 9

delete object 10

delete object 11

delete object 12

delete object 13

delete object 14

delete object 15

delete object 16

delete object 17

delete object 18

delete object 19

delete object 20

delete object 21

delete object 22

delete object 23

delete object 24

delete object 25

delete object 26

delete object 27

delete object 300

delete object 301

delete object 302

delete object 303

delete object 304

delete object 305

delete object 306

delete object 307

delete object 308

delete object 309

delete object 310

delete object 350

gosub W

endif

rem Store old positions

oldposx#=object position x(1)

oldposy#=object position y(1)

oldposz#=object position z(1)

rem controls

if upkey()=1 then move object 1,0.35

if downkey()=1 then move object 1,-0.35

if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-3)

if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+3)

if spacekey()=1 and playergrav#=0 then playergrav#=0.35

if inkey$()="p" then wait 500 : suspend for key

if inkey$()="t" then position camera 0,5,-1 : point camera 0,5,0

rem get current object position

posx#=object position x(1)

posy#=object position y(1)

posz#=object position z(1)

rem gravity

playergrav#=playergrav#-0.01

posy#=posy#+playergrav#

rem sliding collision

position object 1,posx#,posy#,posz#

if object collision(1,0)>0

dec posx#,get object collision x()

dec posy#,get object collision y()

dec posz#,get object collision z()

playergrav#=-0.0

endif

rem Set size for controled object

s#=object size y(1)/2.0

rem Ensure camera stays out of static boxes

if get static collision hit(oldposx#-s#,oldposy#-s#,oldposz#-s#,oldposx#+s#,oldposy#+s#,oldposz#+s#,posx#-s#,posy#-s#,posz#-s#,posx#+s#,posy#+s#,posz#+s#)=1

dec posx#,get static collision x()

dec posy#,get static collision y()

dec posz#,get static collision z()

if get static collision y()<>0.0 then playergrav#=0.0

endif

rem Update with new object position

position object 1,posx#,posy#,posz#

rem camera

angle#=object angle y(1)

camdist#=5.5 : camhigh#=posy#+0.8 : camfade#=3.5

set camera to follow posx#,posy#,posz#,angle#,camdist#,camhigh#,camfade#,1

xrotate camera 10

rem end loop

sync

loop

rem win

set text to bold : set text size 60 : center text 320,70,"CONGRATULATIONS"

set text size 40 : center text 320,130,"TRY THE OTHER TWO LEVELS"

loop

suspend for key

end

Download

Please login to download

Comments

No comments yet.

Author Name:	Daygamer
CodeBase Entries:	22

CodeBase - Sphere Hopper (Level 1)

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments