DBClassic No media required Ice Ball

Author

Message

cusoi

21

Years of Service

User Offline

Joined: 3rd Jan 2003

Location: Netherlands

Posted: 7th Apr 2003 18:26 Edited at: 7th Apr 2003 18:29

Link

So this is Ice ball. You are the red ball. You control yourself with the left and right arrow key. You may not hit the walls or the green balls. There are three big green balls. They move and bounce between the walls. You see your score on top!

sync on:s=60:randomize timer():hide mouse:make object plain 1,110,110:rotate object 1,90,0,0:for a=2 to 5:make object plain a,110,20:color object a,rgb(20,90,60):next a
rotate object 4,0,90,0:rotate object 5,0,90,0:position object 4,-50,0,0:position object 5,50,0,0:position object 2,0,0,-50:position object 3,0,0,50
make object sphere 6,2: position object 6,-45,1,0:color object 6,rgb(255,0,0):make object plain 7,2,2:color object 7,rgb(0,0,255):rotate object 6,0,90,0
make object sphere 8,5:position object 8,45,2.5,-45:color object 8,rgb(0,255,0):make object sphere 9,5:position object 9,45,2.5,-45:color object 9,rgb(120,160,20):make object sphere 10,5:position object 10,45,2.5,-45:color object 10,rgb(0,255,230)
color backdrop rgb(0,0,60):do:position camera -49,9,-49:point camera object position x(6),object position y(6),object position z(6)
if leftkey()=1 then yrotate object 6,wrapvalue(object angle y(6)-10)
if rightkey()=1 then yrotate object 6,wrapvalue(object angle y(6)+10)
rotate object 7,object angle x(6),object angle y(6),object angle z(6):position object 7,object position x(6),object position y(6),object position z(6):move object 6,0.75:move object 7,2.5
if object collision(6,0)>1 then sync:set camera view 0,0,1,1:center text 320,0,"You have a score of: "+str$(int(score#)):sync:suspend for key:end
for a=8 to 10:move object a,1.5
if object collision(a,0)<>6 and object collision(a,0)<>7 and object collision(a,0)>1 then yrotate object a,rnd(360)
if object position x(a)>50 then position object a,45,2.5,object position z(a)
if object position x(a)<-50 then position object a,-45,2.5,object position z(a)
if object position z(a)>50 then position object a,object position x(a),2.5,45
if object position z(a)<-50 then position object a,object position x(a),2.5,-45
next a:set text size 24:set text font "verdana":center text 320,0,"You have a score of: "+str$(int(score#)):score#=score#+0.1
if s#=150 then d=1
if s#=0 then d=0
if d=1 then s#=s#-1
s#=s#+0.5:color backdrop rgb(0,0,int(s#)):sync:loop

+ Code Snippet

sync on:s=60:randomize timer():hide mouse:make object plain 1,110,110:rotate object 1,90,0,0:for a=2 to 5:make object plain a,110,20:color object a,rgb(20,90,60):next a
rotate object 4,0,90,0:rotate object 5,0,90,0:position object 4,-50,0,0:position object 5,50,0,0:position object 2,0,0,-50:position object 3,0,0,50
make object sphere 6,2: position object 6,-45,1,0:color object 6,rgb(255,0,0):make object plain 7,2,2:color object 7,rgb(0,0,255):rotate object 6,0,90,0
make object sphere 8,5:position object 8,45,2.5,-45:color object 8,rgb(0,255,0):make object sphere 9,5:position object 9,45,2.5,-45:color object 9,rgb(120,160,20):make object sphere 10,5:position object 10,45,2.5,-45:color object 10,rgb(0,255,230)
color backdrop rgb(0,0,60):do:position camera -49,9,-49:point camera object position x(6),object position y(6),object position z(6)
if leftkey()=1 then yrotate object 6,wrapvalue(object angle y(6)-10)
if rightkey()=1 then yrotate object 6,wrapvalue(object angle y(6)+10)
rotate object 7,object angle x(6),object angle y(6),object angle z(6):position object 7,object position x(6),object position y(6),object position z(6):move object 6,0.75:move object 7,2.5
if object collision(6,0)>1 then sync:set camera view 0,0,1,1:center text 320,0,"You have a score of: "+str$(int(score#)):sync:suspend for key:end
for a=8 to 10:move object a,1.5
if object collision(a,0)<>6 and object collision(a,0)<>7 and object collision(a,0)>1 then yrotate object a,rnd(360)
if object position x(a)>50 then position object a,45,2.5,object position z(a)
if object position x(a)<-50 then position object a,-45,2.5,object position z(a)
if object position z(a)>50 then position object a,object position x(a),2.5,45
if object position z(a)<-50 then position object a,object position x(a),2.5,-45
next a:set text size 24:set text font "verdana":center text 320,0,"You have a score of: "+str$(int(score#)):score#=score#+0.1
if s#=150 then d=1
if s#=0 then d=0
if d=1 then s#=s#-1
s#=s#+0.5:color backdrop rgb(0,0,int(s#)):sync:loop

Pentium IV 2.4 GHZ 256 MB Ram Geforce 4 TI 4200 128 MB
www.cuso.tk

Back to top

Profile PM Email Website

cusoi

21

Years of Service

User Offline

Joined: 3rd Jan 2003

Location: Netherlands

Posted: 7th Apr 2003 18:31

Link

It's exactly 20 lines!

Pentium IV 2.4 GHZ 256 MB Ram Geforce 4 TI 4200 128 MB
www.cuso.tk

Back to top

Profile PM Email Website

cusoi

21

Years of Service

User Offline

Joined: 3rd Jan 2003

Location: Netherlands

Posted: 8th Apr 2003 12:21

Link

I see many people have looked to this topic. Please give a reaction too. What do you think of my game?

Pentium IV 2.4 GHZ 256 MB Ram Geforce 4 TI 4200 128 MB
www.cuso.tk

Back to top

Profile PM Email Website

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 8th Apr 2003 19:10

Link

Its a good idea! Just the camera is at a confusing angle.

Why the hell'd you ask me for crying out loud!?!

Athelon XP 1400 Plus - Nvidia Geforce MX400 - 256mb RAM

Back to top

Profile PM Email Website

Compiuser458

21

Years of Service

User Offline

Joined: 6th Apr 2003

Location: Germany

Posted: 8th Apr 2003 20:13

Link

It's good but too easy I think

Back to top

Profile PM

Attreid

21

Years of Service

User Offline

Joined: 27th Nov 2002

Location:

Posted: 8th Apr 2003 20:32

Link

too easy ? lol
try it with dbp ^^
with db, it is possible to survive, but with dbp, you are happy when you have more than 20 points

but it's funny

Bu$herie
How many civilians is he going to kill ? he's going to burn in hell, and I hope that his pain will make him inderstand !

Back to top

Profile PM Email

The Darthster

22

Years of Service

User Offline

Joined: 25th Sep 2002

Location: United Kingdom

Posted: 8th Apr 2003 22:56

Link

That's the other way round for me, in DBC it's quite hard, but in DBP the balls collect in one corner and you can go round in circles forever.

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

Back to top

Profile PM Email Website

cusoi

21

Years of Service

User Offline

Joined: 3rd Jan 2003

Location: Netherlands

Posted: 8th Apr 2003 23:08

Link

Funny, at my computer it's not easy but also not too hard. I can survive for half a minute/ a minute and then I get killed most of the times. Nice to know that it's also DBPro compatible.

Pentium IV 2.4 GHZ 256 MB Ram Geforce 4 TI 4200 128 MB
www.cuso.tk

Back to top

Profile PM Email Website

Luke

22

Years of Service

User Offline

Joined: 29th Aug 2002

Location: United States

Posted: 9th Apr 2003 07:59

Link

Cool little game, I got a nice 120 points

If you were to expand this game:
I would have the camera follow the ball from an almost bird-eye 3rd person view. There could be levels, each level would have one more ball, starting with one ball on level one. Levels could be beat by not colliding for, say, 25 seconds. Maybe give some balls some vertical bounce.

www.CyberLuke.com

Back to top

Profile PM

cusoi

21

Years of Service

User Offline

Joined: 3rd Jan 2003

Location: Netherlands

Posted: 9th Apr 2003 10:29

Link

Ok, I will do a 3d person view. Maybe I will do the other things too. Good ideas!

Pentium IV 2.4 GHZ 256 MB Ram Geforce 4 TI 4200 128 MB
www.cuso.tk

Back to top

Profile PM Email Website

Dave J

Retired Moderator

21

Years of Service

User Offline

Joined: 11th Feb 2003

Location: Secret Military Pub, Down Under

Posted: 9th Apr 2003 11:41

Link

Hope you don't mind Spider, but I couldn't wait and added in a quick 3rd person view to test it. So here's the code if anyone wants to see it:

sync on:s=60:randomize timer():hide mouse:make object plain 1,110,110:rotate object 1,90,0,0:for a=2 to 5:make object plain a,110,20:color object a,rgb(20,90,60):next a
rotate object 4,0,90,0:rotate object 5,0,90,0:position object 4,-50,0,0:position object 5,50,0,0:position object 2,0,0,-50:position object 3,0,0,50
make object sphere 6,2: position object 6,-45,1,0:color object 6,rgb(255,0,0):make object plain 7,2,2:color object 7,rgb(0,0,255):rotate object 6,0,90,0
make object sphere 8,5:position object 8,45,2.5,-45:color object 8,rgb(0,255,0):make object sphere 9,5:position object 9,45,2.5,-45:color object 9,rgb(120,160,20):make object sphere 10,5:position object 10,45,2.5,-45:color object 10,rgb(0,255,230)
color backdrop rgb(0,0,60):do:position camera Object Position x(6),Object Position y(6) + 20,Object Position z(6):set camera to object orientation 6:Move Camera -20:point camera object position x(6),object position y(6),object position z(6)
if leftkey()=1 then yrotate object 6,wrapvalue(object angle y(6)-10)
if rightkey()=1 then yrotate object 6,wrapvalue(object angle y(6)+10)
rotate object 7,object angle x(6),object angle y(6),object angle z(6):position object 7,object position x(6),object position y(6),object position z(6):move object 6,0.75:move object 7,2.5
if object collision(6,0)>1 then sync:set camera view 0,0,1,1:center text 320,0,"You have a score of: "+str$(int(score#)):sync:suspend for key:end
for a=8 to 10:move object a,1.5
if object collision(a,0)<>6 and object collision(a,0)<>7 and object collision(a,0)>1 then yrotate object a,rnd(360)
if object position x(a)>50 then position object a,45,2.5,object position z(a)
if object position x(a)<-50 then position object a,-45,2.5,object position z(a)
if object position z(a)>50 then position object a,object position x(a),2.5,45
if object position z(a)<-50 then position object a,object position x(a),2.5,-45
next a:set text size 24:set text font "verdana":center text 320,0,"You have a score of: "+str$(int(score#)):score#=score#+0.1
if s#=150 then d=1
if s#=0 then d=0
if d=1 then s#=s#-1
s#=s#+0.5:color backdrop rgb(0,0,int(s#)):sync:loop

+ Code Snippet

sync on:s=60:randomize timer():hide mouse:make object plain 1,110,110:rotate object 1,90,0,0:for a=2 to 5:make object plain a,110,20:color object a,rgb(20,90,60):next a
rotate object 4,0,90,0:rotate object 5,0,90,0:position object 4,-50,0,0:position object 5,50,0,0:position object 2,0,0,-50:position object 3,0,0,50
make object sphere 6,2: position object 6,-45,1,0:color object 6,rgb(255,0,0):make object plain 7,2,2:color object 7,rgb(0,0,255):rotate object 6,0,90,0
make object sphere 8,5:position object 8,45,2.5,-45:color object 8,rgb(0,255,0):make object sphere 9,5:position object 9,45,2.5,-45:color object 9,rgb(120,160,20):make object sphere 10,5:position object 10,45,2.5,-45:color object 10,rgb(0,255,230)
color backdrop rgb(0,0,60):do:position camera Object Position x(6),Object Position y(6) + 20,Object Position z(6):set camera to object orientation 6:Move Camera -20:point camera object position x(6),object position y(6),object position z(6)
if leftkey()=1 then yrotate object 6,wrapvalue(object angle y(6)-10)
if rightkey()=1 then yrotate object 6,wrapvalue(object angle y(6)+10)
rotate object 7,object angle x(6),object angle y(6),object angle z(6):position object 7,object position x(6),object position y(6),object position z(6):move object 6,0.75:move object 7,2.5
if object collision(6,0)>1 then sync:set camera view 0,0,1,1:center text 320,0,"You have a score of: "+str$(int(score#)):sync:suspend for key:end
for a=8 to 10:move object a,1.5
if object collision(a,0)<>6 and object collision(a,0)<>7 and object collision(a,0)>1 then yrotate object a,rnd(360)
if object position x(a)>50 then position object a,45,2.5,object position z(a)
if object position x(a)<-50 then position object a,-45,2.5,object position z(a)
if object position z(a)>50 then position object a,object position x(a),2.5,45
if object position z(a)<-50 then position object a,object position x(a),2.5,-45
next a:set text size 24:set text font "verdana":center text 320,0,"You have a score of: "+str$(int(score#)):score#=score#+0.1
if s#=150 then d=1
if s#=0 then d=0
if d=1 then s#=s#-1
s#=s#+0.5:color backdrop rgb(0,0,int(s#)):sync:loop

"Computers are useless they can only give you answers."

Back to top

Profile PM Email

cusoi

21

Years of Service

User Offline

Joined: 3rd Jan 2003

Location: Netherlands

Posted: 9th Apr 2003 16:03

Link

Of course not. In fact, at first I made it third person. But I tought it was more difficult to see the other balls then. And than I made this confusing camera position. Good code! It's somewhat different from what I had(with the 3rd person view), but nearly the same effect.

Pentium IV 2.4 GHZ 256 MB Ram Geforce 4 TI 4200 128 MB
www.cuso.tk

Back to top

Profile PM Email Website

FiShFuN4eVeR

21

Years of Service

User Offline

Joined: 2nd Feb 2003

Location: Netherlands

Posted: 9th Apr 2003 17:07

Link

Rtspider, Good work!

Hoor ik nog eens van je? Het was gewoon een 1 april grap dat mailtje! cu
Berry

(hey Funny a code box lets see

If good programmer()=1 then print "Finaly I get to the top

"

Back to top

Profile PM Email Website

cusoi

21

Years of Service

User Offline

Joined: 3rd Jan 2003

Location: Netherlands

Posted: 9th Apr 2003 18:39

Link

Thank you!

Natuurlijk! Ik heb MSN tegenwoordig alleen niet zo vaak meer aan staan. MSN vind ik soms nogal irritant.

Pentium IV 2.4 GHZ 256 MB Ram Geforce 4 TI 4200 128 MB
www.cuso.tk

Back to top

Profile PM Email Website

k0shi

21

Years of Service

User Offline

Joined: 30th Dec 2002

Location: Cyberspace

Posted: 23rd Apr 2003 05:45

Link

cool game

im the only one thats normal in this world.
everyone else is weird.

Back to top

Profile PM Email Website

cusoi

21

Years of Service

User Offline

Joined: 3rd Jan 2003

Location: Netherlands

Posted: 26th Apr 2003 00:51

Link

Thanks!

Pentium IV 2.4 GHZ 256 MB Ram Geforce 4 TI 4200 128 MB
www.cuso.tk

Back to top

Profile PM Email Website

Preston C

21

Years of Service

User Offline

Joined: 16th May 2003

Location: Penn State University Park

Posted: 17th May 2003 19:17

Link

Its fun, better (way better) than what I can do. Hope I can learn to program good games like this with so little lines. Well, back to programing my initial 20 line game.

Back to top

Profile PM Email

Teh Missingz0rs

21

Years of Service

User Offline

Joined: 6th Dec 2002

Location: United Kingdom

Posted: 11th Jun 2003 15:03

Link

Funky. I got 132 points

Your damaged cells are replaced by the mitosis of others. But sometimes when they split they change a little... until there are too many mistakes and you die.

- Edd Biddulph

Back to top

Profile PM Email Website

cusoi

21

Years of Service

User Offline

Joined: 3rd Jan 2003

Location: Netherlands

Posted: 13th Jun 2003 00:50

Link

Thank you! Nice to see people still playing my game!

Pentium IV 2.4 GHZ 256 MB Ram Geforce 4 TI 4200 128 MB
Visit my site: www.cuso.tk

Back to top

Profile PM Email Website

Ocean Runner

21

Years of Service

User Offline

Joined: 18th May 2003

Location: United States

Posted: 13th Jun 2003 18:50

Link

Depth perception is hard on the original.
85 points first try original
35 points first try 3rd person

JetRace coming. Watch out!

Back to top

Profile PM

Blanka

21

Years of Service

User Offline

Joined: 26th Feb 2003

Location: United Kingdom

Posted: 15th Jun 2003 00:34

Link

is it supposed to just crash when it collides?
maybe a "you died" or restarts would be better?

anyway i got 320 on my third go on the first view
16 on my first go on 3rd person view

cool idea for a game

nice one!

Back to top

Profile PM

cusoi

21

Years of Service

User Offline

Joined: 3rd Jan 2003

Location: Netherlands

Posted: 15th Jun 2003 15:21

Link

Thank you very much! I know a you died would be better, but 20 lines isn't very much you know...

Pentium IV 2.4 GHZ 256 MB Ram Geforce 4 TI 4200 128 MB
Visit my site: www.cuso.tk

Back to top

Profile PM Email Website

Troan

21

Years of Service

User Offline

Joined: 22nd Jan 2003

Location: Inner thought about nothing

Posted: 23rd Jul 2003 02:21

Link

my top score is
92

orignal
30

third

-Troan-

"Love and Peace"-Vash the Stampede

Back to top

Profile PM Email

cusoi

21

Years of Service

User Offline

Joined: 3rd Jan 2003

Location: Netherlands

Posted: 23rd Jul 2003 17:13

Link

B-e-a-utiful... Visit my site: www.cuso.tk

Back to top

Profile PM Email Website

Sorry your browser is not supported!

The 20 Line Challenge / DBClassic No media required Ice Ball