I just got the DarkSource snippets a while back and thought I would modify one of them for practice. This is probably one of the dumbest programming mistakes I've made in a while, but hopefully someone can still help me here.
Essentially I'm trying to use Sparky's Collision DLL between a cube and a sphere, the following code doesn't function this way:
Rem Project: AmbientLight
Rem Created: 17/02/2003 19:05:39
rem Init app
sync on : sync rate 60 : set display mode screen width(),screen height(),screen depth()
rem Create some 3D for the ambient light
make object sphere 1,100 : position object 1,-75,0,0
make object cube 2,75 : position object 2,75,0,0
sc_setupobject 1, 1, 0
sc_setupobject 2, 1, 0
object = 2
x = object position x (object)
y = object position y (object)
z = object position z (object)
rem Setup camera
position camera 0,0,-200
rem Main loop
do
position object object, x, y, z
rem Affect ambient light
amb=wrapvalue(amb+3)
amblight=50+cos(amb)*50
set ambient light amblight
if amblight=0 then i = i+1 : if i>=3 then i=0
rem Affect ambient color
col=wrapvalue(col+1)
if i=0 then ambcolor=rgb(255,0,0) : col$="RED"
if i=1 then ambcolor=rgb(0,255,0) : col$="GREEN"
if i=2 then ambcolor=rgb(0,0,255) : col$="BLUE"
color ambient light ambcolor
rem User prompt
center text 320,20,"AMBIENT LIGHT LEVEL : "+str$(amblight)
center text 320,40,"AMBIENT LIGHT COLOR : "+col$
center text 320,60,"sc_objectcollision (1,2) : "+str$(sc_objectcollision (1,2))
center text 320,80,"x : "+str$(x)
center text 320,100,"y : "+str$(y)
center text 320,120,"z : "+str$(z)
if upkey() then inc z
if sc_objectcollision(1,2) then dec z
if downkey() then dec z
if sc_objectcollision(1,2) then inc z
if leftkey() then inc x
if sc_objectcollision(1,2) then dec x
if rightkey() then dec x
if sc_objectcollision(1,2) then inc x
sc_updateobject 1
sc_updateobject 2
rem Update screen
sync
rem End loop
loop
If you run this, the cube will still go through the sphere as if there was no collision involved.
