The bit about it deleting objects continuously was my bad. I should have put something in there to avoid it. Anyway here is the code which now only deletes the object once.
sync on
sync rate 0
make object sphere 1,0.5
`load image "Planet.bmp",1
`texture object 1,1
make object box 2,20,0.1,20 : position object 2,0,-0.55,0 : color object 2,rgb(0,0,0)
make object sphere 3,0.5 : move object 1,3
#constant NOTDELETED 1
#constant DELETED 0
#Constant TRUE 1
#constant FALSE 0
Object3 as Boolean : Object3 = NOTDELETED
Collide as Boolean : Collide = FALSE
`load image "nebula.bmp",2
`texture object 2,2
Global Rings as Integer
do
Set Cursor 0,0 : Print "RingsCollected:",Rings
position camera 0,10,0
point camera 0,0,0
if leftkey() = 1 then YROTATE OBJECT 1,OBJECT ANGLE Y(1)-0.08
if rightkey() = 1 then YROTATE OBJECT 1,OBJECT ANGLE Y(1)+0.08
if keystate(17) = 1 then move object 1,0.003
if keystate(31) = 1 then move object 1,-0.003
if keystate(30) = 1 then move object left 1,.003
if keystate(32) = 1 then move object right 1,.003
If Object3=NOTDELETED then Collide = OBJECT COLLISION(1,3)
If Collide=TRUE and Object3=NOTDELETED
Object3=DELETED
Delete object 3
Set cursor 0,20 : Print "It has collided"
if Collide = 1 then Rings = Rings+1
`Add some code here to add to increase the amount of rings collected
`add some code here to delete the ring, use the delete object comand
EndIf
sync
loop
You might want to look up arrays so you can easily create multiple rings to collect. If you don't understand any of the code ive added just ask.
In theory, there is no difference between theory and practice. But, in practice, there is.
