rolling a 3d ball - GameCreators Forum

Author

Message

ShaunRW

DBPro Developer

16

Years of Service

User Offline

Joined: 7th Jan 2008

Location: Brisbane, Australia

Posted: 21st Apr 2008 12:24 Edited at: 21st Apr 2008 12:24

Link

hey guys
i would like to know if its possible rotating a 3d ball without it changing the direction of the ball movement?

please help.

shaun ..

winxp-intel core 2 duo 2.00ghz-2.00gb ram
nvidia en7300gt silent 256mb gfx

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 21st Apr 2008 13:17

Link

I don't see where an object rotation will affect the direction of a ball, whether you use 'move object #,amount' or move it manually. Check this code out:

sync on : sync rate 60
hide mouse
randomize timer()
`make two balls
make object sphere 1,20
color object 1,rgb(255,0,0)
make object sphere 2,20
color object 2,rgb(0,225,0)
position object 1,camera position x(),camera position y(),camera position z()+50
position object 2,camera position x(),camera position y()-30.0,camera position z()+50
BallDir=(rnd(1)*4)+4
do
  xang1#=object angle x(1)
  xrotate object 1,wrapvalue(xang1#+1.0)
  x1#=object position x(1)
  xang2#=object angle x(2)
  xrotate object 2,wrapvalue(xang2#-1.0)
  x2#=object position x(2)
  if BallDir = 4
    x1#=x1#+.3
    position object 1,x1#,object position y(1),object position z(1)
    move object right 2,.3
    if object in screen(1) = 0 then BallDir = 8
  else
    x1#=x1#-.3
    position object 1,x1#,object position y(1),object position z(1)
    move object left 2,.3
    if object in screen(1) = 0 then BallDir = 4
  endif
  text 0,0,"y angle1="+str$(object angle y(1))
  text 0,20,"z angle1="+str$(object angle z(1))
 text 0,100,"y angle2="+str$(object angle y(2))
  text 0,120,"z angle2="+str$(object angle z(2))
  sync
  if spacekey()=1 then exit
loop
end

+ Code Snippet

sync on : sync rate 60
hide mouse
randomize timer()
`make two balls
make object sphere 1,20
color object 1,rgb(255,0,0)
make object sphere 2,20
color object 2,rgb(0,225,0)
position object 1,camera position x(),camera position y(),camera position z()+50
position object 2,camera position x(),camera position y()-30.0,camera position z()+50
BallDir=(rnd(1)*4)+4
do
  xang1#=object angle x(1)
  xrotate object 1,wrapvalue(xang1#+1.0)
  x1#=object position x(1)
  xang2#=object angle x(2)
  xrotate object 2,wrapvalue(xang2#-1.0)
  x2#=object position x(2)
  if BallDir = 4
    x1#=x1#+.3
    position object 1,x1#,object position y(1),object position z(1)
    move object right 2,.3
    if object in screen(1) = 0 then BallDir = 8
  else
    x1#=x1#-.3
    position object 1,x1#,object position y(1),object position z(1)
    move object left 2,.3
    if object in screen(1) = 0 then BallDir = 4
  endif
  text 0,0,"y angle1="+str$(object angle y(1))
  text 0,20,"z angle1="+str$(object angle z(1))
 text 0,100,"y angle2="+str$(object angle y(2))
  text 0,120,"z angle2="+str$(object angle z(2))
  sync
  if spacekey()=1 then exit
loop
end

As you can see, the objects' y and z angles are unaffected by the x angle rotation while being moved, regardless of which method you choose to move it.

LB

Back to top

Profile PM Email

Twinsen

18

Years of Service

User Offline

Joined: 20th Jun 2006

Location: Romania

Posted: 21st Apr 2008 19:18

Link

yes but for more complicated stuff, it's hell on earth

that's why EZ Rotate came up ... cause of Euler rotations

Could you help me treat my injured Dino-Fly ?

Back to top

Profile PM Email

ShaunRW

DBPro Developer

16

Years of Service

User Offline

Joined: 7th Jan 2008

Location: Brisbane, Australia

Posted: 22nd Apr 2008 08:34 Edited at: 22nd Apr 2008 09:21

Link

Quote: "I don't see where an object rotation will affect the direction of a ball"

i just used a move object up down left & right commands and used roll object command and it effected the z position

Quote: "yes but for more complicated stuff, it's hell on earth that's why EZ Rotate came up ... cause of Euler rotations"

is that the one u have to buy or is there a free one?

i use this code but the rotation is off...

+ Code Snippet

`ball movement
ball:
`capture the angle positions
   xangle#=object angle x(ball)
   yangle#=object angle y(ball)
   if up=1
   `rotateing and positioning the ball
      xrotate object ball,xangle#+4
      position object ball,object position x(ball),object position y(ball)+speed#,5
   endif
   if down=1
      xrotate object ball,xangle#-4
      position object ball,object position x(ball),object position y(ball)-speed#,5
   endif
   if left=1
      yrotate object ball,yangle#+4
      position object ball,object position x(ball)-speed#,object position y(ball),5
   endif
   if right=1
      yrotate object ball,yangle#-4
      position object ball,object position x(ball)+speed#,object position y(ball),5
   endif

return

eg the object doesnt spin on the x axis and y axis at the same time.

winxp-intel core 2 duo 2.00ghz-2.00gb ram
nvidia en7300gt silent 256mb gfx

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 22nd Apr 2008 13:02

Link

Quote: "i just used a move object up down left & right commands and used roll object command and it effected the z position"

I did not see what you are seeing. I tried rolling the ball and it still did not affect the z angle. Additionally, I modified your code with the example that I gave and it did not affect the z rotation. Here is a snippet:

sync on : sync rate 60
hide mouse
randomize timer()
`make two balls
make object sphere 1,20
color object 1,rgb(255,0,0)
`make object sphere 2,20
`color object 2,rgb(0,225,0)
position object 1,camera position x(),camera position y(),camera position z()+50
`position object 2,camera position x(),camera position y()-30.0,camera position z()+50
ball=1
`BallDir=(rnd(1)*4)+4
do
  remstart
  xang1#=object angle x(1)
  xrotate object 1,wrapvalue(xang1#+1.0)
  x1#=object position x(1)
  xang2#=object angle x(2)
  xrotate object 2,wrapvalue(xang2#-1.0)
  x2#=object position x(2)
  if BallDir = 4
`    x1#=x1#+.3
`    position object 1,x1#,object position y(1),object position z(1)
`    move object right 2,.3
    roll object right 1,1
    roll object right 2,1
    if object in screen(1) = 0 then BallDir = 8
  else
`    x1#=x1#-.3
`    position object 1,x1#,object position y(1),object position z(1)
`    move object left 2,.3
    roll object left 1,1
    roll object left 2,1
    if object in screen(1) = 0 then BallDir = 4
  endif
  remend
  up=upkey()
  down=downkey()
  left=leftkey()
  right=rightkey()
  gosub ball
  text 0,0,"xangle#="+str$(xangle#)
  text 0,20,"yangle#="+str$(yangle#)
  text 0,40,"zangle#="+str$(zangle#)
 `text 0,100,"y angle2="+str$(object angle y(2))
 ` text 0,120,"z angle2="+str$(object angle z(2))
  sync
  if spacekey()=1 then exit
loop
end

ball:
`capture the angle positions
   xangle#=object angle x(ball)
   yangle#=object angle y(ball)
   zangle#=object angle z(ball)
   if up=1
   `rotateing and positioning the ball
      xrotate object ball,wrapvalue(xangle#+4.0)
 `     position object ball,object position x(ball),object position y(ball)+speed#,5
      move object up ball,1.0
   endif
   if down=1
      xrotate object ball,wrapvalue(xangle#-4.0)
      position object ball,object position x(ball),object position y(ball)-speed#,5
      move object down ball,1.0
   endif
   if left=1
      yrotate object ball,wrapvalue(yangle#+4.0)
 `     position object ball,object position x(ball)-speed#,object position y(ball),5
       move object left ball,1.0
   endif
   if right=1
      yrotate object ball,wrapvalue(yangle#-4.0)
`      position object ball,object position x(ball)+speed#,object position y(ball),5
      move object right ball,1.0
   endif

return

+ Code Snippet

sync on : sync rate 60
hide mouse
randomize timer()
`make two balls
make object sphere 1,20
color object 1,rgb(255,0,0)
`make object sphere 2,20
`color object 2,rgb(0,225,0)
position object 1,camera position x(),camera position y(),camera position z()+50
`position object 2,camera position x(),camera position y()-30.0,camera position z()+50
ball=1
`BallDir=(rnd(1)*4)+4
do
  remstart
  xang1#=object angle x(1)
  xrotate object 1,wrapvalue(xang1#+1.0)
  x1#=object position x(1)
  xang2#=object angle x(2)
  xrotate object 2,wrapvalue(xang2#-1.0)
  x2#=object position x(2)
  if BallDir = 4
`    x1#=x1#+.3
`    position object 1,x1#,object position y(1),object position z(1)
`    move object right 2,.3
    roll object right 1,1
    roll object right 2,1
    if object in screen(1) = 0 then BallDir = 8
  else
`    x1#=x1#-.3
`    position object 1,x1#,object position y(1),object position z(1)
`    move object left 2,.3
    roll object left 1,1
    roll object left 2,1
    if object in screen(1) = 0 then BallDir = 4
  endif
  remend
  up=upkey()
  down=downkey()
  left=leftkey()
  right=rightkey()
  gosub ball
  text 0,0,"xangle#="+str$(xangle#)
  text 0,20,"yangle#="+str$(yangle#)
  text 0,40,"zangle#="+str$(zangle#)
 `text 0,100,"y angle2="+str$(object angle y(2))
 ` text 0,120,"z angle2="+str$(object angle z(2))
  sync
  if spacekey()=1 then exit
loop
end

ball:
`capture the angle positions
   xangle#=object angle x(ball)
   yangle#=object angle y(ball)
   zangle#=object angle z(ball)
   if up=1
   `rotateing and positioning the ball
      xrotate object ball,wrapvalue(xangle#+4.0)
 `     position object ball,object position x(ball),object position y(ball)+speed#,5
      move object up ball,1.0
   endif
   if down=1
      xrotate object ball,wrapvalue(xangle#-4.0)
      position object ball,object position x(ball),object position y(ball)-speed#,5
      move object down ball,1.0
   endif
   if left=1
      yrotate object ball,wrapvalue(yangle#+4.0)
 `     position object ball,object position x(ball)-speed#,object position y(ball),5
       move object left ball,1.0
   endif
   if right=1
      yrotate object ball,wrapvalue(yangle#-4.0)
`      position object ball,object position x(ball)+speed#,object position y(ball),5
      move object right ball,1.0
   endif

return

Quote: "eg the object doesnt spin on the x axis and y axis at the same time.
"

If you hold two keys down at the same time, it will spin and move in both directions. As you can see, the z angle is unaffected. The code does not look at where the ball is currently, so you will eventually go off the screen.

LBFN

Back to top

Profile PM Email

ShaunRW

DBPro Developer

16

Years of Service

User Offline

Joined: 7th Jan 2008

Location: Brisbane, Australia

Posted: 22nd Apr 2008 14:05

Link

heres my code..

REM Project: pong 3d
REM Created: 16/04/2008 7:21:19 PM
REM
REM ***** Main Source File *****
REM

start:

gosub setup

gosub quickmatch

wait key
end

` setup objects/images/sounds
setup:

`set screen

set display mode 1280,1024,32
   set text size 30
   `warn about loading
   set cursor 200,200:print "L O A D I N G . . .    P L E A S E   W A I T . . .":SYNC
   color backdrop 0
   backdrop on
   sync on
   sync rate 50

`images
   `textures
   `textures taken out
`sounds
`no sounds yet
`objects
   `paddles
   plr1=1
   plr2=2
      make object box plr1,5,20,15
      make object box plr2,5,20,15

`ball
   ball=3
      make object sphere ball,5

`acrossbars
   bar1=4
   bar2=5
      make object box bar1,150,5,15
      make object box bar2,150,5,15

`sidebars
   bar3=6
   bar4=7
      make object box bar3,5,100,15
      make object box bar4,5,100,15

`base/floor/plain
   base=8
      make object plain base,150,100

`placement of objects
      `paddles
         position object plr1,-70,0,0
         position object plr2,70,0,0

`bars
         position object ball,0,0,5
         position object bar1,0,50,0
         position object bar2,0,-50,0
         position object bar3,75,0,0
         position object bar4,-75,0,0

`base
         position object base,0,0,8

`texture the objects
      `textures taken out

`make light
      make light 1
      `camera and light positions
         `view 1(side veiw)
         side1y#=-111.361
         side1z#=-87.2952
         `view 2(top view)
         top2y#=18.3357
         top2z#=-143.127
         `view 3(end veiw)
         end3x#=-130.44
         end3y#=-2.55107
         end3z#=-52.5722

`hiding the objects
      for i=1 to 8
         hide object i
      next object
      cls

`warn loading completed & ready to continue
sync off
set cursor 220,200:print "L O A D I N G  D O N E"
print ""
print "            p r e s s  a n y  k e y  t o  b e g i n":sync
sync on
wait key

return

quickmatch:

`show objects
for i=1 to 8
   show object i
next i

`<<<<<<<<<<<<<
`>quickmatch>
`<<<<<<<<<<<<<

`set variables
speed#=0.5
up=1
left=1
type scoring
   onename as string
   one as integer
   twoname as string
   two as integer
endtype
   score as scoring

do

gosub control
   gosub camera
   gosub collisions
   gosub scoring
   gosub ball

sync
loop

`control the plr
control:
   if upkey()=1
      move object up plr1,speed#
   endif
   if downkey()=1
      move object down plr1,speed#
   endif
return

`control the camera
camera:
   if keystate(2)=1 or view=1
      view=0
      position camera 0,side1y#,side1z#
      position light 1,0,side1y#,side1z#
      point camera object position x(base),object position y(base),object position z(base)
   endif
   if keystate(3)=1 or view=2
      view=0
      position camera 0,top2y#,top2z#
      position light 1,0,top2y#,top2z#
      point camera object position x(base),object position y(base),object position z(base)
   endif
   if keystate(4)=1 or view=3
      view=0
      position camera end3x#,end3y#,end3z#
      position light 1,end3x#,end3y#,end3z#
      point camera object position x(base),object position y(base),object position z(base)
      roll camera right 90
   endif
   if keystate(5)=1 or view=4
      view=4
      position camera object position x(plr1),object position y(plr1),object position z(plr1)
      point camera object position x(plr2),object position y(plr2),object position z(plr2)
      roll camera right 90
   endif
return

`controlling collisions
collisions:
   if object collision(plr1,bar1)
      move object down plr1,speed#
   endif
   if object collision(plr1,bar2)
      move object up plr1,speed#
   endif
   if object collision(ball,bar1)
      up=0:down=1
   endif
   if object collision(ball,bar2)
      up=1:down=0
   endif
   if object collision(ball,bar3)
      right=0:left=1
      inc score.two
   endif
   if object collision(ball,bar4)
      right=1:left=0
      inc score.one
   endif
return

`handle scores
scoring:
`yet to be done
return

`ball movement
ball:
`capture the angle positions
   xangle#=object angle x(ball)
   yangle#=object angle y(ball)
   if up=1
   `rotateing and positioning the ball
      xrotate object ball,xangle#+4
      position object ball,object position x(ball),object position y(ball)+speed#,5
   endif
   if down=1
      xrotate object ball,xangle#-4
      position object ball,object position x(ball),object position y(ball)-speed#,5
   endif
   if left=1
      yrotate object ball,yangle#+4
      position object ball,object position x(ball)-speed#,object position y(ball),5
   endif
   if right=1
      yrotate object ball,yangle#-4
      position object ball,object position x(ball)+speed#,object position y(ball),5
   endif

return

+ Code Snippet

REM Project: pong 3d
REM Created: 16/04/2008 7:21:19 PM
REM
REM ***** Main Source File *****
REM

start:

gosub setup

gosub quickmatch

wait key
end

` setup objects/images/sounds
setup:

`set screen

   set display mode 1280,1024,32
   set text size 30
   `warn about loading
   set cursor 200,200:print "L O A D I N G . . .    P L E A S E   W A I T . . .":SYNC
   color backdrop 0
   backdrop on
   sync on
   sync rate 50

`images
   `textures
   `textures taken out
`sounds
`no sounds yet
`objects
   `paddles
   plr1=1
   plr2=2
      make object box plr1,5,20,15
      make object box plr2,5,20,15

   `ball
   ball=3
      make object sphere ball,5

   `acrossbars
   bar1=4
   bar2=5
      make object box bar1,150,5,15
      make object box bar2,150,5,15

   `sidebars
   bar3=6
   bar4=7
      make object box bar3,5,100,15
      make object box bar4,5,100,15

   `base/floor/plain
   base=8
      make object plain base,150,100

   `placement of objects
      `paddles
         position object plr1,-70,0,0
         position object plr2,70,0,0

      `bars
         position object ball,0,0,5
         position object bar1,0,50,0
         position object bar2,0,-50,0
         position object bar3,75,0,0
         position object bar4,-75,0,0

      `base
         position object base,0,0,8

      `texture the objects
      `textures taken out

   `make light
      make light 1
      `camera and light positions
         `view 1(side veiw)
         side1y#=-111.361
         side1z#=-87.2952
         `view 2(top view)
         top2y#=18.3357
         top2z#=-143.127
         `view 3(end veiw)
         end3x#=-130.44
         end3y#=-2.55107
         end3z#=-52.5722


   `hiding the objects
      for i=1 to 8
         hide object i
      next object
      cls

`warn loading completed & ready to continue
sync off
set cursor 220,200:print "L O A D I N G  D O N E"
print ""
print "            p r e s s  a n y  k e y  t o  b e g i n":sync
sync on
wait key

return

quickmatch:

`show objects
for i=1 to 8
   show object i
next i

`<<<<<<<<<<<<<
`>quickmatch>
`<<<<<<<<<<<<<

`set variables
speed#=0.5
up=1
left=1
type scoring
   onename as string
   one as integer
   twoname as string
   two as integer
endtype
   score as scoring

do

   gosub control
   gosub camera
   gosub collisions
   gosub scoring
   gosub ball

sync
loop


`control the plr
control:
   if upkey()=1
      move object up plr1,speed#
   endif
   if downkey()=1
      move object down plr1,speed#
   endif
return

`control the camera
camera:
   if keystate(2)=1 or view=1
      view=0
      position camera 0,side1y#,side1z#
      position light 1,0,side1y#,side1z#
      point camera object position x(base),object position y(base),object position z(base)
   endif
   if keystate(3)=1 or view=2
      view=0
      position camera 0,top2y#,top2z#
      position light 1,0,top2y#,top2z#
      point camera object position x(base),object position y(base),object position z(base)
   endif
   if keystate(4)=1 or view=3
      view=0
      position camera end3x#,end3y#,end3z#
      position light 1,end3x#,end3y#,end3z#
      point camera object position x(base),object position y(base),object position z(base)
      roll camera right 90
   endif
   if keystate(5)=1 or view=4
      view=4
      position camera object position x(plr1),object position y(plr1),object position z(plr1)
      point camera object position x(plr2),object position y(plr2),object position z(plr2)
      roll camera right 90
   endif
return

`controlling collisions
collisions:
   if object collision(plr1,bar1)
      move object down plr1,speed#
   endif
   if object collision(plr1,bar2)
      move object up plr1,speed#
   endif
   if object collision(ball,bar1)
      up=0:down=1
   endif
   if object collision(ball,bar2)
      up=1:down=0
   endif
   if object collision(ball,bar3)
      right=0:left=1
      inc score.two
   endif
   if object collision(ball,bar4)
      right=1:left=0
      inc score.one
   endif
return

`handle scores
scoring:
`yet to be done
return

`ball movement
ball:
`capture the angle positions
   xangle#=object angle x(ball)
   yangle#=object angle y(ball)
   if up=1
   `rotateing and positioning the ball
      xrotate object ball,xangle#+4
      position object ball,object position x(ball),object position y(ball)+speed#,5
   endif
   if down=1
      xrotate object ball,xangle#-4
      position object ball,object position x(ball),object position y(ball)-speed#,5
   endif
   if left=1
      yrotate object ball,yangle#+4
      position object ball,object position x(ball)-speed#,object position y(ball),5
   endif
   if right=1
      yrotate object ball,yangle#-4
      position object ball,object position x(ball)+speed#,object position y(ball),5
   endif

return

if u compile it the ball rotation should not rotate x and y axis at the same time.

oh i did get the z position fixed thanx

winxp-intel core 2 duo 2.00ghz-2.00gb ram
nvidia en7300gt silent 256mb gfx

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 23rd Apr 2008 00:36

Link

Quote: "if u compile it the ball rotation should not rotate x and y axis at the same time."

You are telling it to rotate both ways at the same time. Your code always has the ball moving at multiple angles (i.e. up and left, down and right, etc.) so you will always rotate on the x an y axis' at the same time. This really is how it should be if you want to texture it and create a rolling effect.

LBFN

Back to top

Profile PM Email

ShaunRW

DBPro Developer

16

Years of Service

User Offline

Joined: 7th Jan 2008

Location: Brisbane, Australia

Posted: 23rd Apr 2008 11:13

Link

ummm....well i dont know what im doing wrong....lol

did u compile it? and see what it was doing?
i swear it dont rotate at the same time.

winxp-intel core 2 duo 2.00ghz-2.00gb ram
nvidia en7300gt silent 256mb gfx

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 23rd Apr 2008 13:03 Edited at: 23rd Apr 2008 13:04

Link

Oh really? Write a simple debug subroutine and call it from your main loop to print the different object angles, like this:

LBFN

BTW, you should use wrapvalue on all of your angles.

Back to top

Profile PM Email

ShaunRW

DBPro Developer

16

Years of Service

User Offline

Joined: 7th Jan 2008

Location: Brisbane, Australia

Posted: 23rd Apr 2008 13:36

Link

ummm debug subroutine??.. sorry im gonna learn what that is
and wrapvalue, iv tried using that onec on a nother project but didnt know what it is

subroutines: is that when u compile it in debug mode or just printing variables?

shaun...

winxp-intel core 2 duo 2.00ghz-2.00gb ram
nvidia en7300gt silent 256mb gfx

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 24th Apr 2008 01:32

Link

Sorry, didn't mean to throw you off. It has nothing to do with compiling with the debug option. What I call a debug routine is something that I put in the code that gets executed every loop that gives me the current values for what I am watching. In your case, you could tell the computer to print what the x, y and z angles are of the ball object, like this:

+ Code Snippet

debug:
text 10,10,str$(xangle#)
text 10,30,str$(yangle#)
text 10,50,str$(object angle z(ball))
return

You simply call it from your main do-loop, like this:

+ Code Snippet

do

   gosub control
   gosub camera
   gosub collisions
   gosub scoring
   gosub ball
   gosub debug
sync
loop
end

Wrapvalue makes sure that the angles stay within range (0.0 to 359.9999 [whatev]). You should always use it when adding/subtracting from an angle. To help you get the idea,

+ Code Snippet

xrotate object ball,xangle#+4

should be coded as

+ Code Snippet

xrotate object ball,wrapvalue(xangle#+4.0)

A minor note, since xangle# is a float, you should list it as I have done.

Hope this helps,

LBFN

Back to top

Profile PM Email

ShaunRW

DBPro Developer

16

Years of Service

User Offline

Joined: 7th Jan 2008

Location: Brisbane, Australia

Posted: 24th Apr 2008 09:52

Link

hmmm... i see what u mean, how the axises are rotating at the same time, but it honesly doesn't look like a rolling ball.

would it be easeir to face the ball to where it should go and rotate forward?

i will upload a vid of it later
or
you can download code and images here http://files.filefront.com/pong+3dzip/;10068878;/fileinfo.html

i did try upload them here but it was too big!!

shaun...

winxp-intel core 2 duo 2.00ghz-2.00gb ram
nvidia en7300gt silent 256mb gfx

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 24th Apr 2008 13:16

Link

Wow! A texture that is almost 4000 X 4000? Do you really need that much? The paddle file is 2.45MB and adds significantly to your load time. I have noticed a trend to turn sync on and off during a game, but I don't get why that is done. Anyway, I would recommend you re-size the paddle texture to 512 X 512; it will take it's size down to 50KB, a much more manageable size.

I would also suggest leaving the sync rate at 0 while loading the files; that way, the user's computer will load it as fast as possible. I doesn't seem like you should have much of a delay just loading four .jpg's.

I personally would not point and move the ball, though you could do that. I think it would be better to get the angles set correctly and then use 'fix object pivot ball' to set them. To help you, I would suggest you make a texture with a line across it so you can more easily see the ball's rotation. Let me know if you need help with this.

LBFN

Back to top

Profile PM Email

ShaunRW

DBPro Developer

16

Years of Service

User Offline

Joined: 7th Jan 2008

Location: Brisbane, Australia

Posted: 24th Apr 2008 16:34 Edited at: 25th Apr 2008 08:11

Link

ok thnax
since i didnt make the txts i dnt really look at the size and will reduce it.
i didnt really thing that the sync commamd had any impacted on the loadint..lol... i thought it was the frames per seconds but ill take ur advise.
and about the pionting the ball, i will just see if i could get the angles right.

i have corrected the angles to my liking... well good enough for me lol

shaun,,,

winxp-intel core 2 duo 2.00ghz-2.00gb ram
nvidia en7300gt silent 256mb gfx

Back to top

Profile PM Email

ShaunRW

DBPro Developer

16

Years of Service

User Offline

Joined: 7th Jan 2008

Location: Brisbane, Australia

Posted: 25th Apr 2008 09:16

Link

heres it is with some gameplay
up/down to move
1-4 camera angles

winxp-intel core 2 duo 2.00ghz-2.00gb ram
nvidia en7300gt silent 256mb gfx

Attachments

Login to view attachments

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 25th Apr 2008 12:47

Link

The loading time is much better and the paddle texture looks fine. I see that you have the collision and AI working. 'Fix object pivot' is not designed to be used like that in every loop, but is used initially or perhaps when a direction change is necessary. The rotation is still off IMO. I will try to take a look at it later today when I have more time.

LB

Back to top

Profile PM Email

ShaunRW

DBPro Developer

16

Years of Service

User Offline

Joined: 7th Jan 2008

Location: Brisbane, Australia

Posted: 25th Apr 2008 14:42

Link

ok thanx LBFN
you have helped me alot on this, i might add ur name in the credits...

i have change some textures and some code for collisions...

REM Project: pong 3d
REM Created: 16/04/2008 7:21:19 PM
REM
REM ***** Main Source File *****
REM

start:

gosub setup

gosub quickmatch

wait key
end

` setup objects/images/sounds
setup:

`set screen

set display mode 1280,1024,32
   set text size 30
   `warn about loading
   set cursor 200,200:print "L O A D I N G . . .    P L E A S E   W A I T . . .":SYNC
   color backdrop 0
   backdrop on
   sync on
   sync rate 0

`images
   `textures
      ground=1
         load image "images/ground.jpg",ground
      ballpic=2
         load image "images/ball.jpg",ballpic
      border=3
         load image "images/border.jpg",border
      paddles=4
         load image "images/paddle.jpg",paddles
      goals=5
         load image "images/goal.jpg",goals
`sounds

`objects
   `paddles
   plr1=1
   plr2=2
      make object box plr1,5,20,15
      make object box plr2,5,20,15

`ball
   ball=3
      make object sphere ball,5

`acrossbars
   bar1=4
   bar2=5
      make object box bar1,150,5,15
      make object box bar2,150,5,15

`sidebars
   bar3=6
   bar4=7
      make object box bar3,5,100,15
      make object box bar4,5,100,15

`base/floor/plain
   base=8
      make object plain base,150,100

`placement of objects
      `paddles
         position object plr1,-70,0,0
         position object plr2,70,0,0

`bars
         position object ball,0,0,5
         position object bar1,0,50,0
         position object bar2,0,-50,0
         position object bar3,75,0,0
         position object bar4,-75,0,0

`base
         position object base,0,0,8

`texture the objects
         texture object base,ground
         texture object ball,ballpic
         texture object plr1,paddles
         texture object plr2,paddles
         texture object bar1,border
         texture object bar2,border
         texture object bar3,goals
         texture object bar4,goals

`make light
      make light 1
      `camera and light positions
         `view 1(side veiw)
         side1y#=-111.361
         side1z#=-87.2952
         `view 2(top view)
         top2y#=18.3357
         top2z#=-143.127
         `view 3(end veiw)
         end3x#=-130.44
         end3y#=-2.55107
         end3z#=-52.5722

`hiding the objects
      for i=1 to 8
         hide object i
      next object
      cls

`warn loading completed & ready to continue
sync off
set cursor 220,200:print "L O A D I N G  D O N E"
print ""
print "            p r e s s  a n y  k e y  t o  b e g i n":sync
sync on
SYNC rate 50
wait key

return

quickmatch:

`show objects
for i=1 to 8
   show object i
next i

`<<<<<<<<<<<<<
`>quickmatch>
`<<<<<<<<<<<<<

`set variables
ballspeed#=0.5
paddlespeed#=0.5
up=1
left=1
type scoring
   two as integer
   one as integer
endtype
score as scoring

do

gosub control
   gosub camera
   gosub collisions
   gosub ball
   gosub plr2control
   gosub scoring

sync
loop
end

`control the plr
control:
   if upkey()=1
      move object up plr1,paddlespeed#
   endif
   if downkey()=1
      move object down plr1,paddlespeed#
   endif
return

`control the camera
camera:
   if keystate(2)=1 or view=1
      view=0
      position camera 0,side1y#,side1z#
      position light 1,0,side1y#,side1z#
      point camera object position x(base),object position y(base),object position z(base)
   endif
   if keystate(3)=1 or view=2
      view=0
      position camera 0,top2y#,top2z#
      position light 1,0,top2y#,top2z#
      point camera object position x(base),object position y(base),object position z(base)
   endif
   if keystate(4)=1 or view=3
      view=0
      position camera end3x#,end3y#,end3z#
      position light 1,end3x#,end3y#,end3z#
      point camera object position x(base),object position y(base),object position z(base)
      roll camera right 90
   endif
   if keystate(5)=1 or view=4
      view=4
      position camera object position x(plr1),object position y(plr1),object position z(plr1)
      point camera object position x(bar3),object position y(bar3),object position z(bar3)
      roll camera right 90
   endif
return

`controlling collisions
collisions:
   if object collision(plr1,bar1)
      move object down plr1,paddlespeed#
   endif
   if object collision(plr1,bar2)
      move object up plr1,paddlespeed#
   endif
   if object collision(plr2,bar1)
      move object down plr2,paddlespeed#
   endif
   if object collision(plr2,bar2)
      move object up plr2,paddlespeed#
   endif
   if object hit(ball,bar1)
      up=0:down=1
   endif
   if object hit(ball,bar2)
      up=1:down=0
   endif
   if object hit(ball,bar3)
      right=0:left=1
      inc score.one
      ballspeed#=0.5
   endif
   if object hit(ball,bar4)
      right=1:left=0
      inc score.two
      ballspeed#=0.5
   endif
   if object hit(plr1,ball)
      right=1:left=0
      inc ballspeed#,0.05
   endif
   if object hit(plr2,ball)
      right=0:left=1
      inc ballspeed#,0.05
   endif
return

`ball movement
ball:
   fix object pivot ball
`capture the angle positions
   xangle#=object angle x(ball)
   yangle#=object angle y(ball)
   if up=1
   `rotateing and positioning the ball
      xrotate object ball,wrapvalue(xangle#-4.0)
      position object ball,object position x(ball),object position y(ball)+ballspeed#,5
   endif
   if down=1
      xrotate object ball,wrapvalue(xangle#+4.0)
      position object ball,object position x(ball),object position y(ball)-ballspeed#,5
   endif
   fix object pivot ball
   if left=1
      yrotate object ball,wrapvalue(yangle#+4.0)
      position object ball,object position x(ball)-ballspeed#,object position y(ball),5
   endif
   if right=1
      yrotate object ball,wrapvalue(yangle#-4.0)
      position object ball,object position x(ball)+ballspeed#,object position y(ball),5
   endif
   fix object pivot ball
return

`player two control
plr2control:
if object position x(ball)>0
   if object position y(ball)>object position y(plr2)
      move object up plr2,paddlespeed#
   endif
   if object position y(ball)<object position y(plr2)
      move object down plr2,paddlespeed#
   endif
endif

return

scoring:
   text 10,10,"1) "+str$(score.one)
   text 200,10,"2) "+str$(score.two)
return

+ Code Snippet

REM Project: pong 3d
REM Created: 16/04/2008 7:21:19 PM
REM
REM ***** Main Source File *****
REM

start:

gosub setup

gosub quickmatch

wait key
end

` setup objects/images/sounds
setup:

`set screen

   set display mode 1280,1024,32
   set text size 30
   `warn about loading
   set cursor 200,200:print "L O A D I N G . . .    P L E A S E   W A I T . . .":SYNC
   color backdrop 0
   backdrop on
   sync on
   sync rate 0

`images
   `textures
      ground=1
         load image "images/ground.jpg",ground
      ballpic=2
         load image "images/ball.jpg",ballpic
      border=3
         load image "images/border.jpg",border
      paddles=4
         load image "images/paddle.jpg",paddles
      goals=5
         load image "images/goal.jpg",goals
`sounds

`objects
   `paddles
   plr1=1
   plr2=2
      make object box plr1,5,20,15
      make object box plr2,5,20,15

   `ball
   ball=3
      make object sphere ball,5

   `acrossbars
   bar1=4
   bar2=5
      make object box bar1,150,5,15
      make object box bar2,150,5,15

   `sidebars
   bar3=6
   bar4=7
      make object box bar3,5,100,15
      make object box bar4,5,100,15

   `base/floor/plain
   base=8
      make object plain base,150,100

   `placement of objects
      `paddles
         position object plr1,-70,0,0
         position object plr2,70,0,0

      `bars
         position object ball,0,0,5
         position object bar1,0,50,0
         position object bar2,0,-50,0
         position object bar3,75,0,0
         position object bar4,-75,0,0

      `base
         position object base,0,0,8

      `texture the objects
         texture object base,ground
         texture object ball,ballpic
         texture object plr1,paddles
         texture object plr2,paddles
         texture object bar1,border
         texture object bar2,border
         texture object bar3,goals
         texture object bar4,goals

   `make light
      make light 1
      `camera and light positions
         `view 1(side veiw)
         side1y#=-111.361
         side1z#=-87.2952
         `view 2(top view)
         top2y#=18.3357
         top2z#=-143.127
         `view 3(end veiw)
         end3x#=-130.44
         end3y#=-2.55107
         end3z#=-52.5722


   `hiding the objects
      for i=1 to 8
         hide object i
      next object
      cls

`warn loading completed & ready to continue
sync off
set cursor 220,200:print "L O A D I N G  D O N E"
print ""
print "            p r e s s  a n y  k e y  t o  b e g i n":sync
sync on
SYNC rate 50
wait key

return

quickmatch:

`show objects
for i=1 to 8
   show object i
next i

`<<<<<<<<<<<<<
`>quickmatch>
`<<<<<<<<<<<<<

`set variables
ballspeed#=0.5
paddlespeed#=0.5
up=1
left=1
type scoring
   two as integer
   one as integer
endtype
score as scoring


do

   gosub control
   gosub camera
   gosub collisions
   gosub ball
   gosub plr2control
   gosub scoring

sync
loop
end


`control the plr
control:
   if upkey()=1
      move object up plr1,paddlespeed#
   endif
   if downkey()=1
      move object down plr1,paddlespeed#
   endif
return

`control the camera
camera:
   if keystate(2)=1 or view=1
      view=0
      position camera 0,side1y#,side1z#
      position light 1,0,side1y#,side1z#
      point camera object position x(base),object position y(base),object position z(base)
   endif
   if keystate(3)=1 or view=2
      view=0
      position camera 0,top2y#,top2z#
      position light 1,0,top2y#,top2z#
      point camera object position x(base),object position y(base),object position z(base)
   endif
   if keystate(4)=1 or view=3
      view=0
      position camera end3x#,end3y#,end3z#
      position light 1,end3x#,end3y#,end3z#
      point camera object position x(base),object position y(base),object position z(base)
      roll camera right 90
   endif
   if keystate(5)=1 or view=4
      view=4
      position camera object position x(plr1),object position y(plr1),object position z(plr1)
      point camera object position x(bar3),object position y(bar3),object position z(bar3)
      roll camera right 90
   endif
return

`controlling collisions
collisions:
   if object collision(plr1,bar1)
      move object down plr1,paddlespeed#
   endif
   if object collision(plr1,bar2)
      move object up plr1,paddlespeed#
   endif
   if object collision(plr2,bar1)
      move object down plr2,paddlespeed#
   endif
   if object collision(plr2,bar2)
      move object up plr2,paddlespeed#
   endif
   if object hit(ball,bar1)
      up=0:down=1
   endif
   if object hit(ball,bar2)
      up=1:down=0
   endif
   if object hit(ball,bar3)
      right=0:left=1
      inc score.one
      ballspeed#=0.5
   endif
   if object hit(ball,bar4)
      right=1:left=0
      inc score.two
      ballspeed#=0.5
   endif
   if object hit(plr1,ball)
      right=1:left=0
      inc ballspeed#,0.05
   endif
   if object hit(plr2,ball)
      right=0:left=1
      inc ballspeed#,0.05
   endif
return


`ball movement
ball:
   fix object pivot ball
`capture the angle positions
   xangle#=object angle x(ball)
   yangle#=object angle y(ball)
   if up=1
   `rotateing and positioning the ball
      xrotate object ball,wrapvalue(xangle#-4.0)
      position object ball,object position x(ball),object position y(ball)+ballspeed#,5
   endif
   if down=1
      xrotate object ball,wrapvalue(xangle#+4.0)
      position object ball,object position x(ball),object position y(ball)-ballspeed#,5
   endif
   fix object pivot ball
   if left=1
      yrotate object ball,wrapvalue(yangle#+4.0)
      position object ball,object position x(ball)-ballspeed#,object position y(ball),5
   endif
   if right=1
      yrotate object ball,wrapvalue(yangle#-4.0)
      position object ball,object position x(ball)+ballspeed#,object position y(ball),5
   endif
   fix object pivot ball
return

`player two control
plr2control:
if object position x(ball)>0
   if object position y(ball)>object position y(plr2)
      move object up plr2,paddlespeed#
   endif
   if object position y(ball)<object position y(plr2)
      move object down plr2,paddlespeed#
   endif
endif

return

scoring:
   text 10,10,"1) "+str$(score.one)
   text 200,10,"2) "+str$(score.two)
return

shaun...

winxp-intel core 2 duo 2.00ghz-2.00gb ram
nvidia en7300gt silent 256mb gfx

Attachments

Login to view attachments

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 26th Apr 2008 00:39

Link

Shaun

You are moving the ball much differently than what I thought you would. 'Fix object pivot' will not help you as it is. I was thinking that you would set the angles, fix the pivot and then move the ball in the direction dictated by the angles and the rotation would be right on. IMO the rotation just doesn't come off right currently.

If you would like, I would be willing to try to set up the angles using a direction for the ball if you would like. I don't want to go to that trouble if you plan to keep it as is.

Let me know.

Quote: "i might add ur name in the credits...
"

LBFN

Back to top

Profile PM Email

ShaunRW

DBPro Developer

16

Years of Service

User Offline

Joined: 7th Jan 2008

Location: Brisbane, Australia

Posted: 26th Apr 2008 03:30

Link

Quote: "If you would like, I would be willing to try to set up the angles using a direction for the ball if you would like. I don't want to go to that trouble if you plan to keep it as is."

thanx, its ok with me...

winxp-intel core 2 duo 2.00ghz-2.00gb ram
nvidia en7300gt silent 256mb gfx

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 27th Apr 2008 04:59

Link

It seems adequate to simply rotate it on the Z axis. I made a few edits:

REM Project: pong 3d
REM Created: 16/04/2008 7:21:19 PM
REM
REM ***** Main Source File *****
REM

start:

gosub setup

gosub quickmatch

wait key
end

` setup objects/images/sounds
setup:

`set screen

set display mode 1280,1024,32
   set text size 30
   `warn about loading
   set cursor 200,200:print "L O A D I N G . . .    P L E A S E   W A I T . . .":SYNC
   color backdrop 0
   backdrop on
   sync on
   sync rate 0

`images
   `textures
      ground=1
         load image "images/ground.jpg",ground
      ballpic=2
         load image "images/ball.jpg",ballpic
      border=3
         load image "images/border.jpg",border
      paddles=4
         load image "images/paddle.jpg",paddles
      goals=5
         load image "images/goal.jpg",goals
`sounds

`objects
   `paddles
   plr1=1
   plr2=2
      make object box plr1,5,20,15
      make object box plr2,5,20,15

`ball
   ball=3
      make object sphere ball,5
      okay = 0
      repeat
        direction = rnd(7)+1
        if direction<>1 and direction<>5 then okay = 1
      until okay = 1
      gosub MoveBall
   `acrossbars
   bar1=4
   bar2=5
      make object box bar1,150,5,15
      make object box bar2,150,5,15

`sidebars
   bar3=6
   bar4=7
      make object box bar3,5,100,15
      make object box bar4,5,100,15

`base/floor/plain
   base=8
      make object plain base,150,100

`placement of objects
      `paddles
         position object plr1,-70,0,0
         position object plr2,70,0,0

`bars
         position object ball,0,0,5
         position object bar1,0,50,0
         position object bar2,0,-50,0
         position object bar3,75,0,0
         position object bar4,-75,0,0

`base
         position object base,0,0,8

`texture the objects
         texture object base,ground
         texture object ball,ballpic
         texture object plr1,paddles
         texture object plr2,paddles
         texture object bar1,border
         texture object bar2,border
         texture object bar3,goals
         texture object bar4,goals
         color object bar3,rgb(255,0,0)

`make light
      make light 1
      `camera and light positions
         `view 1(side veiw)
         side1y#=-111.361
         side1z#=-87.2952
         `view 2(top view)
         top2y#=18.3357
         top2z#=-143.127
         `view 3(end veiw)
         end3x#=-130.44
         end3y#=-2.55107
         end3z#=-52.5722

`hiding the objects
      for i=1 to 8
         hide object i
      next object
      cls

`warn loading completed & ready to continue
sync off
set cursor 220,200:print "L O A D I N G  D O N E"
print ""
print "            p r e s s  a n y  k e y  t o  b e g i n":sync
sync on
SYNC rate 50
wait key

return

quickmatch:

`show objects
for i=1 to 8
   show object i
next i

`<<<<<<<<<<<<<
`>quickmatch>
`<<<<<<<<<<<<<

`set variables
ballspeed#=0.5
paddlespeed#=0.5
up=1
left=1
type scoring
   two as integer
   one as integer
endtype
score as scoring

do

gosub control
   gosub camera
   gosub collisions
   `gosub ball
   gosub MoveBall
   gosub plr2control
   gosub scoring

sync
loop
end

`control the plr
control:
   if upkey()=1
      move object up plr1,paddlespeed#
   endif
   if downkey()=1
      move object down plr1,paddlespeed#
   endif
return

`control the camera
camera:
   if keystate(2)=1 or view=1
      view=0
      position camera 0,side1y#,side1z#
      position light 1,0,side1y#,side1z#
      point camera object position x(base),object position y(base),object position z(base)
   endif
   if keystate(3)=1 or view=2
      view=0
      position camera 0,top2y#,top2z#
      position light 1,0,top2y#,top2z#
      point camera object position x(base),object position y(base),object position z(base)
   endif
   if keystate(4)=1 or view=3
      view=0
      position camera end3x#,end3y#,end3z#
      position light 1,end3x#,end3y#,end3z#
      point camera object position x(base),object position y(base),object position z(base)
      roll camera right 90
   endif
   if keystate(5)=1 or view=4
      view=4
      position camera object position x(plr1),object position y(plr1),object position z(plr1)
      point camera object position x(bar3),object position y(bar3),object position z(bar3)
      roll camera right 90
   endif
return

`controlling collisions
collisions:
up = 0 : down = 0 : left = 0 : right = 0
   if object collision(plr1,bar1)
      move object down plr1,paddlespeed#
   endif
   if object collision(plr1,bar2)
      move object up plr1,paddlespeed#
   endif
   if object collision(plr2,bar1)
      move object down plr2,paddlespeed#
   endif
   if object collision(plr2,bar2)
      move object up plr2,paddlespeed#
   endif
   if object hit(ball,bar1)
      if direction = 8 then direction = 6
      if direction = 1 then direction = rnd(2)+4
      if direction = 2 then direction =4
   endif
   if object hit(ball,bar2)
     if direction = 4 then direction = 2
     if direction = 6 then direction = 8
     if direction = 5
        d = rnd(1000)
        direction = 8
        if d>900 then direction = 1
        if d<450 then direction = 2
     endif
   endif
   if object hit(ball,bar3)
      inc score.one
      ballspeed#=0.5
      if direction = 2 then direction = 8
      if direction = 3 then direction = rnd(2) + 6
      if direction = 4 then direction = 6
   endif
   if object hit(ball,bar4)
      inc score.two
      ballspeed#=0.5
      if direction = 8 then direction = 2
      if direction = 7 then direction = rnd(2)+2
      if direction = 6 then direction = 4
   endif
   if object hit(plr1,ball)
      if direction = 8 then direction = 2
      if direction = 7 then direction = rnd(2)+2
      if direction = 6 then direction = 4
      inc ballspeed#,0.05
   endif
   if object hit(plr2,ball)
      if direction = 2 then direction = 8
      if direction = 3 then direction = rnd(2) + 6
      if direction = 4 then direction = 6
      inc ballspeed#,0.05
   endif
return

remstart
`ball movement
ball:
  ` fix object pivot ball
`capture the angle positions
   xangle#=object angle x(ball)
   yangle#=object angle y(ball)

if up=1
   `rotateing and positioning the ball
     move object ball,ballspeed#
 `     position object ball,object position x(ball),object position y(ball)+ballspeed#,5
   endif
   if down=1
`      position object ball,object position x(ball),object position y(ball)-ballspeed#,5
          move object ball,ballspeed#
   endif
   fix object pivot ball
   if left=1
`      position object ball,object position x(ball)-ballspeed#,object position y(ball),5
          move object ball,ballspeed#
   endif
   if right=1
 `     position object ball,object position x(ball)+ballspeed#,object position y(ball),5
          move object ball,ballspeed#
   endif
 `  fix object pivot ball
return
remend

`player two control
plr2control:
if object position x(ball)>0
   if object position y(ball)>object position y(plr2)
      move object up plr2,paddlespeed#
   endif
   if object position y(ball)<object position y(plr2)
      move object down plr2,paddlespeed#
   endif
endif

return

scoring:
   text 10,10,"1) "+str$(score.one)
   text 200,10,"2) "+str$(score.two)
return

MoveBall:
xangle#=object angle x(ball)
yangle#=object angle y(ball)
zangle#=object angle z(ball)
select direction
  case 1
   ` straight up
   position object ball,object position x(ball),object position y(ball)+ballspeed#,5
   rotate object ball,0.0,0.0,wrapvalue(zangle#-10.0)
  endcase
  case 2
    ` up and right
    zrotate object ball,wrapvalue(zangle#-10.0)
    position object ball,object position x(ball)+ballspeed#,object position y(ball)+ballspeed#,5
  endcase
  case 3
    ` straight right
    rotate object ball,wrapvalue(xangle#-10.0),0.0,0.0
    position object ball,object position x(ball)+ballspeed#,object position y(ball),5
  endcase
  case 4
    ` right and down
    zrotate object ball,wrapvalue(zangle#-10.0)
    position object ball,object position x(ball)+ballspeed#,object position y(ball)-ballspeed#,5
  endcase
  case 5
    ` straight down
    position object ball,object position x(ball),object position y(ball)-ballspeed#,5
    zrotate object ball,wrapvalue(zangle#-10.0)
  endcase
  case 6
    ` down and left
    position object ball,object position x(ball)-ballspeed#,object position y(ball)-ballspeed#,5
    zrotate object ball,wrapvalue(zangle#+10.0)
  endcase
  case 7
    ` straight left
    rotate object ball,wrapvalue(xangle#+20.0),0.0,0.0
    position object ball,object position x(ball)-ballspeed#,object position y(ball),5
  endcase
  case 8
    ` left and up
    position object ball,object position x(ball)-ballspeed#,object position y(ball)+ballspeed#,5
    zrotate object ball,wrapvalue(zangle#+10.0)
  endcase
endselect
return

+ Code Snippet

REM Project: pong 3d
REM Created: 16/04/2008 7:21:19 PM
REM
REM ***** Main Source File *****
REM

start:

gosub setup

gosub quickmatch

wait key
end

` setup objects/images/sounds
setup:

`set screen

   set display mode 1280,1024,32
   set text size 30
   `warn about loading
   set cursor 200,200:print "L O A D I N G . . .    P L E A S E   W A I T . . .":SYNC
   color backdrop 0
   backdrop on
   sync on
   sync rate 0

`images
   `textures
      ground=1
         load image "images/ground.jpg",ground
      ballpic=2
         load image "images/ball.jpg",ballpic
      border=3
         load image "images/border.jpg",border
      paddles=4
         load image "images/paddle.jpg",paddles
      goals=5
         load image "images/goal.jpg",goals
`sounds

`objects
   `paddles
   plr1=1
   plr2=2
      make object box plr1,5,20,15
      make object box plr2,5,20,15

   `ball
   ball=3
      make object sphere ball,5
      okay = 0
      repeat
        direction = rnd(7)+1
        if direction<>1 and direction<>5 then okay = 1
      until okay = 1
      gosub MoveBall
   `acrossbars
   bar1=4
   bar2=5
      make object box bar1,150,5,15
      make object box bar2,150,5,15

   `sidebars
   bar3=6
   bar4=7
      make object box bar3,5,100,15
      make object box bar4,5,100,15

   `base/floor/plain
   base=8
      make object plain base,150,100

   `placement of objects
      `paddles
         position object plr1,-70,0,0
         position object plr2,70,0,0

      `bars
         position object ball,0,0,5
         position object bar1,0,50,0
         position object bar2,0,-50,0
         position object bar3,75,0,0
         position object bar4,-75,0,0

      `base
         position object base,0,0,8

      `texture the objects
         texture object base,ground
         texture object ball,ballpic
         texture object plr1,paddles
         texture object plr2,paddles
         texture object bar1,border
         texture object bar2,border
         texture object bar3,goals
         texture object bar4,goals
         color object bar3,rgb(255,0,0)

   `make light
      make light 1
      `camera and light positions
         `view 1(side veiw)
         side1y#=-111.361
         side1z#=-87.2952
         `view 2(top view)
         top2y#=18.3357
         top2z#=-143.127
         `view 3(end veiw)
         end3x#=-130.44
         end3y#=-2.55107
         end3z#=-52.5722


   `hiding the objects
      for i=1 to 8
         hide object i
      next object
      cls

`warn loading completed & ready to continue
sync off
set cursor 220,200:print "L O A D I N G  D O N E"
print ""
print "            p r e s s  a n y  k e y  t o  b e g i n":sync
sync on
SYNC rate 50
wait key

return

quickmatch:

`show objects
for i=1 to 8
   show object i
next i

`<<<<<<<<<<<<<
`>quickmatch>
`<<<<<<<<<<<<<

`set variables
ballspeed#=0.5
paddlespeed#=0.5
up=1
left=1
type scoring
   two as integer
   one as integer
endtype
score as scoring


do

   gosub control
   gosub camera
   gosub collisions
   `gosub ball
   gosub MoveBall
   gosub plr2control
   gosub scoring

sync
loop
end


`control the plr
control:
   if upkey()=1
      move object up plr1,paddlespeed#
   endif
   if downkey()=1
      move object down plr1,paddlespeed#
   endif
return

`control the camera
camera:
   if keystate(2)=1 or view=1
      view=0
      position camera 0,side1y#,side1z#
      position light 1,0,side1y#,side1z#
      point camera object position x(base),object position y(base),object position z(base)
   endif
   if keystate(3)=1 or view=2
      view=0
      position camera 0,top2y#,top2z#
      position light 1,0,top2y#,top2z#
      point camera object position x(base),object position y(base),object position z(base)
   endif
   if keystate(4)=1 or view=3
      view=0
      position camera end3x#,end3y#,end3z#
      position light 1,end3x#,end3y#,end3z#
      point camera object position x(base),object position y(base),object position z(base)
      roll camera right 90
   endif
   if keystate(5)=1 or view=4
      view=4
      position camera object position x(plr1),object position y(plr1),object position z(plr1)
      point camera object position x(bar3),object position y(bar3),object position z(bar3)
      roll camera right 90
   endif
return

`controlling collisions
collisions:
up = 0 : down = 0 : left = 0 : right = 0
   if object collision(plr1,bar1)
      move object down plr1,paddlespeed#
   endif
   if object collision(plr1,bar2)
      move object up plr1,paddlespeed#
   endif
   if object collision(plr2,bar1)
      move object down plr2,paddlespeed#
   endif
   if object collision(plr2,bar2)
      move object up plr2,paddlespeed#
   endif
   if object hit(ball,bar1)
      if direction = 8 then direction = 6
      if direction = 1 then direction = rnd(2)+4
      if direction = 2 then direction =4
   endif
   if object hit(ball,bar2)
     if direction = 4 then direction = 2
     if direction = 6 then direction = 8
     if direction = 5
        d = rnd(1000)
        direction = 8
        if d>900 then direction = 1
        if d<450 then direction = 2
     endif
   endif
   if object hit(ball,bar3)
      inc score.one
      ballspeed#=0.5
      if direction = 2 then direction = 8
      if direction = 3 then direction = rnd(2) + 6
      if direction = 4 then direction = 6
   endif
   if object hit(ball,bar4)
      inc score.two
      ballspeed#=0.5
      if direction = 8 then direction = 2
      if direction = 7 then direction = rnd(2)+2
      if direction = 6 then direction = 4
   endif
   if object hit(plr1,ball)
      if direction = 8 then direction = 2
      if direction = 7 then direction = rnd(2)+2
      if direction = 6 then direction = 4
      inc ballspeed#,0.05
   endif
   if object hit(plr2,ball)
      if direction = 2 then direction = 8
      if direction = 3 then direction = rnd(2) + 6
      if direction = 4 then direction = 6
      inc ballspeed#,0.05
   endif
return

remstart
`ball movement
ball:
  ` fix object pivot ball
`capture the angle positions
   xangle#=object angle x(ball)
   yangle#=object angle y(ball)

   if up=1
   `rotateing and positioning the ball
     move object ball,ballspeed#
 `     position object ball,object position x(ball),object position y(ball)+ballspeed#,5
   endif
   if down=1
`      position object ball,object position x(ball),object position y(ball)-ballspeed#,5
          move object ball,ballspeed#
   endif
   fix object pivot ball
   if left=1
`      position object ball,object position x(ball)-ballspeed#,object position y(ball),5
          move object ball,ballspeed#
   endif
   if right=1
 `     position object ball,object position x(ball)+ballspeed#,object position y(ball),5
          move object ball,ballspeed#
   endif
 `  fix object pivot ball
return
remend


`player two control
plr2control:
if object position x(ball)>0
   if object position y(ball)>object position y(plr2)
      move object up plr2,paddlespeed#
   endif
   if object position y(ball)<object position y(plr2)
      move object down plr2,paddlespeed#
   endif
endif

return

scoring:
   text 10,10,"1) "+str$(score.one)
   text 200,10,"2) "+str$(score.two)
return

MoveBall:
xangle#=object angle x(ball)
yangle#=object angle y(ball)
zangle#=object angle z(ball)
select direction
  case 1
   ` straight up
   position object ball,object position x(ball),object position y(ball)+ballspeed#,5
   rotate object ball,0.0,0.0,wrapvalue(zangle#-10.0)
  endcase
  case 2
    ` up and right
    zrotate object ball,wrapvalue(zangle#-10.0)
    position object ball,object position x(ball)+ballspeed#,object position y(ball)+ballspeed#,5
  endcase
  case 3
    ` straight right
    rotate object ball,wrapvalue(xangle#-10.0),0.0,0.0
    position object ball,object position x(ball)+ballspeed#,object position y(ball),5
  endcase
  case 4
    ` right and down
    zrotate object ball,wrapvalue(zangle#-10.0)
    position object ball,object position x(ball)+ballspeed#,object position y(ball)-ballspeed#,5
  endcase
  case 5
    ` straight down
    position object ball,object position x(ball),object position y(ball)-ballspeed#,5
    zrotate object ball,wrapvalue(zangle#-10.0)
  endcase
  case 6
    ` down and left
    position object ball,object position x(ball)-ballspeed#,object position y(ball)-ballspeed#,5
    zrotate object ball,wrapvalue(zangle#+10.0)
  endcase
  case 7
    ` straight left
    rotate object ball,wrapvalue(xangle#+20.0),0.0,0.0
    position object ball,object position x(ball)-ballspeed#,object position y(ball),5
  endcase
  case 8
    ` left and up
    position object ball,object position x(ball)-ballspeed#,object position y(ball)+ballspeed#,5
    zrotate object ball,wrapvalue(zangle#+10.0)
  endcase
endselect
return

It is easier to see the rotation with a texture that I made up with grey as the background, a red stripe going across and a green stripe going up and down. I hope this is helpful.

LBFN

Back to top

Profile PM Email

ShaunRW

DBPro Developer

16

Years of Service

User Offline

Joined: 7th Jan 2008

Location: Brisbane, Australia

Posted: 27th Apr 2008 07:29

Link

thank u very much!!!...

however, since the ball is rotating on the z axis it doesnt give the effect of a rolling ball, it is spinning on its side. is this what you were meant to do?

shaun...

winxp-intel core 2 duo 2.00ghz-2.00gb ram
nvidia en7300gt silent 256mb gfx

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 27th Apr 2008 11:12

Link

As a replacement for EZrotate, I once picked this code from the forums since I thought it would be useful. (attached).

It's LowerLogic's rotation functions. They have functions to rotate an object around the global/local/given axis.
Pretty nice I have to say.

It's the programmer's life:
Have a problem, solve the problem, and have a new problem to solve.

Attachments

Login to view attachments

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 27th Apr 2008 22:21

Link

shaun

I looked at it from view #4 (nice idea BTW) and I see what you mean. This is a lot more difficult than I expected. I have tried for hours to get the angles just right without success.
There is a free version of EZ Rotate available here:

http://www.gametoolshed.com/EZrotate.html

Hope this helps.

LB

Back to top

Profile PM Email

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 28th Apr 2008 00:20

Link

Hallo friends...knowing that an object moves in the direction if face...way don´t rotate just a limb?...the model, keeps being a ball, and all moving aswell but just the limb rotates in a different angle...just the one we need....have a look to this code.

cheers.

+ Code Snippet

ink rgb(255,0,0),1
box 0,0,25,50
ink rgb(0,255,0),1
box 25,0,50,50
get image 1,0,0,50,50,1
autocam off
sync on
position light 0,0,200,200
 make object box 1,20,20,20:set object radius 1,18
make object sphere 2,50,40,40
make mesh from object 1,2
add limb 1,1,1
delete object 2
make object box 2,500,1,500
color object 2,rgb(0,255,0):position object 2,0,-25,0
texture limb 1,1,1:scale limb texture 1,1,5,5
 position camera 200,200,-200
 point camera 0,0,0
make object sphere 3,50,40,40:position object 3,-100,0,-80
texture object 3,1:scale object texture 3,5,5
set shadow shading on 1,0,40,1
set shadow shading on 3,0,40,1
do
set cursor 5,5
print " CHAFARI EXAMPLE          USE LEFT/RIGHT KEYS "
if leftkey()=1 then ang#=wrapvalue(ang#-0.5)
if rightkey()=1 then ang#=wrapvalue(ang#+0.5)
yrotate object 1,ang#
g#=wrapvalue(g#+0.5)
rotate limb 1,1,g#,0,0
move object 1,0.2
if object collision(3,1)=1 then point object 3,object position x(1),0,object position z(1):move object 3,-0.2
sync
loop

oh my god

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 28th Apr 2008 04:20

Link

chafari

Very nice and elegant way to solve the problem.

LB

Back to top

Profile PM Email

ShaunRW

DBPro Developer

16

Years of Service

User Offline

Joined: 7th Jan 2008

Location: Brisbane, Australia

Posted: 28th Apr 2008 09:59

Link

Quote: "I looked at it from view #4 (nice idea BTW) and I see what you mean. "

thanx, that came to me in a dream....lol seriosly i was dreaming i was a tennis racket

...i no weird

ill download that ezrotate later...

and you spent hours on this?, dont waste your time for me...lol
thanx for your help...

i will putting this projet on hold for a while since gta iv coming tommoro....yay...and ill be to addicted to it..lol

shaun...

winxp-intel core 2 duo 2.00ghz-2.00gb ram
nvidia en7300gt silent 256mb gfx

Back to top

Profile PM Email

Cloggy

20

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 29th Apr 2008 02:11

Link

I'm doing a little bit of work on this. So far this is what I've come up with. It could be the start of a marble madness type game.

I've added the executable and media. I'll post the source once I've done a bit more work on it. The code uses EZrotate vector rotation.

Attachments

Login to view attachments

Back to top

Profile PM Email Website

calcyman

17

Years of Service

User Offline

Joined: 31st Aug 2007

Location: The Uncertainty Principle

Posted: 30th Apr 2008 19:17

Link

Absolute movement commands:

function objexist(objnum as integer)

exist as integer : exist=0

If objnum>0 and objnum<65536

If object exist(objnum) then exist=1

endif

endfunction exist

function objposx(objnum as integer)

pos as float
IF objexist(objnum)=1 then pos=object position x(objnum)

endfunction pos

function objposy(objnum as integer)

pos as float
IF objexist(objnum)=1 then pos=object position y(objnum)

endfunction pos

function objposz(objnum as integer)

pos as float
IF objexist(objnum)=1 then pos=object position z(objnum)

endfunction pos

function posobjx(objnum as integer, xpos as float)
ypos as float : zpos as float
If objexist(objnum)=1
   ypos=object position y(objnum)
   zpos=object position z(objnum)
   position object objnum,xpos,ypos,zpos
endif
endfunction

function posobjy(objnum as integer, ypos as float)
xpos as float : zpos as float
If objexist(objnum)=1
   xpos=object position x(objnum)
   zpos=object position z(objnum)
   position object objnum,xpos,ypos,zpos
endif
endfunction

function posobjz(objnum as integer, zpos as float)
ypos as float : xpos as float
If objexist(objnum)=1
   ypos=object position y(objnum)
   xpos=object position x(objnum)
   position object objnum,xpos,ypos,zpos
endif
endfunction

function absmoveleft(objnum as integer, amount as float)
shift as float
If objexist(objnum)
   shift=object position x(objnum)-amount
   posobjx(objnum,shift)
endif
endfunction

function absmoveright(objnum as integer, amount as float)
shift as float
If objexist(objnum)
   shift=object position x(objnum)+amount
   posobjx(objnum,shift)
endif
endfunction

function absmovedown(objnum as integer, amount as float)
shift as float
If objexist(objnum)
   shift=object position y(objnum)-amount
   posobjy(objnum,shift)
endif
endfunction

function absmoveup(objnum as integer, amount as float)
shift as float
If objexist(objnum)
   shift=object position y(objnum)+amount
   posobjy(objnum,shift)
endif
endfunction

function absmoveforwards(objnum as integer, amount as float)
shift as float
If objexist(objnum)
   shift=object position z(objnum)+amount
   posobjz(objnum,shift)
endif
endfunction

function absmovebackwards(objnum as integer, amount as float)
shift as float
If objexist(objnum)
   shift=object position z(objnum)-amount
   posobjz(objnum,shift)
endif
endfunction

+ Code Snippet

function objexist(objnum as integer)

exist as integer : exist=0

If objnum>0 and objnum<65536

If object exist(objnum) then exist=1

endif

endfunction exist

function objposx(objnum as integer)

pos as float
IF objexist(objnum)=1 then pos=object position x(objnum)

endfunction pos

function objposy(objnum as integer)

pos as float
IF objexist(objnum)=1 then pos=object position y(objnum)

endfunction pos

function objposz(objnum as integer)

pos as float
IF objexist(objnum)=1 then pos=object position z(objnum)

endfunction pos

function posobjx(objnum as integer, xpos as float)
ypos as float : zpos as float
If objexist(objnum)=1
   ypos=object position y(objnum)
   zpos=object position z(objnum)
   position object objnum,xpos,ypos,zpos
endif
endfunction

function posobjy(objnum as integer, ypos as float)
xpos as float : zpos as float
If objexist(objnum)=1
   xpos=object position x(objnum)
   zpos=object position z(objnum)
   position object objnum,xpos,ypos,zpos
endif
endfunction

function posobjz(objnum as integer, zpos as float)
ypos as float : xpos as float
If objexist(objnum)=1
   ypos=object position y(objnum)
   xpos=object position x(objnum)
   position object objnum,xpos,ypos,zpos
endif
endfunction

function absmoveleft(objnum as integer, amount as float)
shift as float
If objexist(objnum)
   shift=object position x(objnum)-amount
   posobjx(objnum,shift)
endif
endfunction

function absmoveright(objnum as integer, amount as float)
shift as float
If objexist(objnum)
   shift=object position x(objnum)+amount
   posobjx(objnum,shift)
endif
endfunction

function absmovedown(objnum as integer, amount as float)
shift as float
If objexist(objnum)
   shift=object position y(objnum)-amount
   posobjy(objnum,shift)
endif
endfunction

function absmoveup(objnum as integer, amount as float)
shift as float
If objexist(objnum)
   shift=object position y(objnum)+amount
   posobjy(objnum,shift)
endif
endfunction

function absmoveforwards(objnum as integer, amount as float)
shift as float
If objexist(objnum)
   shift=object position z(objnum)+amount
   posobjz(objnum,shift)
endif
endfunction

function absmovebackwards(objnum as integer, amount as float)
shift as float
If objexist(objnum)
   shift=object position z(objnum)-amount
   posobjz(objnum,shift)
endif
endfunction

The optomist's right, The pessimist's right.

Back to top

Profile PM Email

Xenocythe

19

Years of Service

User Offline

Joined: 26th May 2005

Location: You Essay.

Posted: 30th Apr 2008 23:01

Link

You could just add a texture to the ball and scroll the object texture to simulate rolling

3.11 We do not tolerate posts made for the purpose of putting down another forum member, group of members, religion, our company, our staff or any of our moderators, past or present.

Back to top

Profile PM Email Website

ShaunRW

DBPro Developer

16

Years of Service

User Offline

Joined: 7th Jan 2008

Location: Brisbane, Australia

Posted: 5th May 2008 13:08

Link

Quote: "ou could just add a texture to the ball and scroll the object texture to simulate rolling"

hmmmm...that would be much easier

ill check it out later on

shaun...

winxp-intel core 2 duo 2.00ghz-2.00gb ram
nvidia en7300gt silent 256mb gfx

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / rolling a 3d ball

Attachments

Attachments

Attachments

Attachments