Same program, different problem.

Author

Message

Moruk

19

Years of Service

User Offline

Joined: 9th Feb 2005

Location:

Posted: 4th Mar 2005 16:10 Edited at: 4th Mar 2005 16:15

Link

Alright, thanks to those that provided advice for making the ball bigger. I've modified the program, and I'd like to know two things, if possible:

One - Did I go about making this the right way? Is there anything else I could have done to make the code easier, smaller, etc?

Two - Is it the debugger, or something with the program, that causes "Could not close nest at line 122", or something like that?

Thanks
Jarred

*Edit* Putting the code might help ^_^'

Rem Initialize everything.
sync on:sync rate 100

gosub _initialize_game
gosub _place_cubes

Do
gosub _move_ball
gosub _enlarge_ball
Loop

_initialize_game:
make matrix 1,5000,5000,150,150
update matrix 1
make object sphere 1,0.5
hide mouse
autocam off
position object 1,2500,10,2500
orig_sphere_size# = .5
new_sphere_size# = .5
angleup#=2
return

_place_cubes:
cubx1#=Rnd(3500)
cubz1#=Rnd(3500)
cubx2#=Rnd(3500)
cubz2#=Rnd(3500)
cubx3#=Rnd(3500)
cubz3#=Rnd(4500)
cubx4#=Rnd(3500)
cubz4#=Rnd(4500)
cubx5#=Rnd(3500)
cubz5#=Rnd(4500)
cubx6#=Rnd(3500)
cubz6#=Rnd(4500)
cubx7#=Rnd(3500)
cubz7#=Rnd(4500)
cubx8#=Rnd(3500)
cubz8#=Rnd(4500)
cubx9#=Rnd(3500)
cubz9#=Rnd(4500)
cubx10#=Rnd(3500)
cubz10#=Rnd(4500)
cubx11#=Rnd(3500)
cubz11#=Rnd(4500)
cubx12#=Rnd(3500)
cubz12#=Rnd(4500)
cubx13#=Rnd(3500)
cubz13#=Rnd(4500)
cubx14#=Rnd(3500)
cubz14#=Rnd(4500)
cubx15#=Rnd(3500)
cubz15#=Rnd(4500)
make object cube 3,3
position object 3,cubx2#,10,cubz2#
make object cube 4,3
position object 3,cubx3#,10,cubz3#
make object cube 5,3
position object 3,cubx4#,10,cubz4#
make object cube 6,3
position object 3,cubx5#,10,cubz5#
make object cube 7,3
position object 3,cubx6#,10,cubz6#
make object cube 8,3
position object 3,cubx7#,10,cubz7#
make object cube 9,3
position object 3,cubx8#,10,cubz8#
make object cube 10,3
position object 3,cubx9#,10,cubz9#
make object cube 11,3
position object 3,cubx10#,10,cubz10#
make object cube 12,3
position object 3,cubx11#,10,cubz11#
make object cube 13,3
position object 3,cubx12#,10,cubz12#
make object cube 14,3
position object 3,cubx13#,10,cubz13#
make object cube 15,3
position object 3,cubx14#,10,cubz14#
make object cube 16,3
position object 3,cubx15#,10,cubz15#

return
_move_ball:
Rem Sets variables so they're easier to use
px1#=object position x(1)
py1#=object position y(1)
pz1#=object position z(1)

ay1#=object angle y(1)

Rem Makes the camera follow the ball
set camera to follow px1#,py1#+angleup#,pz1#-(new_scale#/100),ay1#,5,5,1,1
point camera object position x(1),object position y(1),object position z(1)
Rem Move the ball
if upkey()=1 then move object 1,0.5
if downkey()=1 then move object 1,-0.5
if leftkey()=1 then rotate object 1,0,(ay1#)-1,0
if rightkey()=1 then rotate object 1,0,(ay1#)+1,0
sync
return

_enlarge_ball:
For cub = 2 To 16
if object collision(1,cub) = 1
   if scaled = 0
      scaled = 1
      `make the sphere's size variable double in size
      new_sphere_size# = new_sphere_size# * 1.2
      `calculate what scale is needed to make the sphere be this size
      `formula is size_wanted#*(100.0/object_original_Size#)
      new_scale# = new_sphere_size#*(100.0/orig_sphere_size#)
      scale object 1, new_scale#, new_scale#, new_scale#
      angleup#=angleup#+1
      hide object cub
   endif
else
   scaled = 0
Endif
return

+ Code Snippet

Rem Initialize everything.
sync on:sync rate 100

gosub _initialize_game
gosub _place_cubes


Do
gosub _move_ball
gosub _enlarge_ball
Loop

_initialize_game:
make matrix 1,5000,5000,150,150
update matrix 1
make object sphere 1,0.5
hide mouse
autocam off
position object 1,2500,10,2500
orig_sphere_size# = .5
new_sphere_size# = .5
angleup#=2
return

_place_cubes:
cubx1#=Rnd(3500)
cubz1#=Rnd(3500)
cubx2#=Rnd(3500)
cubz2#=Rnd(3500)
cubx3#=Rnd(3500)
cubz3#=Rnd(4500)
cubx4#=Rnd(3500)
cubz4#=Rnd(4500)
cubx5#=Rnd(3500)
cubz5#=Rnd(4500)
cubx6#=Rnd(3500)
cubz6#=Rnd(4500)
cubx7#=Rnd(3500)
cubz7#=Rnd(4500)
cubx8#=Rnd(3500)
cubz8#=Rnd(4500)
cubx9#=Rnd(3500)
cubz9#=Rnd(4500)
cubx10#=Rnd(3500)
cubz10#=Rnd(4500)
cubx11#=Rnd(3500)
cubz11#=Rnd(4500)
cubx12#=Rnd(3500)
cubz12#=Rnd(4500)
cubx13#=Rnd(3500)
cubz13#=Rnd(4500)
cubx14#=Rnd(3500)
cubz14#=Rnd(4500)
cubx15#=Rnd(3500)
cubz15#=Rnd(4500)
make object cube 3,3
position object 3,cubx2#,10,cubz2#
make object cube 4,3
position object 3,cubx3#,10,cubz3#
make object cube 5,3
position object 3,cubx4#,10,cubz4#
make object cube 6,3
position object 3,cubx5#,10,cubz5#
make object cube 7,3
position object 3,cubx6#,10,cubz6#
make object cube 8,3
position object 3,cubx7#,10,cubz7#
make object cube 9,3
position object 3,cubx8#,10,cubz8#
make object cube 10,3
position object 3,cubx9#,10,cubz9#
make object cube 11,3
position object 3,cubx10#,10,cubz10#
make object cube 12,3
position object 3,cubx11#,10,cubz11#
make object cube 13,3
position object 3,cubx12#,10,cubz12#
make object cube 14,3
position object 3,cubx13#,10,cubz13#
make object cube 15,3
position object 3,cubx14#,10,cubz14#
make object cube 16,3
position object 3,cubx15#,10,cubz15#

return
_move_ball:
Rem Sets variables so they're easier to use
px1#=object position x(1)
py1#=object position y(1)
pz1#=object position z(1)

ay1#=object angle y(1)

Rem Makes the camera follow the ball
set camera to follow px1#,py1#+angleup#,pz1#-(new_scale#/100),ay1#,5,5,1,1
point camera object position x(1),object position y(1),object position z(1)
Rem Move the ball
if upkey()=1 then move object 1,0.5
if downkey()=1 then move object 1,-0.5
if leftkey()=1 then rotate object 1,0,(ay1#)-1,0
if rightkey()=1 then rotate object 1,0,(ay1#)+1,0
sync
return

_enlarge_ball:
For cub = 2 To 16
if object collision(1,cub) = 1
   if scaled = 0
      scaled = 1
      `make the sphere's size variable double in size
      new_sphere_size# = new_sphere_size# * 1.2
      `calculate what scale is needed to make the sphere be this size
      `formula is size_wanted#*(100.0/object_original_Size#)
      new_scale# = new_sphere_size#*(100.0/orig_sphere_size#)
      scale object 1, new_scale#, new_scale#, new_scale#
      angleup#=angleup#+1
      hide object cub
   endif
else
   scaled = 0
Endif
return

P4 3.4ghz, 512mb DDR2 533mhz RAM, GeForce 6800 GTO 256mb Graphics Card, Sound Blaster Audigy 2. Win.

Back to top

Profile PM

Zokomoko

21

Years of Service

User Offline

Joined: 23rd Nov 2002

Location:

Posted: 4th Mar 2005 16:53

Link

I've not read your previous post, and I don't exactly know what your code suppose to do.
But I think you should learn about arrays, that would definitely make your code smaller, and easier to read.

This part...

Quote: "
cubx1#=Rnd(3500)
cubz1#=Rnd(3500)
cubx2#=Rnd(3500)
cubz2#=Rnd(3500)
cubx3#=Rnd(3500)
cubz3#=Rnd(4500)
cubx4#=Rnd(3500)
cubz4#=Rnd(4500)
cubx5#=Rnd(3500)
cubz5#=Rnd(4500)
cubx6#=Rnd(3500)
cubz6#=Rnd(4500)
cubx7#=Rnd(3500)
cubz7#=Rnd(4500)
cubx8#=Rnd(3500)
cubz8#=Rnd(4500)
cubx9#=Rnd(3500)
cubz9#=Rnd(4500)
cubx10#=Rnd(3500)
cubz10#=Rnd(4500)
cubx11#=Rnd(3500)
cubz11#=Rnd(4500)
cubx12#=Rnd(3500)
cubz12#=Rnd(4500)
cubx13#=Rnd(3500)
cubz13#=Rnd(4500)
cubx14#=Rnd(3500)
cubz14#=Rnd(4500)
cubx15#=Rnd(3500)
cubz15#=Rnd(4500)
"

could be modified into this..

dim cubeX(15)
dim cubeZ(15)
for i=1 to 15
cubeX(15)=rnd(3500)
cubeZ(15)=rnd(4500)
next i

just search the forum for "arrays".

Back to top

Profile PM

Moruk

19

Years of Service

User Offline

Joined: 9th Feb 2005

Location:

Posted: 4th Mar 2005 17:25

Link

Hah, that might be a bit easier ^_^' Thanks a lot for that. It's all a learning process =p

The previous post was basically to ask how to make the ball get bigger when you roll over the cubes. That's what this is supposed to do, but I get some error on the last line with the return command, for some reason. Some crap about a nest =p

P4 3.4ghz, 512mb DDR2 533mhz RAM, GeForce 6800 GTO 256mb Graphics Card, Sound Blaster Audigy 2. Win.

Back to top

Profile PM

Zokomoko

21

Years of Service

User Offline

Joined: 23rd Nov 2002

Location:

Posted: 4th Mar 2005 18:01

Link

well, a nest error basically tells you, you forgot to close a nest.
an example for a nest would be:
if condition=1
`do stuff here
endif

that nest is closed, but if you don't put the "endif", then that nest is not closed. Same is for loops of any kind.

So if you have a subroutine, make sure all the nests in it are closed.

Back to top

Profile PM

Moruk

19

Years of Service

User Offline

Joined: 9th Feb 2005

Location:

Posted: 4th Mar 2005 18:15

Link

They are, are far as I can tell. But thanks for telling me what a nest error was. I think it's just the debugger being a bugger again...Don't suppose anyone could double-check it for me, make sure everything's closed?

P4 3.4ghz, 512mb DDR2 533mhz RAM, GeForce 6800 GTO 256mb Graphics Card, Sound Blaster Audigy 2. Win.

Back to top

Profile PM

Moruk

19

Years of Service

User Offline

Joined: 9th Feb 2005

Location:

Posted: 4th Mar 2005 18:19 Edited at: 4th Mar 2005 18:22

Link

It's the following that's got the error:

+ Code Snippet

_enlarge_ball:
For cub = 2 To 16
if object collision(1,cub) = 1
   if scaled = 0
      scaled = 1
      `make the sphere's size variable double in size
      new_sphere_size# = new_sphere_size# * 1.2
      `calculate what scale is needed to make the sphere be this size
      `formula is size_wanted#*(100.0/object_original_Size#)
      new_scale# = new_sphere_size#*(100.0/orig_sphere_size#)
      scale object 1, new_scale#, new_scale#, new_scale#
      angleup#=angleup#+1
      hide object cub
   endif
else
   scaled = 0
Endif
Return

That's all closed, as far as I can tell?

*Edit* Ahaha, I forgot the "Next cub" ^_^'

P4 3.4ghz, 512mb DDR2 533mhz RAM, GeForce 6800 GTO 256mb Graphics Card, Sound Blaster Audigy 2. Win.

Back to top

Profile PM

Moruk

19

Years of Service

User Offline

Joined: 9th Feb 2005

Location:

Posted: 4th Mar 2005 18:47

Link

Alright, new problem, I've almost got it.

I converted this:

+ Code Snippet

_place_cubes:
Dim cubx(15)#
Dim cubz(15)#
   For cubxz = 1 To 15
    cubx(cubxz)=rnd(750)
    cubz(cubxz)=rnd(750)
   Next cubxz
make object cube 6,3
position object 3,cubx(5)#,10,cubz(5)#
make object cube 7,3
position object 3,cubx(6)#,10,cubz(6)#
make object cube 8,3
position object 3,cubx(7)#,10,cubz(7)#
make object cube 9,3
position object 3,cubx(8)#,10,cubz(8)#
make object cube 10,3
position object 3,cubx(9)#,10,cubz(9)#
make object cube 11,3
position object 3,cubx(10)#,10,cubz(10)#
make object cube 12,3
position object 3,cubx(11)#,10,cubz(11)#
make object cube 13,3
position object 3,cubx(12)#,10,cubz(12)#
make object cube 14,3
position object 3,cubx(13)#,10,cubz(13)#
make object cube 15,3
position object 3,cubx(14)#,10,cubz(14)#
make object cube 16,3
position object 3,cubx(15)#,10,cubz(15)#
make object cube 17,3
position object 17, 1500,10,1600
return

To This:

+ Code Snippet

_place_cubes:
Dim cubx(15)
Dim cubz(15)
   For cubxz = 2 To 15
    cubx(cubxz)=rnd(750)
    cubz(cubxz)=rnd(750)
   Next cubxz
   For objnum = 2 To 15
   For posnum = 2 to 15
      Make object cube objnum,3
      Position object objnum,cubx(posnum),10,cubz(posnum)
   Next objnum
   Next posnum
return

Now, that's a hell of a lot cleaner. Thing is, when I run it, it says "Object already exists at line 34". What have I done wrong? >.>

P4 3.4ghz, 512mb DDR2 533mhz RAM, GeForce 6800 GTO 256mb Graphics Card, Sound Blaster Audigy 2. Win.

Back to top

Profile PM

Zokomoko

21

Years of Service

User Offline

Joined: 23rd Nov 2002

Location:

Posted: 4th Mar 2005 19:47 Edited at: 4th Mar 2005 19:50

Link

The problem would be that you're trying to create an object with an already existent object number.
meaining, if you have object number 15, you cannot create another object which has the object number of 15.

this is where the problem lies:

Quote: "
For objnum = 2 To 15
For posnum = 2 to 15
Make object cube objnum,3
Position object objnum,cubx(posnum),10,cubz(posnum)
Next objnum
Next posnum
"

You have 2 for loop, we'll call the objnum loop "outer loop" , and the posnum "innner loop".
As you can see, each cycle of the outer loop, the inner loop does 13 (15-2) cycles. After the inner loop completes all of its cycles, the outer loop goes to its second cycle. And then everything happens again, the inner loop completes all of its cycles, and then the outer loop goes to its third cycle. I hope you understand until now.

The problem was, that you placed the "make object" command in the inner loop. so let's review what's going on when the program runs:
(1) The outer loop begins its first cycle
(2) the inner loop begins
(3) 13 objects are created with objects number from 2 to 15.
(4) The inner loop ends
Up until now, the inner loop as done 13 cycles, and the outer loop is only in its first cycle.

(5) The outer loop begins its second cycle
(6) the inner loop begins
(7) The inner loop tries to create objects with objects numbers from 2 to 15, but it fails. why ? because they already exist.
We've already created them in step 3.

Back to top

Profile PM

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 4th Mar 2005 19:59 Edited at: 4th Mar 2005 20:12

Link

+ Code Snippet

_place_cubes:
Dim cubx(15)
Dim cubz(15)
   For cubxz = 2 To 15
    cubx(cubxz)=rnd(750)
    cubz(cubxz)=rnd(750)
   Next cubxz
   For objnum = 2 To 15
      Make object cube objnum,3
      Position object objnum,cubx(objnum),10,cubz(objnum)
   Next objnum
return

there is no need for the second time running to position as it tries to make them again too.

Also make sure to disable the cubes collision once hit or it will still hit the invisible cubes.

Rem Initialize everything.
sync on:sync rate 100

gosub _initialize_game
gosub _place_cubes

Do
gosub _move_ball
gosub _enlarge_ball
Loop

_initialize_game:
make matrix 1,5000,5000,150,150
update matrix 1
make object sphere 1,0.5
hide mouse
autocam off
position object 1,500,10,500
orig_sphere_size# = .5
new_sphere_size# = .5
angleup#=2
return

_place_cubes:
Dim cubx(15)
Dim cubz(15)
   For cubxz = 2 To 15
    cubx(cubxz)=rnd(750)
    cubz(cubxz)=rnd(750)
   Next cubxz
   For objnum = 2 To 15
      Make object cube objnum,3
      Position object objnum,cubx(objnum),10,cubz(objnum)
   Next objnum
return

return
_move_ball:
Rem Sets variables so they're easier to use
px1#=object position x(1)
py1#=object position y(1)
pz1#=object position z(1)

ay1#=object angle y(1)

Rem Makes the camera follow the ball
set camera to follow px1#,py1#+angleup#,pz1#-(new_scale#/100),ay1#,15,5,1,1
point camera object position x(1),object position y(1),object position z(1)
Rem Move the ball
if upkey()=1 then move object 1,0.5
if downkey()=1 then move object 1,-0.5
if leftkey()=1 then rotate object 1,0,(ay1#)-1,0
if rightkey()=1 then rotate object 1,0,(ay1#)+1,0
set cursor 5,5
print new_sphere_size#,"  ",object size x(1)
sync
return

_enlarge_ball:
For cub = 2 To 15
	if object collision(1,cub) = 1
		   if scaled = 0
		      scaled = 1
		      `make the sphere's size variable double in size
		      new_sphere_size# = new_sphere_size# * 1.2
		      `calculate what scale is needed to make the sphere be this size
		      `formula is size_wanted#*(100.0/object_original_Size#)
		      new_scale# = new_sphere_size#*(100.0/orig_sphere_size#)
		      scale object 1, new_scale#, new_scale#, new_scale#
		      angleup#=angleup#+1
		      hide object cub
		      `disable cube collision once hit
		      set object collision off cub
		   endif
	   `endif
	else
	   scaled = 0
	Endif
next cub
return

+ Code Snippet

Rem Initialize everything.
sync on:sync rate 100

gosub _initialize_game
gosub _place_cubes


Do
gosub _move_ball
gosub _enlarge_ball
Loop

_initialize_game:
make matrix 1,5000,5000,150,150
update matrix 1
make object sphere 1,0.5
hide mouse
autocam off
position object 1,500,10,500
orig_sphere_size# = .5
new_sphere_size# = .5
angleup#=2
return

_place_cubes:
Dim cubx(15)
Dim cubz(15)
   For cubxz = 2 To 15
    cubx(cubxz)=rnd(750)
    cubz(cubxz)=rnd(750)
   Next cubxz
   For objnum = 2 To 15
      Make object cube objnum,3
      Position object objnum,cubx(objnum),10,cubz(objnum)
   Next objnum
return

return
_move_ball:
Rem Sets variables so they're easier to use
px1#=object position x(1)
py1#=object position y(1)
pz1#=object position z(1)

ay1#=object angle y(1)

Rem Makes the camera follow the ball
set camera to follow px1#,py1#+angleup#,pz1#-(new_scale#/100),ay1#,15,5,1,1
point camera object position x(1),object position y(1),object position z(1)
Rem Move the ball
if upkey()=1 then move object 1,0.5
if downkey()=1 then move object 1,-0.5
if leftkey()=1 then rotate object 1,0,(ay1#)-1,0
if rightkey()=1 then rotate object 1,0,(ay1#)+1,0
set cursor 5,5
print new_sphere_size#,"  ",object size x(1)
sync
return

_enlarge_ball:
For cub = 2 To 15
	if object collision(1,cub) = 1
		   if scaled = 0
		      scaled = 1
		      `make the sphere's size variable double in size
		      new_sphere_size# = new_sphere_size# * 1.2
		      `calculate what scale is needed to make the sphere be this size
		      `formula is size_wanted#*(100.0/object_original_Size#)
		      new_scale# = new_sphere_size#*(100.0/orig_sphere_size#)
		      scale object 1, new_scale#, new_scale#, new_scale#
		      angleup#=angleup#+1
		      hide object cub
		      `disable cube collision once hit
		      set object collision off cub
		   endif
	   `endif
	else
	   scaled = 0
	Endif
next cub
return

[edit] Another way to do the ball enlarging code would be to get the number of the object hit instead of cycling through them all. I haven't tested this with DBP collision but this way is much faster with Nuclear Glory Collision.

+ Code Snippet

_enlarge_ball:
hit = object collision(1,0)
	if hit > 0
		   if scaled = 0
		      scaled = 1
		      `make the sphere's size variable double in size
		      new_sphere_size# = new_sphere_size# * 1.2
		      `calculate what scale is needed to make the sphere be this size
		      `formula is size_wanted#*(100.0/object_original_Size#)
		      new_scale# = new_sphere_size#*(100.0/orig_sphere_size#)
		      scale object 1, new_scale#, new_scale#, new_scale#
		      angleup#=angleup#+1
		      hide object hit
		      `disable cube collision once hit
		      set object collision off hit
		   endif
	   `endif
	else
	   scaled = 0
	Endif
return

Back to top

Profile PM Email

Moruk

19

Years of Service

User Offline

Joined: 9th Feb 2005

Location:

Posted: 4th Mar 2005 21:15

Link

Ah, that'd make sense. Thanks for the help, everyone. Much appreciated.

P4 3.4ghz, 512mb DDR2 533mhz RAM, GeForce 6800 GTO 256mb Graphics Card, Sound Blaster Audigy 2. Win.

Back to top

Profile PM

Moruk

19

Years of Service

User Offline

Joined: 9th Feb 2005

Location:

Posted: 4th Mar 2005 21:25 Edited at: 4th Mar 2005 21:35

Link

If I use your method of collision - How do I make the object hide after collision? >.>

*Edit* Heh, it's hidden, ignore me. One problem though, you can still collide with the object, just it's invisible. So you can roll back and forth over the same spot to get bigger :p

P4 3.4ghz, 512mb DDR2 533mhz RAM, GeForce 6800 GTO 256mb Graphics Card, Sound Blaster Audigy 2. Win.

Back to top

Profile PM

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 5th Mar 2005 02:59 Edited at: 5th Mar 2005 03:02

Link

This part of the code keeps that from happening. Both codes I posted work here in regards to not hitting the same cube twice and hiding them once hit.

+ Code Snippet

		      hide object hit
		      `disable cube collision once hit
		      set object collision off hit

[edit] the complete second code would be

Rem Initialize everything.
sync on:sync rate 100

gosub _initialize_game
gosub _place_cubes

Do
gosub _move_ball
gosub _enlarge_ball
Loop

_initialize_game:
make matrix 1,5000,5000,150,150
update matrix 1
make object sphere 1,0.5
hide mouse
autocam off
position object 1,500,10,500
orig_sphere_size# = .5
new_sphere_size# = .5
angleup#=2
return

_place_cubes:
Dim cubx(15)
Dim cubz(15)
   For cubxz = 2 To 15
    cubx(cubxz)=rnd(750)
    cubz(cubxz)=rnd(750)
   Next cubxz
   For objnum = 2 To 15
      Make object cube objnum,3
      Position object objnum,cubx(objnum),10,cubz(objnum)
   Next objnum
return

return
_move_ball:
Rem Sets variables so they're easier to use
px1#=object position x(1)
py1#=object position y(1)
pz1#=object position z(1)

ay1#=object angle y(1)

Rem Makes the camera follow the ball
set camera to follow px1#,py1#+angleup#,pz1#-(new_scale#/100),ay1#,15,5,1,1
point camera object position x(1),object position y(1),object position z(1)
Rem Move the ball
if upkey()=1 then move object 1,0.5
if downkey()=1 then move object 1,-0.5
if leftkey()=1 then rotate object 1,0,(ay1#)-1,0
if rightkey()=1 then rotate object 1,0,(ay1#)+1,0
set cursor 5,5
print new_sphere_size#,"  ",object size x(1)
sync
return

_enlarge_ball:
hit = object collision(1,0)
	if hit > 0
		   if scaled = 0
		      scaled = 1
		      `make the sphere's size variable double in size
		      new_sphere_size# = new_sphere_size# * 1.2
		      `calculate what scale is needed to make the sphere be this size
		      `formula is size_wanted#*(100.0/object_original_Size#)
		      new_scale# = new_sphere_size#*(100.0/orig_sphere_size#)
		      scale object 1, new_scale#, new_scale#, new_scale#
		      angleup#=angleup#+1
		      hide object hit
		      `disable cube collision once hit
		      set object collision off hit
		   endif
	else
	   scaled = 0
	Endif
return

+ Code Snippet

Rem Initialize everything.
sync on:sync rate 100

gosub _initialize_game
gosub _place_cubes


Do
gosub _move_ball
gosub _enlarge_ball
Loop

_initialize_game:
make matrix 1,5000,5000,150,150
update matrix 1
make object sphere 1,0.5
hide mouse
autocam off
position object 1,500,10,500
orig_sphere_size# = .5
new_sphere_size# = .5
angleup#=2
return

_place_cubes:
Dim cubx(15)
Dim cubz(15)
   For cubxz = 2 To 15
    cubx(cubxz)=rnd(750)
    cubz(cubxz)=rnd(750)
   Next cubxz
   For objnum = 2 To 15
      Make object cube objnum,3
      Position object objnum,cubx(objnum),10,cubz(objnum)
   Next objnum
return

return
_move_ball:
Rem Sets variables so they're easier to use
px1#=object position x(1)
py1#=object position y(1)
pz1#=object position z(1)

ay1#=object angle y(1)

Rem Makes the camera follow the ball
set camera to follow px1#,py1#+angleup#,pz1#-(new_scale#/100),ay1#,15,5,1,1
point camera object position x(1),object position y(1),object position z(1)
Rem Move the ball
if upkey()=1 then move object 1,0.5
if downkey()=1 then move object 1,-0.5
if leftkey()=1 then rotate object 1,0,(ay1#)-1,0
if rightkey()=1 then rotate object 1,0,(ay1#)+1,0
set cursor 5,5
print new_sphere_size#,"  ",object size x(1)
sync
return

_enlarge_ball:
hit = object collision(1,0)
	if hit > 0
		   if scaled = 0
		      scaled = 1
		      `make the sphere's size variable double in size
		      new_sphere_size# = new_sphere_size# * 1.2
		      `calculate what scale is needed to make the sphere be this size
		      `formula is size_wanted#*(100.0/object_original_Size#)
		      new_scale# = new_sphere_size#*(100.0/orig_sphere_size#)
		      scale object 1, new_scale#, new_scale#, new_scale#
		      angleup#=angleup#+1
		      hide object hit
		      `disable cube collision once hit
		      set object collision off hit
		   endif
	else
	   scaled = 0
	Endif
return

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Same program, different problem.