TheGameCreators - CodeBase - Sphere Hopper (Level 3)

Return to the CodeBase listing

Category: 3D

Version: 1.0

Information

Uploaded: 6th Mar 2009 14:06

Modified: 4th Aug 2009 00:21

Author: Daygamer

Summary

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

Full Description

Like I said on level 2 if you are reading this and you haven't played the previous levels you might want to play them before you venture into this one. The third level of Sphere Hopper is the hardest by far. The enemies are fast. The gaps are large. There are not very many moving platforms. And it all comes down to the difficult, dramatic ending at the end of level 3. You must stay on a moving platform with out falling off while dodging enemies. The moving platform carries you all over the place, and eventually leads to the Final End Gate. I only know of a couple of people that have beaten it. If you find it impossible then don't feel bad. Good Luck!!!

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 L3

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 3 ================================================================

L3:

cls

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

wait 1000

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

wait 3000

cls

autocam off : hide mouse

sync on : sync rate 30

ink rgb(1000,1000,1000),0

rem put controled object in level 3

make object sphere 1,1.5

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

position object 1,0,20005,0

point object 1,0,20005,100

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

rem end gate

make object sphere 95,8

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

position object 95,-570,20011.5,30

ghost object on 95

make object box 94,5,0,5

position object 94,-570,20012,30

hide object 94

rem sky

color backdrop 0

rem ground boxes

make object box 3,20,2,10

position object 3,0,20000,0

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,20,2,20

position object 4,0,20000,25

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

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,40

position object 5,0,20000,-35

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

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,20,2,15

position object 6,0,20015,-70

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

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,15

position object 7,0,20015,-15

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

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 8,20,2,10

position object 8,0,20003.5,-62

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

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 9,20,2,10

position object 9,0,20007,-74

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

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 10,20,2,10

position object 10,0,20010.5,-86

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

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,30,2,13

position object 11,-25,20000,28.5

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

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,30,2,13

position object 12,-50,20000,21.5

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

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,30,2,7

position object 13,-72.5,20000,31.5

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

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,7,2,20

position object 14,-86,20000,25

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

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,7,2,25

position object 15,-106,20000,25

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

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,20,2,7

position object 16,-116,20000,16

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

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,20,2,7

position object 17,-116,20000,34

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

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,7,2,7

position object 18,-166,20000,17

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

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,7,2,7

position object 19,-182,20002,20

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

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,7,2,7

position object 20,-185,20007.5,37.5

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

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,7,2,7

position object 21,-215,20005,30

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

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,7,2,7

position object 22,-220,20010,18

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

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,7,2,7

position object 23,-220,20010,-10

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

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,7,2,7

position object 24,-280,20010,18

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

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,7,2,30

position object 25,-300,20010,23

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

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,35,2,7

position object 26,-320,20010,34.5

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

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,7,2,30

position object 27,-340,20010,23

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

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#

make object box 28,7,2,7

position object 28,-360,20010,18

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

make static object 28

objx#=object position x(28)

objy#=object position y(28)

objz#=object position z(28)

objsx#=object size x(28)/2.0

objsy#=object size y(28)/2.0

objsz#=object size z(28)/2.0

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

make object box 29,7,2,7

position object 29,-360,20010,32

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

make static object 29

objx#=object position x(29)

objy#=object position y(29)

objz#=object position z(29)

objsx#=object size x(29)/2.0

objsy#=object size y(29)/2.0

objsz#=object size z(29)/2.0

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

make object box 30,7,2,30

position object 30,-380,20010,21

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

make static object 30

objx#=object position x(30)

objy#=object position y(30)

objz#=object position z(30)

objsx#=object size x(30)/2.0

objsy#=object size y(30)/2.0

objsz#=object size z(30)/2.0

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

make object box 31,30,2,7

position object 31,-391.5,20010,9.5

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

make static object 31

objx#=object position x(31)

objy#=object position y(31)

objz#=object position z(31)

objsx#=object size x(31)/2.0

objsy#=object size y(31)/2.0

objsz#=object size z(31)/2.0

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

make object box 32,7,2,45

position object 32,-391.5,20010,-15

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

make static object 32

objx#=object position x(32)

objy#=object position y(32)

objz#=object position z(32)

objsx#=object size x(32)/2.0

objsy#=object size y(32)/2.0

objsz#=object size z(32)/2.0

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

make object box 33,20,2,7

position object 33,-398,20010,-40.5

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

make static object 33

objx#=object position x(33)

objy#=object position y(33)

objz#=object position z(33)

objsx#=object size x(33)/2.0

objsy#=object size y(33)/2.0

objsz#=object size z(33)/2.0

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

make object box 34,7,2,33

position object 34,-408.5,20010,-53.5

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

make static object 34

objx#=object position x(34)

objy#=object position y(34)

objz#=object position z(34)

objsx#=object size x(34)/2.0

objsy#=object size y(34)/2.0

objsz#=object size z(34)/2.0

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

make object box 35,14,2,20

position object 35,-405,20010,-71.5

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

make static object 35

objx#=object position x(35)

objy#=object position y(35)

objz#=object position z(35)

objsx#=object size x(35)/2.0

objsy#=object size y(35)/2.0

objsz#=object size z(35)/2.0

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

make object box 36,20,2,20

position object 36,-570,20010,30

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

make static object 36

objx#=object position x(36)

objy#=object position y(36)

objz#=object position z(36)

objsx#=object size x(36)/2.0

objsy#=object size y(36)/2.0

objsz#=object size z(36)/2.0

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

make object box 37,7,2,40

position object 37,-320,20010,54.5

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

make static object 37

objx#=object position x(37)

objy#=object position y(37)

objz#=object position z(37)

objsx#=object size x(37)/2.0

objsy#=object size y(37)/2.0

objsz#=object size z(37)/2.0

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

make object box 38,7,2,7

position object 38,-320,20015.5,71

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

make static object 38

objx#=object position x(38)

objy#=object position y(38)

objz#=object position z(38)

objsx#=object size x(38)/2.0

objsy#=object size y(38)/2.0

objsz#=object size z(38)/2.0

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

make object box 39,20,2,20

position object 39,-280,20012,71

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

make static object 39

objx#=object position x(39)

objy#=object position y(39)

objz#=object position z(39)

objsx#=object size x(39)/2.0

objsy#=object size y(39)/2.0

objsz#=object size z(39)/2.0

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

make object box 40,7,2,7

position object 40,-280,20015,87

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

make static object 40

objx#=object position x(40)

objy#=object position y(40)

objz#=object position z(40)

objsx#=object size x(40)/2.0

objsy#=object size y(40)/2.0

objsz#=object size z(40)/2.0

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

make object box 41,7,2,7

position object 41,-290,20020,87

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

make static object 41

objx#=object position x(41)

objy#=object position y(41)

objz#=object position z(41)

objsx#=object size x(41)/2.0

objsy#=object size y(41)/2.0

objsz#=object size z(41)/2.0

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

make object box 42,7,2,7

position object 42,-290,20025,77

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

make static object 42

objx#=object position x(42)

objy#=object position y(42)

objz#=object position z(42)

objsx#=object size x(42)/2.0

objsy#=object size y(42)/2.0

objsz#=object size z(42)/2.0

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

make object box 43,7,2,7

position object 43,-280,20030,77

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

make static object 43

objx#=object position x(43)

objy#=object position y(43)

objz#=object position z(43)

objsx#=object size x(43)/2.0

objsy#=object size y(43)/2.0

objsz#=object size z(43)/2.0

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

make object box 44,7,2,7

position object 44,-280,20035,87

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

make static object 44

objx#=object position x(44)

objy#=object position y(44)

objz#=object position z(44)

objsx#=object size x(44)/2.0

objsy#=object size y(44)/2.0

objsz#=object size z(44)/2.0

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

make object box 45,7,2,7

position object 45,-290,20040,87

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

make static object 45

objx#=object position x(45)

objy#=object position y(45)

objz#=object position z(45)

objsx#=object size x(45)/2.0

objsy#=object size y(45)/2.0

objsz#=object size z(45)/2.0

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

make object box 46,7,2,7

position object 46,-290,20045,77

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

make static object 46

objx#=object position x(46)

objy#=object position y(46)

objz#=object position z(46)

objsx#=object size x(46)/2.0

objsy#=object size y(46)/2.0

objsz#=object size z(46)/2.0

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

make object box 47,7,2,7

position object 47,-280,20050,77

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

make static object 47

objx#=object position x(47)

objy#=object position y(47)

objz#=object position z(47)

objsx#=object size x(47)/2.0

objsy#=object size y(47)/2.0

objsz#=object size z(47)/2.0

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

make object box 48,10,2,10

position object 48,-280,20053,65

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

make static object 48

objx#=object position x(48)

objy#=object position y(48)

objz#=object position z(48)

objsx#=object size x(48)/2.0

objsy#=object size y(48)/2.0

objsz#=object size z(48)/2.0

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

rem jewels

make object cube 181,1

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

position object 81,0,20017,-15

position object 181,0,20017,-15

hide object 181

make object cube 182,1

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

position object 82,-60,20002,20

position object 182,-60,20002,20

hide object 182

make object cube 183,1

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

position object 83,-220,20012,-10

position object 183,-220,20012,-10

hide object 183

make object cube 164,1

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

position object 64,-391.5,20012.5,-25

position object 164,-391.5,20012.5,-25

hide object 164

make object cube 165,1

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

position object 65,-443,20012,-57.5

position object 165,-443,20012,-57.5

hide object 165

make object cube 166,1

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

position object 66,-280,20055,65

position object 166,-280,20055,65

hide object 166

rem jewel conterparts

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

position object 281,-575,20018.75,30.5

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

position object 282,-573,20018.75,30.5

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

position object 283,-571,20018.75,30.5

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

position object 264,-569,20018.75,30.5

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

position object 265,-567,20018.75,30.5

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

position object 266,-565,20018.75,30.5

rem moving platforms

make object box 120,8,1,8

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

position object 120,0,20015,-35

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

make object box 119,8,1,8

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

position object 119,-116,20000,25

point object 119,-106,20000,25

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

make object box 117,8,1,8

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

position object 117,-250,20010,18

point object 117,-220,20010,18

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

make object box 118,8,1,8

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

position object 118,-418,20010,-71.5

point object 118,-430,20010,-71.5

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

rem enimies

make object box 236,5,5,5

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

position object 236,-35,20002.5,25

point object 236,-35,20002.5,35

make object box 237,5,5,5

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

position object 237,-72.5,20002.5,31.5

point object 237,-85,20002.5,31.5

make object box 238,5,5,5

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

position object 238,-86,20002.5,25

point object 238,-86,20002.5,25

make object box 229,5,5,5

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

position object 229,-300,20012.5,23

point object 229,-300,20012.5,40

make object box 230,5,5,5

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

position object 230,-340,20012.5,23

point object 230,-340,20012.5,40

make object box 231,5,5,5

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

position object 231,-360,20012.5,25

point object 231,-360,20012.5,10.5

make object box 222,5,5,5

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

position object 222,-391.5,20012.5,-5

point object 222,-404,20012.5,-5

make object box 223,5,5,5

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

position object 223,-391.5,20012.5,-20

point object 223,-404,20012.5,-20

make object box 224,5,5,5

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

position object 224,-391.5,20012.5,-25

point object 224,-379,20012.5,-25

make object box 225,5,5,5

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

position object 225,-398,20012.5,-40.5

point object 225,-408.5,20012.5,-40.5

make object box 226,5,5,5

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

position object 226,-500,20012.5,-46

point object 226,-500,20012.5,-60

make object box 227,5,5,5

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

position object 227,-550,20012.5,-46

point object 227,-550,20012.5,-30

make object box 228,5,5,5

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

position object 228,-570,20012.5,0

point object 228,-586,20012.5,0

rem stoppers

make object box 300,1,1,1

position object 300,-35,20002.5,35

hide object 300

make object box 301,1,1,1

position object 301,-35,20002.5,15

hide object 301

make object box 302,1,1,1

position object 302,-57.5,20002.5,31.5

hide object 302

make object box 303,1,1,1

position object 303,-87.5,20002.5,31.5

hide object 303

make object box 304,1,1,1

position object 304,-86,20002.5,35

hide object 304

make object box 305,1,1,1

position object 305,-86,20002.5,15

hide object 305

make object box 306,1,1,1

position object 306,-170.5,20000,26

hide object 306

make object box 307,1,1,1

position object 307,-300,20012.5,38

hide object 307

make object box 308,1,1,1

position object 308,-300,20012.5,8

hide object 308

make object box 309,1,1,1

position object 309,-340,20012.5,38

hide object 309

make object box 310,1,1,1

position object 310,-340,20012.5,8

hide object 310

make object box 311,1,1,1

position object 311,-360,20012.5,35.5

hide object 311

make object box 312,1,1,1

position object 312,-360,20012.5,14.5

hide object 312

make object box 313,1,1,1

position object 313,-404,20012.5,-5

hide object 313

make object box 314,1,1,1

position object 314,-379,20012.5,-5

hide object 314

make object box 315,1,1,1

position object 315,-404,20012.5,-20

hide object 315

make object box 316,1,1,1

position object 316,-379,20012.5,-20

hide object 316

make object box 317,1,1,1

position object 317,-404,20012.5,-25

hide object 317

make object box 318,1,1,1

position object 318,-379,20012.5,-25

hide object 318

make object box 319,1,1,1

position object 319,-412,20012.5,-40.5

hide object 319

make object box 320,1,1,1

position object 320,-388,20012.5,-40.5

hide object 320

make object box 321,8,0.1,8

position object 321,-418,20011,-71.5

hide object 321

make object box 322,1,1,1

position object 322,-418,20015,-80

hide object 322

make object box 323,1,1,1

position object 323,-418,20015,-82

hide object 323

make object box 324,1,1,1

position object 324,-445,20010,-71.5

hide object 324

make object box 325,1,1,1

position object 325,-445,20010,-46

hide object 325

make object box 326,1,1,1

position object 326,-500,20012.5,-60

hide object 326

make object box 327,1,1,1

position object 327,-500,20012.5,-30

hide object 327

make object box 328,1,1,1

position object 328,-550,20012.5,-60

hide object 328

make object box 329,1,1,1

position object 329,-550,20012.5,-30

hide object 329

make object box 330,1,1,1

position object 330,-585,20010,-46

hide object 330

make object box 331,1,1,1

hide object 331

make object box 332,1,1,1

position object 332,-524,20010,80

hide object 332

make object box 333,1,1,1

position object 333,-620,20010,84

hide object 333

make object box 334,1,1,1

position object 334,-620,20010,-30

hide object 334

make object box 335,1,1,1

position object 335,-566,20010,-30

hide object 335

make object box 336,1,1,1

position object 336,-570,20010,30

hide object 336

make object box 337,1,1,1

position object 337,-586,20012.5,0

hide object 337

make object box 338,1,1,1

position object 338,-554,20012.5,0

hide object 338

make object box 350,3000,100,3000

position object 350,0,19920,0

hide object 350

rem start off player gravity

playergrav#=0.1

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

rem level 3 print

center text 320,20,"LEVEL 3"

set text to italic

set text size 40

rem move platforms and enimies; rotate jewels

move object 120,-0.12

move object 119,0.12

move object 117,0.12

move object 236,-0.3

move object 237,-0.3

move object 238,-0.3

move object 229,-0.3

move object 230,-0.3

move object 231,-0.3

move object 222,-0.3

move object 223,-0.3

move object 224,-0.3

move object 225,-0.3

move object 226,-0.3

move object 227,-0.3

move object 228,-0.3

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

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

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

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

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

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

rem jewel pickup

if object collision(1,181) then hide object 81 : position object 181,0,20000,0 : color object 281,rgb(750,10,0)

if object collision(1,182) then hide object 82 : position object 182,0,20000,0 : color object 282,rgb(750,10,0)

if object collision(1,183) then hide object 83 : position object 183,0,20000,0 : color object 283,rgb(750,10,0)

if object collision(1,164) then hide object 64 : position object 164,0,20000,0 : color object 265,rgb(750,10,0)

if object collision(1,165) then hide object 65 : position object 165,0,20000,0 : color object 266,rgb(750,10,0)

if object collision(1,166) then hide object 66 : position object 166,0,20000,0 : color object 264,rgb(750,10,0)

if object collision(3,181) then yrotate object 281,wrapvalue(object angle y(281)-4)

if object collision(3,182) then yrotate object 282,wrapvalue(object angle y(282)-4)

if object collision(3,183) then yrotate object 283,wrapvalue(object angle y(283)-4)

if object collision(3,164) then yrotate object 265,wrapvalue(object angle y(265)-4)

if object collision(3,165) then yrotate object 266,wrapvalue(object angle y(266)-4)

if object collision(3,166) then yrotate object 264,wrapvalue(object angle y(264)-4)

rem control moving platforms

if object collision(120,6) then position object 120,0,20015,-22.5

if object collision(119,15) then point object 119,-170.5,20000,26

if object collision(119,306) then point object 119,-106,20000,25

if object collision(117,22) then point object 117,-280,20010,18

if object collision(117,24) then point object 117,-220,20010,18

if object collision(1,321) then position object 323,-418,20015,-80 : position object 321,-418,0,-71.5

if object collision(322,323) then move object 118,0.12

if object collision(118,324) then point object 118,-445,20010,-46

if object collision(118,325) then point object 118,-585,20010,-46

if object collision(118,330) then point object 118,-525,20010,-46 : position object 331,-520,20010,-46

if object collision(118,331) then point object 118,-524,20010,80

if object collision(118,332) then point object 118,-620,20010,84

if object collision(118,333) then point object 118,-620,20010,-30

if object collision(118,334) then point object 118,-575,20010,-30

if object collision(118,335) then point object 118,-570,20010,30

if object collision(118,336) then position object 118,0,10000,0

rem control enimies

if object collision(236,300) then point object 236,-35,20002.5,35

if object collision(236,301) then point object 236,-35,20002.5,15

if object collision(237,302) then point object 237,-60,20002.5,31.5

if object collision(237,303) then point object 237,-85,20002.5,31.5

if object collision(238,304) then point object 238,-86,20002.5,35

if object collision(238,305) then point object 238,-86,20002.5,15

if object collision(229,307) then point object 229,-300,20012.5,38

if object collision(229,308) then point object 229,-300,20012.5,8

if object collision(230,309) then point object 230,-340,20012.5,38

if object collision(230,310) then point object 230,-340,20012.5,8

if object collision(231,311) then point object 231,-360,20012.5,35.5

if object collision(231,312) then point object 231,-360,20012.5,14.5

if object collision(222,313) then point object 222,-404,20012.5,-5

if object collision(222,314) then point object 222,-379,20012.5,-5

if object collision(223,315) then point object 223,-404,20012.5,-20

if object collision(223,316) then point object 223,-379,20012.5,-20

if object collision(224,317) then point object 224,-404,20012.5,-25

if object collision(224,318) then point object 224,-379,20012.5,-25

if object collision(225,319) then point object 225,-412,20012.5,-40.5

if object collision(225,320) then point object 225,-388,20012.5,-40.5

if object collision(226,326) then point object 226,-500,20012.5,-60

if object collision(226,327) then point object 226,-500,20012.5,-30

if object collision(227,328) then point object 227,-550,20012.5,-60

if object collision(227,329) then point object 227,-550,20012.5,-30

if object collision(228,337) then point object 228,-1586,20012.5,0

if object collision(228,338) then point object 228,554,20012.5,0

rem game over

if object collision(1,350) then position object 323,-418,20015,-82 : position object 118,-418,20010,-71.5 : position object 331,0,0,0

if object collision(1,350) then wait 3000 : position object 1,0,20005,0 : point object 1,0,20005,100 : point object 118,-430,20010,-71.5 : position object 321,-418,20011,-71.58

if object collision(1,236) then position object 323,-418,20015,-82 : position object 118,-418,20010,-71.5 : position object 331,0,0,0

if object collision(1,236) then wait 3000 : position object 1,0,20005,0 : point object 1,0,20005,100 : point object 118,-430,20010,-71.5 : position object 321,-418,20011,-71.5

if object collision(1,237) then position object 323,-418,20015,-82 : position object 118,-418,20010,-71.5 : position object 331,0,0,0

if object collision(1,237) then wait 3000 : position object 1,0,20005,0 : point object 1,0,20005,100 : point object 118,-430,20010,-71.5 : position object 321,-418,20011,-71.5

if object collision(1,238) then position object 323,-418,20015,-82 : position object 118,-418,20010,-71.5 : position object 331,0,0,0

if object collision(1,238) then wait 3000 : position object 1,0,20005,0 : point object 1,0,20005,100 : point object 118,-430,20010,-71.5 : position object 321,-418,20011,-71.5 : stop sound 38

if object collision(1,229) then position object 323,-418,20015,-82 : position object 118,-418,20010,-71.5 : position object 331,0,0,0

if object collision(1,229) then wait 3000 : position object 1,0,20005,0 : point object 1,0,20005,100 : point object 118,-430,20010,-71.5 : position object 321,-418,20011,-71.5 : stop sound 38

if object collision(1,230) then position object 323,-418,20015,-82 : position object 118,-418,20010,-71.5 : position object 331,0,0,0

if object collision(1,230) then wait 3000 : position object 1,0,20005,0 : point object 1,0,20005,100 : point object 118,-430,20010,-71.5 : position object 321,-418,20011,-71.5 : stop sound 38

if object collision(1,231) then position object 323,-418,20015,-82 : position object 118,-418,20010,-71.5 : position object 331,0,0,0

if object collision(1,231) then wait 3000 : position object 1,0,20005,0 : point object 1,0,20005,100 : point object 118,-430,20010,-71.5 : position object 321,-418,20011,-71.5 : stop sound 38

if object collision(1,222) then position object 323,-418,20015,-82 : position object 118,-418,20010,-71.5 : position object 331,0,0,0

if object collision(1,222) then wait 3000 : position object 1,0,20005,0 : point object 1,0,20005,100 : point object 118,-430,20010,-71.5 : position object 321,-418,20011,-71.5 : stop sound 38

if object collision(1,223) then position object 323,-418,20015,-82 : position object 118,-418,20010,-71.5 : position object 331,0,0,0

if object collision(1,223) then wait 3000 : position object 1,0,20005,0 : point object 1,0,20005,100 : point object 118,-430,20010,-71.5 : position object 321,-418,20011,-71.5 : stop sound 38

if object collision(1,224) then position object 323,-418,20015,-82 : position object 118,-418,20010,-71.5 : position object 331,0,0,0

if object collision(1,224) then wait 3000 : position object 1,0,20005,0 : point object 1,0,20005,100 : point object 118,-430,20010,-71.5 : position object 321,-418,20011,-71.5 : stop sound 38

if object collision(1,225) then position object 323,-418,20015,-82 : position object 118,-418,20010,-71.5 : position object 331,0,0,0

if object collision(1,225) then wait 3000 : position object 1,0,20005,0 : point object 1,0,20005,100 : point object 118,-430,20010,-71.5 : position object 321,-418,20011,-71.5 : stop sound 38

if object collision(1,226) then position object 323,-418,20015,-82 : position object 118,-418,20010,-71.5 : position object 331,0,0,0

if object collision(1,226) then wait 3000 : position object 1,0,20005,0 : point object 1,0,20005,100 : point object 118,-430,20010,-71.5 : position object 321,-418,20011,-71.5 : stop sound 38

if object collision(1,227) then position object 323,-418,20015,-82 : position object 118,-418,20010,-71.5 : position object 331,0,0,0

if object collision(1,227) then wait 3000 : position object 1,0,20005,0 : point object 1,0,20005,100 : point object 118,-430,20010,-71.5 : position object 321,-418,20011,-71.5 : stop sound 38

if object collision(1,228) then position object 323,-418,20015,-82 : position object 118,-418,20010,-71.5 : position object 331,0,0,0

if object collision(1,228) then wait 3000 : position object 1,0,20005,0 : point object 1,0,20005,100 : point object 118,-430,20010,-71.5 : position object 321,-418,20011,-71.5 : stop sound 38

rem enter endgate

if object collision(1,94) 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 28

delete object 29

delete object 30

delete object 31

delete object 32

delete object 33

delete object 34

delete object 35

delete object 36

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 311

delete object 312

delete object 313

delete object 314

delete object 315

delete object 316

delete object 317

delete object 318

delete object 319

delete object 320

delete object 321

delete object 322

delete object 323

delete object 324

delete object 325

delete object 326

delete object 327

delete object 328

delete object 329

delete object 330

delete object 331

delete object 332

delete object 333

delete object 334

delete object 335

delete object 336

delete object 337

delete object 338

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

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 3)

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments