Cube Dodger - GameCreators Forum

Author

Message

Whisper Wind

21

Years of Service

User Offline

Joined: 5th Apr 2003

Location:

Posted: 6th Apr 2003 20:53 Edited at: 7th Apr 2003 07:35

Link

Here is the code:

randomize timer():make object sphere 10,50:RC#=161:wa#=1:autocam off:hide mouse:MAKE OBJECT PLAIN 1, 1000, 100000:MAKE OBJECT PLAIN 2, 1000, 100000:position object 1, -800,400,0:position object 2, 400,400,0:rotate object 1, 0, 90 ,0
rotate object 2, 0, 90 ,0:position object 10, 0,400,0:make object collision box 10,-10,-10,-10,10,10,10,0:sync on:sync rate 30
gosub make_cubes:lv#=3:SP#=10:do:text 1,1, "Score:" +str$(SC#)+" Wave " +str$(wa#)+ " : " + str$(RC#-11) + " cubes":text 1,20, "Lives:" +str$(lv#)+"  Speed:" + str$(SP#)
If LG#=0:SC#=SC#+1:endif:X# = Object position x(10):Z# = Object position z(10):Y# = Object position y(10)
If Leftkey()=1:Position object 10,(X#-SP#),(Y#-SP#),Z#:endif:If Rightkey()=1:Position object 10,(X#+SP#),(Y#-SP#),Z#:endif
If Leftkey()=0 and Rightkey()=0 then Position object 10,X#,(Y#-SP#),Z#
If ReturnKey()=1 then suspend for key
If spacekey()=1 and LG#=1:LG#=0:SP#=10:SC#=0:wa#=1:for x = 11 to RC#
delete object x:next x:RC#=161:position object 10,object position x(10),400,object position z(10):gosub make_cubes:lv#=2:endif
If Object Collision(10,0)>0 and lv#>1 then lv#=lv#-1:suspend for key:position object 10,-100,1000,object position z(10)
If Object Collision(10,0)>0 and lv#=1 then text 100,240,"Game over! Your Score:" +str$(SC#)+" Press Space Bar to restart":SP#=0:LG#=1
If SC#/2500=INT(SC#/2500) then lv#=lv#+1
If Object Position Y(10)<-10000 and wa#<11: for x = 11 to RC#
delete object x:next x:RC#=RC#+25:SP#=SP#+0.5:gosub make_cubes:position object 10,object position x(10),400,object position z(10)
wa#=wa#+1:endif:Position Camera X#,Y#,-500:If Object Position Y(10)<-10000 and wa#>10: for x = 11 to RC#
delete object x:next x:gosub make_cubes:position object 10,object position x(10),400,object position z(10):Position Camera X#,(Y#),-500:SP#=SP#+0.5:endif:sync
loop
make_cubes:
for x = 11 to RC# : make object cube x,50:color object x, rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):Position Object x, rnd(500)-rnd(1000),rnd(10000)*-1,0:make object collision box x,-27,-25,-25,27,25,25,0
next x:color backdrop rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):return

+ Code Snippet

randomize timer():make object sphere 10,50:RC#=161:wa#=1:autocam off:hide mouse:MAKE OBJECT PLAIN 1, 1000, 100000:MAKE OBJECT PLAIN 2, 1000, 100000:position object 1, -800,400,0:position object 2, 400,400,0:rotate object 1, 0, 90 ,0
rotate object 2, 0, 90 ,0:position object 10, 0,400,0:make object collision box 10,-10,-10,-10,10,10,10,0:sync on:sync rate 30
gosub make_cubes:lv#=3:SP#=10:do:text 1,1, "Score:" +str$(SC#)+" Wave " +str$(wa#)+ " : " + str$(RC#-11) + " cubes":text 1,20, "Lives:" +str$(lv#)+"  Speed:" + str$(SP#)
If LG#=0:SC#=SC#+1:endif:X# = Object position x(10):Z# = Object position z(10):Y# = Object position y(10)
If Leftkey()=1:Position object 10,(X#-SP#),(Y#-SP#),Z#:endif:If Rightkey()=1:Position object 10,(X#+SP#),(Y#-SP#),Z#:endif
If Leftkey()=0 and Rightkey()=0 then Position object 10,X#,(Y#-SP#),Z#
If ReturnKey()=1 then suspend for key
If spacekey()=1 and LG#=1:LG#=0:SP#=10:SC#=0:wa#=1:for x = 11 to RC#
delete object x:next x:RC#=161:position object 10,object position x(10),400,object position z(10):gosub make_cubes:lv#=2:endif
If Object Collision(10,0)>0 and lv#>1 then lv#=lv#-1:suspend for key:position object 10,-100,1000,object position z(10)
If Object Collision(10,0)>0 and lv#=1 then text 100,240,"Game over! Your Score:" +str$(SC#)+" Press Space Bar to restart":SP#=0:LG#=1
If SC#/2500=INT(SC#/2500) then lv#=lv#+1
If Object Position Y(10)<-10000 and wa#<11: for x = 11 to RC#
delete object x:next x:RC#=RC#+25:SP#=SP#+0.5:gosub make_cubes:position object 10,object position x(10),400,object position z(10)
wa#=wa#+1:endif:Position Camera X#,Y#,-500:If Object Position Y(10)<-10000 and wa#>10: for x = 11 to RC#
delete object x:next x:gosub make_cubes:position object 10,object position x(10),400,object position z(10):Position Camera X#,(Y#),-500:SP#=SP#+0.5:endif:sync
loop
make_cubes:
for x = 11 to RC# : make object cube x,50:color object x, rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):Position Object x, rnd(500)-rnd(1000),rnd(10000)*-1,0:make object collision box x,-27,-25,-25,27,25,25,0
next x:color backdrop rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):return

This is my first game ever.In the game, you are a sphere. The object of the game is to dodge all of the cubes as you fall at a constant rate. If you touch one, you will lose one life and restart the current wave of cubes. This will also happen if you touch one of the boundry walls. The game will pause if you touch a cube or a boundry wall and wait until you press a key to restart the wave. Every 2500 points you will gain an extra life. There is no media, just copy and paste!

Controls:
Left Key - Move to the left
Right Key - Move to the right
Enter Key - Pause the game - Press any other key to unpause

There are a few errors, the "you lost a life" text and the "game over" text don't appear at the right time. Also, the collision is a little off, but I can't seem to get it perfect. Could someone experienced help me with these? Thanks.

Also, please post your opinions of the game and your high score, thanks! (Btw, this is DBPro, not sure if it works in DBC)

Back to top

Profile PM Email

Whisper Wind

21

Years of Service

User Offline

Joined: 5th Apr 2003

Location:

Posted: 6th Apr 2003 21:16

Link

Oops! The first one copied in wrong

I edited first post, should work now

Back to top

Profile PM Email

Compiuser458

21

Years of Service

User Offline

Joined: 6th Apr 2003

Location: Germany

Posted: 6th Apr 2003 21:39

Link

Works fine in DBC if you change it a bit :

randomize timer():make object sphere 10,50:RC#=161:wa#=1:autocam off
MAKE OBJECT PLAIN 1, 1000, 100000:MAKE OBJECT PLAIN 2, 1000, 100000:position object 1, -800,400,0:position object 2, 400,400,0:rotate object 1, 0, 90 ,0
rotate object 2, 0, 90 ,0:position object 10, 0,400,0:make object collision box 10,-10,-10,-10,10,10,10,0:sync on:sync rate 30
gosub make_cubes:lv#=3:SP#=10:do:text 1,1, "Score:" +str$(SC#)+" Wave " +str$(wa#)+ " : " + str$(RC#-11) + " cubes":text 1,20, "Lives:" +str$(lv#)
SC#=SC#+1:X# = Object position x(10):Z# = Object position z(10):Y# = Object position y(10)
If Leftkey()=1  then Position object 10,(X#-10),(Y#-SP#),Z#
If Rightkey()=1  then Position object 10,(X#+10),(Y#-SP#),Z#
If Leftkey()=0 and Rightkey()=0 then Position object 10,X#,(Y#-SP#),Z#
If ReturnKey()=1 then suspend for key
If Object Collision(10,0)>0 and lv#>1 then lv#=lv#-1:text 200,240, "Life Lost! Press any key to restart wave":suspend for key:position object 10,-100,1000,object position z(10)
If Object Collision(10,0)>0 and lv#=1 then text 200,240,"Game over! Your Score:" +str$(SC#)+"Press any key to end":suspend for key:end
If SC#/5000=INT(SC#/5000) then lv#=lv#+1
If Object Position Y(10)<-10000 and wa#<11: for x = 11 to RC#
delete object x:next x:RC#=RC#+25:gosub make_cubes:position object 10,object position x(10),400,object position z(10)
wa#=wa#+1:endif:Position Camera X#,Y#,-500:If Object Position Y(10)<-10000 and wa#>10: for x = 11 to RC#
delete object x:next x:gosub make_cubes:position object 10,object position x(10),400,object position z(10):Position Camera X#,(Y#),-500:SP#=SP#+3:endif:sync
loop
make_cubes:
for x = 11 to RC# : make object cube x,50:color object x, rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):Position Object x, rnd(500)-rnd(1000),rnd(10000)*-1,0:make object collision box x,-27,-25,-25,27,25,25,0
next x:color backdrop rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):return

+ Code Snippet

randomize timer():make object sphere 10,50:RC#=161:wa#=1:autocam off
MAKE OBJECT PLAIN 1, 1000, 100000:MAKE OBJECT PLAIN 2, 1000, 100000:position object 1, -800,400,0:position object 2, 400,400,0:rotate object 1, 0, 90 ,0
rotate object 2, 0, 90 ,0:position object 10, 0,400,0:make object collision box 10,-10,-10,-10,10,10,10,0:sync on:sync rate 30
gosub make_cubes:lv#=3:SP#=10:do:text 1,1, "Score:" +str$(SC#)+" Wave " +str$(wa#)+ " : " + str$(RC#-11) + " cubes":text 1,20, "Lives:" +str$(lv#)
SC#=SC#+1:X# = Object position x(10):Z# = Object position z(10):Y# = Object position y(10)
If Leftkey()=1  then Position object 10,(X#-10),(Y#-SP#),Z#
If Rightkey()=1  then Position object 10,(X#+10),(Y#-SP#),Z#
If Leftkey()=0 and Rightkey()=0 then Position object 10,X#,(Y#-SP#),Z#
If ReturnKey()=1 then suspend for key
If Object Collision(10,0)>0 and lv#>1 then lv#=lv#-1:text 200,240, "Life Lost! Press any key to restart wave":suspend for key:position object 10,-100,1000,object position z(10)
If Object Collision(10,0)>0 and lv#=1 then text 200,240,"Game over! Your Score:" +str$(SC#)+"Press any key to end":suspend for key:end
If SC#/5000=INT(SC#/5000) then lv#=lv#+1
If Object Position Y(10)<-10000 and wa#<11: for x = 11 to RC#
delete object x:next x:RC#=RC#+25:gosub make_cubes:position object 10,object position x(10),400,object position z(10)
wa#=wa#+1:endif:Position Camera X#,Y#,-500:If Object Position Y(10)<-10000 and wa#>10: for x = 11 to RC#
delete object x:next x:gosub make_cubes:position object 10,object position x(10),400,object position z(10):Position Camera X#,(Y#),-500:SP#=SP#+3:endif:sync
loop
make_cubes:
for x = 11 to RC# : make object cube x,50:color object x, rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):Position Object x, rnd(500)-rnd(1000),rnd(10000)*-1,0:make object collision box x,-27,-25,-25,27,25,25,0
next x:color backdrop rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):return

Back to top

Profile PM

Whisper Wind

21

Years of Service

User Offline

Joined: 5th Apr 2003

Location:

Posted: 6th Apr 2003 22:55 Edited at: 6th Apr 2003 23:52

Link

Thanks for modifying it! Btw, new version. Your speed now increases as well as the number of cubes to dodge.

I think this will work with both versions:

randomize timer():make object sphere 10,50:RC#=161:wa#=1:autocam off
MAKE OBJECT PLAIN 1, 1000, 100000:MAKE OBJECT PLAIN 2, 1000, 100000:position object 1, -800,400,0:position object 2, 400,400,0:rotate object 1, 0, 90 ,0
rotate object 2, 0, 90 ,0:position object 10, 0,400,0:make object collision box 10,-10,-10,-10,10,10,10,0:sync on:sync rate 30
gosub make_cubes:lv#=3:SP#=10:do:text 1,1, "Score:" +str$(SC#)+" Wave " +str$(wa#)+ " : " + str$(RC#-11) + " cubes":text 1,20, "Lives:" +str$(lv#)+"  Speed:" + str$(SP#)
SC#=SC#+1:X# = Object position x(10):Z# = Object position z(10):Y# = Object position y(10)
If Leftkey()=1  then Position object 10,(X#-SP#),(Y#-SP#),Z#
If Rightkey()=1  then Position object 10,(X#+SP#),(Y#-SP#),Z#
If Leftkey()=0 and Rightkey()=0 then Position object 10,X#,(Y#-SP#),Z#
If ReturnKey()=1 then suspend for key
If Object Collision(10,0)>0 and lv#>1 then lv#=lv#-1:text 200,240, "Life Lost! Press any key to restart wave":suspend for key:position object 10,-100,1000,object position z(10)
If Object Collision(10,0)>0 and lv#=1 then text 200,240,"Game over! Your Score:" +str$(SC#)+"Press any key to end":suspend for key:end
If SC#/5000=INT(SC#/5000) then lv#=lv#+1
If Object Position Y(10)<-10000 and wa#<11: for x = 11 to RC#
delete object x:next x:RC#=RC#+25:SP#=SP#+0.5:gosub make_cubes:position object 10,object position x(10),400,object position z(10)
wa#=wa#+1:endif:Position Camera X#,Y#,-500:If Object Position Y(10)<-10000 and wa#>10: for x = 11 to RC#
delete object x:next x:gosub make_cubes:position object 10,object position x(10),400,object position z(10):Position Camera X#,(Y#),-500:SP#=SP#+0.5:endif:sync
loop
make_cubes:
for x = 11 to RC# : make object cube x,50:color object x, rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):Position Object x, rnd(500)-rnd(1000),rnd(10000)*-1,0:make object collision box x,-27,-25,-25,27,25,25,0
next x:color backdrop rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):return

+ Code Snippet

randomize timer():make object sphere 10,50:RC#=161:wa#=1:autocam off
MAKE OBJECT PLAIN 1, 1000, 100000:MAKE OBJECT PLAIN 2, 1000, 100000:position object 1, -800,400,0:position object 2, 400,400,0:rotate object 1, 0, 90 ,0
rotate object 2, 0, 90 ,0:position object 10, 0,400,0:make object collision box 10,-10,-10,-10,10,10,10,0:sync on:sync rate 30
gosub make_cubes:lv#=3:SP#=10:do:text 1,1, "Score:" +str$(SC#)+" Wave " +str$(wa#)+ " : " + str$(RC#-11) + " cubes":text 1,20, "Lives:" +str$(lv#)+"  Speed:" + str$(SP#)
SC#=SC#+1:X# = Object position x(10):Z# = Object position z(10):Y# = Object position y(10)
If Leftkey()=1  then Position object 10,(X#-SP#),(Y#-SP#),Z#
If Rightkey()=1  then Position object 10,(X#+SP#),(Y#-SP#),Z#
If Leftkey()=0 and Rightkey()=0 then Position object 10,X#,(Y#-SP#),Z#
If ReturnKey()=1 then suspend for key
If Object Collision(10,0)>0 and lv#>1 then lv#=lv#-1:text 200,240, "Life Lost! Press any key to restart wave":suspend for key:position object 10,-100,1000,object position z(10)
If Object Collision(10,0)>0 and lv#=1 then text 200,240,"Game over! Your Score:" +str$(SC#)+"Press any key to end":suspend for key:end
If SC#/5000=INT(SC#/5000) then lv#=lv#+1
If Object Position Y(10)<-10000 and wa#<11: for x = 11 to RC#
delete object x:next x:RC#=RC#+25:SP#=SP#+0.5:gosub make_cubes:position object 10,object position x(10),400,object position z(10)
wa#=wa#+1:endif:Position Camera X#,Y#,-500:If Object Position Y(10)<-10000 and wa#>10: for x = 11 to RC#
delete object x:next x:gosub make_cubes:position object 10,object position x(10),400,object position z(10):Position Camera X#,(Y#),-500:SP#=SP#+0.5:endif:sync
loop
make_cubes:
for x = 11 to RC# : make object cube x,50:color object x, rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):Position Object x, rnd(500)-rnd(1000),rnd(10000)*-1,0:make object collision box x,-27,-25,-25,27,25,25,0
next x:color backdrop rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):return

Back to top

Profile PM Email

The Darthster

21

Years of Service

User Offline

Joined: 25th Sep 2002

Location: United Kingdom

Posted: 6th Apr 2003 23:58

Link

I'd tell you my high score but the program just shut down as soon as I died. It was about 5000 on wave 6.

Once I was but the learner,
now, I am the Master.

Back to top

Profile PM Email Website

lcfcfan

21

Years of Service

User Offline

Joined: 19th Feb 2003

Location: North East, UK

Posted: 7th Apr 2003 00:16

Link

shit i was hoping i might win the 20 line comp but i doubt it against this.

2ghz, ati radeon mobility 32mb DDR, 30gb, 256mb DDR ram, Win Xp

Back to top

Profile PM Email Website

ReD_eYe

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location: United Kingdom

Posted: 7th Apr 2003 00:21

Link

nice one!

'You were born crying while people around you smiled'

Back to top

Profile PM Email Website

Whisper Wind

21

Years of Service

User Offline

Joined: 5th Apr 2003

Location:

Posted: 7th Apr 2003 00:25 Edited at: 7th Apr 2003 07:36

Link

Sorry about the abrupt ending, I fixed it so that it will display your score then wait until you press escape to exit the game. Thanks for responding everyone. Icfcfan, I'll take that as a compliment

. Glad you liked it Red_eye.

Also added the ability to restart the game.Code:

randomize timer():make object sphere 10,50:RC#=161:wa#=1:autocam off:hide mouse:MAKE OBJECT PLAIN 1, 1000, 100000:MAKE OBJECT PLAIN 2, 1000, 100000:position object 1, -800,400,0:position object 2, 400,400,0:rotate object 1, 0, 90 ,0
rotate object 2, 0, 90 ,0:position object 10, 0,400,0:make object collision box 10,-10,-10,-10,10,10,10,0:sync on:sync rate 30
gosub make_cubes:lv#=3:SP#=10:do:text 1,1, "Score:" +str$(SC#)+" Wave " +str$(wa#)+ " : " + str$(RC#-11) + " cubes":text 1,20, "Lives:" +str$(lv#)+"  Speed:" + str$(SP#)
If LG#=0:SC#=SC#+1:endif:X# = Object position x(10):Z# = Object position z(10):Y# = Object position y(10)
If Leftkey()=1:Position object 10,(X#-SP#),(Y#-SP#),Z#:endif:If Rightkey()=1:Position object 10,(X#+SP#),(Y#-SP#),Z#:endif
If Leftkey()=0 and Rightkey()=0 then Position object 10,X#,(Y#-SP#),Z#
If ReturnKey()=1 then suspend for key
If spacekey()=1 and LG#=1:LG#=0:SP#=10:SC#=0:wa#=1:for x = 11 to RC#
delete object x:next x:RC#=161:position object 10,object position x(10),400,object position z(10):gosub make_cubes:lv#=2:endif
If Object Collision(10,0)>0 and lv#>1 then lv#=lv#-1:suspend for key:position object 10,-100,1000,object position z(10)
If Object Collision(10,0)>0 and lv#=1 then text 100,240,"Game over! Your Score:" +str$(SC#)+" Press Space Bar to restart":SP#=0:LG#=1
If SC#/2500=INT(SC#/2500) then lv#=lv#+1
If Object Position Y(10)<-10000 and wa#<11: for x = 11 to RC#
delete object x:next x:RC#=RC#+25:SP#=SP#+0.5:gosub make_cubes:position object 10,object position x(10),400,object position z(10)
wa#=wa#+1:endif:Position Camera X#,Y#,-500:If Object Position Y(10)<-10000 and wa#>10: for x = 11 to RC#
delete object x:next x:gosub make_cubes:position object 10,object position x(10),400,object position z(10):Position Camera X#,(Y#),-500:SP#=SP#+0.5:endif:sync
loop
make_cubes:
for x = 11 to RC# : make object cube x,50:color object x, rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):Position Object x, rnd(500)-rnd(1000),rnd(10000)*-1,0:make object collision box x,-27,-25,-25,27,25,25,0
next x:color backdrop rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):return

+ Code Snippet

randomize timer():make object sphere 10,50:RC#=161:wa#=1:autocam off:hide mouse:MAKE OBJECT PLAIN 1, 1000, 100000:MAKE OBJECT PLAIN 2, 1000, 100000:position object 1, -800,400,0:position object 2, 400,400,0:rotate object 1, 0, 90 ,0
rotate object 2, 0, 90 ,0:position object 10, 0,400,0:make object collision box 10,-10,-10,-10,10,10,10,0:sync on:sync rate 30
gosub make_cubes:lv#=3:SP#=10:do:text 1,1, "Score:" +str$(SC#)+" Wave " +str$(wa#)+ " : " + str$(RC#-11) + " cubes":text 1,20, "Lives:" +str$(lv#)+"  Speed:" + str$(SP#)
If LG#=0:SC#=SC#+1:endif:X# = Object position x(10):Z# = Object position z(10):Y# = Object position y(10)
If Leftkey()=1:Position object 10,(X#-SP#),(Y#-SP#),Z#:endif:If Rightkey()=1:Position object 10,(X#+SP#),(Y#-SP#),Z#:endif
If Leftkey()=0 and Rightkey()=0 then Position object 10,X#,(Y#-SP#),Z#
If ReturnKey()=1 then suspend for key
If spacekey()=1 and LG#=1:LG#=0:SP#=10:SC#=0:wa#=1:for x = 11 to RC#
delete object x:next x:RC#=161:position object 10,object position x(10),400,object position z(10):gosub make_cubes:lv#=2:endif
If Object Collision(10,0)>0 and lv#>1 then lv#=lv#-1:suspend for key:position object 10,-100,1000,object position z(10)
If Object Collision(10,0)>0 and lv#=1 then text 100,240,"Game over! Your Score:" +str$(SC#)+" Press Space Bar to restart":SP#=0:LG#=1
If SC#/2500=INT(SC#/2500) then lv#=lv#+1
If Object Position Y(10)<-10000 and wa#<11: for x = 11 to RC#
delete object x:next x:RC#=RC#+25:SP#=SP#+0.5:gosub make_cubes:position object 10,object position x(10),400,object position z(10)
wa#=wa#+1:endif:Position Camera X#,Y#,-500:If Object Position Y(10)<-10000 and wa#>10: for x = 11 to RC#
delete object x:next x:gosub make_cubes:position object 10,object position x(10),400,object position z(10):Position Camera X#,(Y#),-500:SP#=SP#+0.5:endif:sync
loop
make_cubes:
for x = 11 to RC# : make object cube x,50:color object x, rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):Position Object x, rnd(500)-rnd(1000),rnd(10000)*-1,0:make object collision box x,-27,-25,-25,27,25,25,0
next x:color backdrop rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):return

Back to top

Profile PM Email

Whisper Wind

21

Years of Service

User Offline

Joined: 5th Apr 2003

Location:

Posted: 7th Apr 2003 09:40 Edited at: 8th Apr 2003 03:56

Link

Added new title screen and changed it to one extra life per 2500 points. Still have one line of code left to fill! What should I use it on??

Code:

Hide mouse:text 200,50, "Cube Dodger - By Whisper Wind":text 50,100, "Controls:":text 50, 120, "Right Arrow Key - Move Sphere to the right":text 50, 140, "Left Arrow Key - Move Sphere to the left":text 50, 160, "Enter Key - Pause Game - Press any other key to unpause."
text 50,200,"The Game:":text 50,220,"Dodge all of the cubes as you, the sphere, fall down the level.":text 50,240,"If you touch a cube or a wall, you will lose a life and the game will":text 50,260,"pause. Then, press any key to restart the current wave of cubes you are"
text 50,280,"on. Every 2500 points you will gain an extra life.":text 220,320,"Press any key to begin.":suspend for key:cls
start_game:randomize timer():make object sphere 10,50:RC#=161:wa#=1:autocam off:hide mouse:MAKE OBJECT PLAIN 1, 1000, 100000:MAKE OBJECT PLAIN 2, 1000, 100000:position object 1, -800,400,0:position object 2, 400,400,0:rotate object 1, 0, 90 ,0
rotate object 2, 0, 90 ,0:position object 10, 0,400,0:make object collision box 10,-10,-10,-10,10,10,10,0:sync on:sync rate 30
gosub make_cubes:lv#=3:SP#=10:return:do:text 1,1, "Score:" +str$(SC#)+" Wave " +str$(wa#)+ " : " + str$(RC#-11) + " cubes":text 1,20, "Lives:" +str$(lv#)+"  Speed:" + str$(SP#)
If LG#=0:SC#=SC#+1:endif:X# = Object position x(10):Z# = Object position z(10):Y# = Object position y(10)
If Leftkey()=1:Position object 10,(X#-SP#),(Y#-SP#),Z#:endif:If Rightkey()=1:Position object 10,(X#+SP#),(Y#-SP#),Z#:endif:If Leftkey()=0 and Rightkey()=0:Position object 10,X#,(Y#-SP#),Z#:endif
If ReturnKey()=1:suspend for key:endif:If spacekey()=1 and LG#=1:LG#=0:SP#=10:SC#=0:wa#=1:for x = 11 to RC#
delete object x:next x:RC#=161:position object 10,object position x(10),400,object position z(10):gosub make_cubes:lv#=2:endif
If Object Collision(10,0)>0 and lv#>1 then lv#=lv#-1:suspend for key:position object 10,-100,1000,object position z(10)
If Object Collision(10,0)>0 and lv#=1 then text 100,240,"Game over! Your Score:" +str$(SC#)+" Press Space Bar to restart":SP#=0:LG#=1
If SC#/2500=INT(SC#/2500):lv#=lv#+1:endif:If Object Position Y(10)<-10000 and wa#<10: for x = 11 to RC#
delete object x:next x:RC#=RC#+25:SP#=SP#+0.5:gosub make_cubes:position object 10,object position x(10),400,object position z(10)
wa#=wa#+1:endif:Position Camera X#,Y#,-500:If Object Position Y(10)<-10000 and wa#>9: for x = 11 to RC#
delete object x:next x:gosub make_cubes:position object 10,object position x(10),400,object position z(10):Position Camera X#,(Y#),-500:SP#=SP#+0.5:wa#=wa#+1:endif:sync
loop
make_cubes:for x = 11 to RC# : make object cube x,50:color object x, rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):Position Object x, rnd(500)-rnd(1000),rnd(10000)*-1,0:make object collision box x,-27,-25,-25,27,25,25,0
next x:color backdrop rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):return

+ Code Snippet

Hide mouse:text 200,50, "Cube Dodger - By Whisper Wind":text 50,100, "Controls:":text 50, 120, "Right Arrow Key - Move Sphere to the right":text 50, 140, "Left Arrow Key - Move Sphere to the left":text 50, 160, "Enter Key - Pause Game - Press any other key to unpause."
text 50,200,"The Game:":text 50,220,"Dodge all of the cubes as you, the sphere, fall down the level.":text 50,240,"If you touch a cube or a wall, you will lose a life and the game will":text 50,260,"pause. Then, press any key to restart the current wave of cubes you are"
text 50,280,"on. Every 2500 points you will gain an extra life.":text 220,320,"Press any key to begin.":suspend for key:cls
start_game:randomize timer():make object sphere 10,50:RC#=161:wa#=1:autocam off:hide mouse:MAKE OBJECT PLAIN 1, 1000, 100000:MAKE OBJECT PLAIN 2, 1000, 100000:position object 1, -800,400,0:position object 2, 400,400,0:rotate object 1, 0, 90 ,0
rotate object 2, 0, 90 ,0:position object 10, 0,400,0:make object collision box 10,-10,-10,-10,10,10,10,0:sync on:sync rate 30
gosub make_cubes:lv#=3:SP#=10:return:do:text 1,1, "Score:" +str$(SC#)+" Wave " +str$(wa#)+ " : " + str$(RC#-11) + " cubes":text 1,20, "Lives:" +str$(lv#)+"  Speed:" + str$(SP#)
If LG#=0:SC#=SC#+1:endif:X# = Object position x(10):Z# = Object position z(10):Y# = Object position y(10)
If Leftkey()=1:Position object 10,(X#-SP#),(Y#-SP#),Z#:endif:If Rightkey()=1:Position object 10,(X#+SP#),(Y#-SP#),Z#:endif:If Leftkey()=0 and Rightkey()=0:Position object 10,X#,(Y#-SP#),Z#:endif
If ReturnKey()=1:suspend for key:endif:If spacekey()=1 and LG#=1:LG#=0:SP#=10:SC#=0:wa#=1:for x = 11 to RC#
delete object x:next x:RC#=161:position object 10,object position x(10),400,object position z(10):gosub make_cubes:lv#=2:endif
If Object Collision(10,0)>0 and lv#>1 then lv#=lv#-1:suspend for key:position object 10,-100,1000,object position z(10)
If Object Collision(10,0)>0 and lv#=1 then text 100,240,"Game over! Your Score:" +str$(SC#)+" Press Space Bar to restart":SP#=0:LG#=1
If SC#/2500=INT(SC#/2500):lv#=lv#+1:endif:If Object Position Y(10)<-10000 and wa#<10: for x = 11 to RC#
delete object x:next x:RC#=RC#+25:SP#=SP#+0.5:gosub make_cubes:position object 10,object position x(10),400,object position z(10)
wa#=wa#+1:endif:Position Camera X#,Y#,-500:If Object Position Y(10)<-10000 and wa#>9: for x = 11 to RC#
delete object x:next x:gosub make_cubes:position object 10,object position x(10),400,object position z(10):Position Camera X#,(Y#),-500:SP#=SP#+0.5:wa#=wa#+1:endif:sync
loop
make_cubes:for x = 11 to RC# : make object cube x,50:color object x, rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):Position Object x, rnd(500)-rnd(1000),rnd(10000)*-1,0:make object collision box x,-27,-25,-25,27,25,25,0
next x:color backdrop rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):return

My high score : 12,084

Back to top

Profile PM Email

Whisper Wind

21

Years of Service

User Offline

Joined: 5th Apr 2003

Location:

Posted: 8th Apr 2003 07:53 Edited at: 8th Apr 2003 08:05

Link

Thought of something

You can now customly color your sphere, yay! Yeah, I was pretty bored... (Also why I made the sentence generator

)

gosub text_game
start_game:randomize timer():make object sphere 10,50:RC#=161:wa#=1:autocam off:hide mouse:MAKE OBJECT PLAIN 1, 1000, 100000:MAKE OBJECT PLAIN 2, 1000, 100000:position object 1, -800,400,0:position object 2, 400,400,0:rotate object 1, 0, 90 ,0
rotate object 2, 0, 90 ,0:position object 10, 0,400,0:make object collision box 10,-10,-10,-10,10,10,10,0:sync on:sync rate 30
gosub make_cubes:lv#=3:SP#=10:return:do:text 1,1, "Score:" +str$(SC#)+" Wave " +str$(wa#)+ " : " + str$(RC#-11) + " cubes":text 1,20, "Lives:" +str$(lv#)+"  Speed:" + str$(SP#):color object 10, rgb(CR#,CG#,CB#)
If LG#=0:SC#=SC#+1:endif:X# = Object position x(10):Z# = Object position z(10):Y# = Object position y(10)
If Leftkey()=1:Position object 10,(X#-SP#),(Y#-SP#),Z#:endif:If Rightkey()=1:Position object 10,(X#+SP#),(Y#-SP#),Z#:endif:If Leftkey()=0 and Rightkey()=0:Position object 10,X#,(Y#-SP#),Z#:endif
If ReturnKey()=1:suspend for key:endif:If spacekey()=1 and LG#=1:LG#=0:SP#=10:SC#=0:wa#=1:for x = 11 to RC#
delete object x:next x:RC#=161:position object 10,object position x(10),400,object position z(10):gosub make_cubes:lv#=2:endif
If Object Collision(10,0)>0 and lv#>1:lv#=lv#-1:suspend for key:position object 10,-100,1000,object position z(10):endif:If Object Collision(10,0)>0 and lv#=1:text 100,240,"Game over! Your Score:" +str$(SC#)+" Press Space Bar to restart":SP#=0:LG#=1:endif
If SC#/2500=INT(SC#/2500):lv#=lv#+1:endif:If Object Position Y(10)<-10000 and wa#<10: for x = 11 to RC#
delete object x:next x:RC#=RC#+25:SP#=SP#+0.5:gosub make_cubes:position object 10,object position x(10),400,object position z(10)
wa#=wa#+1:endif:Position Camera X#,Y#,-500:If Object Position Y(10)<-10000 and wa#>9: for x = 11 to RC#
delete object x:next x:gosub make_cubes:position object 10,object position x(10),400,object position z(10):Position Camera X#,(Y#),-500:SP#=SP#+0.5:wa#=wa#+1:endif:sync
loop
make_cubes:for x = 11 to RC# : make object cube x,50:color object x, rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):Position Object x, rnd(500)-rnd(1000),rnd(10000)*-1,0:make object collision box x,-27,-25,-25,27,25,25,0
next x:color backdrop rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):return
text_game:Hide mouse:text 200,50, "Cube Dodger - By Whisper Wind":text 50,100, "Controls:":text 50, 120, "Right Arrow Key - Move Sphere to the right":text 50, 140, "Left Arrow Key - Move Sphere to the left":text 50, 160, "Enter Key - Pause Game - Press any other key to unpause."
text 50,200,"The Game:":text 50,220,"Dodge all of the cubes as you, the sphere, fall down the level.":text 50,240,"If you touch a sphere or a wall, you will lose a life and the game will":text 50,260,"pause. Then, press any key to restart the current wave of cubes you are"
text 50,280,"on. Every 2500 points you will gain an extra life.":suspend for key:Set Cursor 50,320 :INPUT "Now, customly color your sphere! How much red should be in it?(1-255):",CR#:ink rgb(CR#,CG#,CB#),0:Circle 270,410,20:ink rgb(255,255,255),0:Set Cursor 50,340 :INPUT "How much blue should be in it?:",CB#:ink rgb(CR#,CG#,CB#),0:Circle 270,410,20:ink rgb(255,255,255),0:Set Cursor 50,360 :INPUT "How much green should be in it?:",CG#
text 50,400,"Your final sphere color:" :ink rgb(CR#,CG#,CB#),0 :Circle 270,410,20:ink rgb(255,255,255),0:text 50,440,"Press space bar to repick colors, press control to begin game.":do:If spacekey()=1:gosub text_game:endif:If controlkey()=1:gosub start_game:endif:loop:return

+ Code Snippet

gosub text_game
start_game:randomize timer():make object sphere 10,50:RC#=161:wa#=1:autocam off:hide mouse:MAKE OBJECT PLAIN 1, 1000, 100000:MAKE OBJECT PLAIN 2, 1000, 100000:position object 1, -800,400,0:position object 2, 400,400,0:rotate object 1, 0, 90 ,0
rotate object 2, 0, 90 ,0:position object 10, 0,400,0:make object collision box 10,-10,-10,-10,10,10,10,0:sync on:sync rate 30
gosub make_cubes:lv#=3:SP#=10:return:do:text 1,1, "Score:" +str$(SC#)+" Wave " +str$(wa#)+ " : " + str$(RC#-11) + " cubes":text 1,20, "Lives:" +str$(lv#)+"  Speed:" + str$(SP#):color object 10, rgb(CR#,CG#,CB#)
If LG#=0:SC#=SC#+1:endif:X# = Object position x(10):Z# = Object position z(10):Y# = Object position y(10)
If Leftkey()=1:Position object 10,(X#-SP#),(Y#-SP#),Z#:endif:If Rightkey()=1:Position object 10,(X#+SP#),(Y#-SP#),Z#:endif:If Leftkey()=0 and Rightkey()=0:Position object 10,X#,(Y#-SP#),Z#:endif
If ReturnKey()=1:suspend for key:endif:If spacekey()=1 and LG#=1:LG#=0:SP#=10:SC#=0:wa#=1:for x = 11 to RC#
delete object x:next x:RC#=161:position object 10,object position x(10),400,object position z(10):gosub make_cubes:lv#=2:endif
If Object Collision(10,0)>0 and lv#>1:lv#=lv#-1:suspend for key:position object 10,-100,1000,object position z(10):endif:If Object Collision(10,0)>0 and lv#=1:text 100,240,"Game over! Your Score:" +str$(SC#)+" Press Space Bar to restart":SP#=0:LG#=1:endif
If SC#/2500=INT(SC#/2500):lv#=lv#+1:endif:If Object Position Y(10)<-10000 and wa#<10: for x = 11 to RC#
delete object x:next x:RC#=RC#+25:SP#=SP#+0.5:gosub make_cubes:position object 10,object position x(10),400,object position z(10)
wa#=wa#+1:endif:Position Camera X#,Y#,-500:If Object Position Y(10)<-10000 and wa#>9: for x = 11 to RC#
delete object x:next x:gosub make_cubes:position object 10,object position x(10),400,object position z(10):Position Camera X#,(Y#),-500:SP#=SP#+0.5:wa#=wa#+1:endif:sync
loop
make_cubes:for x = 11 to RC# : make object cube x,50:color object x, rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):Position Object x, rnd(500)-rnd(1000),rnd(10000)*-1,0:make object collision box x,-27,-25,-25,27,25,25,0
next x:color backdrop rgb(rnd(255)+1,rnd(255)+1,rnd(255)+1):return
text_game:Hide mouse:text 200,50, "Cube Dodger - By Whisper Wind":text 50,100, "Controls:":text 50, 120, "Right Arrow Key - Move Sphere to the right":text 50, 140, "Left Arrow Key - Move Sphere to the left":text 50, 160, "Enter Key - Pause Game - Press any other key to unpause."
text 50,200,"The Game:":text 50,220,"Dodge all of the cubes as you, the sphere, fall down the level.":text 50,240,"If you touch a sphere or a wall, you will lose a life and the game will":text 50,260,"pause. Then, press any key to restart the current wave of cubes you are"
text 50,280,"on. Every 2500 points you will gain an extra life.":suspend for key:Set Cursor 50,320 :INPUT "Now, customly color your sphere! How much red should be in it?(1-255):",CR#:ink rgb(CR#,CG#,CB#),0:Circle 270,410,20:ink rgb(255,255,255),0:Set Cursor 50,340 :INPUT "How much blue should be in it?:",CB#:ink rgb(CR#,CG#,CB#),0:Circle 270,410,20:ink rgb(255,255,255),0:Set Cursor 50,360 :INPUT "How much green should be in it?:",CG#
text 50,400,"Your final sphere color:" :ink rgb(CR#,CG#,CB#),0 :Circle 270,410,20:ink rgb(255,255,255),0:text 50,440,"Press space bar to repick colors, press control to begin game.":do:If spacekey()=1:gosub text_game:endif:If controlkey()=1:gosub start_game:endif:loop:return

I can still squeeze some more stuff in though, if any body has any suggestions.

Back to top

Profile PM Email

Witch Bomber

21

Years of Service

User Offline

Joined: 25th Jan 2003

Location: Scotland

Posted: 10th Apr 2003 14:31

Link

Nice to see I'm not the only one who likes to evolve his 20 liners and add new features. Great game. Isn't that more than 5 commands in the last line though?

Visit the new Madd Matt Games Website
http://www.madamattgames.o-f.com/index.htm
Home of Witch Bomber,Magic Cube and Pinball Football(and a lame website)

Back to top

Profile PM Website

Whisper Wind

21

Years of Service

User Offline

Joined: 5th Apr 2003

Location:

Posted: 10th Apr 2003 18:27

Link

Thanks, glad you liked it. The rules have now rather subtly been changed to 25 commands per line.

Back to top

Profile PM Email

Witch Bomber

21

Years of Service

User Offline

Joined: 25th Jan 2003

Location: Scotland

Posted: 11th Apr 2003 01:13

Link

I could make most of my games in 500 commands, that's just a bit ridiculous these new rules. I feel that to be extremely stupid that you can just add so many features to a 20-line game. There's no more challenge.

Visit the new Madd Matt Games Website
http://www.madamattgames.o-f.com/index.htm
Home of Witch Bomber,Magic Cube and Pinball Football(and a lame website)

Back to top

Profile PM Website

Sorry your browser is not supported!

The 20 Line Challenge / Cube Dodger