hey can anybody make nuclearglory's collision work on my project???
I have tried and i am in my 5th try
#constant ELLIP_2_POLY=2
#constant RESP_SLIDE=2
#constant DYN_NO_RESP=0
`SCENE SETTINGS
startcollisionPRO()
startcollisionDebugPRO()
#constant TYPE_CAM = 10
#constant TYPE_WORLD = 11
rem Initialisation
sync on
sync rate 60
hide mouse
autocam off
set camera range 1,300000
rem Make a terrain to fly over
`make matrix 1,100000,100000,50,50
`SET MATRIX WIREFRAME OFF 1
rem Make a really rather bad cockpit, and lock it to the screen
load image "mecha2.bmp",1
load image "waterworld.jpg",2
load image "sky day.jpg",3
load image "dirt.jpg",4
load image "starnight.jpg",5
load image "ast1.bmp",6
set normalization on
`spaceship
phantom=11
load object "phantom 2 body.x",11
position object 11,0,-10,20
lock object on 11
scale object 11,10000,10000,10000
xrotate object 11,180
yrotate object 11,360
zrotate object 11,180
SET OBJECT SMOOTHING 11, 100
set object transparency 11, 0
phantom2=15
load object "phantom 2 wings.x",15
lock object on 15
set object light 15,2
position object 15,0,-10,20
xrotate object 15,180
yrotate object 15,360
zrotate object 15,180
set object light 15, 1
set object transparency 15, 0
SET OBJECT SMOOTHING 15, 100
ghost object on 15
scale object 15,10000,10000,10000
collisionTypePRO( phantom, TYPE_CAM )
collisionTypePRO( phantom2, TYPE_CAM )
make object box 12,100,3,20
position object 12,0,-10,20
lock object on 12
make object box 13,2,50,2
position object 13,7,15,10
xrotate object 13,330
lock object on 13
make object box 14,2,50,2
position object 14,-7,15,10
xrotate object 14,330
lock object on 14
planet=16
make object sphere 16,10000
set object transparency 16, 0
make object sphere 17,10500
set object transparency 17, 0
ghost object on 17,0
texture object 17,3
texture object 16,4
`hide cocpit
hide object 12
hide object 13
hide object 14
collisionTypePRO( planet, TYPE_WORLD )
`asteroid
asteroid1=18
load object "ast_01.x",18
texture object 18,6
position object 18,80000,0,7000
scale object 18,10000,10000,10000
SET OBJECT SMOOTHING 18,100
collisionTypePRO( asteroid1, TYPE_WORLD )
`worlds
ActivateObjPRO( planet )
ActivateObjPRO( asteroid1 )
`run
RunCollisionPRO()
`collfedback
CollCount = CountCollisionsPRO( phantom )
CollCount2 = CountCollisionsPRO( phantom2 )
text 0, 120, "Collision count: "+str$(collcount)
text 0, 140, "Collision count2: "+str$(collcount2)
rem Set up initial positions and angles
x#=5000
y#=200
z#=5000
theta#=0
phi#=0
gamma#=0
thruststep#=0.1
rem Set up bullets
dim shot#(10,10)
for i=0 to 9
make object sphere i+1,5
ghost object on i+1
color object i+1,RGB(255,0,0)
next i
do
rem Mouseclicks control speed
if mouseclick()=1 then thrust#=thrust#+thruststep#
if mouseclick()=2 then thrust#=thrust#-thruststep#
rem Now the joystick button controls speed
`if joystick fire a()=1 then thrust#=thrust#+thruststep#
rem Keyboard controls speed
if keystate(16)=1 then thrust#=thrust#-thruststep#
if keystate(17)=1 then yaxisstrafe#=yaxisstrafe#-thruststep#
if keystate(18)=1 then thrust#=thrust#+thruststep#
if keystate(30)=1 then xaxisstrafe#=xaxisstrafe#-thruststep#
if keystate(31)=1 then yaxisstrafe#=yaxisstrafe#+thruststep#
if keystate(32)=1 then xaxisstrafe#=xaxisstrafe#+thruststep#
rem Shooting
rem Putting in a firing delay
if spacekey()=1 and shotrecently#=0
shotrecently#=4
for i=0 to 9
rem If the bullet is 'dead' then create a new one
if shot#(i,0)=0
rem Alive
shot#(i,0)=1
rem Current position
shot#(i,1)=x#
shot#(i,2)=y#
shot#(i,3)=z#
rem Current velocities plus velocities provided by the gun
shot#(i,4)=xvel#+(sin(theta#)*cos(phi#)*20)
shot#(i,5)=yvel#-(sin(phi#)*20)
shot#(i,6)=zvel#+(cos(theta#)*cos(phi#)*20)
rem Angle
shot#(i,7)=theta#
shot#(i,8)=phi#
rem Life
shot#(i,9)=30
show object i+1
exit
endif
next i
endif
if shotrecently#>0 then shotrecently#=shotrecently#-1
rem Update the bullets
for i=0 to 9
rem If the bullet is 'alive' then move it by it's velocity
if shot#(i,0)=1
shot#(i,1)=shot#(i,1)+shot#(i,4)
shot#(i,2)=shot#(i,2)+shot#(i,5)
shot#(i,3)=shot#(i,3)+shot#(i,6)
position object i+1,shot#(i,1),shot#(i,2),shot#(i,3)
shot#(i,9)=shot#(i,9)-1
rem If it's just run out of 'life' then 'kill' it and make
rem it available for use again
if shot#(i,9)=0
hide object i+1
shot#(i,0)=0
endif
endif
next i
rem Mouse movements control angles
theta#=curveangle(theta#+mousemovex(),theta#,7)
phi#=curveangle(phi#+mousemovey(),phi#,7)
remstart
if mousex()>=640 then position mouse 640,mousey()
if mousex()<=0 then position mouse 0,mousey()
if mousey()>=480 then position mouse mousex(),480
if mousey()<=0 then position mouse mousex(),0
if mousex()>=340 then theta#=wrapvalue(theta#+((mousex()-340)*0.015))
if mousex()<=300 then theta#=wrapvalue(theta#+((mousex()-300)*0.015))
if mousey()>=260 then phi#=wrapvalue(phi#-((mousey()-260)*0.015))
if mousey()<=220 then phi#=wrapvalue(phi#-((mousey()-220)*0.015))
remend
rem Keyboard controls angles
if upkey()=1 then phivel#=curvevalue(-5,phivel#,20)
if downkey()=1 then phivel#=curvevalue(5,phivel#,20)
if leftkey()=1 then thetavel#=curvevalue(-5,thetavel#,20)
if rightkey()=1 then thetavel#=curvevalue(5,thetavel#,20)
if upkey()=0 and downkey()=0 then phivel#=curvevalue(0,phivel#,10)
if leftkey()=0 and rightkey()=0 then thetavel#=curvevalue(0,thetavel#,10)
theta#=wrapvalue(theta#+thetavel#)
phi#=wrapvalue(phi#+phivel#)
`oldtheta#=theta#
`oldphi#=phi#
`theta#=wrapvalue(theta#+mousemovex())
`phi#=wrapvalue(phi#+mousemovey())
rem Joystick controls angles
`theta#=wrapvalue(theta#+(joystick x()*0.005))
`phi#=wrapvalue(phi#-(joystick y()*0.005))
if phi#>90 and phi#<180 then phi#=90
if phi#<270 and phi#>180 then phi#=270
rem Decay the thrust so you don't go really fast
thrust#=thrust#*0.9
xaxisstrafe#=xaxisstrafe#*0.9
yaxisstrafe#=yaxisstrafe#*0.9
rem Accelerate the velocities (this took ages to work out)
xvel#=xvel#+(sin(theta#)*cos(phi#)*thrust#)
yvel#=yvel#-(sin(phi#)*thrust#)
zvel#=zvel#+(cos(theta#)*cos(phi#)*thrust#)
xvel#=xvel#+(sin(theta#+90)*xaxisstrafe#)
zvel#=zvel#+(cos(theta#+90)*xaxisstrafe#)
xvel#=xvel#+(sin(theta#)*cos(phi#+90)*yaxisstrafe#)
yvel#=yvel#-(sin(phi#+90)*yaxisstrafe#)
zvel#=zvel#+(cos(theta#)*cos(phi#+90)*yaxisstrafe#)
rem Some friction to stop you going too fast
xvel#=xvel#*0.99
yvel#=yvel#*0.99
zvel#=zvel#*0.99
rem Simple velocity
x#=x#`+xvel#
y#=y#`+yvel#
z#=z#`+zvel#
x#=x#+xvel#
y#=y#+yvel#
z#=z#+zvel#
rem Screen display
text 0,0,"X velocity:"
text 0,20,"Y velocity:"
text 0,40,"Z velocity:"
text 0,60,"Theta:"
text 0,80,"Phi:"
text 0,100,"Thrust:"
text 100,0,str$(xvel#)
text 100,20,str$(yvel#)
text 100,40,str$(zvel#)
text 100,60,str$(theta#)
text 100,80,str$(phi#)
text 100,100,str$(thrust#)
rem Rotate and position the camera
position camera x#,y#,z#
yrotate camera theta#
xrotate camera phi#
sync
loop
