My first 20 liner.. GraviSpheres

Author

Message

Nicholas Thompson

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 16th Nov 2004 07:04 Edited at: 16th Nov 2004 07:06

Link

This is based on the physics "engine" used in GraviKill (see my WIP post)..

sync on : sync rate 0 : color backdrop rgb(0,0,0) : PLANETS = 5 : ASTEROIDS= 40 : PLANETMASS# = 0.1 : ASTEROIDMASS# = 0.001 : Dim PlanetPos#(PLANETS, 3) : Dim AsteroidData#(ASTEROIDS, 3, 3)
for i = 1 to PLANETS : make object sphere i, 3, 16, 16 : color object i, rgb(96, 96, 255) : PlanetPos#(i, 1) = rnd(80)-40 : PlanetPos#(i, 2) = rnd(80)-40 : PlanetPos#(i, 3) = rnd(80)-40 : position object i, PlanetPos#(i, 1), PlanetPos#(i, 2), PlanetPos#(i, 3) : next i : for j = 1 to ASTEROIDS : i = j + 100 : make object sphere i, 1.5, 16, 16 : color object i, rgb(96, 255, 96) : AsteroidData#(j, 1, 1) = rnd(80)-40 : AsteroidData#(j, 1, 2) = rnd(80)-40 : AsteroidData#(j, 1, 3) = rnd(80)-40 : position object i, AsteroidData#(j, 1, 1), AsteroidData#(j, 1, 2), AsteroidData#(j, 1, 3) : next j
autocam off : angle# = 0.0 : frameTime# = 1.0 : startTime = timer()
do : frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2) : startTime = timer()
   for i = 1 to ASTEROIDS
      fX# = 0.0 : fY# = 0.0 : fZ# = 0.0
      for j = 1 to PLANETS
         DistX# = PlanetPos#(j, 1) - AsteroidData#(i, 1, 1) : DistY# = PlanetPos#(j, 2) - AsteroidData#(i, 1, 2) : DistZ# = PlanetPos#(j, 3) - AsteroidData#(i, 1, 3) : Dist# = sqrt((DistX#^2) + (DistY#^2) + (DistZ#^2)) : if Dist# < 1.0 then Dist# = 1.0
         Grav# = ASTEROIDMASS# * PLANETMASS# * (Dist#^2.0) * 0.1
         inc fX#, Grav# * DistX# / Dist# : inc fY#, Grav# * DistY# / Dist# : inc fZ#, Grav# * DistZ# / Dist#
      next j
      inc AsteroidData#(i, 2, 1), (fX# / ASTEROIDMASS#) * frameTime# * 0.001 : inc AsteroidData#(i, 2, 2), (fY# / ASTEROIDMASS#) * frameTime# * 0.001 : inc AsteroidData#(i, 2, 3), (fZ# / ASTEROIDMASS#) * frameTime# * 0.001
      inc AsteroidData#(i, 1, 1), AsteroidData#(i, 2, 1) * frameTime# * 0.001 : inc AsteroidData#(i, 1, 2), AsteroidData#(i, 2, 2) * frameTime# * 0.001 : inc AsteroidData#(i, 1, 3), AsteroidData#(i, 2, 3) * frameTime# * 0.001
      position object i + 100, AsteroidData#(i, 1, 1), AsteroidData#(i, 1, 2), AsteroidData#(i, 1, 3)
   next i
   inc angle#, frameTime# * 0.045 : position camera sin(angle#) * 100.0, sin(angle#) * 20.0, cos(angle#) * 100.0 : point camera 0, 0, 0 : set point light 0, sin(angle#) * 100.0, sin(angle#) * 20.0, cos(angle#) * 100.0
   text 10, 10, "Screen FPS: " + str$(screen fps())
   sync
loop

+ Code Snippet

sync on : sync rate 0 : color backdrop rgb(0,0,0) : PLANETS = 5 : ASTEROIDS= 40 : PLANETMASS# = 0.1 : ASTEROIDMASS# = 0.001 : Dim PlanetPos#(PLANETS, 3) : Dim AsteroidData#(ASTEROIDS, 3, 3)
for i = 1 to PLANETS : make object sphere i, 3, 16, 16 : color object i, rgb(96, 96, 255) : PlanetPos#(i, 1) = rnd(80)-40 : PlanetPos#(i, 2) = rnd(80)-40 : PlanetPos#(i, 3) = rnd(80)-40 : position object i, PlanetPos#(i, 1), PlanetPos#(i, 2), PlanetPos#(i, 3) : next i : for j = 1 to ASTEROIDS : i = j + 100 : make object sphere i, 1.5, 16, 16 : color object i, rgb(96, 255, 96) : AsteroidData#(j, 1, 1) = rnd(80)-40 : AsteroidData#(j, 1, 2) = rnd(80)-40 : AsteroidData#(j, 1, 3) = rnd(80)-40 : position object i, AsteroidData#(j, 1, 1), AsteroidData#(j, 1, 2), AsteroidData#(j, 1, 3) : next j
autocam off : angle# = 0.0 : frameTime# = 1.0 : startTime = timer()
do : frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2) : startTime = timer()
   for i = 1 to ASTEROIDS
      fX# = 0.0 : fY# = 0.0 : fZ# = 0.0
      for j = 1 to PLANETS
         DistX# = PlanetPos#(j, 1) - AsteroidData#(i, 1, 1) : DistY# = PlanetPos#(j, 2) - AsteroidData#(i, 1, 2) : DistZ# = PlanetPos#(j, 3) - AsteroidData#(i, 1, 3) : Dist# = sqrt((DistX#^2) + (DistY#^2) + (DistZ#^2)) : if Dist# < 1.0 then Dist# = 1.0
         Grav# = ASTEROIDMASS# * PLANETMASS# * (Dist#^2.0) * 0.1
         inc fX#, Grav# * DistX# / Dist# : inc fY#, Grav# * DistY# / Dist# : inc fZ#, Grav# * DistZ# / Dist#
      next j
      inc AsteroidData#(i, 2, 1), (fX# / ASTEROIDMASS#) * frameTime# * 0.001 : inc AsteroidData#(i, 2, 2), (fY# / ASTEROIDMASS#) * frameTime# * 0.001 : inc AsteroidData#(i, 2, 3), (fZ# / ASTEROIDMASS#) * frameTime# * 0.001
      inc AsteroidData#(i, 1, 1), AsteroidData#(i, 2, 1) * frameTime# * 0.001 : inc AsteroidData#(i, 1, 2), AsteroidData#(i, 2, 2) * frameTime# * 0.001 : inc AsteroidData#(i, 1, 3), AsteroidData#(i, 2, 3) * frameTime# * 0.001
      position object i + 100, AsteroidData#(i, 1, 1), AsteroidData#(i, 1, 2), AsteroidData#(i, 1, 3)
   next i
   inc angle#, frameTime# * 0.045 : position camera sin(angle#) * 100.0, sin(angle#) * 20.0, cos(angle#) * 100.0 : point camera 0, 0, 0 : set point light 0, sin(angle#) * 100.0, sin(angle#) * 20.0, cos(angle#) * 100.0
   text 10, 10, "Screen FPS: " + str$(screen fps())
   sync
loop

It weighs in at 19 lines, although most lines are stacked. I THINK I have kept within the rules here, please let me know if I havent!!

Anyway, THIS piece of code (ie these settings) give me 922+ FPS.

SETTINGS:
PLANETS: These are the attracting entities.. Currently set to 5..
ASTEROIDS: These are the flying green things. Currently set to 40
PLANET MASS: Currently set to 0.1.
ASTEROID MASS: Currently set to 0.001.
GRAVITY EFFECT: On the end of the line "Grav# = ASTEROIDMASS# * PLANETMASS# * (Dist#^2.0) * 0.1", the 0.1 represents the effect or power of the gravity field. It is sort of the speed of the simulation.
CAMERA ROTATION: Firstly, the code "inc angle#, frameTime# * 0.045" determines the speed of the camera rotation. Currently it is 45 degrees per second. Fortunately it is an easy formula.. 360 degrees per second is 0.360.. 90 per second is 0.09. If you cant guess the formula by that, its degree's per second divided by 1000

THEN, the positioning commands (for camera and light).. Change the factor for X Y and Z.. These are the radius on that axis. By default, the camera and light go +-100 in the X and Z axis and +-20 in the Y. The camera is always pointing at 0,0,0.

I think thats everything.. LET ME KNOW WHAT YOU THINK!!

[EDIT] Screeny attached...
[EDIT2] Screeny show!!

My Website:

http://www.thingy-ma-jig.co.uk

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Nicholas Thompson

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 16th Nov 2004 10:07

Link

For those interested - I tried this on 1000 asteroids. It dropped down to a steady 55fps. But is looked REEEEEEEAAAAALLLY cool

My Website:

http://www.thingy-ma-jig.co.uk

Back to top

Profile PM Email Website

Mx5 kris

19

Years of Service

User Offline

Joined: 9th Oct 2004

Location:

Posted: 16th Nov 2004 10:13

Link

sweet! rating : 9/10 NOONE GETS A PERFECT 10!!!MUAHAHAHH!ah...you can have it 10/10

Back to top

Profile PM

Nicholas Thompson

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 16th Nov 2004 10:51 Edited at: 16th Nov 2004 10:54

Link

Now i'm going to sleep a happy unemployed person

[EDIT]
A "happy unemployed person" with a new screeny of the 1000 asteroids

My Website:

http://www.thingy-ma-jig.co.uk

Attachments

Login to view attachments

Back to top

Profile PM Email Website

IBOL

Retired Moderator

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 17th Nov 2004 01:01 Edited at: 18th Nov 2004 11:03

Link

that is actually really cool!
now I want to do a 20 liner.
how is gravikill?
unemployment is good.

[EDIT] ooh ooh now i did it!
my own 20 liner,
20 line asteroids.
its a full game with progressively harder levels,
shield bonuses, particle effects, and it generates its own media.
http://forum.thegamecreators.com/?m=forum_view&t=42818&b=11

bob

http://astrumgames.com

Back to top

Profile PM Email Website

Nicholas Thompson

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 17th Nov 2004 01:36

Link

Hehe.. Gravikill is on hold for a few days while I sort some stuff out.. Unemplyment is.. well.. uncannily like unemployment!! Lol..

My Website:

http://www.thingy-ma-jig.co.uk

Back to top

Profile PM Email Website

JerBil

19

Years of Service

User Offline

Joined: 8th May 2004

Location: Somewhere along the Z axis...

Posted: 17th Nov 2004 02:56

Link

Nick, that's really cool. Those asteroids look like insects, how about doing a swarm of something with a little ai?

-JerBil

Back to top

Profile PM Email

Attreid

21

Years of Service

User Offline

Joined: 27th Nov 2002

Location:

Posted: 17th Nov 2004 04:46

Link

hey, a very good one :p
the most interresting thing (for me) is that the asteroids and planets stay in the screen .. how did you do that ?
did you set their speed so that the total kinetic energy on each axes is null ?

"He will come...the voice from the outer world,
bringing the holy war, the Jihad, which will cleanse the Universe and bring us out of darkness."

Back to top

Profile PM Email

Nicholas Thompson

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 17th Nov 2004 09:57

Link

@Gerbil.. AI? Its a 20 line demo showing gravity effects of object, dont think I could get any AI in there even if I knew what you meant

@Attreid: Cheers.. I did not such thing to keep them on the screen, in fact the often go off for me! Basically, I just tweaked the code so they all kept fairly close.. You could make the gravity do less, possible by making the planets mass less?

My Website:

http://www.thingy-ma-jig.co.uk

Back to top

Profile PM Email Website

JerBil

19

Years of Service

User Offline

Joined: 8th May 2004

Location: Somewhere along the Z axis...

Posted: 18th Nov 2004 07:34

Link

@Nick: Yeah, I know, it just looks like a swarm, and in another program, it might be useful...or not! Sorry...

-JerBil

Back to top

Profile PM Email

Nicholas Thompson

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 18th Nov 2004 07:52

Link

Hehe no need to appologise!

I was slightly confused by what you meant.. But yes, it is quite swarm like.

I was playing with the code.. It could be possible to modify this so the "particles" have a speed when released (rather than starting from standstil).. And if there is only 1 attractor.. I think you might see where I'm going with this (particles.. attractor).. I think we might have ourself a little particle engine.. That does.. wierd.. non-particle like stuff..

My Website:

http://www.thingy-ma-jig.co.uk

Back to top

Profile PM Email Website

Ric

19

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 19th Nov 2004 12:18

Link

That's excellent!! You didn't happen to do a remmed version, before I break it apart to study it, did you? I did something similar to this recently, although I had real problems balancing gravity with speed - either the satellites moved way too fast, or they went slow but got sucked into the planets. Your's works really nicely, though.

Back to top

Profile PM Email Website

Nicholas Thompson

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 19th Nov 2004 20:57 Edited at: 19th Nov 2004 20:57

Link

This isn't remarked, but its easier to read. IT also has a few more features. By changing the value of "a#" near the top, you can change the blurring effect.

This is the version in the WIP forum.

`set display mode 1280, 1024, 32
sync on
sync rate 0
color backdrop rgb(0,0,0)
load image "black.png", 1, 1
sprite 1, 0, 0, 1
set sprite 1, 0, 1
size sprite 1, screen width(), screen height()
a# = 32.0
set sprite alpha 1, a#
draw sprites first
backdrop off

PLANETS = 3
ASTEROIDS= 250
PLANETMASS# = 0.1
ASTEROIDMASS# = 0.001

Dim PlanetPos#(PLANETS, 3)
Dim AsteroidData#(ASTEROIDS, 3, 3)

for i = 1 to PLANETS
   make object sphere i, 3, 12, 12
   color object i, rgb(96, 96, 255)
   PlanetPos#(i, 1) = rnd(80)-40
   PlanetPos#(i, 2) = rnd(80)-40
   PlanetPos#(i, 3) = rnd(80)-40
   position object i, PlanetPos#(i, 1), PlanetPos#(i, 2), PlanetPos#(i, 3)
next i

for j = 1 to ASTEROIDS : i = j + 100
   make object sphere i, 1.5, 8, 8
   color object i, rgb(96, 255, 96)
   AsteroidData#(j, 1, 1) = rnd(80)-40
   AsteroidData#(j, 1, 2) = rnd(80)-40
   AsteroidData#(j, 1, 3) = rnd(80)-40
   position object i, AsteroidData#(j, 1, 1), AsteroidData#(j, 1, 2), AsteroidData#(j, 1, 3)
next j

autocam off
angle# = 0.0
frameTime# = 1.0
startTime = timer()

KeyDown = 0
do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2) : startTime = timer()
   for i = 1 to ASTEROIDS
      fX# = 0.0 : fY# = 0.0 : fZ# = 0.0
      for j = 1 to PLANETS
         DistX# = PlanetPos#(j, 1) - AsteroidData#(i, 1, 1)
         DistY# = PlanetPos#(j, 2) - AsteroidData#(i, 1, 2)
         DistZ# = PlanetPos#(j, 3) - AsteroidData#(i, 1, 3)
         Dist# = sqrt((DistX#^2) + (DistY#^2) + (DistZ#^2))
         if Dist# < 1.0 then Dist# = 1.0
         Grav# = ASTEROIDMASS# * PLANETMASS# * (Dist#*Dist#) * 0.05
         inc fX#, Grav# * DistX# / Dist#
         inc fY#, Grav# * DistY# / Dist#
         inc fZ#, Grav# * DistZ# / Dist#
      next j
      inc AsteroidData#(i, 2, 1), (fX# / ASTEROIDMASS#) * frameTime# * 0.001
      inc AsteroidData#(i, 2, 2), (fY# / ASTEROIDMASS#) * frameTime# * 0.001
      inc AsteroidData#(i, 2, 3), (fZ# / ASTEROIDMASS#) * frameTime# * 0.001
      inc AsteroidData#(i, 1, 1), AsteroidData#(i, 2, 1) * frameTime# * 0.001
      inc AsteroidData#(i, 1, 2), AsteroidData#(i, 2, 2) * frameTime# * 0.001
      inc AsteroidData#(i, 1, 3), AsteroidData#(i, 2, 3) * frameTime# * 0.001
      position object i + 100, AsteroidData#(i, 1, 1), AsteroidData#(i, 1, 2), AsteroidData#(i, 1, 3)
   next i
   inc angle#, frameTime# * 0.0225
   position camera sin(angle#) * 150.0, sin(angle#) * 10.0, cos(angle#) * 150.0
   point camera 0, 0, 0 : set point light 0, sin(angle#) * 100.0, sin(angle#) * 20.0, cos(angle#) * 100.0

if keystate(52)
      inc a#, frameTime# * 0.016
      if a# > 255 then a# = 255
      set sprite alpha 1, a#
   else
      if keystate(51)
         dec a#, frameTime# * 0.016
         if a# < 1.0 then a# = 1.0
         set sprite alpha 1, a#
      endif
   endif
   text 10, 10, "FPS: " + str$(screen fps())
   text 10, 30, "Alpha: " + str$(a#)
   sync
loop

+ Code Snippet

`set display mode 1280, 1024, 32
sync on
sync rate 0
color backdrop rgb(0,0,0)
load image "black.png", 1, 1
sprite 1, 0, 0, 1
set sprite 1, 0, 1
size sprite 1, screen width(), screen height()
a# = 32.0
set sprite alpha 1, a#
draw sprites first
backdrop off



PLANETS = 3
ASTEROIDS= 250
PLANETMASS# = 0.1
ASTEROIDMASS# = 0.001

Dim PlanetPos#(PLANETS, 3)
Dim AsteroidData#(ASTEROIDS, 3, 3)

for i = 1 to PLANETS
   make object sphere i, 3, 12, 12
   color object i, rgb(96, 96, 255)
   PlanetPos#(i, 1) = rnd(80)-40
   PlanetPos#(i, 2) = rnd(80)-40
   PlanetPos#(i, 3) = rnd(80)-40
   position object i, PlanetPos#(i, 1), PlanetPos#(i, 2), PlanetPos#(i, 3)
next i

for j = 1 to ASTEROIDS : i = j + 100
   make object sphere i, 1.5, 8, 8
   color object i, rgb(96, 255, 96)
   AsteroidData#(j, 1, 1) = rnd(80)-40
   AsteroidData#(j, 1, 2) = rnd(80)-40
   AsteroidData#(j, 1, 3) = rnd(80)-40
   position object i, AsteroidData#(j, 1, 1), AsteroidData#(j, 1, 2), AsteroidData#(j, 1, 3)
next j

autocam off
angle# = 0.0
frameTime# = 1.0
startTime = timer()

KeyDown = 0
do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2) : startTime = timer()
   for i = 1 to ASTEROIDS
      fX# = 0.0 : fY# = 0.0 : fZ# = 0.0
      for j = 1 to PLANETS
         DistX# = PlanetPos#(j, 1) - AsteroidData#(i, 1, 1)
         DistY# = PlanetPos#(j, 2) - AsteroidData#(i, 1, 2)
         DistZ# = PlanetPos#(j, 3) - AsteroidData#(i, 1, 3)
         Dist# = sqrt((DistX#^2) + (DistY#^2) + (DistZ#^2))
         if Dist# < 1.0 then Dist# = 1.0
         Grav# = ASTEROIDMASS# * PLANETMASS# * (Dist#*Dist#) * 0.05
         inc fX#, Grav# * DistX# / Dist#
         inc fY#, Grav# * DistY# / Dist#
         inc fZ#, Grav# * DistZ# / Dist#
      next j
      inc AsteroidData#(i, 2, 1), (fX# / ASTEROIDMASS#) * frameTime# * 0.001
      inc AsteroidData#(i, 2, 2), (fY# / ASTEROIDMASS#) * frameTime# * 0.001
      inc AsteroidData#(i, 2, 3), (fZ# / ASTEROIDMASS#) * frameTime# * 0.001
      inc AsteroidData#(i, 1, 1), AsteroidData#(i, 2, 1) * frameTime# * 0.001
      inc AsteroidData#(i, 1, 2), AsteroidData#(i, 2, 2) * frameTime# * 0.001
      inc AsteroidData#(i, 1, 3), AsteroidData#(i, 2, 3) * frameTime# * 0.001
      position object i + 100, AsteroidData#(i, 1, 1), AsteroidData#(i, 1, 2), AsteroidData#(i, 1, 3)
   next i
   inc angle#, frameTime# * 0.0225
   position camera sin(angle#) * 150.0, sin(angle#) * 10.0, cos(angle#) * 150.0
   point camera 0, 0, 0 : set point light 0, sin(angle#) * 100.0, sin(angle#) * 20.0, cos(angle#) * 100.0

   if keystate(52)
      inc a#, frameTime# * 0.016
      if a# > 255 then a# = 255
      set sprite alpha 1, a#
   else
      if keystate(51)
         dec a#, frameTime# * 0.016
         if a# < 1.0 then a# = 1.0
         set sprite alpha 1, a#
      endif
   endif
   text 10, 10, "FPS: " + str$(screen fps())
   text 10, 30, "Alpha: " + str$(a#)
   sync
loop

My Website:

http://www.thingy-ma-jig.co.uk

Back to top

Profile PM Email Website

Ric

19

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 20th Nov 2004 10:04

Link

Thanks Nick - that is easier to read!

Back to top

Profile PM Email Website

shadow sliver

19

Years of Service

User Offline

Joined: 28th Nov 2004

Location:

Posted: 28th Nov 2004 07:33

Link

Can you compile that, for us unfortunate DBC users?

Back to top

Profile PM

Ilya

20

Years of Service

User Offline

Joined: 10th Aug 2003

Location:

Posted: 8th Dec 2004 09:07

Link

Hmmm.... what's wrong with this code:

sync on : sync rate 0 : color backdrop rgb(0,0,0) : PLANETS = 1 : ASTEROIDS= 300 : PLANETMASS# = 1 : ASTEROIDMASS# = 0.001 : Dim PlanetPos#(PLANETS, 3) : Dim AsteroidData#(ASTEROIDS, 3, 3)
for i = 1 to PLANETS : make object sphere i, 2+rnd(8), 8, 8 : color object i, rgb(96, 96, 255) : PlanetPos#(i, 1) = rnd(80)-40 : PlanetPos#(i, 2) = rnd(80)-40 : PlanetPos#(i, 3) = rnd(80)-40 : position object i, PlanetPos#(i, 1), PlanetPos#(i, 2), PlanetPos#(i, 3) : next i : for j = 1 to ASTEROIDS : i = j + 100 : make object sphere i, 10, 8, 8 : color object i, rgb(96, 255, 96) : AsteroidData#(j, 1, 1) = rnd(80)-40 : AsteroidData#(j, 1, 2) = rnd(80)-40 : AsteroidData#(j, 1, 3) = rnd(80)-40 : position object i, AsteroidData#(j, 1, 1), AsteroidData#(j, 1, 2), AsteroidData#(j, 1, 3) : next j
autocam off : angle# = 0.0 : frameTime# = 1.0 : startTime = timer()
do : frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2) : startTime = timer()
if spacekey()=0
   for i = 1 to ASTEROIDS
      fX# = 0.0 : fY# = 0.0 : fZ# = 0.0
      for j = 1 to PLANETS
         DistX# = PlanetPos#(j, 1) - AsteroidData#(i, 1, 1) : DistY# = PlanetPos#(j, 2) - AsteroidData#(i, 1, 2) : DistZ# = PlanetPos#(j, 3) - AsteroidData#(i, 1, 3) : Dist# = sqrt((DistX#^2) + (DistY#^2) + (DistZ#^2)) : if Dist# < 1.0 then Dist# = 1.0
         Grav# = ASTEROIDMASS# * PLANETMASS# * (Dist#^2.0) * 0.1
         inc fX#, Grav# * DistX# / Dist# : inc fY#, Grav# * DistY# / Dist# : inc fZ#, Grav# * DistZ# / Dist#
      next j
      inc AsteroidData#(i, 2, 1), (fX# / ASTEROIDMASS#) * frameTime# * 0.001 : inc AsteroidData#(i, 2, 2), (fY# / ASTEROIDMASS#) * frameTime# * 0.001 : inc AsteroidData#(i, 2, 3), (fZ# / ASTEROIDMASS#) * frameTime# * 0.001
      inc AsteroidData#(i, 1, 1), AsteroidData#(i, 2, 1) * frameTime# * 0.001 : inc AsteroidData#(i, 1, 2), AsteroidData#(i, 2, 2) * frameTime# * 0.001 : inc AsteroidData#(i, 1, 3), AsteroidData#(i, 2, 3) * frameTime# * 0.001
      position object i + 100, AsteroidData#(i, 1, 1), AsteroidData#(i, 1, 2), AsteroidData#(i, 1, 3)
   next i
   inc angle#, frameTime# * 0.045 : `set point light 0, sin(angle#) * 100.0, sin(angle#) * 20.0, cos(angle#) * 100.0
endif
x=camera position x()
y=camera position y()
z=camera position z()
PlanetPos#(1, 1) = x : PlanetPos#(1, 2) = y : PlanetPos#(1, 3) = z
if mouseclick()=1 
o=PICK OBJECT(mousex(),mousey(),100,100+ASTEROIDS)
if o>0
delete object o
o=o-100
ARRAY DELETE ELEMENT AsteroidData#(o,1,1)
ARRAY DELETE ELEMENT AsteroidData#(o,1,2)
ARRAY DELETE ELEMENT AsteroidData#(o,1,3)
ASTEROIDS=ASTEROIDS-1
endif
endif
`position camera sin(angle#) * 100.0, sin(angle#) * 20.0, cos(angle#) * 100.0 : point camera 0, 0, 0 :
MouseControl3(1)
   text 10, 10, "Screen FPS: " + str$(screen fps())
   sync
loop

function MouseControl3(Speed as float)	
		xrotate camera camera angle x()+mousemovey()
		yrotate camera camera angle y()+mousemovex()
		if upkey()=1 then move camera Speed
		if downkey()=1 then move camera (0-Speed)
	
	r=mousemovex()
	r=mousemovey()
endfunction

+ Code Snippet

sync on : sync rate 0 : color backdrop rgb(0,0,0) : PLANETS = 1 : ASTEROIDS= 300 : PLANETMASS# = 1 : ASTEROIDMASS# = 0.001 : Dim PlanetPos#(PLANETS, 3) : Dim AsteroidData#(ASTEROIDS, 3, 3)
for i = 1 to PLANETS : make object sphere i, 2+rnd(8), 8, 8 : color object i, rgb(96, 96, 255) : PlanetPos#(i, 1) = rnd(80)-40 : PlanetPos#(i, 2) = rnd(80)-40 : PlanetPos#(i, 3) = rnd(80)-40 : position object i, PlanetPos#(i, 1), PlanetPos#(i, 2), PlanetPos#(i, 3) : next i : for j = 1 to ASTEROIDS : i = j + 100 : make object sphere i, 10, 8, 8 : color object i, rgb(96, 255, 96) : AsteroidData#(j, 1, 1) = rnd(80)-40 : AsteroidData#(j, 1, 2) = rnd(80)-40 : AsteroidData#(j, 1, 3) = rnd(80)-40 : position object i, AsteroidData#(j, 1, 1), AsteroidData#(j, 1, 2), AsteroidData#(j, 1, 3) : next j
autocam off : angle# = 0.0 : frameTime# = 1.0 : startTime = timer()
do : frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2) : startTime = timer()
if spacekey()=0
   for i = 1 to ASTEROIDS
      fX# = 0.0 : fY# = 0.0 : fZ# = 0.0
      for j = 1 to PLANETS
         DistX# = PlanetPos#(j, 1) - AsteroidData#(i, 1, 1) : DistY# = PlanetPos#(j, 2) - AsteroidData#(i, 1, 2) : DistZ# = PlanetPos#(j, 3) - AsteroidData#(i, 1, 3) : Dist# = sqrt((DistX#^2) + (DistY#^2) + (DistZ#^2)) : if Dist# < 1.0 then Dist# = 1.0
         Grav# = ASTEROIDMASS# * PLANETMASS# * (Dist#^2.0) * 0.1
         inc fX#, Grav# * DistX# / Dist# : inc fY#, Grav# * DistY# / Dist# : inc fZ#, Grav# * DistZ# / Dist#
      next j
      inc AsteroidData#(i, 2, 1), (fX# / ASTEROIDMASS#) * frameTime# * 0.001 : inc AsteroidData#(i, 2, 2), (fY# / ASTEROIDMASS#) * frameTime# * 0.001 : inc AsteroidData#(i, 2, 3), (fZ# / ASTEROIDMASS#) * frameTime# * 0.001
      inc AsteroidData#(i, 1, 1), AsteroidData#(i, 2, 1) * frameTime# * 0.001 : inc AsteroidData#(i, 1, 2), AsteroidData#(i, 2, 2) * frameTime# * 0.001 : inc AsteroidData#(i, 1, 3), AsteroidData#(i, 2, 3) * frameTime# * 0.001
      position object i + 100, AsteroidData#(i, 1, 1), AsteroidData#(i, 1, 2), AsteroidData#(i, 1, 3)
   next i
   inc angle#, frameTime# * 0.045 : `set point light 0, sin(angle#) * 100.0, sin(angle#) * 20.0, cos(angle#) * 100.0
endif
x=camera position x()
y=camera position y()
z=camera position z()
PlanetPos#(1, 1) = x : PlanetPos#(1, 2) = y : PlanetPos#(1, 3) = z
if mouseclick()=1 
o=PICK OBJECT(mousex(),mousey(),100,100+ASTEROIDS)
if o>0
delete object o
o=o-100
ARRAY DELETE ELEMENT AsteroidData#(o,1,1)
ARRAY DELETE ELEMENT AsteroidData#(o,1,2)
ARRAY DELETE ELEMENT AsteroidData#(o,1,3)
ASTEROIDS=ASTEROIDS-1
endif
endif
`position camera sin(angle#) * 100.0, sin(angle#) * 20.0, cos(angle#) * 100.0 : point camera 0, 0, 0 :
MouseControl3(1)
   text 10, 10, "Screen FPS: " + str$(screen fps())
   sync
loop


function MouseControl3(Speed as float)	
		xrotate camera camera angle x()+mousemovey()
		yrotate camera camera angle y()+mousemovex()
		if upkey()=1 then move camera Speed
		if downkey()=1 then move camera (0-Speed)
	
	r=mousemovex()
	r=mousemovey()
endfunction

Quote: "I've seen the word programming and I'm not sure what it means. Anybody please explain?"

Quote: "We shouldn't sacrifice the truth to preserve "balance"."

Back to top

Profile PM Email Website

Nicholas Thompson

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 9th Dec 2004 03:45

Link

Ok.. I'm not ENTIRELY sure what you're trying to do with the code here.. Lol.. BUT I have managed to modify you code to allow planet deletion by clicking on it.

sync on
sync rate 0
color backdrop rgb(0,0,0)
PLANETS = 2
ASTEROIDS= 300
PLANETMASS# = 5.0
ASTEROIDMASS# = 0.0001
Type AsteroidDatatype
   px#
   py#
   pz#
   sx#
   sy#
   sz#
   enabled as boolean
EndType

Dim PlanetPos#(PLANETS, 3)
Dim AsteroidData(ASTEROIDS, 2) as AsteroidDatatype

for i = 1 to PLANETS
   make object sphere i, 2+rnd(8), 8, 8
   color object i, rgb(96, 96, 255)
   PlanetPos#(i, 1) = rnd(80)-40
   PlanetPos#(i, 2) = rnd(80)-40
   PlanetPos#(i, 3) = rnd(80)-40
   position object i, PlanetPos#(i, 1), PlanetPos#(i, 2), PlanetPos#(i, 3)
next i

for j = 1 to ASTEROIDS : i = j + 100
   make object sphere i, 10, 8, 8
   color object i, rgb(96, 255, 96)
   AsteroidData(j).px# = rnd(80)-40
   AsteroidData(j).py# = rnd(80)-40
   AsteroidData(j).pz# = rnd(80)-40
   position object i, AsteroidData(j).px#, AsteroidData(j).py#, AsteroidData(j).pz#
   AsteroidData(j).enabled = 1
next j

autocam off : angle# = 0.0 : frameTime# = 1.0 : startTime = timer()

do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()
   if spacekey()=0
      for i = 1 to ASTEROIDS
         if AsteroidData(i).enabled = 1
           fX# = 0.0 : fY# = 0.0 : fZ# = 0.0
           for j = 1 to PLANETS
              DistX# = PlanetPos#(j, 1) - AsteroidData(i).px#
              DistY# = PlanetPos#(j, 2) - AsteroidData(i).py#
              DistZ# = PlanetPos#(j, 3) - AsteroidData(i).pz#
              Dist# = sqrt((DistX#^2) + (DistY#^2) + (DistZ#^2))
              if Dist# < 1.0 then Dist# = 1.0

Grav# = ASTEROIDMASS# * PLANETMASS# * (Dist#^2.0) * 0.1
              inc fX#, Grav# * DistX# / Dist# : inc fY#, Grav# * DistY# / Dist# : inc fZ#, Grav# * DistZ# / Dist#
           next j
           inc AsteroidData(i).sx#, (fX# / ASTEROIDMASS#) * frameTime# * 0.001
           inc AsteroidData(i).sy#, (fY# / ASTEROIDMASS#) * frameTime# * 0.001
           inc AsteroidData(i).sz#, (fZ# / ASTEROIDMASS#) * frameTime# * 0.001

inc AsteroidData(i).px#, AsteroidData(i).sx# * frameTime# * 0.001
           inc AsteroidData(i).py#, AsteroidData(i).sy# * frameTime# * 0.001
           inc AsteroidData(i).pz#, AsteroidData(i).sz# * frameTime# * 0.001

position object i + 100, AsteroidData(i).px#, AsteroidData(i).py#, AsteroidData(i).pz#
         endif
      next i
   endif

`x=camera position x()
   `y=camera position y()
   `z=camera position z()
   `PlanetPos#(1, 1) = x : PlanetPos#(1, 2) = y : PlanetPos#(1, 3) = z
   if mouseclick()=1
      o=PICK OBJECT(mousex(),mousey(),100,ASTEROIDS+100)
      if o>0
         hide object o
         o=o-100
         AsteroidData(o).enabled = 0
      endif
   endif

`position camera sin(angle#) * 200.0, 0.0, cos(angle#) * 200.0 : point camera 0, 0, 0 :
   MouseControl3(1)
   text 10, 10, "Screen FPS: " + str$(screen fps())
   sync
loop

function MouseControl3(Speed as float)
   xrotate camera camera angle x()+mousemovey()
   yrotate camera camera angle y()+mousemovex()
   if upkey()=1 then move camera Speed
   if downkey()=1 then move camera (0-Speed)

`r=mousemovex()
   `r=mousemovey()
endfunction

+ Code Snippet

sync on
sync rate 0
color backdrop rgb(0,0,0)
PLANETS = 2
ASTEROIDS= 300
PLANETMASS# = 5.0
ASTEROIDMASS# = 0.0001
Type AsteroidDatatype
   px#
   py#
   pz#
   sx#
   sy#
   sz#
   enabled as boolean
EndType

Dim PlanetPos#(PLANETS, 3)
Dim AsteroidData(ASTEROIDS, 2) as AsteroidDatatype

for i = 1 to PLANETS
   make object sphere i, 2+rnd(8), 8, 8
   color object i, rgb(96, 96, 255)
   PlanetPos#(i, 1) = rnd(80)-40
   PlanetPos#(i, 2) = rnd(80)-40
   PlanetPos#(i, 3) = rnd(80)-40
   position object i, PlanetPos#(i, 1), PlanetPos#(i, 2), PlanetPos#(i, 3)
next i

for j = 1 to ASTEROIDS : i = j + 100
   make object sphere i, 10, 8, 8
   color object i, rgb(96, 255, 96)
   AsteroidData(j).px# = rnd(80)-40
   AsteroidData(j).py# = rnd(80)-40
   AsteroidData(j).pz# = rnd(80)-40
   position object i, AsteroidData(j).px#, AsteroidData(j).py#, AsteroidData(j).pz#
   AsteroidData(j).enabled = 1
next j

autocam off : angle# = 0.0 : frameTime# = 1.0 : startTime = timer()

do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()
   if spacekey()=0
      for i = 1 to ASTEROIDS
         if AsteroidData(i).enabled = 1
           fX# = 0.0 : fY# = 0.0 : fZ# = 0.0
           for j = 1 to PLANETS
              DistX# = PlanetPos#(j, 1) - AsteroidData(i).px#
              DistY# = PlanetPos#(j, 2) - AsteroidData(i).py#
              DistZ# = PlanetPos#(j, 3) - AsteroidData(i).pz#
              Dist# = sqrt((DistX#^2) + (DistY#^2) + (DistZ#^2))
              if Dist# < 1.0 then Dist# = 1.0

              Grav# = ASTEROIDMASS# * PLANETMASS# * (Dist#^2.0) * 0.1
              inc fX#, Grav# * DistX# / Dist# : inc fY#, Grav# * DistY# / Dist# : inc fZ#, Grav# * DistZ# / Dist#
           next j
           inc AsteroidData(i).sx#, (fX# / ASTEROIDMASS#) * frameTime# * 0.001
           inc AsteroidData(i).sy#, (fY# / ASTEROIDMASS#) * frameTime# * 0.001
           inc AsteroidData(i).sz#, (fZ# / ASTEROIDMASS#) * frameTime# * 0.001

           inc AsteroidData(i).px#, AsteroidData(i).sx# * frameTime# * 0.001
           inc AsteroidData(i).py#, AsteroidData(i).sy# * frameTime# * 0.001
           inc AsteroidData(i).pz#, AsteroidData(i).sz# * frameTime# * 0.001

           position object i + 100, AsteroidData(i).px#, AsteroidData(i).py#, AsteroidData(i).pz#
         endif
      next i
   endif

   `x=camera position x()
   `y=camera position y()
   `z=camera position z()
   `PlanetPos#(1, 1) = x : PlanetPos#(1, 2) = y : PlanetPos#(1, 3) = z
   if mouseclick()=1
      o=PICK OBJECT(mousex(),mousey(),100,ASTEROIDS+100)
      if o>0
         hide object o
         o=o-100
         AsteroidData(o).enabled = 0
      endif
   endif

   `position camera sin(angle#) * 200.0, 0.0, cos(angle#) * 200.0 : point camera 0, 0, 0 :
   MouseControl3(1)
   text 10, 10, "Screen FPS: " + str$(screen fps())
   sync
loop


function MouseControl3(Speed as float)
   xrotate camera camera angle x()+mousemovey()
   yrotate camera camera angle y()+mousemovex()
   if upkey()=1 then move camera Speed
   if downkey()=1 then move camera (0-Speed)

   `r=mousemovex()
   `r=mousemovey()
endfunction

I have remarked out the moving of the planets based on camera position as I'm not sure why you were doing that and I wanted to leave something for you to do

Hehe..

Hope this helps!!

I'll try to get an EXE up for this asap.

Why wont it compile in DBC btw? I dont think i've used any unusual commands have I? (I dont use/have never used DBC)

Nick

PS: Cheers for all the nice comments

My Website:

http://www.thingy-ma-jig.co.uk

Back to top

Profile PM Email Website

blanky

19

Years of Service

User Offline

Joined: 3rd Aug 2004

Location: ./

Posted: 21st Dec 2004 02:14

Link

Version for the poor sods (me included) who're stuck with DBC:

`set display mode 1280, 1024, 32
sync on
sync rate 0
color backdrop rgb(0,0,0)
load image "black.png", 1, 1
sprite 1, 0, 0, 1
set sprite 1, 0, 1
size sprite 1, screen width(), screen height()
a# = 32.0
`set sprite alpha 1, a#
draw to front
backdrop off

PLANETS = 3
ASTEROIDS= 250
PLANETMASS# = 0.1
ASTEROIDMASS# = 0.001

Dim PlanetPos#(PLANETS, 3)
Dim AsteroidData#(ASTEROIDS, 3, 3)

for i = 1 to PLANETS
   `make object sphere i, 3, 12, 12
   make object sphere i, 100
   scale object i,3,12,12
   color object i, rgb(96, 96, 255)
   PlanetPos#(i, 1) = rnd(80)-40
   PlanetPos#(i, 2) = rnd(80)-40
   PlanetPos#(i, 3) = rnd(80)-40
   position object i, PlanetPos#(i, 1), PlanetPos#(i, 2), PlanetPos#(i, 3)
next i

for j = 1 to ASTEROIDS : i = j + 100
   `make object sphere i, 1.5, 8, 8
   make object sphere i,100
   scale object i,1.5,8,8
   color object i, rgb(96, 255, 96)
   AsteroidData#(j, 1, 1) = rnd(80)-40
   AsteroidData#(j, 1, 2) = rnd(80)-40
   AsteroidData#(j, 1, 3) = rnd(80)-40
   position object i, AsteroidData#(j, 1, 1), AsteroidData#(j, 1, 2), AsteroidData#(j, 1, 3)
next j

autocam off
angle# = 0.0
frameTime# = 1.0
startTime = timer()

KeyDown = 0
do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2) : startTime = timer()
   for i = 1 to ASTEROIDS
      fX# = 0.0 : fY# = 0.0 : fZ# = 0.0
      for j = 1 to PLANETS
         DistX# = PlanetPos#(j, 1) - AsteroidData#(i, 1, 1)
         DistY# = PlanetPos#(j, 2) - AsteroidData#(i, 1, 2)
         DistZ# = PlanetPos#(j, 3) - AsteroidData#(i, 1, 3)
         Dist# = sqrt((DistX#^2) + (DistY#^2) + (DistZ#^2))
         if Dist# < 1.0 then Dist# = 1.0
         Grav# = ASTEROIDMASS# * PLANETMASS# * (Dist#*Dist#) * 0.05
         inc fX#, Grav# * DistX# / Dist#
         inc fY#, Grav# * DistY# / Dist#
         inc fZ#, Grav# * DistZ# / Dist#
      next j
      AsteroidData#(i, 2, 1)=AsteroidData#(i, 2, 1)+ (fX# / ASTEROIDMASS#) * frameTime# * 0.001
      AsteroidData#(i, 2, 2)=AsteroidData#(i, 2, 2)+ (fY# / ASTEROIDMASS#) * frameTime# * 0.001
      AsteroidData#(i, 2, 3)=AsteroidData#(i, 2, 3)+ (fZ# / ASTEROIDMASS#) * frameTime# * 0.001
      AsteroidData#(i, 1, 1)=AsteroidData#(i, 1, 1)+ AsteroidData#(i, 2, 1) * frameTime# * 0.001
      AsteroidData#(i, 1, 2)=AsteroidData#(i, 1, 2)+ AsteroidData#(i, 2, 2) * frameTime# * 0.001
      AsteroidData#(i, 1, 3)=AsteroidData#(i, 1, 3)+ AsteroidData#(i, 2, 3) * frameTime# * 0.001
      position object i + 100, AsteroidData#(i, 1, 1), AsteroidData#(i, 1, 2), AsteroidData#(i, 1, 3)
   next i
   inc angle#, frameTime# * 0.0225
   position camera sin(angle#) * 150.0, sin(angle#) * 10.0, cos(angle#) * 150.0
   point camera 0, 0, 0 : set point light 0, sin(angle#) * 100.0, sin(angle#) * 20.0, cos(angle#) * 100.0

if keystate(52)
      inc a#, frameTime# * 0.016
      if a# > 255 then a# = 255
      `set sprite alpha 1, a#
   else
      if keystate(51)
         dec a#, frameTime# * 0.016
         if a# < 1.0 then a# = 1.0
`         set sprite alpha 1, a#
      endif
   endif
   text 10, 10, "FPS: " + str$(screen fps())
   text 10, 30, "Alpha: " + str$(a#)
   sync
loop

+ Code Snippet

`set display mode 1280, 1024, 32
sync on
sync rate 0
color backdrop rgb(0,0,0)
load image "black.png", 1, 1
sprite 1, 0, 0, 1
set sprite 1, 0, 1
size sprite 1, screen width(), screen height()
a# = 32.0
`set sprite alpha 1, a#
draw to front
backdrop off



PLANETS = 3
ASTEROIDS= 250
PLANETMASS# = 0.1
ASTEROIDMASS# = 0.001

Dim PlanetPos#(PLANETS, 3)
Dim AsteroidData#(ASTEROIDS, 3, 3)

for i = 1 to PLANETS
   `make object sphere i, 3, 12, 12
   make object sphere i, 100
   scale object i,3,12,12
   color object i, rgb(96, 96, 255)
   PlanetPos#(i, 1) = rnd(80)-40
   PlanetPos#(i, 2) = rnd(80)-40
   PlanetPos#(i, 3) = rnd(80)-40
   position object i, PlanetPos#(i, 1), PlanetPos#(i, 2), PlanetPos#(i, 3)
next i

for j = 1 to ASTEROIDS : i = j + 100
   `make object sphere i, 1.5, 8, 8
   make object sphere i,100
   scale object i,1.5,8,8
   color object i, rgb(96, 255, 96)
   AsteroidData#(j, 1, 1) = rnd(80)-40
   AsteroidData#(j, 1, 2) = rnd(80)-40
   AsteroidData#(j, 1, 3) = rnd(80)-40
   position object i, AsteroidData#(j, 1, 1), AsteroidData#(j, 1, 2), AsteroidData#(j, 1, 3)
next j

autocam off
angle# = 0.0
frameTime# = 1.0
startTime = timer()

KeyDown = 0
do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2) : startTime = timer()
   for i = 1 to ASTEROIDS
      fX# = 0.0 : fY# = 0.0 : fZ# = 0.0
      for j = 1 to PLANETS
         DistX# = PlanetPos#(j, 1) - AsteroidData#(i, 1, 1)
         DistY# = PlanetPos#(j, 2) - AsteroidData#(i, 1, 2)
         DistZ# = PlanetPos#(j, 3) - AsteroidData#(i, 1, 3)
         Dist# = sqrt((DistX#^2) + (DistY#^2) + (DistZ#^2))
         if Dist# < 1.0 then Dist# = 1.0
         Grav# = ASTEROIDMASS# * PLANETMASS# * (Dist#*Dist#) * 0.05
         inc fX#, Grav# * DistX# / Dist#
         inc fY#, Grav# * DistY# / Dist#
         inc fZ#, Grav# * DistZ# / Dist#
      next j
      AsteroidData#(i, 2, 1)=AsteroidData#(i, 2, 1)+ (fX# / ASTEROIDMASS#) * frameTime# * 0.001
      AsteroidData#(i, 2, 2)=AsteroidData#(i, 2, 2)+ (fY# / ASTEROIDMASS#) * frameTime# * 0.001
      AsteroidData#(i, 2, 3)=AsteroidData#(i, 2, 3)+ (fZ# / ASTEROIDMASS#) * frameTime# * 0.001
      AsteroidData#(i, 1, 1)=AsteroidData#(i, 1, 1)+ AsteroidData#(i, 2, 1) * frameTime# * 0.001
      AsteroidData#(i, 1, 2)=AsteroidData#(i, 1, 2)+ AsteroidData#(i, 2, 2) * frameTime# * 0.001
      AsteroidData#(i, 1, 3)=AsteroidData#(i, 1, 3)+ AsteroidData#(i, 2, 3) * frameTime# * 0.001
      position object i + 100, AsteroidData#(i, 1, 1), AsteroidData#(i, 1, 2), AsteroidData#(i, 1, 3)
   next i
   inc angle#, frameTime# * 0.0225
   position camera sin(angle#) * 150.0, sin(angle#) * 10.0, cos(angle#) * 150.0
   point camera 0, 0, 0 : set point light 0, sin(angle#) * 100.0, sin(angle#) * 20.0, cos(angle#) * 100.0

   if keystate(52)
      inc a#, frameTime# * 0.016
      if a# > 255 then a# = 255
      `set sprite alpha 1, a#
   else
      if keystate(51)
         dec a#, frameTime# * 0.016
         if a# < 1.0 then a# = 1.0
`         set sprite alpha 1, a#
      endif
   endif
   text 10, 10, "FPS: " + str$(screen fps())
   text 10, 30, "Alpha: " + str$(a#)
   sync
loop

Basically, you can't use the inc command on arrays in DBC, and 'Make Object Sphere' only has a radius argument, rather than X-radius, Y-radius and Z-radius or whatever it actually is.

Back to top

Profile PM Email Website

Nicholas Thompson

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 22nd Dec 2004 18:00

Link

In DBP, the Sphere command in that form is:

Make Object Sphere ID, Radius, Rows, Columns

Or something like that.. Basically it how many times its split in the X and Y directions.

My Website:

http://www.thingy-ma-jig.co.uk

Back to top

Profile PM Email Website

Sorry your browser is not supported!

The 20 Line Challenge / My first 20 liner.. GraviSpheres

Attachments

Attachments