- DBPro Coding Challenges - - GameCreators Forum

Author

Message

Nicholas Thompson

21

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 30th Jan 2006 20:41

Link

Basically - the rule is "Can someone copy and paste it into their IDE and hit run without needing to download anything else?"

Ric blurred this slightly by making one program produce code for another. Normally this isn't allowed as its considered a sneaky way around the "no media" thing - you're basically embedding it into the program. Thing is Ric had made the program that did the converting... This was deemed acceptable - just!

I think we should just stick to the copy and paste rule. If someone wants to convert a 512x512x32 texture into data statements, let them - however its up to the judge of the challenge to decide if they will allow it or if it will be held against them. "Ref's decision is final!!"

http://forum.antiblog.com, http://thingy-ma-jig.co.uk/new/

Back to top

Profile PM Email Website

Segan

20

Years of Service

User Offline

Joined: 28th Aug 2005

Location: Canada

Posted: 30th Jan 2006 21:49 Edited at: 30th Jan 2006 21:49

Link

Just to let everyone know, I'm back! I don't know if I will be able to take part in this challenge though... Got a lot of stuff that I need to do in the next two weeks.

Back to top

Profile PM Email

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 30th Jan 2006 21:55

Link

@Ric - I'm working on this challenge, but ODE is kicking my butt so far, just hard to learn with no docs.

I did find www.ode.org, the user guide is helping some.

Attched is the ODE User Guide, found on www.ode.org.

Back to top

Profile PM Email

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 30th Jan 2006 23:36 Edited at: 30th Jan 2006 23:38

Link

Still lots to do, but here it is so far.

`Coding Challenge - ODE Ball Shooter

set display mode 1024,768,32
sync on : sync rate 60
hide mouse
set ambient light 10
randomize timer()

dim boxes#(100,15)      :`store box info, location, rotations, motions, etc.
dim ballinfo#(200,10)   :`ballnum,1=active  ,2=ballspeed, ballx, bally, ballz
dim intro(10,10)        :`1=key, 2=x, 3=y, 4=z, 5=newx, 6=newy, 7=newz, 8=xinc, 9=yinc, 10=zinc
dim boxlives(100)       :`level 20 - multi-life boxes

#Constant WHITE=rgb(255,255,255)
#Constant YELLOW=rgb(255,255,0)

global level
global numballs
global targetsleft
global targetx#=1000.0
global targety#=300.0
global targetz#=500.0
global bazooka_angle=180
global hitnum
global gravity

global screenxmax=1024
global screenymax=768
global screenwidth
global screenheight
global screenxcenter
global screenycenter
global screenzcenter
global v3dymax=768
`Box
global boxxangle#
global boxyangle#
global iconptr
global boxxmin
global boxymin
global boxzmin

`balls
global ballxangle#
global ballyangle#
global ballx
global bally
global ballz
global maxballspeed#
global ballflag
global ballsatonce
global maxballs
global ballcount
global nextballptr
global lastballtime
global newballtime
global balltiming=100
global shadownum=500

`walls
global leftwall=0
global rightwall=2000
global floor=5
global ceiling=1000
global backwall=2000

`Camera - position camera 500,200,-800
global camx=1000
global camy=200
global camz=-800
global camxr
global camyr
global camzr
global camspeed=10
global walkflag=0       :`can player walk around flag
global mxold

`ODE - globals
global odeballptr

screenwidth=screen width()
screenheight=screen height()
screenxcenter=screenwidth/2
screenycenter=screenheight/2
screenzcenter=0

rem --- make left wall
make object box 310,3000,1100,2
yrotate object 310,90
color object 310,rgb(200,200,0)
position object 310,0,500,1000
set object emissive 310,rgb(100,100,0)

rem --- make right wall
make object box 311,3000,1100,2
yrotate object 311,-90
color object 311,rgb(255,255,0)
position object 311,2000,500,1000

rem --- make floor
make object box 303,2100,3100,3
xrotate object 303,-89
color object 303,rgb(0,255,0)
position object 303,1000,20,1000      :`was -2 for y

rem --- make back wall
make object box 304,2000,1000,2
color object 304,rgb(0,0,255)
position object 304,1000,500,2000

rem --- make ceiling
make object box 305,2000,3000,2
xrotate object 305,90
color object 305,rgb(0,255,255)
position object 305,1000,1000,1000
set object emissive 305,rgb(0,70,70)

rem Create Tennis Balls
maxballs=100
for i=100 to 99+maxballs      :`balls are objects from 100 to 199
   make object sphere i,40
   set object i,1,1,0
   scale object i,40,40,40  :`scale ball smaller than bazooka tube=28
   color object i,rgb(255,255,0)
   hide object i
   set object collision off i
   ballinfo#(i,1)=0
next i

rem --- Create ODE tennis balls ---
for i=1000 to 999+maxballs
   make object sphere i,40
   set object i,1,1,0
`   scale object i,40,40,40  :`scale ball smaller than bazooka tube=28
   color object i,rgb(255,0,0)
`   hide object i
   set object collision off i
next i

`Make shadow texture
create bitmap 1,64,64
set current bitmap 1
cls 0
ink rgb(10,10,10),0
for i=0 to 20
   circle 32,32,i
next i
`blur bitmap 1,6
get image 1,1,1,64,64,1
set current bitmap 0
delete bitmap 1

rem make SHADOW plains
for i=500 to 500+maxballs-1
   make object plain i,30,30     :`SHADOWS for ball
   set object i,1,1,0
   xrotate object i,-90
   color object i,rgb(10,10,10)
   texture object i,1
   set object collision off i
   hide object i
next i

rem Create Bazooka Tube
make object cylinder 300,40         :`Tennis ball CANNON
set object 300,1,1,0
scale object 300,42,250,42
color object 300,rgb(0,10,0)
xrotate object 300,90
fix object pivot 300
`texture object 300,406

rem Create Pivot Cone for Bazooka
make object cone 301,5              :`pivot for cannon
`hide limb 301,0
glue object to limb 300,301,0
offset limb 300,0,0,25,0

rem make target ball
make object sphere 302,20            :`Target ball
set object 302,1,1,0
color object 302,rgb(255,255,200)
`texture object 302,404

rem use my own collision for room walls and floor
set object collision off 300     :`Bazooka
set object collision off 301     :`Pivot cone for cannon
set object collision off 302     :`target ball for aiming cannon

rem position objects for room
hide object 301                              :`hide cannon pivot
position object 302,-1000,-1000,-1000        :`TARGET ball - move off screen for now
position object 301,camx,camy,camz+100

`--------------------------------------------------------
`-------------------------------------------------------
xpos=500
ypos=300
zpos=500
` Create the ODE World
ode start
ode set world gravity 0,-.3,0        :`was 0,-20,0
ode set world step  0.3            :`was 0.05
ode set world erp (0.2)*2.5         :`error correction each step
ode set world cfm (10^-5)*2.5       :`Constriant Force Mixing -

` Create a static floor.
` Implement in Dark Basic Professional first
` and then ask ODE to do the same...
ode create static box 303
ode create static box 304
ode create static box 305
ode create static box 310
ode create static box 311

` Create 4 dynamic objects
` Implement in Dark Basic Professional first
` and then ask ODE to do the same...

make object box 402,100,100,80
make object sphere 403,120,16,16
`make object cone 404, 100 : xrotate object 404, 90
`make object box 405,80,1,100 : xrotate object 405, 90
for i=1 to 8
   make object box 403+i,100,100,80
   position object 403+i, 150*i,ypos,zpos+400
   ode create dynamic box 403+i
   ode set contact fdir1 403+i, 30.0
next i

position object 402, xpos-50,ypos+200,zpos
position object 403, xpos+30,ypos+300,zpos+30

ode create dynamic box 402
ode create dynamic sphere 403
`ode create dynamic triangle mesh 404
`ode create dynamic box 405

` Add friction to our objects
`ode set contact fdir1 401, 30.0
ode set contact fdir1 402, 30.0
ode set contact fdir1 403, 30.0

`--------------------------------------------------------
xrotate object 303,-91
position object 303,1000,-2,1000

nextballptr=100         :`pointer into array - points to next ball to fire
odeballptr=1000
ballcount=0             :`how many balls in use, on the screen
ballsatonce=3
numballs=5000
maxballspeed#=8
balltiming=50           :`was 100
gravityon=1

gravity# = 0.1
position camera camx,camy,camz
point camera targetx#,targety#,targetz#
mxold#=mousex()
do
   position camera camx,camy,camz
   position object 301,camx,camy-40,camz-30
   mx#=2000.0/screenwidth*mousex()                                     :`get mouse x location
   my#=1000.0/screenheight*mousey()                                    :`get mouse y location

if mx#<>mxold#
      targetx#=mx#
      targety#=screenheight-my#
      mxold=mx
      if targetx#<0 then targetx#=0
      if targetx#>2000.0 then targetx#=2000.0             :`limit target position to 1000, instead of 1024 which is past wall
   endif

point object 301,targetx#,targety#,targetz#     :`pivot cone points to target
   position object 302,targetx#,targety#,targetz#  :`target ball moves as the target object
   point camera targetx#,targety#,targetz#

keypress=scancode()                             :`scan for keys pressed, subroutine to hadle keys
   if keypress>0 then _key_action(keypress)

mouse=mouseclick()                              :`get mouse click for firing tennis ball
   if mouse=1 then gosub _fire_tennis_ball         :`FIRE!
   if ballcount>0 then gosub _moveball             :`move any visible balls on screen

gosub _show_score                               :`show score on screen

ode update
   sync                       :`sync up display, 1 sync in main, sometimes animations or debug code needs sync in other routines
loop

ode end
end

rem --- show score on screen
_show_score:
set cursor 1,1:print screen fps()
print "ballcount=";ballcount
print "nextballptr=";nextballptr
print object angle y(304)
center text screenxcenter,2,"Level:"+str$(level)+"     Balls Left: "+str$(numballs)+"     Score: "+str$(score)
if level=20 then center text screenxcenter,28,"Targets Left="+str$(level20targets)
return

rem ---------- fires tennis balls ----------
_fire_tennis_ball:
if ballcount=ballsatonce then return
newballtime=timer()
if newballtime-lastballtime<balltiming then return else lastballtime=newballtime    :`control firing rate of tennis balls
if numballs=0                          :`out of tennis balls to shoot
   retryflag=1                         :`set retry flag, do you want to try this level again?
   return                              :`sound 3 = your gun is empty
endif

ballx#=object position x(301)          :`get bazooka pivot location to start ball at
bally#=object position y(301)
ballz#=object position z(301)

ballinfo#(nextballptr,3)=ballx#        :`store ball location
ballinfo#(nextballptr,4)=bally#
ballinfo#(nextballptr,5)=ballz#
`-----------------------
ballxi#=(targetx#-ballx#)/300.0*maxballspeed#  :`calculate some value to move ball each time toward target
ballyi#=(targety#-bally#)/300.0*maxballspeed#  :`mostly an arbitrary calculation, to get lots of slices
ballzi#=(targetz#-ballz#)/300.0*maxballspeed#  :`build screen routine then says how many slices each move

ballinfo#(nextballptr,6)=ballxi#             :`store ball increment values in array
ballinfo#(nextballptr,7)=ballyi#
ballinfo#(nextballptr,8)=ballzi#
`------------------------
position object nextballptr,ballx#,bally#,ballz#   :`start ball in bazooka
point object nextballptr,targetx#,targety#,-50     :`angle ball toward target on screen

`-----------------------------------------------------------------------------------------
`----------- ODE STUFF -------------------------------------------------------------------

position object odeballptr,1000,200,-700

`position object odeballptr,ballx#,bally#,ballz#   :`start ball in bazooka
point object odeballptr,targetx#,targety#,-50
ode destroy object odeballptr
ode create dynamic sphere odeballptr
ode set body mass odeballptr,20
ode set contact bounce odeballptr,1000
ode set linear velocity odeballptr,ballxi#*30,ballyi#*30,1000.0       :`was odeballptr,ballxi#*22,ballyi#*22,1000.0

`---------------------------
shadownum=400+nextballptr                          :`calculate next shadow plain to use
position object shadownum,ballx#,2,ballz#          :`attemp at shadow for ball
show object shadownum

show object nextballptr
set object collision on nextballptr                :`use DBPro collision for balls and boxes only
set object collision to spheres nextballptr

ballinfo#(nextballptr,1)=1                         :`show ball is active
ballinfo#(nextballptr,2)=maxballspeed#             :`store max ball speed
inc ballcount                                      :`one more ball on screen
dec numballs                                       :`one less ball you can fire
inc nextballptr                                    :`points to next ball to fire
if nextballptr>99+maxballs                         :`if next ball doesn't exist
   nextballptr=100                                 :`reset nextballptr to first ball object
endif

inc odeballptr
if odeballptr>999+maxballs
   odeballptr=1000
endif

return

rem --- moves balls that have been fired
_moveball:
for i=100 to 100+maxballs-1
   if ballinfo#(i,1)=1        :`only worry about active balls on screen
      rebound=0               :`rebound flag for bounce sound

ballxi#=ballinfo#(i,6)           :`get movement values for next ball position stored in array
      ballyi#=ballinfo#(i,7)
      ballzi#=ballinfo#(i,8)

ballx#=ballinfo#(i,3)+ballxi#    :`calculate balls NEW POSITION
      bally#=ballinfo#(i,4)+ballyi#
      ballz#=ballinfo#(i,5)+ballzi#

if ballx#<0 or ballx#>rightwall   :`ball hit left or RIGHT WALL
         ballxi#=ballxi#*-1
         ballinfo#(i,6)=ballxi#
         ballx#=ballx#+ballxi#
         rebound=1
      endif
      if bally#<floor                   :`ball hit FLOOR routine
         ballyi#=ballyi#*-1
         ballinfo#(i,7)=ballyi#
         bally#=bally#+ballyi#
         rebound=1
      endif
      if ballz#>backwall                :`ball hit BACK WALL routine
         ballzi#=ballzi#*-1
         ballinfo#(i,8)=ballzi#
         ballz#=ballz#+ballzi#
         rebound=1
      endif

if bally#>ceiling                   :`ball hit CEILING routine
         ballyi#=ballyi#*-1
         ballinfo#(i,7)=ballyi#
         bally#=bally#+ballyi#
         rebound=1
      endif

if gravityon=1                   :`gravity on, drop ball y increment down more to simulate gravity
         ballyi#=ballyi#-gravity#
         ballinfo#(i,7)=ballyi#
      endif

ballinfo#(i,3)=ballx#            :`store balls new location for next update
      ballinfo#(i,4)=bally#
      ballinfo#(i,5)=ballz#
      position object i, ballx#, bally#, ballz#    :`position ball at new location on screen
      shadownum=400+i                              :`which shadow to use
      position object shadownum,ballx#,2,ballz#    :`position shadow for ball, same x,z, y=always near floor
`-------------------------
rem Check for Collision Hits

hitnum=object hit(i,0)

if hitnum>99 then hitnum=0    :`we only care about boxes being hit

if ballz#<-900 or bally#>1200    :`balls bouncing behind player or too high are removed
         ballinfo#(i,1)=0
         dec ballcount
         hide object i
         set object collision off i
         hide object shadownum
      endif

if hitnum>0 :`only count hit if box is still alive, not killed by ball another ball at the same time
         set object collision off hitnum     :`turn collision off for box
         hide object hitnum                  :`hide box
         dec targetsleft                     :`one less box to hit
         boxes#(hitnum,1)=0

set object collision off i          :`turn collision off for ball
         hide object i                       :`hide ball
         dec ballcount                       :`one less ball on screen
         ballinfo#(i,1)=0                    :`ball not active any more

hide object shadownum               :`hide shadow plain

score=score+100                     :`each box is worth 100 points
      endif
`-------------------------

endif
next i
return

function _key_action(keypress)
select keypress

`for next section of game where player can move around - not completed yet - used for debugging so far
   case 17                    :`W key - move camera/player higher
      inc camz,camspeed

position camera camx,camy,camz
`      position object 301,camx,camy,camz+100
   endcase

case 30                    :`A key - move camera/player left
      if camx>50
         dec camx,camspeed
         dec targetx#,10.0
  `      mx#=mousex()
  `      my#=mousey()
  `      mx#=mx#-camspeed
  `      position mouse mx#,my#
         position camera camx,camy,camz
  `      position object 301,camx,camy,camz+100

position object 302,targetx#,targety#,targetz#
         point object 301,targetx#,targety#,targetz#
      endif
   endcase

case 31                    :`S key - move camera/player lower
      dec camz,camspeed
      position camera camx,camy,camz
`      position object 301,camx,camy,camz+100
   endcase

case 32                    :`D key - move camera/player right
      if camx<1950
         inc camx,camspeed
         inc targetx#,10.0
`        mx#=mousex()
`        my#=mousey()
`        mx#=mx#+camspeed*1.5
`        position mouse mx#,my#
         position camera camx,camy,camz
`        position object 301,camx,camy,camz+100

position object 302,targetx#,targety#,targetz#
         point object 301,targetx#,targety#,targetz#
      endif
   endcase

case 19                    :`R key - move camera/player closer, positive z direction
      inc camz,camspeed
   endcase

case 33                    :`F key - move camera/player farther away, negative z direction
      dec camz,camspeed
   endcase

case 200                   :`UP ARROW - camera direction keys - point camera left, right, etc.
      inc camxr,camspeed/2
   endcase

case 203                   :`LEFT ARROW
      dec camyr,camspeed/2
   endcase

case 208                   :`DOWN ARROW
      dec camxr,camspeed/2
   endcase

case 205                   :`RIGHT ARROW
      inc camyr,camspeed/2
   endcase

case 20                                   :`T key - Turbo mode for balls
      if level>=8                            :`I left this in, for players looking at the source code to have some fun with
         balltiming=balltiming-10            :`you may need to increase the maxballs variable for a level, this turbo
         wait 100                            :`mode really uses up balls fast
         if balltiming<40 then balltiming=100
      endif
   endcase

case default
         :`do nothing
   endcase
endselect
endfunction

+ Code Snippet

`Coding Challenge - ODE Ball Shooter

set display mode 1024,768,32
sync on : sync rate 60
hide mouse
set ambient light 10
randomize timer()

dim boxes#(100,15)      :`store box info, location, rotations, motions, etc.
dim ballinfo#(200,10)   :`ballnum,1=active  ,2=ballspeed, ballx, bally, ballz
dim intro(10,10)        :`1=key, 2=x, 3=y, 4=z, 5=newx, 6=newy, 7=newz, 8=xinc, 9=yinc, 10=zinc
dim boxlives(100)       :`level 20 - multi-life boxes

#Constant WHITE=rgb(255,255,255)
#Constant YELLOW=rgb(255,255,0)

global level
global numballs
global targetsleft
global targetx#=1000.0
global targety#=300.0
global targetz#=500.0
global bazooka_angle=180
global hitnum
global gravity

global screenxmax=1024
global screenymax=768
global screenwidth
global screenheight
global screenxcenter
global screenycenter
global screenzcenter
global v3dymax=768
`Box
global boxxangle#
global boxyangle#
global iconptr
global boxxmin
global boxymin
global boxzmin

`balls
global ballxangle#
global ballyangle#
global ballx
global bally
global ballz
global maxballspeed#
global ballflag
global ballsatonce
global maxballs
global ballcount
global nextballptr
global lastballtime
global newballtime
global balltiming=100
global shadownum=500

`walls
global leftwall=0
global rightwall=2000
global floor=5
global ceiling=1000
global backwall=2000

`Camera - position camera 500,200,-800
global camx=1000
global camy=200
global camz=-800
global camxr
global camyr
global camzr
global camspeed=10
global walkflag=0       :`can player walk around flag
global mxold

`ODE - globals
global odeballptr

screenwidth=screen width()
screenheight=screen height()
screenxcenter=screenwidth/2
screenycenter=screenheight/2
screenzcenter=0

rem --- make left wall
make object box 310,3000,1100,2
yrotate object 310,90
color object 310,rgb(200,200,0)
position object 310,0,500,1000
set object emissive 310,rgb(100,100,0)

rem --- make right wall
make object box 311,3000,1100,2
yrotate object 311,-90
color object 311,rgb(255,255,0)
position object 311,2000,500,1000

rem --- make floor
make object box 303,2100,3100,3
xrotate object 303,-89
color object 303,rgb(0,255,0)
position object 303,1000,20,1000      :`was -2 for y

rem --- make back wall
make object box 304,2000,1000,2
color object 304,rgb(0,0,255)
position object 304,1000,500,2000

rem --- make ceiling
make object box 305,2000,3000,2
xrotate object 305,90
color object 305,rgb(0,255,255)
position object 305,1000,1000,1000
set object emissive 305,rgb(0,70,70)

rem Create Tennis Balls
maxballs=100
for i=100 to 99+maxballs      :`balls are objects from 100 to 199
   make object sphere i,40
   set object i,1,1,0
   scale object i,40,40,40  :`scale ball smaller than bazooka tube=28
   color object i,rgb(255,255,0)
   hide object i
   set object collision off i
   ballinfo#(i,1)=0
next i

rem --- Create ODE tennis balls ---
for i=1000 to 999+maxballs
   make object sphere i,40
   set object i,1,1,0
`   scale object i,40,40,40  :`scale ball smaller than bazooka tube=28
   color object i,rgb(255,0,0)
`   hide object i
   set object collision off i
next i

`Make shadow texture
create bitmap 1,64,64
set current bitmap 1
cls 0
ink rgb(10,10,10),0
for i=0 to 20
   circle 32,32,i
next i
`blur bitmap 1,6
get image 1,1,1,64,64,1
set current bitmap 0
delete bitmap 1

rem make SHADOW plains
for i=500 to 500+maxballs-1
   make object plain i,30,30     :`SHADOWS for ball
   set object i,1,1,0
   xrotate object i,-90
   color object i,rgb(10,10,10)
   texture object i,1
   set object collision off i
   hide object i
next i

rem Create Bazooka Tube
make object cylinder 300,40         :`Tennis ball CANNON
set object 300,1,1,0
scale object 300,42,250,42
color object 300,rgb(0,10,0)
xrotate object 300,90
fix object pivot 300
`texture object 300,406

rem Create Pivot Cone for Bazooka
make object cone 301,5              :`pivot for cannon
`hide limb 301,0
glue object to limb 300,301,0
offset limb 300,0,0,25,0

rem make target ball
make object sphere 302,20            :`Target ball
set object 302,1,1,0
color object 302,rgb(255,255,200)
`texture object 302,404

rem use my own collision for room walls and floor
set object collision off 300     :`Bazooka
set object collision off 301     :`Pivot cone for cannon
set object collision off 302     :`target ball for aiming cannon

rem position objects for room
hide object 301                              :`hide cannon pivot
position object 302,-1000,-1000,-1000        :`TARGET ball - move off screen for now
position object 301,camx,camy,camz+100


`--------------------------------------------------------
`-------------------------------------------------------
xpos=500
ypos=300
zpos=500
` Create the ODE World
ode start
ode set world gravity 0,-.3,0        :`was 0,-20,0
ode set world step  0.3            :`was 0.05
ode set world erp (0.2)*2.5         :`error correction each step
ode set world cfm (10^-5)*2.5       :`Constriant Force Mixing -

` Create a static floor.
` Implement in Dark Basic Professional first
` and then ask ODE to do the same...
ode create static box 303
ode create static box 304
ode create static box 305
ode create static box 310
ode create static box 311

` Create 4 dynamic objects
` Implement in Dark Basic Professional first
` and then ask ODE to do the same...

make object box 402,100,100,80
make object sphere 403,120,16,16
`make object cone 404, 100 : xrotate object 404, 90
`make object box 405,80,1,100 : xrotate object 405, 90
for i=1 to 8
   make object box 403+i,100,100,80
   position object 403+i, 150*i,ypos,zpos+400
   ode create dynamic box 403+i
   ode set contact fdir1 403+i, 30.0
next i

position object 402, xpos-50,ypos+200,zpos
position object 403, xpos+30,ypos+300,zpos+30

ode create dynamic box 402
ode create dynamic sphere 403
`ode create dynamic triangle mesh 404
`ode create dynamic box 405

` Add friction to our objects
`ode set contact fdir1 401, 30.0
ode set contact fdir1 402, 30.0
ode set contact fdir1 403, 30.0

`--------------------------------------------------------
xrotate object 303,-91
position object 303,1000,-2,1000

nextballptr=100         :`pointer into array - points to next ball to fire
odeballptr=1000
ballcount=0             :`how many balls in use, on the screen
ballsatonce=3
numballs=5000
maxballspeed#=8
balltiming=50           :`was 100
gravityon=1

gravity# = 0.1
position camera camx,camy,camz
point camera targetx#,targety#,targetz#
mxold#=mousex()
do
   position camera camx,camy,camz
   position object 301,camx,camy-40,camz-30
   mx#=2000.0/screenwidth*mousex()                                     :`get mouse x location
   my#=1000.0/screenheight*mousey()                                    :`get mouse y location

   if mx#<>mxold#
      targetx#=mx#
      targety#=screenheight-my#
      mxold=mx
      if targetx#<0 then targetx#=0
      if targetx#>2000.0 then targetx#=2000.0             :`limit target position to 1000, instead of 1024 which is past wall
   endif

   point object 301,targetx#,targety#,targetz#     :`pivot cone points to target
   position object 302,targetx#,targety#,targetz#  :`target ball moves as the target object
   point camera targetx#,targety#,targetz#

   keypress=scancode()                             :`scan for keys pressed, subroutine to hadle keys
   if keypress>0 then _key_action(keypress)

   mouse=mouseclick()                              :`get mouse click for firing tennis ball
   if mouse=1 then gosub _fire_tennis_ball         :`FIRE!
   if ballcount>0 then gosub _moveball             :`move any visible balls on screen

   gosub _show_score                               :`show score on screen

   ode update
   sync                       :`sync up display, 1 sync in main, sometimes animations or debug code needs sync in other routines
loop

ode end
end

rem --- show score on screen
_show_score:
set cursor 1,1:print screen fps()
print "ballcount=";ballcount
print "nextballptr=";nextballptr
print object angle y(304)
center text screenxcenter,2,"Level:"+str$(level)+"     Balls Left: "+str$(numballs)+"     Score: "+str$(score)
if level=20 then center text screenxcenter,28,"Targets Left="+str$(level20targets)
return

rem ---------- fires tennis balls ----------
_fire_tennis_ball:
if ballcount=ballsatonce then return
newballtime=timer()
if newballtime-lastballtime<balltiming then return else lastballtime=newballtime    :`control firing rate of tennis balls
if numballs=0                          :`out of tennis balls to shoot
   retryflag=1                         :`set retry flag, do you want to try this level again?
   return                              :`sound 3 = your gun is empty
endif

ballx#=object position x(301)          :`get bazooka pivot location to start ball at
bally#=object position y(301)
ballz#=object position z(301)

ballinfo#(nextballptr,3)=ballx#        :`store ball location
ballinfo#(nextballptr,4)=bally#
ballinfo#(nextballptr,5)=ballz#
`-----------------------
ballxi#=(targetx#-ballx#)/300.0*maxballspeed#  :`calculate some value to move ball each time toward target
ballyi#=(targety#-bally#)/300.0*maxballspeed#  :`mostly an arbitrary calculation, to get lots of slices
ballzi#=(targetz#-ballz#)/300.0*maxballspeed#  :`build screen routine then says how many slices each move

ballinfo#(nextballptr,6)=ballxi#             :`store ball increment values in array
ballinfo#(nextballptr,7)=ballyi#
ballinfo#(nextballptr,8)=ballzi#
`------------------------
position object nextballptr,ballx#,bally#,ballz#   :`start ball in bazooka
point object nextballptr,targetx#,targety#,-50     :`angle ball toward target on screen

`-----------------------------------------------------------------------------------------
`----------- ODE STUFF -------------------------------------------------------------------

position object odeballptr,1000,200,-700

`position object odeballptr,ballx#,bally#,ballz#   :`start ball in bazooka
point object odeballptr,targetx#,targety#,-50
ode destroy object odeballptr
ode create dynamic sphere odeballptr
ode set body mass odeballptr,20
ode set contact bounce odeballptr,1000
ode set linear velocity odeballptr,ballxi#*30,ballyi#*30,1000.0       :`was odeballptr,ballxi#*22,ballyi#*22,1000.0

`---------------------------
shadownum=400+nextballptr                          :`calculate next shadow plain to use
position object shadownum,ballx#,2,ballz#          :`attemp at shadow for ball
show object shadownum

show object nextballptr
set object collision on nextballptr                :`use DBPro collision for balls and boxes only
set object collision to spheres nextballptr

ballinfo#(nextballptr,1)=1                         :`show ball is active
ballinfo#(nextballptr,2)=maxballspeed#             :`store max ball speed
inc ballcount                                      :`one more ball on screen
dec numballs                                       :`one less ball you can fire
inc nextballptr                                    :`points to next ball to fire
if nextballptr>99+maxballs                         :`if next ball doesn't exist
   nextballptr=100                                 :`reset nextballptr to first ball object
endif

inc odeballptr
if odeballptr>999+maxballs
   odeballptr=1000
endif

return

rem --- moves balls that have been fired
_moveball:
for i=100 to 100+maxballs-1
   if ballinfo#(i,1)=1        :`only worry about active balls on screen
      rebound=0               :`rebound flag for bounce sound

      ballxi#=ballinfo#(i,6)           :`get movement values for next ball position stored in array
      ballyi#=ballinfo#(i,7)
      ballzi#=ballinfo#(i,8)

      ballx#=ballinfo#(i,3)+ballxi#    :`calculate balls NEW POSITION
      bally#=ballinfo#(i,4)+ballyi#
      ballz#=ballinfo#(i,5)+ballzi#

      if ballx#<0 or ballx#>rightwall   :`ball hit left or RIGHT WALL
         ballxi#=ballxi#*-1
         ballinfo#(i,6)=ballxi#
         ballx#=ballx#+ballxi#
         rebound=1
      endif
      if bally#<floor                   :`ball hit FLOOR routine
         ballyi#=ballyi#*-1
         ballinfo#(i,7)=ballyi#
         bally#=bally#+ballyi#
         rebound=1
      endif
      if ballz#>backwall                :`ball hit BACK WALL routine
         ballzi#=ballzi#*-1
         ballinfo#(i,8)=ballzi#
         ballz#=ballz#+ballzi#
         rebound=1
      endif

      if bally#>ceiling                   :`ball hit CEILING routine
         ballyi#=ballyi#*-1
         ballinfo#(i,7)=ballyi#
         bally#=bally#+ballyi#
         rebound=1
      endif

      if gravityon=1                   :`gravity on, drop ball y increment down more to simulate gravity
         ballyi#=ballyi#-gravity#
         ballinfo#(i,7)=ballyi#
      endif

      ballinfo#(i,3)=ballx#            :`store balls new location for next update
      ballinfo#(i,4)=bally#
      ballinfo#(i,5)=ballz#
      position object i, ballx#, bally#, ballz#    :`position ball at new location on screen
      shadownum=400+i                              :`which shadow to use
      position object shadownum,ballx#,2,ballz#    :`position shadow for ball, same x,z, y=always near floor
`-------------------------
rem Check for Collision Hits

      hitnum=object hit(i,0)

      if hitnum>99 then hitnum=0    :`we only care about boxes being hit

      if ballz#<-900 or bally#>1200    :`balls bouncing behind player or too high are removed
         ballinfo#(i,1)=0
         dec ballcount
         hide object i
         set object collision off i
         hide object shadownum
      endif

      if hitnum>0 :`only count hit if box is still alive, not killed by ball another ball at the same time
         set object collision off hitnum     :`turn collision off for box
         hide object hitnum                  :`hide box
         dec targetsleft                     :`one less box to hit
         boxes#(hitnum,1)=0

         set object collision off i          :`turn collision off for ball
         hide object i                       :`hide ball
         dec ballcount                       :`one less ball on screen
         ballinfo#(i,1)=0                    :`ball not active any more

         hide object shadownum               :`hide shadow plain

         score=score+100                     :`each box is worth 100 points
      endif
`-------------------------

   endif
next i
return


function _key_action(keypress)
select keypress

`for next section of game where player can move around - not completed yet - used for debugging so far
   case 17                    :`W key - move camera/player higher
      inc camz,camspeed

      position camera camx,camy,camz
`      position object 301,camx,camy,camz+100
   endcase

   case 30                    :`A key - move camera/player left
      if camx>50
         dec camx,camspeed
         dec targetx#,10.0
  `      mx#=mousex()
  `      my#=mousey()
  `      mx#=mx#-camspeed
  `      position mouse mx#,my#
         position camera camx,camy,camz
  `      position object 301,camx,camy,camz+100

         position object 302,targetx#,targety#,targetz#
         point object 301,targetx#,targety#,targetz#
      endif
   endcase

   case 31                    :`S key - move camera/player lower
      dec camz,camspeed
      position camera camx,camy,camz
`      position object 301,camx,camy,camz+100
   endcase

   case 32                    :`D key - move camera/player right
      if camx<1950
         inc camx,camspeed
         inc targetx#,10.0
`        mx#=mousex()
`        my#=mousey()
`        mx#=mx#+camspeed*1.5
`        position mouse mx#,my#
         position camera camx,camy,camz
`        position object 301,camx,camy,camz+100

         position object 302,targetx#,targety#,targetz#
         point object 301,targetx#,targety#,targetz#
      endif
   endcase

   case 19                    :`R key - move camera/player closer, positive z direction
      inc camz,camspeed
   endcase

   case 33                    :`F key - move camera/player farther away, negative z direction
      dec camz,camspeed
   endcase

   case 200                   :`UP ARROW - camera direction keys - point camera left, right, etc.
      inc camxr,camspeed/2
   endcase

   case 203                   :`LEFT ARROW
      dec camyr,camspeed/2
   endcase

   case 208                   :`DOWN ARROW
      dec camxr,camspeed/2
   endcase

   case 205                   :`RIGHT ARROW
      inc camyr,camspeed/2
   endcase

   case 20                                   :`T key - Turbo mode for balls
      if level>=8                            :`I left this in, for players looking at the source code to have some fun with
         balltiming=balltiming-10            :`you may need to increase the maxballs variable for a level, this turbo
         wait 100                            :`mode really uses up balls fast
         if balltiming<40 then balltiming=100
      endif
   endcase

   case default
         :`do nothing
   endcase
endselect
endfunction

I can't wait for some docs for ODE!

Back to top

Profile PM Email

Nicholas Thompson

21

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 30th Jan 2006 23:55

Link

Nice one Bill!!

I was gonna do some of this tonight - but I got distracted

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

You can now see a live list of the 10 most recent posts in this forum on my site..

http://forum.antiblog.com, http://thingy-ma-jig.co.uk/new/

Back to top

Profile PM Email Website

Ric

21

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 31st Jan 2006 01:01 Edited at: 31st Jan 2006 01:17

Link

I've gone back to using the 'add force' command instead of 'set linear velocity' - once I realised that add force used absolute values, it seems to work.

I cannot make the cushions any more bouncy - from what I have read this appears to be a bug in the physics engine, in that you can't set a bounce value once you have set a friction value - and I need friction to make the balls rotate. Apparantly IanM's update sorts this problem, but I only really want to upgrade to that as a last resort, given the whole dll/media issue with these challenges.

Now that I'm using the add force command, I can also set the point of application of the force on the cue ball, theoretically meaning you can add topspin/backspin. It's having some kind of effect, although it doesn't really behave as I would like it to.

And I can't seem to get the friction right between the table surface and the balls - too much and the balls slow down too quickly - but too little and they slide over the surface instead of rolling. There seems to be no approriate value I can find where they roll, but don't slow down too much.

Use arrow keys to aim, "a" and "z" to adjust topspin, and space to shoot.

Rem Project: ode pool
Rem Created: 29/01/2006 20:06:38

Rem ***** Main Source File *****

REM Project: Billiards Physics
if check display mode(1024,768,32)=1 then set display mode 1024,768,32
sync on
hide mouse
autocam off
position camera 0,100,-450
color backdrop 0
hide light 0
set ambient light 1
make light 1
position light 1,-500,500,-500
set light range 1,10000

ode start
ode set world gravity 0,-20,0
ode set world step 0.05
ode set world erp (0.2)*2.5
ode set world cfm (10^-5)*2.5

global dim oldballx(16) as float
global dim oldbally(16) as float
global dim oldballz(16) as float

global hit
global power#
power#=100.0
global topspin#

make_pool_balls()
make_pool_table()
rack_balls()
setup_ball_physics()
make_target()

starttime=timer()

do

time=timer()-starttime

if hit=0 then aim()
if spacekey()=1 and hit=0
hit=1
starttime=timer()
shoot()
endif

if hit=1
if time>5000 then hit=0
endif

ode update
update_shadows()
camera()

position object 18,object position x(16),object position y(16),object position z(16)
position object 19,object position x(16),object position y(16)+topspin#,object position z(16)

sync
loop

function shoot()

ODE add force 16,object position x(17)-object position x(16), object position y(16)+topspin#,object position z(17)-object position z(16),object position x(16),object position y(16)+topspin#,object position z(16)

endfunction

function make_target()
make object cube 17,1
hide object 17
make object cube 18,1
hide object 18
make object cube 19,1
hide object 19
endfunction

function camera()
if hit=1 then smoothness=300 else smoothness=100
position camera curvevalue(object position x(18),camera position x(),50),100,curvevalue(object position z(18),camera position z(),50)
yrotate camera curveangle(object angle y(18),camera angle y(),smoothness)
move camera -5
endfunction

function aim()
yrot#=0
if leftkey()=1 then yrot#=-1
if rightkey()=1 then yrot#=1
yrotate object 18,object angle y(18)+yrot#
if upkey()=1 then inc power#,5
if power#>1 and downkey()=1 then dec power#,5
position object 17,object position x(18),object position y(18),object position z(18)
yrotate object 17,object angle y(18)
move object 17,300
ink rgb(255,255,255),0
line object screen x(17)-power#/10.0,object screen y(17)-power#/10.0,object screen x(17)+power#/10.0,object screen y(17)+power#/10.0
line object screen x(17)-power#/10.0,object screen y(17)+power#/10.0,object screen x(17)+power#/10.0,object screen y(17)-power#/10.0
move object 17,power#
if inkey$()="a" and topspin#<10 then inc topspin#
if inkey$()="z" and topspin#>-10 then dec topspin#
ink rgb(255,0,0),0
circle object screen x(19),object screen y(19),10
endfunction

function setup_ball_physics()
for ball=1 to 16
  `create collision spheres
  ode create dynamic sphere ball
  ode set contact fdir1 ball, 0.15
  ode setsurface mode contact approx1 ball,1
  ode set body mass ball,1000

next ball
endfunction

function rack_balls()
fact#=sqrt(3.0)*10
position object 1,0,10,250
position object 9,10,10,250+fact#
position object 10,-10,10,250+fact#
position object 2,20,10,250+fact#*2.0
position object 8,0,10,250+fact#*2.0
position object 3,-20,10,250+fact#*2.0
position object 11,30,10,250+fact#*3.0
position object 12,10,10,250+fact#*3.0
position object 4,-10,10,250+fact#*3.0
position object 13,-30,10,250+fact#*3.0
position object 5,40,10,250+fact#*4.0
position object 14,20,10,250+fact#*4.0
position object 6,0,10,250+fact#*4.0
position object 15,-20,10,250+fact#*4.0
position object 7,-40,10,250+fact#*4.0
position object 16,0,10,-250
endfunction

function make_pool_table()
for x=0 to 10
for y=0 to 10
ink RGB(50+x*20,50+(y+x)*10,50),0
dot x,y
next y
next x
get image 20,0,0,10,10
make object plain 20,500,1000
xrotate object 20,-90
yrotate object 20,-180
texture object 20,20
set object emissive 20,rgb(50,50,10)
make object box 21,15,15,1030
texture object 21,20
position object 21,-257.5,7.5,0
make object box 22,15,15,1030
texture object 22,20
position object 22,257.5,7.5,0
make object box 23,500,15,15
texture object 23,20
position object 23,0,7.5,-507.5
make object box 24,500,15,15
texture object 24,20
position object 24,0,7.5,507.5
ink rgb(255,255,255),0

`make collision boxes
for object=20 to 24
ode create static box object
ode set contact fdir1 object, 0.02
next object

endfunction

function make_pool_balls()
for i=1 to 8
make object sphere i,20,20,20
select i
case 1:ink RGB(255,255,0),0:endcase
case 2:ink RGB(0,0,255),0:endcase
case 3:ink RGB(255,128,64),0:endcase
case 4:ink RGB(156,0,223),0:endcase
case 5:ink RGB(128,0,64),0:endcase
case 6:ink RGB(0,128,64),0:endcase
case 7:ink RGB(202,0,0),0:endcase
case 8:ink RGB(0,0,0),0:endcase
endselect
box 0,0,128,128:solid_circle(64,64,7,RGB(250,250,200)):ink 0,0:text 60,57,str$(i)
get image i,0,30,127,97
texture object i,i
position object i,i*20-150,10,0
next i
width1#=20
for i=9 to 15
make object sphere i,20,20,20
ink rgb(250,250,200),0
box 0,0,128,128
select i
case 9:ink RGB(255,255,0),0:endcase
case 10:ink RGB(0,0,255),0:endcase
case 11:ink RGB(255,128,64),0:endcase
case 12:ink RGB(156,0,223),0:endcase
case 13:ink RGB(128,0,64),0:endcase
case 14:ink RGB(0,128,64),0:endcase
case 15:ink RGB(202,0,0),0:endcase
endselect
for u=0 to 128
for v=0 to 128
width2#=width1#/(cos(abs(v-63)*180.0/50.0)*2.0)
if abs(u-32)<=width2# then dot u,v
if abs(u-96)<=width2# then dot u,v
box 0,0,128,40
box 0,86,128,128
next v
next u
ink 0,0
if i=9
text 60,57,str$(i)
else
text 56,57,str$(i)
endif
get image i,0,35,127,92
texture object i,i
position object i,i*20-150,10,0
next i
make object sphere 16,20,20,20
ink rgb(250,250,200),0
box 0,0,128,128
get image 16,0,35,127,92
texture object 16,16
position object 16,16*20-150,10,0

for ball=1 to 16
set object specular ball,rgb(200,200,200)
set object specular power ball,25
set object emissive ball,rgb(50,50,10)
make object sphere ball+30,20,20,20
color object ball+30,0
scale object ball+30,150,1,100
yrotate object ball+30,-45
ghost object on ball+30,4
next ball
endfunction

function solid_circle(x,y,radius,color)
lock pixels
ptr=get pixels pointer()
this=get pixels pitch()
that =bitmap depth()/8
for i=1 to radius*2
for j=1 to radius*2
pointer=ptr+((y+j-radius)*this)+(x-radius+i)*that
if (radius-i)^2+(radius-j)^2<=radius^2 then *pointer=color
next j
next i
unlock pixels
endfunction

function update_shadows()
for ball=1 to 16
position object ball+30,object position x(ball)+8,object position y(ball)-9,object position z(ball)+8
next ball
endfunction

+ Code Snippet

Rem Project: ode pool
Rem Created: 29/01/2006 20:06:38

Rem ***** Main Source File *****

REM Project: Billiards Physics
if check display mode(1024,768,32)=1 then set display mode 1024,768,32
sync on
hide mouse
autocam off
position camera 0,100,-450
color backdrop 0
hide light 0
set ambient light 1
make light 1
position light 1,-500,500,-500
set light range 1,10000

ode start
ode set world gravity 0,-20,0
ode set world step 0.05
ode set world erp (0.2)*2.5
ode set world cfm (10^-5)*2.5

global dim oldballx(16) as float
global dim oldbally(16) as float
global dim oldballz(16) as float

global hit
global power#
power#=100.0
global topspin#

make_pool_balls()
make_pool_table()
rack_balls()
setup_ball_physics()
make_target()

starttime=timer()

do

time=timer()-starttime

if hit=0 then aim()
if spacekey()=1 and hit=0
hit=1
starttime=timer()
shoot()
endif

if hit=1
if time>5000 then hit=0
endif

ode update
update_shadows()
camera()

position object 18,object position x(16),object position y(16),object position z(16)
position object 19,object position x(16),object position y(16)+topspin#,object position z(16)


sync
loop



function shoot()

ODE add force 16,object position x(17)-object position x(16), object position y(16)+topspin#,object position z(17)-object position z(16),object position x(16),object position y(16)+topspin#,object position z(16)

endfunction

function make_target()
make object cube 17,1
hide object 17
make object cube 18,1
hide object 18
make object cube 19,1
hide object 19
endfunction


function camera()
if hit=1 then smoothness=300 else smoothness=100
position camera curvevalue(object position x(18),camera position x(),50),100,curvevalue(object position z(18),camera position z(),50)
yrotate camera curveangle(object angle y(18),camera angle y(),smoothness)
move camera -5
endfunction

function aim()
yrot#=0
if leftkey()=1 then yrot#=-1
if rightkey()=1 then yrot#=1
yrotate object 18,object angle y(18)+yrot#
if upkey()=1 then inc power#,5
if power#>1 and downkey()=1 then dec power#,5
position object 17,object position x(18),object position y(18),object position z(18)
yrotate object 17,object angle y(18)
move object 17,300
ink rgb(255,255,255),0
line object screen x(17)-power#/10.0,object screen y(17)-power#/10.0,object screen x(17)+power#/10.0,object screen y(17)+power#/10.0
line object screen x(17)-power#/10.0,object screen y(17)+power#/10.0,object screen x(17)+power#/10.0,object screen y(17)-power#/10.0
move object 17,power#
if inkey$()="a" and topspin#<10 then inc topspin#
if inkey$()="z" and topspin#>-10 then dec topspin#
ink rgb(255,0,0),0
circle object screen x(19),object screen y(19),10
endfunction



function setup_ball_physics()
for ball=1 to 16
  `create collision spheres
  ode create dynamic sphere ball
  ode set contact fdir1 ball, 0.15
  ode setsurface mode contact approx1 ball,1
  ode set body mass ball,1000

next ball
endfunction

function rack_balls()
fact#=sqrt(3.0)*10
position object 1,0,10,250
position object 9,10,10,250+fact#
position object 10,-10,10,250+fact#
position object 2,20,10,250+fact#*2.0
position object 8,0,10,250+fact#*2.0
position object 3,-20,10,250+fact#*2.0
position object 11,30,10,250+fact#*3.0
position object 12,10,10,250+fact#*3.0
position object 4,-10,10,250+fact#*3.0
position object 13,-30,10,250+fact#*3.0
position object 5,40,10,250+fact#*4.0
position object 14,20,10,250+fact#*4.0
position object 6,0,10,250+fact#*4.0
position object 15,-20,10,250+fact#*4.0
position object 7,-40,10,250+fact#*4.0
position object 16,0,10,-250
endfunction

function make_pool_table()
for x=0 to 10
for y=0 to 10
ink RGB(50+x*20,50+(y+x)*10,50),0
dot x,y
next y
next x
get image 20,0,0,10,10
make object plain 20,500,1000
xrotate object 20,-90
yrotate object 20,-180
texture object 20,20
set object emissive 20,rgb(50,50,10)
make object box 21,15,15,1030
texture object 21,20
position object 21,-257.5,7.5,0
make object box 22,15,15,1030
texture object 22,20
position object 22,257.5,7.5,0
make object box 23,500,15,15
texture object 23,20
position object 23,0,7.5,-507.5
make object box 24,500,15,15
texture object 24,20
position object 24,0,7.5,507.5
ink rgb(255,255,255),0

`make collision boxes
for object=20 to 24
ode create static box object
ode set contact fdir1 object, 0.02
next object

endfunction

function make_pool_balls()
for i=1 to 8
make object sphere i,20,20,20
select i
case 1:ink RGB(255,255,0),0:endcase
case 2:ink RGB(0,0,255),0:endcase
case 3:ink RGB(255,128,64),0:endcase
case 4:ink RGB(156,0,223),0:endcase
case 5:ink RGB(128,0,64),0:endcase
case 6:ink RGB(0,128,64),0:endcase
case 7:ink RGB(202,0,0),0:endcase
case 8:ink RGB(0,0,0),0:endcase
endselect
box 0,0,128,128:solid_circle(64,64,7,RGB(250,250,200)):ink 0,0:text 60,57,str$(i)
get image i,0,30,127,97
texture object i,i
position object i,i*20-150,10,0
next i
width1#=20
for i=9 to 15
make object sphere i,20,20,20
ink rgb(250,250,200),0
box 0,0,128,128
select i
case 9:ink RGB(255,255,0),0:endcase
case 10:ink RGB(0,0,255),0:endcase
case 11:ink RGB(255,128,64),0:endcase
case 12:ink RGB(156,0,223),0:endcase
case 13:ink RGB(128,0,64),0:endcase
case 14:ink RGB(0,128,64),0:endcase
case 15:ink RGB(202,0,0),0:endcase
endselect
for u=0 to 128
for v=0 to 128
width2#=width1#/(cos(abs(v-63)*180.0/50.0)*2.0)
if abs(u-32)<=width2# then dot u,v
if abs(u-96)<=width2# then dot u,v
box 0,0,128,40
box 0,86,128,128
next v
next u
ink 0,0
if i=9
text 60,57,str$(i)
else
text 56,57,str$(i)
endif
get image i,0,35,127,92
texture object i,i
position object i,i*20-150,10,0
next i
make object sphere 16,20,20,20
ink rgb(250,250,200),0
box 0,0,128,128
get image 16,0,35,127,92
texture object 16,16
position object 16,16*20-150,10,0

for ball=1 to 16
set object specular ball,rgb(200,200,200)
set object specular power ball,25
set object emissive ball,rgb(50,50,10)
make object sphere ball+30,20,20,20
color object ball+30,0
scale object ball+30,150,1,100
yrotate object ball+30,-45
ghost object on ball+30,4
next ball
endfunction

function solid_circle(x,y,radius,color)
lock pixels
ptr=get pixels pointer()
this=get pixels pitch()
that =bitmap depth()/8
for i=1 to radius*2
for j=1 to radius*2
pointer=ptr+((y+j-radius)*this)+(x-radius+i)*that
if (radius-i)^2+(radius-j)^2<=radius^2 then *pointer=color
next j
next i
unlock pixels
endfunction

function update_shadows()
for ball=1 to 16
position object ball+30,object position x(ball)+8,object position y(ball)-9,object position z(ball)+8
next ball
endfunction

@BillR - nice to see someone else having a go! Your code is still relying on native dbp commands though for the motion of the balls and their collisions with the walls and floor - if you used the 'ode add force command' for firing the balls, the engine should take care of all of that with no additional code needed. You'd probably run into the same problem as me though, where the walls aren't bouncy enough.

Back to top

Profile PM Email Website

Milkman

20

Years of Service

User Offline

Joined: 30th Nov 2005

Location: United States

Posted: 31st Jan 2006 01:10 Edited at: 31st Jan 2006 03:33

Link

[post no longer relevant]

formerly xMik

Back to top

Profile PM Email

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 31st Jan 2006 01:10

Link

@Nicholas - GREAT WEB SITE! - A really great idea!

Thanks for all the hard work you and Ric have put on it, and all the others that helped also. The coding challenge has turned into such a success, it was getting very hard to track down submissions, challenges, winners,etc.

What a great code resource for everyone to learn with and keep track of the challenges!

It's always been the forums, users, mods, and TGC when they could stop by who helped make this DBPro adventure/struggle as great as it is, many thanks to everyone who has contributed, keep up the good work!

Back to top

Profile PM Email

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 31st Jan 2006 01:27

Link

@Ric - LOOKS GREAT!
I made some changes just to try something out...I set the Q-ball mass to 1000, and the other balls at 50, gives better breaks.

The balls do slow down too quickly, even when they slide some....frustrating, I know.

+ Code Snippet

function setup_ball_physics()
for ball=1 to 16
  `create collision spheres
  ode create dynamic sphere ball
  ode set contact fdir1 ball, 0.15
  ode setsurface mode contact approx1 ball,1
  ode set body mass ball,50
next ball
ode set body mass 16,1000
endfunction

Having the Q-ball be different from all the other balls is probably ok, since some of what we are dealing with is issues with ODE.

And, anytime you change mass like I just did, friction, etc. also needs to be tweaked.

I am dealing with some of the same issues, finding the right mass, friction, etc., good luck with your pool table, I really like what you've done!

Back to top

Profile PM Email

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 31st Jan 2006 08:53

Link

@Ric - The yellow balls I control, they are mostly for behavior comparison with the ODE Red balls, which I don't control at all, other than to give them an initial velocity. Eventually the yellow balls will be removed.

And yes, my ODE walls don't bounce enough, can't seem to make them any better than they are.

ODE has many behaviors that are causing problems, from object rotation differences, softer physics reactions - like less bounce, you know, I'm sure you are dealing with them also.

Back to top

Profile PM Email

Nicholas Thompson

21

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 31st Jan 2006 09:53

Link

should we make a rule now saying the games must run on the "fixed" DLL provided my IanM?

http://forum.antiblog.com, http://thingy-ma-jig.co.uk/new/

Back to top

Profile PM Email Website

Ric

21

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 31st Jan 2006 11:34

Link

@Bill: Making the cue ball heavier seems to be a good idea - as you say, it gives better breaks. However, it does then seem to 'chase' the balls, rather than performing nice elastic collisions. I think it's a problem with not being able to set the bounce coefficient.

Also, I hadn't realised you had two sets of balls. Using a set as a controlled comparison is a really good idea.

@Nick: Yes, I think that would be a good idea. I think I've reached a brick wall with the lack of bounce coefficient, and using IanM's update will hopefully rectify that. I don't think we're crossing any no-media boundaries here, as having a working ode plugin is really a prerequisite for this challenge.

Back to top

Profile PM Email Website

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 31st Jan 2006 13:29

Link

Yep...I agree too!

We should use the fixed DLL from IanM.

Back to top

Profile PM Email

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 31st Jan 2006 16:23 Edited at: 31st Jan 2006 16:37

Link

Is there any way to know the x,y,z location of an ODE controlled objects as they fly trough the air in my room, so that I can have trigger events happen?

I will be controlling the triggered events with my own code.

(edit)
Hmmm... Answered my own question, the object seems to still be a DBPro object so all the usual commands work like:
object position x()
object position y()
object position z()

I just can't move it myself, or I will screw up the ODE world for that object.

Back to top

Profile PM Email

Sven B

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 31st Jan 2006 21:10 Edited at: 1st Feb 2006 13:06

Link

If it's fine by Rich, we can add the rule of using IanM's DLL.

Besides, it'll probably be included in the next update of DBPro...

Taychon: Bowling... sounds cool, but I couldn't play it because of 5.9 not recognising a command... :-(

Ric: It's looking pretty professional. Next thing would be the holes

BillR: This could become a very cool game. Maybe some textures and effects could increase the gameplay.

[edit] nevermind

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

Back to top

Profile PM Email

Ric

21

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 1st Feb 2006 00:09

Link

Quote: "Maybe try not to use too high speed values, because sometimes it will pass an object without colliding"

From what I have read by the author of the original ODE, this is supposed to be impossible. Normal DBPro motion works by 'teleporting' objects from one position to the next - and if the speed is too high then it might miss a collision. But the ode calculates all motion and interections mathematically, and should be able to predict a collision between two objects regardless of the closing velocity of the objects. That's my understanding of it, anyway.

Back to top

Profile PM Email Website

Ric

21

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 1st Feb 2006 01:46 Edited at: 1st Feb 2006 01:47

Link

Ok - I've updated to IanM's revised ODE, but now I've lost all friction on spheres. I'm beginning to think that the ODE may still be a little too underdeveloped to be used in the way I'm trying to. Falling boxes (as I guess is all that's needed in FPScreator) is fine, but trying to simulate other processes where you need fine control over the parameters just doesn't seem feasible to me at the moment.

Back to top

Profile PM Email Website

Coding Fodder

22

Years of Service

User Offline

Joined: 25th Sep 2003

Location: Somewhere in my cerebralcortex

Posted: 1st Feb 2006 05:38

Link

Good work Ric. Glad to see the billards table agian. I managed to blast the cue ball off the table and into the abyss. not sure how that one works. Funny about the friction/mass/elasticity problem. I am not sure how to code that sort of thing wrong. Unless there are shortcuts in the physics....

Something really catchy that makes people stop and think about the meaning of life and say to themselves "My but thats clever"

Back to top

Profile PM Email Website

Sven B

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 1st Feb 2006 13:05

Link

Quote: "ode calculates all motion and interections mathematically, and should be able to predict a collision between two objects regardless of the closing velocity of the objects"

This could be right, I had the impression I missed some balls when using high forces on the white ball. But maybe that's my lack of accuracy

And I thought the yellow balls in BillR's had to be colliding too, but it seems that only the red balls can collide with other objects.
(edited)

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

Back to top

Profile PM Email

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 1st Feb 2006 16:43 Edited at: 1st Feb 2006 16:49

Link

Hey Ric, and everyone.

Here is my entry so far, you try to get the boxes over the blue wall!

`Coding Challenge - ODE Ball Shooter
`Bill Robinson
`1-20-06

sync on : sync rate 0
hide mouse
set ambient light 20
color backdrop rgb(0,0,30)
randomize timer()
set camera range 1,10000

dim particles(30,5)
dim levelinfo(10)
dim blockinfo(10,30,2)
dim targetinfo(100,5)

#Constant WHITE=rgb(255,255,255)
#Constant YELLOW=rgb(255,255,0)

global numlevels=4

global level
global levelflag
global numballs
global targetsleft
global targetx#=1000.0
global targety#=300.0
global targetz#=-300.0
global hitnum
global gravity#

global screenxmax=1024
global screenymax=768
global screenwidth
global screenheight
global screenxcenter
global screenycenter
global screenzcenter

`balls
global ballx#
global bally#
global ballz#
global maxballspeed#
global ballflag
global ballsatonce
global maxballs=199
global ballcount
global nextballptr
global lastballtime
global newballtime
global balltiming=100

`walls
global leftwall=0
global rightwall=2000
global floor=5
global ceiling=1000
global backwall=2000
global backwallheight
global barrierheight

`Camera - position camera 500,200,-800
global camx=1000
global camy=200
global camz=-800
global mxold

`ODE - globals
global odeballptr
global numboxes
global targetsleft

`Particles
global intParticleDelay
global particlesptr

leveldata:
`level 1 - #boxes, followed by the x,y coords for each box - also change the global 'numlevels' on line 20 if you add a level
data 12,150,0, 300,0, 450,0, 600,0, 750,0, 900,0, 1050,0, 1200,0, 1350,0, 1500,0, 1650,0, 1800,0
`level 2
data 16,400,0, 400,100, 400,200, 400,300, 800,0, 800,100, 800,200, 800,300, 1200,0, 1200,100, 1200,200, 1200,300, 1600,0, 1600,100, 1600,200, 1600,300
`level 3
data 15,700,0, 800,0, 900,0, 1000,0, 1100,0, 1200,0, 750,100, 1150,100, 800,200, 1100,200, 850,300, 1050,300, 900,400, 1000,400, 950,500
`level 4
data 20,900,0,900,100,900,200,900,300,900,400,900,500,900,600,900,700,900,800,900,900
data 1000,0,1000,100,1000,200,1000,300,1000,400,1000,500,1000,600,1000,700,1000,800,1000,900

restore leveldata
for i=1 to numlevels
   read levelinfo(i)
   for j=1 to levelinfo(i)
      read blockinfo(i,j,1)
      read blockinfo(i,j,2)
   next j
next i

screenwidth=screen width()
screenheight=screen height()
screenxcenter=screenwidth/2
screenycenter=screenheight/2
screenzcenter=0

rem --- make left wall
make object box 310,3000,1100,2
yrotate object 310,90
color object 310,rgb(200,200,0)
position object 310,0,500,1000
set object emissive 310,rgb(100,100,0)

rem --- make right wall
make object box 311,3000,1100,2
yrotate object 311,-90
color object 311,rgb(255,255,0)
position object 311,2000,500,1000

rem --- make floor
make object box 303,2100,3000,3
xrotate object 303,-91                 :`floor is tilted so ball run off floor to be re-used
color object 303,rgb(0,200,0)
position object 303,1000,-7,600       :`was -2 for y

rem --- make back wall
make object box 304,2000,1000,150
color object 304,rgb(0,0,255)
`position object 304,1000,-200,2000
backwallcenter=-500

rem --- make ceiling
make object box 305,2000,3000,2
xrotate object 305,90
color object 305,rgb(0,255,255)
position object 305,1000,1000,1000
set object emissive 305,rgb(0,70,70)

rem --- Create ODE tennis balls ---
for i=1000 to 999+maxballs
   make object sphere i,30
   set object i,1,1,0
   color object i,rgb(255,0,0)
   set object collision off i
   position object i, -2000,-2000,-2000      :`move object WAY off screen
next i

rem Create Bazooka Tube
make object cylinder 300,40         :`Tennis ball CANNON
set object 300,1,1,0
scale object 300,42,250,42
color object 300,rgb(0,10,0)
xrotate object 300,90
fix object pivot 300
`texture object 300,406

rem Create Pivot Cone for Bazooka
make object cone 301,5              :`pivot for cannon
`hide limb 301,0
glue object to limb 300,301,0
offset limb 300,0,0,25,0

rem make target ball
make object sphere 302,10            :`Target ball
set object 302,1,1,0
color object 302,rgb(255,255,255)
`texture object 302,404

rem use my own collision for room walls and floor
set object collision off 300     :`Bazooka
set object collision off 301     :`Pivot cone for cannon
set object collision off 302     :`target ball for aiming cannon

rem position objects for room
hide object 301                              :`hide cannon pivot
`position object 302,-1000,-1000,-1000        :`TARGET ball - move off screen for now
position object 301,camx,camy,camz+100

`-------------------------------------------------------
xpos=500
ypos=300
zpos=500
` Create the ODE World
ode start
ode set world gravity 0,-.3,0         :`-.3,0       :`was 0,-20,0
ode set world step  0.3             :`was 0.05
ode set world erp (0.1)*2.5         :`error correction each step
ode set world cfm (10^-5)*2.5       :`Constriant Force Mixing -

` Create a static floor, walls, ceiling.
` Implement in Dark Basic Professional first (above)
` and then ask ODE to do the same...
ode create static box 303     :`floor
ode create static box 305     :`ceiling
ode create static box 310     :`left wall
ode create static box 311     :`right wall
`ode set contact bounce 304,1

` Create dynamic sphere
` Implement in Dark Basic Professional first
` and then ask ODE to do the same...

make object sphere 400,120,16,16                :`Make sphere in DBPro first
position object 400, xpos-50,ypos+200,zpos      :`Position object in DBPro

ode create dynamic sphere 400                   :`Create same object in ODE, will have same position in ODE
ode set body mass 400,10                        :`Set object MASS
ode set contact fdir1 400,30.0                 :`Add FRICTION
`--------------------------------------------------------

`ODE floor is higher so balls seem to roll on the floor, and not 'IN' the floor
`Visible DBPro floor is lower, repositon it now, since ODE copy is made
position object 303,1000,-5,500     :`was 1000,-2,1000

nextballptr=100         :`pointer into array - points to next ball to fire
odeballptr=1000
ballcount=0             :`how many balls in use, on the screen
ballsatonce=100
numballs=5000
maxballspeed#=8
balltiming=100           :`was 100
gravityon=1
levelflag=0
level=1

gravity# = 0.1
position camera camx,camy,camz
point camera targetx#,targety#,targetz#
position mouse screenxcenter,screenycenter

mxold#=mousex()
numboxes=levelinfo(level)
_textures()
texture object 400,3

do
   if levelflag=0
      _build_level(level)
      _InitParticles()
   endif

position camera camx,camy,camz
   position object 301,camx,camy-40,camz-30
   mx#=2000.0/screenwidth*mousex()                                     :`get mouse x location
   my#=1000.0/screenheight*mousey()                                    :`get mouse y location

if mx#<>mxold#
      targetx#=mx#
      targety#=screenheight-my#
      mxold=mx
      if targetx#<0 then targetx#=0
      if targetx#>2000.0 then targetx#=2000.0             :`limit target position to 1000, instead of 1024 which is past wall
   endif

point object 301,targetx#,targety#,targetz#     :`pivot cone points to target
   position object 302,targetx#,targety#,targetz#  :`target ball moves as the target object
   point camera targetx#,targety#,targetz#

keypress=scancode()                             :`scan for keys pressed, subroutine to hadle keys
   if keypress>0 then _key_action(keypress)

mouse=mouseclick()                              :`get mouse click for firing tennis ball
   if mouse=1 then gosub _fire_tennis_ball         :`FIRE!

gosub _show_score                               :`show score on screen

`         position particles 2,1000,300,500
`         show particles 2

intParticleDelay=_check_event_triggers(1,numboxes,1)

`remstart
for i=1 to numboxes
   if particles(i,5)>0
      t=timer()
      delay=particles(i,5)
      delay2=delay-500
      set particle emissions i,delay-t
      if t>delay
         hide particles i
         dec targetsleft
         targetinfo(i,1)=0
         particles(i,5)=0
      endif
`      if t>delay2 then set particle emissions i,delay-t
      if object exist(i)
         if object position y(i)<-100
            ode destroy object i
            delete object i
         endif
      endif
   endif
next i
`remend

`remstart
   if targetsleft=0
      _finished_level(level)
      inc level
      levelflag=0
   endif
`remend

ode update                 :`let ODE update physics
   sync
`   wait key                      :`sync up DBPro display
loop

ode end
end

rem --- show score on screen
_show_score:
ink rgb(255,255,255),0
set cursor 1,1:print screen fps()
print "ballcount=";ballcount
print "nextballptr=";nextballptr
print "targetsleft=";targetsleft
center text screenxcenter,2,"Level:"+str$(level)+"     Balls Left: "+str$(numballs)+"     Score: "+str$(score)
if level=20 then center text screenxcenter,28,"Targets Left="+str$(level20targets)
return

rem ---------- fires tennis balls ----------
_fire_tennis_ball:
if ballcount=ballsatonce then return
newballtime=timer()
if newballtime-lastballtime<balltiming then return else lastballtime=newballtime    :`control firing rate of tennis balls
if numballs=0                          :`out of tennis balls to shoot
   retryflag=1                         :`set retry flag, do you want to try this level again?
   return                              :`sound 3 = your gun is empty
endif

ballx#=object position x(301)          :`get bazooka pivot location to start ball at
bally#=object position y(301)
ballz#=object position z(301)

ballxi#=(targetx#-ballx#)/300.0*maxballspeed#  :`calculate some value to move ball each time toward target
ballyi#=(targety#-bally#)/300.0*maxballspeed#  :`mostly an arbitrary calculation, to get lots of slices
ballzi#=(targetz#-ballz#)/300.0*maxballspeed#  :`build screen routine then says how many slices each move

`----------- ODE STUFF -------------------------------------------------------------------
position object odeballptr,1000,100,-800       :`velocity 100 - was 1000,150,-800

`position object odeballptr,ballx#,bally#,ballz#   :`start ball in bazooka
point object odeballptr,targetx#,targety#,-50
ode destroy object odeballptr
ode create dynamic sphere odeballptr
ode set body mass odeballptr,20
ode set contact bounce odeballptr,1
ode set linear velocity odeballptr,ballxi#*75.0,ballyi#*75.0,1000.0       :`targetz=0,use*48, -300 use 75
`velocity of 1000 - for targetz locataion use - targetz=0,use*48 for xi# and yi#, -300 use 75
`velocity of 2000 -

`inc ballcount                                      :`one more ball on screen
dec numballs                                       :`one less ball you can fired

inc odeballptr
if odeballptr>999+maxballs
   odeballptr=1000
endif
`-----------------------------------------------------------------------------------------
return

function _finished_level(level)
set cursor 1,200
print "YOU FINISHED LEVEL - ";level
print "Press a key to continue"
sync
wait key
for i=1 to levelinfo(level)
   if object exist(i)
      ode destroy object i
      delete object i
      delete particles i
   endif
   targetinfo(i,1)=0
next i
if level=numlevels
   print "  "
   print "That's all there is for now - Thanks for Playing!"
   print "Press a key to exit game - Bye!"
   sync
   wait key
   end
endif
endfunction

function _check_event_triggers(objmin,objmax,trigtype)
for i=objmin to objmax
if  object exist(i)
   objx=object position x(i)          :`get bazooka pivot location to start ball at
   objy=object position y(i)
   objz=object position z(i)
   select trigtype
      case 1
         if objz>backwall+150 and objy<backwallheight    :`and targetinfo(i,1)=1      :`level*200
            intParticleDelay=_sparks(i)
`            dec targetsleft
`            targetinfo(i,1)=0
         endif
      endcase
   endselect
endif
next i
endfunction intParticleDelay

function _sparks(objnum)
sparkx=object position x(objnum)          :`get bazooka pivot location to start ball at
sparky=object position y(objnum)
sparkz=object position z(objnum)

position particles objnum,sparkx,sparky,sparkz
show particles objnum
color particles objnum, rnd(255),rnd(255),rnd(255)
particles(objnum,5)=Timer()+500

endfunction intParticleDelay

function _InitParticles()
for i=1 to numboxes
   if particles exist(i)=0
      make particles i,0,250,30
      color particles i, 255, 200, 200
      set particle emissions i,30         :`was 30
      set particle speed i, 0.1      :`0.20
      set particle gravity i,.2            :`was 10
      set particle life i,1000
      hide particles i
   endif
next i
endfunction

function _key_action(keypress)
select keypress
   case 20
      if level>=8
         balltiming=balltiming-10
         wait 100
         if balltiming<40 then balltiming=100
      endif
   endcase
endselect
endfunction

function _textures()
for i=1 to 3
   create bitmap i,50,50
   if i=1 then ink rgb(255,0,0),0
   if i=2 then ink rgb(255,255,0),0
   if i=3 then ink rgb(255,0,255),0
   for x=1 to 1000
      ang=rnd(360)
      rad=rnd(20)
      dot 25+sin(ang)*rad,25+cos(ang)*rad
   next x
   blur bitmap i,1
   get image i,0,0,50,50
   delete bitmap i
next i
endfunction

function _build_level(level)
   numboxes=levelinfo(level)
   targetsleft=numboxes
   barrierheight=level*50
   for i=1 to numboxes
      make object box i,100,100,80
      position object i,blockinfo(level,i,1),blockinfo(level,i,2)+60,900
      color object i,rgb(rnd(255),rnd(255),rnd(255))
      ode create dynamic box i
      ode set body mass i,20
      ode set contact fdir1 i,25.0
      targetinfo(i,1)=1                             :`target is active
   next i
   position object 304,1000,-500+barrierheight,2000

ode create static box 304     :`backwall
   levelflag=1
endfunction

+ Code Snippet

`Coding Challenge - ODE Ball Shooter
`Bill Robinson
`1-20-06

sync on : sync rate 0
hide mouse
set ambient light 20
color backdrop rgb(0,0,30)
randomize timer()
set camera range 1,10000

dim particles(30,5)
dim levelinfo(10)
dim blockinfo(10,30,2)
dim targetinfo(100,5)

#Constant WHITE=rgb(255,255,255)
#Constant YELLOW=rgb(255,255,0)

global numlevels=4

global level
global levelflag
global numballs
global targetsleft
global targetx#=1000.0
global targety#=300.0
global targetz#=-300.0
global hitnum
global gravity#

global screenxmax=1024
global screenymax=768
global screenwidth
global screenheight
global screenxcenter
global screenycenter
global screenzcenter

`balls
global ballx#
global bally#
global ballz#
global maxballspeed#
global ballflag
global ballsatonce
global maxballs=199
global ballcount
global nextballptr
global lastballtime
global newballtime
global balltiming=100

`walls
global leftwall=0
global rightwall=2000
global floor=5
global ceiling=1000
global backwall=2000
global backwallheight
global barrierheight

`Camera - position camera 500,200,-800
global camx=1000
global camy=200
global camz=-800
global mxold

`ODE - globals
global odeballptr
global numboxes
global targetsleft

`Particles
global intParticleDelay
global particlesptr

leveldata:
`level 1 - #boxes, followed by the x,y coords for each box - also change the global 'numlevels' on line 20 if you add a level
data 12,150,0, 300,0, 450,0, 600,0, 750,0, 900,0, 1050,0, 1200,0, 1350,0, 1500,0, 1650,0, 1800,0
`level 2
data 16,400,0, 400,100, 400,200, 400,300, 800,0, 800,100, 800,200, 800,300, 1200,0, 1200,100, 1200,200, 1200,300, 1600,0, 1600,100, 1600,200, 1600,300
`level 3
data 15,700,0, 800,0, 900,0, 1000,0, 1100,0, 1200,0, 750,100, 1150,100, 800,200, 1100,200, 850,300, 1050,300, 900,400, 1000,400, 950,500
`level 4
data 20,900,0,900,100,900,200,900,300,900,400,900,500,900,600,900,700,900,800,900,900
data 1000,0,1000,100,1000,200,1000,300,1000,400,1000,500,1000,600,1000,700,1000,800,1000,900

restore leveldata
for i=1 to numlevels
   read levelinfo(i)
   for j=1 to levelinfo(i)
      read blockinfo(i,j,1)
      read blockinfo(i,j,2)
   next j
next i

screenwidth=screen width()
screenheight=screen height()
screenxcenter=screenwidth/2
screenycenter=screenheight/2
screenzcenter=0

rem --- make left wall
make object box 310,3000,1100,2
yrotate object 310,90
color object 310,rgb(200,200,0)
position object 310,0,500,1000
set object emissive 310,rgb(100,100,0)

rem --- make right wall
make object box 311,3000,1100,2
yrotate object 311,-90
color object 311,rgb(255,255,0)
position object 311,2000,500,1000

rem --- make floor
make object box 303,2100,3000,3
xrotate object 303,-91                 :`floor is tilted so ball run off floor to be re-used
color object 303,rgb(0,200,0)
position object 303,1000,-7,600       :`was -2 for y

rem --- make back wall
make object box 304,2000,1000,150
color object 304,rgb(0,0,255)
`position object 304,1000,-200,2000
backwallcenter=-500

rem --- make ceiling
make object box 305,2000,3000,2
xrotate object 305,90
color object 305,rgb(0,255,255)
position object 305,1000,1000,1000
set object emissive 305,rgb(0,70,70)

rem --- Create ODE tennis balls ---
for i=1000 to 999+maxballs
   make object sphere i,30
   set object i,1,1,0
   color object i,rgb(255,0,0)
   set object collision off i
   position object i, -2000,-2000,-2000      :`move object WAY off screen
next i

rem Create Bazooka Tube
make object cylinder 300,40         :`Tennis ball CANNON
set object 300,1,1,0
scale object 300,42,250,42
color object 300,rgb(0,10,0)
xrotate object 300,90
fix object pivot 300
`texture object 300,406

rem Create Pivot Cone for Bazooka
make object cone 301,5              :`pivot for cannon
`hide limb 301,0
glue object to limb 300,301,0
offset limb 300,0,0,25,0

rem make target ball
make object sphere 302,10            :`Target ball
set object 302,1,1,0
color object 302,rgb(255,255,255)
`texture object 302,404

rem use my own collision for room walls and floor
set object collision off 300     :`Bazooka
set object collision off 301     :`Pivot cone for cannon
set object collision off 302     :`target ball for aiming cannon

rem position objects for room
hide object 301                              :`hide cannon pivot
`position object 302,-1000,-1000,-1000        :`TARGET ball - move off screen for now
position object 301,camx,camy,camz+100

`-------------------------------------------------------
xpos=500
ypos=300
zpos=500
` Create the ODE World
ode start
ode set world gravity 0,-.3,0         :`-.3,0       :`was 0,-20,0
ode set world step  0.3             :`was 0.05
ode set world erp (0.1)*2.5         :`error correction each step
ode set world cfm (10^-5)*2.5       :`Constriant Force Mixing -

` Create a static floor, walls, ceiling.
` Implement in Dark Basic Professional first (above)
` and then ask ODE to do the same...
ode create static box 303     :`floor
ode create static box 305     :`ceiling
ode create static box 310     :`left wall
ode create static box 311     :`right wall
`ode set contact bounce 304,1

` Create dynamic sphere
` Implement in Dark Basic Professional first
` and then ask ODE to do the same...

make object sphere 400,120,16,16                :`Make sphere in DBPro first
position object 400, xpos-50,ypos+200,zpos      :`Position object in DBPro

ode create dynamic sphere 400                   :`Create same object in ODE, will have same position in ODE
ode set body mass 400,10                        :`Set object MASS
ode set contact fdir1 400,30.0                 :`Add FRICTION
`--------------------------------------------------------

`ODE floor is higher so balls seem to roll on the floor, and not 'IN' the floor
`Visible DBPro floor is lower, repositon it now, since ODE copy is made
position object 303,1000,-5,500     :`was 1000,-2,1000

nextballptr=100         :`pointer into array - points to next ball to fire
odeballptr=1000
ballcount=0             :`how many balls in use, on the screen
ballsatonce=100
numballs=5000
maxballspeed#=8
balltiming=100           :`was 100
gravityon=1
levelflag=0
level=1

gravity# = 0.1
position camera camx,camy,camz
point camera targetx#,targety#,targetz#
position mouse screenxcenter,screenycenter

mxold#=mousex()
numboxes=levelinfo(level)
_textures()
texture object 400,3

do
   if levelflag=0
      _build_level(level)
      _InitParticles()
   endif

   position camera camx,camy,camz
   position object 301,camx,camy-40,camz-30
   mx#=2000.0/screenwidth*mousex()                                     :`get mouse x location
   my#=1000.0/screenheight*mousey()                                    :`get mouse y location

   if mx#<>mxold#
      targetx#=mx#
      targety#=screenheight-my#
      mxold=mx
      if targetx#<0 then targetx#=0
      if targetx#>2000.0 then targetx#=2000.0             :`limit target position to 1000, instead of 1024 which is past wall
   endif

   point object 301,targetx#,targety#,targetz#     :`pivot cone points to target
   position object 302,targetx#,targety#,targetz#  :`target ball moves as the target object
   point camera targetx#,targety#,targetz#

   keypress=scancode()                             :`scan for keys pressed, subroutine to hadle keys
   if keypress>0 then _key_action(keypress)

   mouse=mouseclick()                              :`get mouse click for firing tennis ball
   if mouse=1 then gosub _fire_tennis_ball         :`FIRE!

   gosub _show_score                               :`show score on screen

`         position particles 2,1000,300,500
`         show particles 2

   intParticleDelay=_check_event_triggers(1,numboxes,1)


`remstart
for i=1 to numboxes
   if particles(i,5)>0
      t=timer()
      delay=particles(i,5)
      delay2=delay-500
      set particle emissions i,delay-t
      if t>delay
         hide particles i
         dec targetsleft
         targetinfo(i,1)=0
         particles(i,5)=0
      endif
`      if t>delay2 then set particle emissions i,delay-t
      if object exist(i)
         if object position y(i)<-100
            ode destroy object i
            delete object i
         endif
      endif
   endif
next i
`remend

`remstart
   if targetsleft=0
      _finished_level(level)
      inc level
      levelflag=0
   endif
`remend

   ode update                 :`let ODE update physics
   sync
`   wait key                      :`sync up DBPro display
loop

ode end
end


rem --- show score on screen
_show_score:
ink rgb(255,255,255),0
set cursor 1,1:print screen fps()
print "ballcount=";ballcount
print "nextballptr=";nextballptr
print "targetsleft=";targetsleft
center text screenxcenter,2,"Level:"+str$(level)+"     Balls Left: "+str$(numballs)+"     Score: "+str$(score)
if level=20 then center text screenxcenter,28,"Targets Left="+str$(level20targets)
return


rem ---------- fires tennis balls ----------
_fire_tennis_ball:
if ballcount=ballsatonce then return
newballtime=timer()
if newballtime-lastballtime<balltiming then return else lastballtime=newballtime    :`control firing rate of tennis balls
if numballs=0                          :`out of tennis balls to shoot
   retryflag=1                         :`set retry flag, do you want to try this level again?
   return                              :`sound 3 = your gun is empty
endif

ballx#=object position x(301)          :`get bazooka pivot location to start ball at
bally#=object position y(301)
ballz#=object position z(301)

ballxi#=(targetx#-ballx#)/300.0*maxballspeed#  :`calculate some value to move ball each time toward target
ballyi#=(targety#-bally#)/300.0*maxballspeed#  :`mostly an arbitrary calculation, to get lots of slices
ballzi#=(targetz#-ballz#)/300.0*maxballspeed#  :`build screen routine then says how many slices each move

`----------- ODE STUFF -------------------------------------------------------------------
position object odeballptr,1000,100,-800       :`velocity 100 - was 1000,150,-800

`position object odeballptr,ballx#,bally#,ballz#   :`start ball in bazooka
point object odeballptr,targetx#,targety#,-50
ode destroy object odeballptr
ode create dynamic sphere odeballptr
ode set body mass odeballptr,20
ode set contact bounce odeballptr,1
ode set linear velocity odeballptr,ballxi#*75.0,ballyi#*75.0,1000.0       :`targetz=0,use*48, -300 use 75
`velocity of 1000 - for targetz locataion use - targetz=0,use*48 for xi# and yi#, -300 use 75
`velocity of 2000 -

`inc ballcount                                      :`one more ball on screen
dec numballs                                       :`one less ball you can fired

inc odeballptr
if odeballptr>999+maxballs
   odeballptr=1000
endif
`-----------------------------------------------------------------------------------------
return


function _finished_level(level)
set cursor 1,200
print "YOU FINISHED LEVEL - ";level
print "Press a key to continue"
sync
wait key
for i=1 to levelinfo(level)
   if object exist(i)
      ode destroy object i
      delete object i
      delete particles i
   endif
   targetinfo(i,1)=0
next i
if level=numlevels
   print "  "
   print "That's all there is for now - Thanks for Playing!"
   print "Press a key to exit game - Bye!"
   sync
   wait key
   end
endif
endfunction



function _check_event_triggers(objmin,objmax,trigtype)
for i=objmin to objmax
if  object exist(i)
   objx=object position x(i)          :`get bazooka pivot location to start ball at
   objy=object position y(i)
   objz=object position z(i)
   select trigtype
      case 1
         if objz>backwall+150 and objy<backwallheight    :`and targetinfo(i,1)=1      :`level*200
            intParticleDelay=_sparks(i)
`            dec targetsleft
`            targetinfo(i,1)=0
         endif
      endcase
   endselect
endif
next i
endfunction intParticleDelay


function _sparks(objnum)
sparkx=object position x(objnum)          :`get bazooka pivot location to start ball at
sparky=object position y(objnum)
sparkz=object position z(objnum)

position particles objnum,sparkx,sparky,sparkz
show particles objnum
color particles objnum, rnd(255),rnd(255),rnd(255)
particles(objnum,5)=Timer()+500

endfunction intParticleDelay


function _InitParticles()
for i=1 to numboxes
   if particles exist(i)=0
      make particles i,0,250,30
      color particles i, 255, 200, 200
      set particle emissions i,30         :`was 30
      set particle speed i, 0.1      :`0.20
      set particle gravity i,.2            :`was 10
      set particle life i,1000
      hide particles i
   endif
next i
endfunction


function _key_action(keypress)
select keypress
   case 20
      if level>=8
         balltiming=balltiming-10
         wait 100
         if balltiming<40 then balltiming=100
      endif
   endcase
endselect
endfunction


function _textures()
for i=1 to 3
   create bitmap i,50,50
   if i=1 then ink rgb(255,0,0),0
   if i=2 then ink rgb(255,255,0),0
   if i=3 then ink rgb(255,0,255),0
   for x=1 to 1000
      ang=rnd(360)
      rad=rnd(20)
      dot 25+sin(ang)*rad,25+cos(ang)*rad
   next x
   blur bitmap i,1
   get image i,0,0,50,50
   delete bitmap i
next i
endfunction


function _build_level(level)
   numboxes=levelinfo(level)
   targetsleft=numboxes
   barrierheight=level*50
   for i=1 to numboxes
      make object box i,100,100,80
      position object i,blockinfo(level,i,1),blockinfo(level,i,2)+60,900
      color object i,rgb(rnd(255),rnd(255),rnd(255))
      ode create dynamic box i
      ode set body mass i,20
      ode set contact fdir1 i,25.0
      targetinfo(i,1)=1                             :`target is active
   next i
   position object 304,1000,-500+barrierheight,2000

   ode create static box 304     :`backwall
   levelflag=1
endfunction

Let me know what you think so far.

The leveldata:, data statements are the #boxes on a level, followed by each boxes x,y coords, in a room that is 2000 wide.

Back to top

Profile PM Email

Image All

20

Years of Service

User Offline

Joined: 30th Dec 2005

Location: Home

Posted: 1st Feb 2006 17:05

Link

I can see you're going to be the master of shooting galleries

Back to top

Profile PM Email

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 1st Feb 2006 17:57 Edited at: 1st Feb 2006 19:04

Link

well maybe so, but I thought it would be a good display of ODE.

Also, I thought ODE was going to be a TOUGH challenge, and since I kind of liked and understood a 3D shooting game, that most of my coding could be spent on learning ODE.

But, you didn't say what you liked or disliked about my ODE shooting gallery. And if you don't like it, what would make it better?

I read your post again, and maybe it means you liked it....and if that's the case....cool, thanks.

Back to top

Profile PM Email

Ric

21

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 1st Feb 2006 19:55

Link

Nice work Bill - actually, although I criticised the lack of control the ODE offers, for the sort of thing you've done here it works brilliantly. I think I've reached a brick wall as far as the pool physics goes - I just can't find any way to get friction to work with spheres with IanM's update, and without the update I can't get the bounce working and the friction working at the same time. Maybe I should try skittles instead!

Back to top

Profile PM Email Website

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 1st Feb 2006 21:58 Edited at: 1st Feb 2006 23:30

Link

@Ric - I think ODE needs more work also, it is VERY slugish as far as motion, velocity, bounce, etc. I had to change gravity from -20 to -.3 to get objects to move through the air, bounce,and react the way I wanted them to.

But having so little gravity, objects don't settle to the ground right, the hang in the air when touching the ceiling or wall, or even the sitting funny on the ground.

I hope ODE will get some tweaks and tuning in the future for a more usable physics engine, because I do like what I can get it to do so far, even if it's not completely working yet. I too agree ODE needs more control over what you want it to do, for more realistic simulations.

And thanks for the nice comment Ric.

Back to top

Profile PM Email

Coding Fodder

22

Years of Service

User Offline

Joined: 25th Sep 2003

Location: Somewhere in my cerebralcortex

Posted: 2nd Feb 2006 00:31

Link

I believe that the problem ric is experiencing is a lack of rolling resistance in ODE. (this is just speculation) It seems that ODE is using sliding friction to slow the balls. If sliding friction where all that existed a rolling object would continue infinitly. Rolling friction is a result of the deformation of bodies. In the case of pool balls it is mainly the crushing of the felt on he table. A pool ball on smooth concrete would roll a very long way indeed.

Interesting problem. But ODE needs a new parameter. Does it even allow static and kinitic coeficients of friction?

Something really catchy that makes people stop and think about the meaning of life and say to themselves "My but thats clever"

Back to top

Profile PM Email Website

Ric

21

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 2nd Feb 2006 00:58

Link

Quote: "It seems that ODE is using sliding friction to slow the balls"

If it did use sliding friction to slow the balls, that would at least be a reasonable approximation of the actual process - my problem is that it won't even apply sliding friction. Well, I've added friction manually in the mean time by reducing the velocity of each ball each loop. Kind of works, I think!

Rem Project: ode pool
Rem Created: 29/01/2006 20:06:38

Rem ***** Main Source File *****

REM Project: Billiards Physics
if check display mode(1024,768,32)=1 then set display mode 1024,768,32
sync on
sync rate 80
hide mouse
autocam off
position camera 0,100,-450
color backdrop 0
hide light 0
set ambient light 1
make light 1
position light 1,-500,500,-500
set light range 1,10000

ode start
ode set world gravity 0,-20,0
ode set world step 0.05
ode set world erp (0.2)*2.5
ode set world cfm (10^-5)*2.5

global dim oldballx(16) as float
global dim oldbally(16) as float
global dim oldballz(16) as float

global hit
global power#
power#=100.0

make_pool_balls()
make_pool_table()
rack_balls()
setup_ball_physics()
make_target()

starttime=timer()
friction#=0.997

do

time=timer()-starttime

if hit=0 then aim()
if spacekey()=1 and hit=0
hit=1
starttime=timer()
shoot()
endif

if hit=1
if time>5000 then hit=0
endif

ode update
update_shadows()
camera()

position object 18,object position x(16),object position y(16),object position z(16)

for ball=1 to 16
ode set linear velocity ball,ode get body linear velocity x(ball)*friction#,ode get body linear velocity y(ball)*friction#,ode get body linear velocity z(ball)*friction#
next ball

text 0,0,str$(screen fps())
sync
loop

function shoot()

ODE add force 16,object position x(17)-object position x(16), object position y(16),object position z(17)-object position z(16),object position x(16),object position y(16),object position z(16)

endfunction

function make_target()
make object cube 17,1
hide object 17
make object cube 18,1
hide object 18
endfunction

function camera()
if hit=1 then smoothness=300 else smoothness=100
position camera curvevalue(object position x(18),camera position x(),50),100,curvevalue(object position z(18),camera position z(),50)
yrotate camera curveangle(object angle y(18),camera angle y(),smoothness)
move camera -5
endfunction

function aim()
yrot#=0
if leftkey()=1 then yrot#=-1
if rightkey()=1 then yrot#=1
yrotate object 18,object angle y(18)+yrot#
if upkey()=1 then inc power#,5
if power#>1 and downkey()=1 then dec power#,5
position object 17,object position x(18),object position y(18),object position z(18)
yrotate object 17,object angle y(18)
move object 17,300
line object screen x(17)-power#/10.0,object screen y(17)-power#/10.0,object screen x(17)+power#/10.0,object screen y(17)+power#/10.0
line object screen x(17)-power#/10.0,object screen y(17)+power#/10.0,object screen x(17)+power#/10.0,object screen y(17)-power#/10.0
move object 17,power#
endfunction

function setup_ball_physics()
for ball=1 to 16
  `create collision spheres
  ode create dynamic sphere ball
  ode set contact fdir1 ball,180
  ODE SETSURFACE MODE CONTACT BOUNCE ball,1
  ode set contact bounce ball,0.4
  ode set body mass ball,1000

next ball
endfunction

function rack_balls()
fact#=sqrt(3.0)*10
position object 1,0,10,250
position object 9,10,10,250+fact#
position object 10,-10,10,250+fact#
position object 2,20,10,250+fact#*2.0
position object 8,0,10,250+fact#*2.0
position object 3,-20,10,250+fact#*2.0
position object 11,30,10,250+fact#*3.0
position object 12,10,10,250+fact#*3.0
position object 4,-10,10,250+fact#*3.0
position object 13,-30,10,250+fact#*3.0
position object 5,40,10,250+fact#*4.0
position object 14,20,10,250+fact#*4.0
position object 6,0,10,250+fact#*4.0
position object 15,-20,10,250+fact#*4.0
position object 7,-40,10,250+fact#*4.0
position object 16,0,10,-250
endfunction

function make_pool_table()
for x=0 to 10
for y=0 to 10
ink RGB(50+x*20,50+(y+x)*10,50),0
dot x,y
next y
next x
get image 20,0,0,10,10
make object plain 20,500,1000
xrotate object 20,-90
yrotate object 20,-180
texture object 20,20
set object emissive 20,rgb(50,50,10)

make object box 21,15,15,950
texture object 21,20
position object 21,-257.5,7.5,0

make object box 22,15,15,950
texture object 22,20
position object 22,257.5,7.5,0

make object box 23,450,15,15
texture object 23,20
position object 23,0,7.5,-507.5

make object box 24,450,15,15
texture object 24,20
position object 24,0,7.5,507.5

ink rgb(255,255,255),0

`make collision boxes
for object=20 to 24
ode create static box object
ode set contact fdir1 object, 180
next object

endfunction

function make_pool_balls()
for i=1 to 8
make object sphere i,20,20,20
select i
case 1:ink RGB(255,255,0),0:endcase
case 2:ink RGB(0,0,255),0:endcase
case 3:ink RGB(255,128,64),0:endcase
case 4:ink RGB(156,0,223),0:endcase
case 5:ink RGB(128,0,64),0:endcase
case 6:ink RGB(0,128,64),0:endcase
case 7:ink RGB(202,0,0),0:endcase
case 8:ink RGB(0,0,0),0:endcase
endselect
box 0,0,128,128:solid_circle(64,64,7,RGB(250,250,200)):ink 0,0:text 60,57,str$(i)
get image i,0,30,127,97
texture object i,i
position object i,i*20-150,10,0
next i
width1#=20
for i=9 to 15
make object sphere i,20,20,20
ink rgb(250,250,200),0
box 0,0,128,128
select i
case 9:ink RGB(255,255,0),0:endcase
case 10:ink RGB(0,0,255),0:endcase
case 11:ink RGB(255,128,64),0:endcase
case 12:ink RGB(156,0,223),0:endcase
case 13:ink RGB(128,0,64),0:endcase
case 14:ink RGB(0,128,64),0:endcase
case 15:ink RGB(202,0,0),0:endcase
endselect
for u=0 to 128
for v=0 to 128
width2#=width1#/(cos(abs(v-63)*180.0/50.0)*2.0)
if abs(u-32)<=width2# then dot u,v
if abs(u-96)<=width2# then dot u,v
box 0,0,128,40
box 0,86,128,128
next v
next u
ink 0,0
if i=9
text 60,57,str$(i)
else
text 56,57,str$(i)
endif
get image i,0,35,127,92
texture object i,i
position object i,i*20-150,10,0
next i
make object sphere 16,20,20,20
ink rgb(250,250,200),0
box 0,0,128,128
get image 16,0,35,127,92
texture object 16,16
position object 16,16*20-150,10,0

for ball=1 to 16
set object specular ball,rgb(200,200,200)
set object specular power ball,25
set object emissive ball,rgb(50,50,10)
make object sphere ball+30,20,20,20
color object ball+30,0
scale object ball+30,150,1,100
yrotate object ball+30,-45
ghost object on ball+30,4
next ball
endfunction

function solid_circle(x,y,radius,color)
lock pixels
ptr=get pixels pointer()
this=get pixels pitch()
that =bitmap depth()/8
for i=1 to radius*2
for j=1 to radius*2
pointer=ptr+((y+j-radius)*this)+(x-radius+i)*that
if (radius-i)^2+(radius-j)^2<=radius^2 then *pointer=color
next j
next i
unlock pixels
endfunction

function update_shadows()
for ball=1 to 16
position object ball+30,object position x(ball)+8,object position y(ball)-9,object position z(ball)+8
next ball
endfunction

+ Code Snippet

Rem Project: ode pool
Rem Created: 29/01/2006 20:06:38

Rem ***** Main Source File *****

REM Project: Billiards Physics
if check display mode(1024,768,32)=1 then set display mode 1024,768,32
sync on
sync rate 80
hide mouse
autocam off
position camera 0,100,-450
color backdrop 0
hide light 0
set ambient light 1
make light 1
position light 1,-500,500,-500
set light range 1,10000

ode start
ode set world gravity 0,-20,0
ode set world step 0.05
ode set world erp (0.2)*2.5
ode set world cfm (10^-5)*2.5

global dim oldballx(16) as float
global dim oldbally(16) as float
global dim oldballz(16) as float

global hit
global power#
power#=100.0

make_pool_balls()
make_pool_table()
rack_balls()
setup_ball_physics()
make_target()

starttime=timer()
friction#=0.997

do

time=timer()-starttime

if hit=0 then aim()
if spacekey()=1 and hit=0
hit=1
starttime=timer()
shoot()
endif

if hit=1
if time>5000 then hit=0
endif

ode update
update_shadows()
camera()

position object 18,object position x(16),object position y(16),object position z(16)

for ball=1 to 16
ode set linear velocity ball,ode get body linear velocity x(ball)*friction#,ode get body linear velocity y(ball)*friction#,ode get body linear velocity z(ball)*friction#
next ball

text 0,0,str$(screen fps())
sync
loop



function shoot()

ODE add force 16,object position x(17)-object position x(16), object position y(16),object position z(17)-object position z(16),object position x(16),object position y(16),object position z(16)

endfunction

function make_target()
make object cube 17,1
hide object 17
make object cube 18,1
hide object 18
endfunction

function camera()
if hit=1 then smoothness=300 else smoothness=100
position camera curvevalue(object position x(18),camera position x(),50),100,curvevalue(object position z(18),camera position z(),50)
yrotate camera curveangle(object angle y(18),camera angle y(),smoothness)
move camera -5
endfunction

function aim()
yrot#=0
if leftkey()=1 then yrot#=-1
if rightkey()=1 then yrot#=1
yrotate object 18,object angle y(18)+yrot#
if upkey()=1 then inc power#,5
if power#>1 and downkey()=1 then dec power#,5
position object 17,object position x(18),object position y(18),object position z(18)
yrotate object 17,object angle y(18)
move object 17,300
line object screen x(17)-power#/10.0,object screen y(17)-power#/10.0,object screen x(17)+power#/10.0,object screen y(17)+power#/10.0
line object screen x(17)-power#/10.0,object screen y(17)+power#/10.0,object screen x(17)+power#/10.0,object screen y(17)-power#/10.0
move object 17,power#
endfunction



function setup_ball_physics()
for ball=1 to 16
  `create collision spheres
  ode create dynamic sphere ball
  ode set contact fdir1 ball,180
  ODE SETSURFACE MODE CONTACT BOUNCE ball,1
  ode set contact bounce ball,0.4
  ode set body mass ball,1000

next ball
endfunction

function rack_balls()
fact#=sqrt(3.0)*10
position object 1,0,10,250
position object 9,10,10,250+fact#
position object 10,-10,10,250+fact#
position object 2,20,10,250+fact#*2.0
position object 8,0,10,250+fact#*2.0
position object 3,-20,10,250+fact#*2.0
position object 11,30,10,250+fact#*3.0
position object 12,10,10,250+fact#*3.0
position object 4,-10,10,250+fact#*3.0
position object 13,-30,10,250+fact#*3.0
position object 5,40,10,250+fact#*4.0
position object 14,20,10,250+fact#*4.0
position object 6,0,10,250+fact#*4.0
position object 15,-20,10,250+fact#*4.0
position object 7,-40,10,250+fact#*4.0
position object 16,0,10,-250
endfunction

function make_pool_table()
for x=0 to 10
for y=0 to 10
ink RGB(50+x*20,50+(y+x)*10,50),0
dot x,y
next y
next x
get image 20,0,0,10,10
make object plain 20,500,1000
xrotate object 20,-90
yrotate object 20,-180
texture object 20,20
set object emissive 20,rgb(50,50,10)

make object box 21,15,15,950
texture object 21,20
position object 21,-257.5,7.5,0

make object box 22,15,15,950
texture object 22,20
position object 22,257.5,7.5,0

make object box 23,450,15,15
texture object 23,20
position object 23,0,7.5,-507.5

make object box 24,450,15,15
texture object 24,20
position object 24,0,7.5,507.5

ink rgb(255,255,255),0

`make collision boxes
for object=20 to 24
ode create static box object
ode set contact fdir1 object, 180
next object

endfunction

function make_pool_balls()
for i=1 to 8
make object sphere i,20,20,20
select i
case 1:ink RGB(255,255,0),0:endcase
case 2:ink RGB(0,0,255),0:endcase
case 3:ink RGB(255,128,64),0:endcase
case 4:ink RGB(156,0,223),0:endcase
case 5:ink RGB(128,0,64),0:endcase
case 6:ink RGB(0,128,64),0:endcase
case 7:ink RGB(202,0,0),0:endcase
case 8:ink RGB(0,0,0),0:endcase
endselect
box 0,0,128,128:solid_circle(64,64,7,RGB(250,250,200)):ink 0,0:text 60,57,str$(i)
get image i,0,30,127,97
texture object i,i
position object i,i*20-150,10,0
next i
width1#=20
for i=9 to 15
make object sphere i,20,20,20
ink rgb(250,250,200),0
box 0,0,128,128
select i
case 9:ink RGB(255,255,0),0:endcase
case 10:ink RGB(0,0,255),0:endcase
case 11:ink RGB(255,128,64),0:endcase
case 12:ink RGB(156,0,223),0:endcase
case 13:ink RGB(128,0,64),0:endcase
case 14:ink RGB(0,128,64),0:endcase
case 15:ink RGB(202,0,0),0:endcase
endselect
for u=0 to 128
for v=0 to 128
width2#=width1#/(cos(abs(v-63)*180.0/50.0)*2.0)
if abs(u-32)<=width2# then dot u,v
if abs(u-96)<=width2# then dot u,v
box 0,0,128,40
box 0,86,128,128
next v
next u
ink 0,0
if i=9
text 60,57,str$(i)
else
text 56,57,str$(i)
endif
get image i,0,35,127,92
texture object i,i
position object i,i*20-150,10,0
next i
make object sphere 16,20,20,20
ink rgb(250,250,200),0
box 0,0,128,128
get image 16,0,35,127,92
texture object 16,16
position object 16,16*20-150,10,0

for ball=1 to 16
set object specular ball,rgb(200,200,200)
set object specular power ball,25
set object emissive ball,rgb(50,50,10)
make object sphere ball+30,20,20,20
color object ball+30,0
scale object ball+30,150,1,100
yrotate object ball+30,-45
ghost object on ball+30,4
next ball
endfunction

function solid_circle(x,y,radius,color)
lock pixels
ptr=get pixels pointer()
this=get pixels pitch()
that =bitmap depth()/8
for i=1 to radius*2
for j=1 to radius*2
pointer=ptr+((y+j-radius)*this)+(x-radius+i)*that
if (radius-i)^2+(radius-j)^2<=radius^2 then *pointer=color
next j
next i
unlock pixels
endfunction

function update_shadows()
for ball=1 to 16
position object ball+30,object position x(ball)+8,object position y(ball)-9,object position z(ball)+8
next ball
endfunction

Back to top

Profile PM Email Website

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 2nd Feb 2006 01:23 Edited at: 2nd Feb 2006 02:18

Link

@Ric - I really like your pool table program, I am always amazed that you can do so much with so little code, I wish ODE was not such a problem to work with right now, it is certainly holding you back this time.

I changed 3 lines in your aim routine to give me better fine aiming by holding down the shift key, here it is.

+ Code Snippet

function aim()
yrot#=0
if shiftkey()=1 then yinc#=0.1 else yinc#=1.0
if leftkey()=1 then yrot#=-yinc#
if rightkey()=1 then yrot#=yinc#

Really helps aiming.

I know your probably tired of struggling/cursing at ODE, I feel your pain. I may take a look at your code later, to learn mostly, but to see if anything comes to mind about better breaking.

Off to run some errands, will check back later.

Back to top

Profile PM Email

Coding Fodder

22

Years of Service

User Offline

Joined: 25th Sep 2003

Location: Somewhere in my cerebralcortex

Posted: 2nd Feb 2006 02:54

Link

Sliding friction would be a good approximation true. but it would be set very low and your balls would not rotate. Is that not precisely the effect you observed? Sliding friction gets the balls rolling. Rolling friction slows them down.

Something really catchy that makes people stop and think about the meaning of life and say to themselves "My but thats clever"

Back to top

Profile PM Email Website

Ric

21

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 3rd Feb 2006 00:08

Link

@Bill - good idea to include fine aim - I originally had the aim controlled by the mouse, so you could just move the mouse slower to aim more precisely, but in the past I've found that using 'mousemove' commands gives different results on different PC's - what seems fine here is oversensitive somewhere else - and as I think it's to do with windows settings rather than the speed of the processer, it's not something that can be fixed with timer stuff or sync rate. Hence I switched to arrow keys.

@CF: yes that's true - I really want maximum sliding friction to stop them skidding, and a small amount of rolling friction so they slow down gradually. I guess that kind of stuff just isn't built into the ODE. Next challenge - write our own physics engine!!

Back to top

Profile PM Email Website

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 3rd Feb 2006 01:08 Edited at: 3rd Feb 2006 03:06

Link

@Ric - Where in Cyberspace are you...US...UK..etc?
You don't have to tell me, just curious.

My -8 hrs from GMT in San Francisco, I miss much of the live messaging that goes on, and when I leave a message, most others are in bed...just seems weird sometimes.

I've been so busy lately, I haven't had time to work on my ODE shooter, maybe later tonight.

Back to top

Profile PM Email

Coding Fodder

22

Years of Service

User Offline

Joined: 25th Sep 2003

Location: Somewhere in my cerebralcortex

Posted: 3rd Feb 2006 03:44

Link

I heartily approve of the idea of writing your own physics engine. I have started thinking about ways to handle all the physics neccesary for the billiards problem. (spheres and boxes maybe cylinders for kicks). But with 3rd dimension capability. To jump the cue ball maybe.

Something really catchy that makes people stop and think about the meaning of life and say to themselves "My but thats clever"

Back to top

Profile PM Email Website

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 3rd Feb 2006 04:21

Link

So what exactly is the challenge? I haven't seen an official statement yet. I won't make it in anyway, midterms over the next week.

Deadly Night Assassins

Back to top

Profile PM Email Website

Ric

21

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 3rd Feb 2006 13:14

Link

@ CF: I'd be interested to see if you manage to come up with something. If I remember correctly, when we first had a stab at the pool table problem nearly a year ago, we had figured out the collision, but were having problems with the rotation. Rotation always seems to be a nightmare!

@ Bill: I'm based in the UK - but as I tend to code better at night, I'll frequently be on US time anyway!

@Phaelax: the challenge is to use the ODE to create some kind of demo involving a moving ball. I think we've got about one more week.

Back to top

Profile PM Email Website

Gil Galvanti

21

Years of Service

User Offline

Joined: 22nd Dec 2004

Location: Texas, United States

Posted: 4th Feb 2006 00:12

Link

I'm trying to run the snippets, but it keeps getting errors because of the "ode" in front of so many things. Whats that?

Pirates of Port Royale:
http://www.popr.gwgaming.net
Live the life of a citizen from the 17th century. Anything from being an infamous pirate to a lowly blacksmith.

Back to top

Profile PM Website

Nicholas Thompson

21

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 4th Feb 2006 01:55

Link

Are you:
a) running 5.9 compiler patch
b) runing the latest IDE patch for the default IDE.. if not, which ide you using?

http://forum.antiblog.com, http://thingy-ma-jig.co.uk/new/

Back to top

Profile PM Email Website

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 6th Feb 2006 01:05 Edited at: 6th Feb 2006 02:27

Link

Only a few new changes so far.

`Coding Challenge - ODE Ball Shooter
`Bill Robinson
`2-4-06

`Shoot boxes over the wall for 1000 points each
`If a box bounces back behind you and falls, you lose 3000 points
`Sometimes you have to shoot boxes moving toward you, to keep from losing 3000 points
`When the back wall gets higher, you may need to shoot the box in the air, to get it over the wall.
`
`Add your own level if you want - add data statements around line 100, change numlevels on line 28 if you add a level.
`
set display mode 1024,768,32
sync on : sync rate 0
hide mouse
set ambient light 10
color backdrop rgb(0,0,30)
randomize timer()
set camera range 1,20000

dim particles(30,5)
dim levelinfo(10)
dim blockinfo(10,30,2)
dim targetinfo(100,5)

#Constant WHITE=rgb(255,255,255)
#Constant YELLOW=rgb(255,255,0)

global numlevels=5

global level
global levelflag
global numballs
global targetsleft
global targetx#=1000.0
global targety#=300.0
global targetz#=-300.0
global hitnum
global gravity#

global screenxmax=1024
global screenymax=768
global screenwidth
global screenheight
global screenxcenter
global screenycenter
global screenzcenter

`balls
global ballx#
global bally#
global ballz#
global maxballspeed#
global ballflag
global ballsatonce
global maxballs=199
global ballcount
global nextballptr
global lastballtime
global newballtime
global balltiming=100

`walls
global leftwall=0
global rightwall=2000
global floor=5
global ceiling=1000
global backwall=2000
global backwallheight
global barrierheight

`Camera - position camera 500,200,-800
global camx=1000
global camy=200
global camz=-800
global mxold

`ODE - globals
global odeballptr
global numboxes
global targetsleft

`Particles
global intParticleDelay
global particlesptr
global particlesflag

leveldata:
`level 1 - #boxes, followed by the x,y coords for each box - also change the global 'numlevels' on line 20 if you add a level
data 12,150,0, 300,0, 450,0, 600,0, 750,0, 900,0, 1050,0, 1200,0, 1350,0, 1500,0, 1650,0, 1800,0
`level 2
data 16,400,0, 400,100, 400,200, 400,300, 800,0, 800,100, 800,200, 800,300, 1200,0, 1200,100, 1200,200, 1200,300, 1600,0, 1600,100, 1600,200, 1600,300
`level 3
data 15,700,0, 800,0, 900,0, 1000,0, 1100,0, 1200,0, 750,100, 1150,100, 800,200, 1100,200, 850,300, 1050,300, 900,400, 1000,400, 950,500
`level 4
data 20,900,0,900,100,900,200,900,300,900,400,900,500,900,600,900,700,900,800,900,900
data 1000,0,1000,100,1000,200,1000,300,1000,400,1000,500,1000,600,1000,700,1000,800,1000,900
`level 5
data 27,100,0, 150,100, 200,200, 250,300, 300,400, 350,500, 400,600, 450,700, 500,800, 550,900
data   1000,0, 950,100, 900,200, 850,300, 800,400, 750,500, 700,600, 650,700, 600,800
data  350,300, 400,200, 450,100, 500,0
data  750,300, 700,200, 650,100, 600,0

restore leveldata
for i=1 to numlevels
   read levelinfo(i)
   for j=1 to levelinfo(i)
      read blockinfo(i,j,1)
      read blockinfo(i,j,2)
   next j
next i

screenwidth=screen width()
screenheight=screen height()
screenxcenter=screenwidth/2
screenycenter=screenheight/2
screenzcenter=0

rem --- make left wall
make object box 310,3000,1100,2
yrotate object 310,90
color object 310,rgb(200,200,0)
position object 310,0,500,1000
set object emissive 310,rgb(100,100,0)

rem --- make right wall
make object box 311,3000,1100,2
yrotate object 311,-90
color object 311,rgb(255,255,0)
position object 311,2000,500,1000

rem --- make floor
make object box 303,2100,2500,3
xrotate object 303,-91                 :`floor is tilted so ball run off floor to be re-used
color object 303,rgb(0,200,0)
position object 303,1000,-7,700       :`was -2 for y

rem --- make back wall
make object box 304,2000,1000,150
color object 304,rgb(0,0,255)
backwallcenter=-500

rem --- make ceiling
make object box 305,2000,3000,2
xrotate object 305,90
color object 305,rgb(0,255,255)
position object 305,1000,1000,1000
set object emissive 305,rgb(0,70,70)

rem --- Create ODE tennis balls ---
for i=1000 to 999+maxballs
   make object sphere i,30
   set object i,1,1,0
   color object i,rgb(255,0,0)
   set object collision off i
   position object i, -2000,-2000,-2000      :`move object WAY off screen
next i

rem Create Bazooka Tube
make object cylinder 300,40         :`Tennis ball CANNON
set object 300,1,1,0
scale object 300,42,250,42
color object 300,rgb(0,10,0)
xrotate object 300,90
fix object pivot 300
`texture object 300,406

rem Create Pivot Cone for Bazooka
make object cone 301,5              :`pivot for cannon
`hide limb 301,0
glue object to limb 300,301,0
offset limb 300,0,0,25,0

rem make target ball
make object sphere 302,10            :`Target ball
set object 302,1,1,0
color object 302,rgb(255,255,255)
`texture object 302,404

rem use my own collision for room walls and floor
set object collision off 300     :`Bazooka
set object collision off 301     :`Pivot cone for cannon
set object collision off 302     :`target ball for aiming cannon

rem position objects for room
hide object 301                              :`hide cannon pivot
`position object 302,-1000,-1000,-1000        :`TARGET ball - move off screen for now
position object 301,camx,camy,camz+100

`-------------------------------------------------------
xpos=500
ypos=300
zpos=500
` Create the ODE World
ode start
ode set world gravity 0,-.3,0         :`-.3,0       :`was 0,-20,0
ode set world step  0.3             :`was 0.05
ode set world erp (0.2)*2.5         :`error correction each step
ode set world cfm (10^-5)*2.5       :`Constriant Force Mixing -

` Create a static floor, walls, ceiling.
` Implement in Dark Basic Professional first (above)
` and then ask ODE to do the same...
ode create static box 303     :`floor
ode create static box 305     :`ceiling
ode create static box 310     :`left wall
ode create static box 311     :`right wall
`ode set contact bounce 304,1

` Create dynamic sphere
` Implement in Dark Basic Professional first
` and then ask ODE to do the same...

make object sphere 400,120,16,16                :`Make sphere in DBPro first
position object 400, xpos-50,ypos+200,zpos      :`Position object in DBPro

ode create dynamic sphere 400                   :`Create same object in ODE, will have same position in ODE
ode set body mass 400,10                        :`Set object MASS
ode set contact fdir1 400,30.0                 :`Add FRICTION
`--------------------------------------------------------

`ODE floor is higher so balls seem to roll on the floor, and not 'IN' the floor
`Visible DBPro floor is lower, repositon it now, since ODE copy is made
position object 303,1000,-5,700     :`was 1000,-2,1000

nextballptr=100         :`pointer into array - points to next ball to fire
odeballptr=1000
ballcount=0             :`how many balls in use, on the screen
ballsatonce=100         :`how many balls on screen at the same time
numballs=5000           :`number of balls to shoot
maxballspeed#=8         :`how fast should the balls shoot
balltiming=100          :`pause between each ball being fired
gravityon=1             :`gravity is on
levelflag=0
level=1                 :`start at this level