Space Drive (DBC) - GameCreators Forum

Author

Message

Kohaku

19

Years of Service

User Offline

Joined: 3rd May 2004

Location: The not very United Kingdom

Posted: 11th May 2004 11:16 Edited at: 11th May 2004 11:19

Link

This is an idea I came up with as I was just browsing this forum. I spent the last few hours working on it. Hope you all like and enjoy it!
controls
UP:increase speed
DOWN:decrease speed
LEFT:move left
RIGHTmove right

Have fun

Infra-Dark

Back to top

Profile PM Website

NathanF

20

Years of Service

User Offline

Joined: 24th Mar 2004

Location:

Posted: 11th May 2004 14:10

Link

Wow, nice game. Pretty addictive too. The only thing i found wrong about it is that if you stay too far to any side, you avoid them all, no major problems. Aside from that this is great!

.........what's the point of reading this?

Back to top

Profile PM

Kohaku

19

Years of Service

User Offline

Joined: 3rd May 2004

Location: The not very United Kingdom

Posted: 11th May 2004 19:39

Link

OK. Heres the improved version

Infra-Dark

Back to top

Profile PM Website

Kohaku

19

Years of Service

User Offline

Joined: 3rd May 2004

Location: The not very United Kingdom

Posted: 11th May 2004 20:50

Link

And heres an easier improved version.

Infra-Dark

Back to top

Profile PM Website

Kohaku

19

Years of Service

User Offline

Joined: 3rd May 2004

Location: The not very United Kingdom

Posted: 11th May 2004 21:02

Link

Im finding this really hard to put down!
This one has a minimum score of 0. I might make this into a full game. Its quite fun

.

Infra-Dark

Back to top

Profile PM Website

goku

19

Years of Service

User Offline

Joined: 11th May 2004

Location:

Posted: 12th May 2004 08:07

Link

WOW that your wright I cant stop plaing nice advice!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!.BYE

Back to top

Profile PM Email

Kohaku

19

Years of Service

User Offline

Joined: 3rd May 2004

Location: The not very United Kingdom

Posted: 13th May 2004 02:26 Edited at: 13th May 2004 22:02

Link

Thankyou!

Infra-Dark

Back to top

Profile PM Website

Kohaku

19

Years of Service

User Offline

Joined: 3rd May 2004

Location: The not very United Kingdom

Posted: 14th May 2004 05:24 Edited at: 18th May 2004 01:03

Link

Some feed back on ways I could improve this would be really great.

Infra-Dark

Back to top

Profile PM Website

Kohaku

19

Years of Service

User Offline

Joined: 3rd May 2004

Location: The not very United Kingdom

Posted: 23rd May 2004 16:00 Edited at: 23rd May 2004 20:08

Link

Well thanks for all the feedback. Anyhow, this is the same as the last version except now it runs in a dinky little window. Its so cute.

Infra-Dark

Back to top

Profile PM Website

Kohaku

19

Years of Service

User Offline

Joined: 3rd May 2004

Location: The not very United Kingdom

Posted: 23rd May 2004 20:09

Link

Sorry If you did play the game ( Ha ha ha ) then you would have noticed a rather major fault in the ending. This time its fixed.

Infra-Dark

Back to top

Profile PM Website

Peter H

20

Years of Service

User Offline

Joined: 20th Feb 2004

Location: Witness Protection Program

Posted: 25th May 2004 18:35

Link

it doesn't work in DBPro

Formerly known as "DarkWing Duck"

Back to top

Profile PM Email

Kohaku

19

Years of Service

User Offline

Joined: 3rd May 2004

Location: The not very United Kingdom

Posted: 26th May 2004 02:37 Edited at: 4th Jun 2004 20:53

Link

Yeah. That would be why the threads called "Space Drive(DBC)". I've never really used DBPro. If I figure out how then I'll convert it. Happy?

This was made to make the ship a lighter colour so that it was easier to see,duh...

set window on : set window title "SPACE DRIVE" : sync on : sync rate 60 : set display mode 320,240,16 : backdrop on : color backdrop rgb(0,0,0) : dim score(0) : score(0)=0 : dim time(0) : time(0)=3000 : dim shield(0) : shield(0)=100
make object cone 1,20 : set object collision to polygons 1 : color object 1,RGB(100,50,200) : make object cube 2,10 : scale object 2,1500,10,10 : set object collision to polygons 2 : position object 2,0,-10,0 : hide object 2
make object sphere 3,10 : xrotate object 3,90 : position object 3,-70,100,0 : set object collision to polygons 3 : scale object 3,100,100,200 : color object 3,RGB(225,225,0) : position camera 0,80,-100 : do
move object 3,5 : set cursor 10,0 : print "SCORE=",score(0) : set cursor 105,0 : print "TIME LEFT=",time(0) : time(0)=time(0)-1 : set cursor 235,0 : print "SHIELD=",shield(0) : if time(0)=<0 then goto finish
if shield(0)=<0 then goto die
if score(0)=<0 then score(0)=0
if upkey()=1 then move object 3,3
if downkey()=1 then move object 3,-3
if leftkey()=1 then yrotate object 1,270 : move object 1,6
if rightkey()=1 then yrotate object 1,90 : move object 1,6
if object collision(1,2)>0=0 then move object 1,-6
if object position y(3)=<-50 then position object 3,-90+rnd(180),150,0 : score(0)=score(0)+20 : scale object 3,150+rnd(100),100+rnd(100),200+rnd(100) : color object 3,RGB(50+rnd(175),50+rnd(175),50+rnd(175))
if object collision(3,1)>0=1 then score(0)=score(0)-50 : shield(0)=shield(0)-3
sync : loop
finish:
fog on : fog distance 150 : fog color RGB(50,50,100) : set cursor 100,80 : print "WELL DONE! SCORE=",score(0) : set cursor 100,100 : print "Press escape to exit" : sync
goto finish
die:
fog on : fog distance 150 : fog color RGB(100,50,50) : set cursor 100,80 : print "CRAFT DESTROYED!" : set cursor 100,100 : print "Press escape to exit" : sync
goto die

+ Code Snippet

set window on : set window title "SPACE DRIVE" : sync on : sync rate 60 : set display mode 320,240,16 : backdrop on : color backdrop rgb(0,0,0) : dim score(0) : score(0)=0 : dim time(0) : time(0)=3000 : dim shield(0) : shield(0)=100
make object cone 1,20 : set object collision to polygons 1 : color object 1,RGB(100,50,200) : make object cube 2,10 : scale object 2,1500,10,10 : set object collision to polygons 2 : position object 2,0,-10,0 : hide object 2
make object sphere 3,10 : xrotate object 3,90 : position object 3,-70,100,0 : set object collision to polygons 3 : scale object 3,100,100,200 : color object 3,RGB(225,225,0) : position camera 0,80,-100 : do
move object 3,5 : set cursor 10,0 : print "SCORE=",score(0) : set cursor 105,0 : print "TIME LEFT=",time(0) : time(0)=time(0)-1 : set cursor 235,0 : print "SHIELD=",shield(0) : if time(0)=<0 then goto finish
if shield(0)=<0 then goto die
if score(0)=<0 then score(0)=0
if upkey()=1 then move object 3,3
if downkey()=1 then move object 3,-3
if leftkey()=1 then yrotate object 1,270 : move object 1,6
if rightkey()=1 then yrotate object 1,90 : move object 1,6
if object collision(1,2)>0=0 then move object 1,-6
if object position y(3)=<-50 then position object 3,-90+rnd(180),150,0 : score(0)=score(0)+20 : scale object 3,150+rnd(100),100+rnd(100),200+rnd(100) : color object 3,RGB(50+rnd(175),50+rnd(175),50+rnd(175))
if object collision(3,1)>0=1 then score(0)=score(0)-50 : shield(0)=shield(0)-3
sync : loop
finish:
fog on : fog distance 150 : fog color RGB(50,50,100) : set cursor 100,80 : print "WELL DONE! SCORE=",score(0) : set cursor 100,100 : print "Press escape to exit" : sync
goto finish
die:
fog on : fog distance 150 : fog color RGB(100,50,50) : set cursor 100,80 : print "CRAFT DESTROYED!" : set cursor 100,100 : print "Press escape to exit" : sync
goto die

Infra-Dark

Back to top

Profile PM Website

Black Hydra II

20

Years of Service

User Offline

Joined: 26th Nov 2003

Location:

Posted: 7th Jun 2004 05:48

Link

It doesn't work because apparently the movement code for left to right will only rotate the object around 10 degrees and then it doesn't work... too bad though... looked cool

"Damn had to remake account!" direct quotation from previous account.

Back to top

Profile PM

DarkBasic Pro Guy

19

Years of Service

User Offline

Joined: 4th Jun 2004

Location: Broomfield, Colorado

Posted: 11th Jun 2004 07:04

Link

Quote: "Some feed back on ways I could improve this would be really great."

Could you do something where you don't need a video card cause i don't have one

Go to http://www.freewebs.com/gamesdbpro Thats my website

Back to top

Profile PM Email

Kohaku

19

Years of Service

User Offline

Joined: 3rd May 2004

Location: The not very United Kingdom

Posted: 12th Jun 2004 03:22

Link

Hmm, I have no idea what I would have to do for that... I'll look into it though.

Infra-Dark

Back to top

Profile PM Website

El Bastardo Grande

19

Years of Service

User Offline

Joined: 12th Jun 2004

Location: Land of the obagienes

Posted: 12th Jun 2004 21:51

Link

where is the link to it? theres no link to it.

Yor are 80.45.56.34, you are running xp and using IE6. By reading this message you are agreeing that I AM the man.

Back to top

Profile PM Email Website

El Bastardo Grande

19

Years of Service

User Offline

Joined: 12th Jun 2004

Location: Land of the obagienes

Posted: 12th Jun 2004 21:52

Link

nvm i found it

Yor are 80.45.56.34, you are running xp and using IE6. By reading this message you are agreeing that I AM the man.

Back to top

Profile PM Email Website

Kohaku

19

Years of Service

User Offline

Joined: 3rd May 2004

Location: The not very United Kingdom

Posted: 12th Jun 2004 22:39

Link

you like? hate? want to shoot me for crashing your computer?

Infra-Dark

Back to top

Profile PM Website

Mattman

20

Years of Service

User Offline

Joined: 5th Jun 2003

Location: East Lansing

Posted: 16th Jun 2004 07:03

Link

how can you not have a video card?

Back to top

Profile PM Email Website

Kohaku

19

Years of Service

User Offline

Joined: 3rd May 2004

Location: The not very United Kingdom

Posted: 21st Jun 2004 05:09

Link

This might work for you Program expert. If not, then at least I tried right?

set window on : set window title "SPACE DRIVE" : sync on : sync rate 60 : set display mode 320,240,16 : backdrop on : color backdrop rgb(0,0,0) : dim score(0) : score(0)=0 : dim time(0) : time(0)=3000 : dim shield(0) : shield(0)=100
make object cone 1,20 : set object collision to polygons 1 : color object 1,RGB(100,50,200) : make object cube 2,10 : scale object 2,1500,10,10 : set object collision to polygons 2 : position object 2,0,-10,0 : hide object 2
make object sphere 3,10 : xrotate object 3,90 : position object 3,-70,100,0 : set object collision to polygons 3 : scale object 3,100,100,200 : color object 3,RGB(225,225,0) : position camera 0,80,-100 : do
move object 3,5 : set cursor 10,0 : print "SCORE=",score(0) : set cursor 105,0 : print "TIME LEFT=",time(0) : time(0)=time(0)-1 : set cursor 235,0 : print "SHIELD=",shield(0) : if time(0)=<0 then goto finish
if shield(0)=<0 then goto die
if score(0)=<0 then score(0)=0
if upkey()=1 then move object 3,3
if downkey()=1 then move object 3,-3
if leftkey()=1 then yrotate object 1,270 : move object 1,6
if rightkey()=1 then yrotate object 1,90 : move object 1,6
if object collision(1,2)>0=0 then move object 1,-6
if object position y(3)=<-50 then position object 3,-90+rnd(180),150,0 : score(0)=score(0)+20 : scale object 3,150+rnd(100),100+rnd(100),200+rnd(100) : color object 3,RGB(50+rnd(175),50+rnd(175),50+rnd(175))
if object collision(3,1)>0=1 then score(0)=score(0)-50 : shield(0)=shield(0)-3
sync : loop
finish:
color object 1,RGB(50,50,100) : set cursor 100,80 : print "WELL DONE! SCORE=",score(0) : set cursor 100,100 : print "Press escape to exit" : sync
goto finish
die:
color object 1,RGB(100,50,50) : set cursor 100,80 : print "CRAFT DESTROYED!" : set cursor 100,100 : print "Press escape to exit" : sync
goto die

+ Code Snippet

set window on : set window title "SPACE DRIVE" : sync on : sync rate 60 : set display mode 320,240,16 : backdrop on : color backdrop rgb(0,0,0) : dim score(0) : score(0)=0 : dim time(0) : time(0)=3000 : dim shield(0) : shield(0)=100
make object cone 1,20 : set object collision to polygons 1 : color object 1,RGB(100,50,200) : make object cube 2,10 : scale object 2,1500,10,10 : set object collision to polygons 2 : position object 2,0,-10,0 : hide object 2
make object sphere 3,10 : xrotate object 3,90 : position object 3,-70,100,0 : set object collision to polygons 3 : scale object 3,100,100,200 : color object 3,RGB(225,225,0) : position camera 0,80,-100 : do
move object 3,5 : set cursor 10,0 : print "SCORE=",score(0) : set cursor 105,0 : print "TIME LEFT=",time(0) : time(0)=time(0)-1 : set cursor 235,0 : print "SHIELD=",shield(0) : if time(0)=<0 then goto finish
if shield(0)=<0 then goto die
if score(0)=<0 then score(0)=0
if upkey()=1 then move object 3,3
if downkey()=1 then move object 3,-3
if leftkey()=1 then yrotate object 1,270 : move object 1,6
if rightkey()=1 then yrotate object 1,90 : move object 1,6
if object collision(1,2)>0=0 then move object 1,-6
if object position y(3)=<-50 then position object 3,-90+rnd(180),150,0 : score(0)=score(0)+20 : scale object 3,150+rnd(100),100+rnd(100),200+rnd(100) : color object 3,RGB(50+rnd(175),50+rnd(175),50+rnd(175))
if object collision(3,1)>0=1 then score(0)=score(0)-50 : shield(0)=shield(0)-3
sync : loop
finish:
color object 1,RGB(50,50,100) : set cursor 100,80 : print "WELL DONE! SCORE=",score(0) : set cursor 100,100 : print "Press escape to exit" : sync
goto finish
die:
color object 1,RGB(100,50,50) : set cursor 100,80 : print "CRAFT DESTROYED!" : set cursor 100,100 : print "Press escape to exit" : sync
goto die

Infra-Dark

Back to top

Profile PM Website

Filmmaker Screenwriter

20

Years of Service

User Offline

Joined: 7th Jul 2003

Location:

Posted: 21st Jun 2004 21:46 Edited at: 21st Jun 2004 21:47

Link

Quote: "Could you do something where you don't need a video card cause i don't have one"

I'm not trying to be mean, but man that's really gotta suck...

Anyways, nice game, man! I enjoy playing it!

Pentium4 3GHZ, 512MB DualChannel RAM, 256MB ATI Radeon 9800XT, SoundBlaster Audigy2, 120 GB HD.

Back to top

Profile PM Email Website

Kohaku

19

Years of Service

User Offline

Joined: 3rd May 2004

Location: The not very United Kingdom

Posted: 21st Jun 2004 21:52

Link

Cheers man, I was begining to think it wasnt that popular.

Infra-Dark

Back to top

Profile PM Website

Kohaku

19

Years of Service

User Offline

Joined: 3rd May 2004

Location: The not very United Kingdom

Posted: 22nd Jun 2004 10:21 Edited at: 27th Jun 2004 00:55

Link

This is a new version. It includes a navigation laser to help you dodge those pain in the butt meteorites!

Newly added:
Collision alert when ship is hitting meteorites.

This is windowed at 320x240.

set window on : set window title "SPACE DRIVE" : sync on : sync rate 60 : set display mode 320,240,16 : backdrop on : color backdrop rgb(0,0,0) : dim score(0) : score(0)=0 : dim time(0) : time(0)=3000 : dim shield(0) : shield(0)=100
make object cone 1,20 : set object collision to polygons 1 : color object 1,RGB(100,50,200) : make object cube 2,10 : scale object 2,1500,10,10 : set object collision to polygons 2 : position object 2,0,-10,0 : hide object 2
make object sphere 3,10 : xrotate object 3,90 : position object 3,-70,100,0 : set object collision to polygons 3 : scale object 3,100,100,200 : color object 3,RGB(225,225,0) : position camera 0,80,-100 : do
move object 3,5 : ink RGB(0,0,255),0 : set cursor 10,0 : print "SCORE=",score(0) : set cursor 105,0 : print "TIME LEFT=",time(0) : time(0)=time(0)-1 : set cursor 235,0 : print "SHIELD=",shield(0) : if time(0)=<0 then goto finish
if shield(0)=<0 then goto die
if score(0)=<0 then score(0)=0
if upkey()=1 then move object 3,3
if downkey()=1 then move object 3,-3
if leftkey()=1 then yrotate object 1,270 : move object 1,6
if rightkey()=1 then yrotate object 1,90 : move object 1,6
if object collision(1,2)>0=0 then move object 1,-6 else ink RGB(0,255,0),0 : LINE OBJECT SCREEN x(1), OBJECT SCREEN y(1), OBJECT SCREEN x(3), OBJECT SCREEN y(3)
if object position y(3)=<-50 then position object 3,-90+rnd(180),150,0 : score(0)=score(0)+20 : scale object 3,150+rnd(100),100+rnd(100),200+rnd(100) : color object 3,RGB(50+rnd(175),50+rnd(175),50+rnd(175))
if object collision(3,1)>0=1 then score(0)=score(0)-50 : shield(0)=shield(0)-3 : set text size 30 : CENTER text 160,120,"COLLISION ALERT!!!"
sync : loop
finish:
fog on : fog distance 150 : fog color RGB(50,50,100) : set cursor 100,80 : print "WELL DONE! SCORE=",score(0) : set cursor 100,100 : print "Press escape to exit" : sync
goto finish
die:
fog on : fog distance 150 : fog color RGB(100,50,50) : set cursor 100,80 : print "CRAFT DESTROYED!" : set cursor 100,100 : print "Press escape to exit" : sync
goto die

+ Code Snippet

set window on : set window title "SPACE DRIVE" : sync on : sync rate 60 : set display mode 320,240,16 : backdrop on : color backdrop rgb(0,0,0) : dim score(0) : score(0)=0 : dim time(0) : time(0)=3000 : dim shield(0) : shield(0)=100
make object cone 1,20 : set object collision to polygons 1 : color object 1,RGB(100,50,200) : make object cube 2,10 : scale object 2,1500,10,10 : set object collision to polygons 2 : position object 2,0,-10,0 : hide object 2
make object sphere 3,10 : xrotate object 3,90 : position object 3,-70,100,0 : set object collision to polygons 3 : scale object 3,100,100,200 : color object 3,RGB(225,225,0) : position camera 0,80,-100 : do
move object 3,5 : ink RGB(0,0,255),0 : set cursor 10,0 : print "SCORE=",score(0) : set cursor 105,0 : print "TIME LEFT=",time(0) : time(0)=time(0)-1 : set cursor 235,0 : print "SHIELD=",shield(0) : if time(0)=<0 then goto finish
if shield(0)=<0 then goto die
if score(0)=<0 then score(0)=0
if upkey()=1 then move object 3,3
if downkey()=1 then move object 3,-3
if leftkey()=1 then yrotate object 1,270 : move object 1,6
if rightkey()=1 then yrotate object 1,90 : move object 1,6
if object collision(1,2)>0=0 then move object 1,-6 else ink RGB(0,255,0),0 : LINE OBJECT SCREEN x(1), OBJECT SCREEN y(1), OBJECT SCREEN x(3), OBJECT SCREEN y(3)
if object position y(3)=<-50 then position object 3,-90+rnd(180),150,0 : score(0)=score(0)+20 : scale object 3,150+rnd(100),100+rnd(100),200+rnd(100) : color object 3,RGB(50+rnd(175),50+rnd(175),50+rnd(175))
if object collision(3,1)>0=1 then score(0)=score(0)-50 : shield(0)=shield(0)-3 : set text size 30 : CENTER text 160,120,"COLLISION ALERT!!!"
sync : loop
finish:
fog on : fog distance 150 : fog color RGB(50,50,100) : set cursor 100,80 : print "WELL DONE! SCORE=",score(0) : set cursor 100,100 : print "Press escape to exit" : sync
goto finish
die:
fog on : fog distance 150 : fog color RGB(100,50,50) : set cursor 100,80 : print "CRAFT DESTROYED!" : set cursor 100,100 : print "Press escape to exit" : sync
goto die

This is windowed at 640x480.

set window on : set window title "SPACE DRIVE" : sync on : sync rate 60 : set display mode 640,480,16 : backdrop on : color backdrop rgb(0,0,0) : dim score(0) : score(0)=0 : dim time(0) : time(0)=3000 : dim shield(0) : shield(0)=100
make object cone 1,20 : set object collision to polygons 1 : color object 1,RGB(100,50,200) : make object cube 2,10 : scale object 2,1500,10,10 : set object collision to polygons 2 : position object 2,0,-10,0 : hide object 2
make object sphere 3,10 : xrotate object 3,90 : position object 3,-70,100,0 : set object collision to polygons 3 : scale object 3,100,100,200 : color object 3,RGB(225,225,0) : position camera 0,80,-100 : do
move object 3,5 : ink RGB(0,0,255),0 : set cursor 10,0 : print "SCORE=",score(0) : set cursor 105,0 : print "TIME LEFT=",time(0) : time(0)=time(0)-1 : set cursor 235,0 : print "SHIELD=",shield(0) : if time(0)=<0 then goto finish
if shield(0)=<0 then goto die
if score(0)=<0 then score(0)=0
if upkey()=1 then move object 3,3
if downkey()=1 then move object 3,-3
if leftkey()=1 then yrotate object 1,270 : move object 1,6
if rightkey()=1 then yrotate object 1,90 : move object 1,6
if object collision(1,2)>0=0 then move object 1,-6 else ink RGB(0,255,0),0 : LINE OBJECT SCREEN x(1), OBJECT SCREEN y(1), OBJECT SCREEN x(3), OBJECT SCREEN y(3)
if object position y(3)=<-50 then position object 3,-90+rnd(180),150,0 : score(0)=score(0)+20 : scale object 3,150+rnd(100),100+rnd(100),200+rnd(100) : color object 3,RGB(50+rnd(175),50+rnd(175),50+rnd(175))
if object collision(3,1)>0=1 then score(0)=score(0)-50 : shield(0)=shield(0)-3 : set text size 60 : CENTER text 320,240,"COLLISION ALERT!!!"
sync : loop
finish:
fog on : fog distance 150 : fog color RGB(50,50,100) : set cursor 100,80 : print "WELL DONE! SCORE=",score(0) : set cursor 100,100 : print "Press escape to exit" : sync
goto finish
die:
fog on : fog distance 150 : fog color RGB(100,50,50) : set cursor 100,80 : print "CRAFT DESTROYED!" : set cursor 100,100 : print "Press escape to exit" : sync
goto die

+ Code Snippet

set window on : set window title "SPACE DRIVE" : sync on : sync rate 60 : set display mode 640,480,16 : backdrop on : color backdrop rgb(0,0,0) : dim score(0) : score(0)=0 : dim time(0) : time(0)=3000 : dim shield(0) : shield(0)=100
make object cone 1,20 : set object collision to polygons 1 : color object 1,RGB(100,50,200) : make object cube 2,10 : scale object 2,1500,10,10 : set object collision to polygons 2 : position object 2,0,-10,0 : hide object 2
make object sphere 3,10 : xrotate object 3,90 : position object 3,-70,100,0 : set object collision to polygons 3 : scale object 3,100,100,200 : color object 3,RGB(225,225,0) : position camera 0,80,-100 : do
move object 3,5 : ink RGB(0,0,255),0 : set cursor 10,0 : print "SCORE=",score(0) : set cursor 105,0 : print "TIME LEFT=",time(0) : time(0)=time(0)-1 : set cursor 235,0 : print "SHIELD=",shield(0) : if time(0)=<0 then goto finish
if shield(0)=<0 then goto die
if score(0)=<0 then score(0)=0
if upkey()=1 then move object 3,3
if downkey()=1 then move object 3,-3
if leftkey()=1 then yrotate object 1,270 : move object 1,6
if rightkey()=1 then yrotate object 1,90 : move object 1,6
if object collision(1,2)>0=0 then move object 1,-6 else ink RGB(0,255,0),0 : LINE OBJECT SCREEN x(1), OBJECT SCREEN y(1), OBJECT SCREEN x(3), OBJECT SCREEN y(3)
if object position y(3)=<-50 then position object 3,-90+rnd(180),150,0 : score(0)=score(0)+20 : scale object 3,150+rnd(100),100+rnd(100),200+rnd(100) : color object 3,RGB(50+rnd(175),50+rnd(175),50+rnd(175))
if object collision(3,1)>0=1 then score(0)=score(0)-50 : shield(0)=shield(0)-3 : set text size 60 : CENTER text 320,240,"COLLISION ALERT!!!"
sync : loop
finish:
fog on : fog distance 150 : fog color RGB(50,50,100) : set cursor 100,80 : print "WELL DONE! SCORE=",score(0) : set cursor 100,100 : print "Press escape to exit" : sync
goto finish
die:
fog on : fog distance 150 : fog color RGB(100,50,50) : set cursor 100,80 : print "CRAFT DESTROYED!" : set cursor 100,100 : print "Press escape to exit" : sync
goto die

And this isnt windowed at all, at 640x480.

sync on : sync rate 60 : set display mode 640,480,16 : backdrop on : color backdrop rgb(0,0,0) : dim score(0) : score(0)=0 : dim time(0) : time(0)=3000 : dim shield(0) : shield(0)=100
make object cone 1,20 : set object collision to polygons 1 : color object 1,RGB(100,50,200) : make object cube 2,10 : scale object 2,1500,10,10 : set object collision to polygons 2 : position object 2,0,-10,0 : hide object 2
make object sphere 3,10 : xrotate object 3,90 : position object 3,-70,100,0 : set object collision to polygons 3 : scale object 3,100,100,200 : color object 3,RGB(225,225,0) : position camera 0,80,-100 : do
move object 3,5 : ink RGB(0,0,255),0 : set cursor 10,0 : print "SCORE=",score(0) : set cursor 105,0 : print "TIME LEFT=",time(0) : time(0)=time(0)-1 : set cursor 235,0 : print "SHIELD=",shield(0) : if time(0)=<0 then goto finish
if shield(0)=<0 then goto die
if score(0)=<0 then score(0)=0
if upkey()=1 then move object 3,3
if downkey()=1 then move object 3,-3
if leftkey()=1 then yrotate object 1,270 : move object 1,6
if rightkey()=1 then yrotate object 1,90 : move object 1,6
if object collision(1,2)>0=0 then move object 1,-6 else ink RGB(0,255,0),0 : LINE OBJECT SCREEN x(1), OBJECT SCREEN y(1), OBJECT SCREEN x(3), OBJECT SCREEN y(3)
if object position y(3)=<-50 then position object 3,-90+rnd(180),150,0 : score(0)=score(0)+20 : scale object 3,150+rnd(100),100+rnd(100),200+rnd(100) : color object 3,RGB(50+rnd(175),50+rnd(175),50+rnd(175))
if object collision(3,1)>0=1 then score(0)=score(0)-50 : shield(0)=shield(0)-3 : set text size 60 : CENTER text 320,240,"COLLISION ALERT!!!"
sync : loop
finish:
fog on : fog distance 150 : fog color RGB(50,50,100) : set cursor 100,80 : print "WELL DONE! SCORE=",score(0) : set cursor 100,100 : print "Press escape to exit" : sync
goto finish
die:
fog on : fog distance 150 : fog color RGB(100,50,50) : set cursor 100,80 : print "CRAFT DESTROYED!" : set cursor 100,100 : print "Press escape to exit" : sync
goto die

+ Code Snippet

sync on : sync rate 60 : set display mode 640,480,16 : backdrop on : color backdrop rgb(0,0,0) : dim score(0) : score(0)=0 : dim time(0) : time(0)=3000 : dim shield(0) : shield(0)=100
make object cone 1,20 : set object collision to polygons 1 : color object 1,RGB(100,50,200) : make object cube 2,10 : scale object 2,1500,10,10 : set object collision to polygons 2 : position object 2,0,-10,0 : hide object 2
make object sphere 3,10 : xrotate object 3,90 : position object 3,-70,100,0 : set object collision to polygons 3 : scale object 3,100,100,200 : color object 3,RGB(225,225,0) : position camera 0,80,-100 : do
move object 3,5 : ink RGB(0,0,255),0 : set cursor 10,0 : print "SCORE=",score(0) : set cursor 105,0 : print "TIME LEFT=",time(0) : time(0)=time(0)-1 : set cursor 235,0 : print "SHIELD=",shield(0) : if time(0)=<0 then goto finish
if shield(0)=<0 then goto die
if score(0)=<0 then score(0)=0
if upkey()=1 then move object 3,3
if downkey()=1 then move object 3,-3
if leftkey()=1 then yrotate object 1,270 : move object 1,6
if rightkey()=1 then yrotate object 1,90 : move object 1,6
if object collision(1,2)>0=0 then move object 1,-6 else ink RGB(0,255,0),0 : LINE OBJECT SCREEN x(1), OBJECT SCREEN y(1), OBJECT SCREEN x(3), OBJECT SCREEN y(3)
if object position y(3)=<-50 then position object 3,-90+rnd(180),150,0 : score(0)=score(0)+20 : scale object 3,150+rnd(100),100+rnd(100),200+rnd(100) : color object 3,RGB(50+rnd(175),50+rnd(175),50+rnd(175))
if object collision(3,1)>0=1 then score(0)=score(0)-50 : shield(0)=shield(0)-3 : set text size 60 : CENTER text 320,240,"COLLISION ALERT!!!"
sync : loop
finish:
fog on : fog distance 150 : fog color RGB(50,50,100) : set cursor 100,80 : print "WELL DONE! SCORE=",score(0) : set cursor 100,100 : print "Press escape to exit" : sync
goto finish
die:
fog on : fog distance 150 : fog color RGB(100,50,50) : set cursor 100,80 : print "CRAFT DESTROYED!" : set cursor 100,100 : print "Press escape to exit" : sync
goto die

I would love some feedback on what you all think of it.
Hope you all enjoy it!

Infra-Dark
Space Drive now includes a navigation laser!

Back to top

Profile PM Website

Kohaku

19

Years of Service

User Offline

Joined: 3rd May 2004

Location: The not very United Kingdom

Posted: 30th Jun 2004 07:17 Edited at: 18th Jul 2004 07:34

Link

This is a new version that quite frankly blows the rest way out of the water, it now includes a scrolling background and somehow fits into even less lines!

sync on : sync rate 60 : set display mode 640,480,16 : backdrop on : color backdrop rgb(0,0,0) : dim score(0) : score(0)=0 : dim time(0) : time(0)=3000 : dim shield(0) : shield(0)=100
make object cone 1,20 : set object collision to polygons 1 : color object 1,RGB(100,50,200) : make object cube 2,10 : scale object 2,1500,10,10 : set object collision to polygons 2 : position object 2,0,-10,0 : hide object 2
create bitmap 1,512,512: for x = 1 to 1000: dot rnd(512),rnd(512):  next x: get image 2,0,0,512,512: delete bitmap 1: make object plain 4,200, 130: position object 4,0,45,0 : texture object 4,2
make object sphere 3,10 : xrotate object 3,90 : position object 3,-70,100,0 : set object collision to polygons 3 : scale object 3,100,100,200 : color object 3,RGB(225,225,0) : position camera 0,80,-100 : do
move object 3,5 : ink RGB(0,0,255),0 : set cursor 10,0 : print "SCORE=",score(0) : set cursor 105,0 : print "TIME LEFT=",time(0) : time(0)=time(0)-1 : set cursor 235,0 : print "SHIELD=",shield(0) : if time(0)=<0 then goto finish
if shield(0)=<0 then goto die else if score(0)=<0 then score(0)=0
if upkey()=1 then move object 3,2 : scroll object texture 4, 0,-.01 else if downkey()=1 then move object 3,-2 : scroll object texture 4, 0,+.005
if leftkey()=1 then yrotate object 1,270 : move object 1,6 else if rightkey()=1 then yrotate object 1,90 : move object 1,6
if object position y(3)=<-50 then position object 3,-90+rnd(180),150,0 : score(0)=score(0)+20 : scale object 3,150+rnd(100),100+rnd(100),200+rnd(100) : color object 3,RGB(50+rnd(175),50+rnd(175),50+rnd(175))
if object collision(3,1)>0=1 then score(0)=score(0)-50 : shield(0)=shield(0)-3 : set text size 60 : CENTER text 320,240,"COLLISION ALERT!!!"
if object collision(1,2)>0=0 then move object 1,-6 else ink RGB(0,255,0),0 : LINE OBJECT SCREEN x(1), OBJECT SCREEN y(1), OBJECT SCREEN x(3), OBJECT SCREEN y(3)
sync : scroll object texture 4, 0,-.01 : loop
finish:
fog on : fog distance 150 : fog color RGB(50,50,100) : set cursor 100,80 : print "WELL DONE! SCORE=",score(0) : set cursor 100,100 : print "Press escape to exit" : sync
goto finish
die:
fog on : fog distance 150 : fog color RGB(100,50,50) : set cursor 100,80 : print "CRAFT DESTROYED!" : set cursor 100,100 : print "Press escape to exit" : sync
goto die

+ Code Snippet

sync on : sync rate 60 : set display mode 640,480,16 : backdrop on : color backdrop rgb(0,0,0) : dim score(0) : score(0)=0 : dim time(0) : time(0)=3000 : dim shield(0) : shield(0)=100
make object cone 1,20 : set object collision to polygons 1 : color object 1,RGB(100,50,200) : make object cube 2,10 : scale object 2,1500,10,10 : set object collision to polygons 2 : position object 2,0,-10,0 : hide object 2
create bitmap 1,512,512: for x = 1 to 1000: dot rnd(512),rnd(512):  next x: get image 2,0,0,512,512: delete bitmap 1: make object plain 4,200, 130: position object 4,0,45,0 : texture object 4,2
make object sphere 3,10 : xrotate object 3,90 : position object 3,-70,100,0 : set object collision to polygons 3 : scale object 3,100,100,200 : color object 3,RGB(225,225,0) : position camera 0,80,-100 : do
move object 3,5 : ink RGB(0,0,255),0 : set cursor 10,0 : print "SCORE=",score(0) : set cursor 105,0 : print "TIME LEFT=",time(0) : time(0)=time(0)-1 : set cursor 235,0 : print "SHIELD=",shield(0) : if time(0)=<0 then goto finish
if shield(0)=<0 then goto die else if score(0)=<0 then score(0)=0
if upkey()=1 then move object 3,2 : scroll object texture 4, 0,-.01 else if downkey()=1 then move object 3,-2 : scroll object texture 4, 0,+.005
if leftkey()=1 then yrotate object 1,270 : move object 1,6 else if rightkey()=1 then yrotate object 1,90 : move object 1,6
if object position y(3)=<-50 then position object 3,-90+rnd(180),150,0 : score(0)=score(0)+20 : scale object 3,150+rnd(100),100+rnd(100),200+rnd(100) : color object 3,RGB(50+rnd(175),50+rnd(175),50+rnd(175))
if object collision(3,1)>0=1 then score(0)=score(0)-50 : shield(0)=shield(0)-3 : set text size 60 : CENTER text 320,240,"COLLISION ALERT!!!"
if object collision(1,2)>0=0 then move object 1,-6 else ink RGB(0,255,0),0 : LINE OBJECT SCREEN x(1), OBJECT SCREEN y(1), OBJECT SCREEN x(3), OBJECT SCREEN y(3)
sync : scroll object texture 4, 0,-.01 : loop
finish:
fog on : fog distance 150 : fog color RGB(50,50,100) : set cursor 100,80 : print "WELL DONE! SCORE=",score(0) : set cursor 100,100 : print "Press escape to exit" : sync
goto finish
die:
fog on : fog distance 150 : fog color RGB(100,50,50) : set cursor 100,80 : print "CRAFT DESTROYED!" : set cursor 100,100 : print "Press escape to exit" : sync
goto die

Please give feedback. ;¬)

**************************

DO NOT BUMP THIS THREAD!!!

Requested by DARKGirl in the #darkbasic irc chatroom.
I Think
**************************

Infra-Dark

Back to top

Profile PM Website

Sorry your browser is not supported!

The 20 Line Challenge / Space Drive (DBC)