spaghetti
GLOBAL MOVEOBJECT as FLOAT
MOVEOBJECT=1
SYNC ON
SYNC RATE 60
BACKDROP ON
COLOR BACKDROP 0
MAKE OBJECT SPHERE 1,25
SET OBJECT COLLISION on 1
SET OBJECT COLLISION to SPHERES 1
MOVE CAMERA -200
ROTATE OBJECT 1, 90,0,0
autocam off
MAKE OBJECT BOX 2,100,10,10
POSITION OBJECT 2, 0,100,0
SET OBJECT COLLISION on 2
SET OBJECT COLLISION to boxes 2
MAKE OBJECT BOX 3,100,10,10
POSITION OBJECT 3,0,-100,0
SET OBJECT COLLISION on 3
SET OBJECT COLLISION to boxes 3
DO
Move object 1, moveobject
while object hit(1,3)=1
Goto progr
endwhile
if object hit(1,2)=1
Moveobject=2
endif
SYNC
LOOP
progr:
ClS
Print "hello"
wait key
WAIT KEY
END
lazagne (correct and working):
GLOBAL MOVEOBJECT as FLOAT
MOVEOBJECT=1
SYNC ON
SYNC RATE 60
BACKDROP ON
COLOR BACKDROP 0
MAKE OBJECT SPHERE 1,25
SET OBJECT COLLISION on 1
SET OBJECT COLLISION to SPHERES 1
MOVE CAMERA -200
ROTATE OBJECT 1, 90,0,0
autocam off
MAKE OBJECT BOX 2,100,10,10
POSITION OBJECT 2, 0,100,0
SET OBJECT COLLISION on 2
SET OBJECT COLLISION to boxes 2
MAKE OBJECT BOX 3,100,10,10
POSITION OBJECT 3,0,-100,0
SET OBJECT COLLISION on 3
SET OBJECT COLLISION to boxes 3
DO
Move object 1, moveobject
if hit(1,3)=1 then gosub progr
if object hit(1,2)=1
Moveobject=2
endif
SYNC
LOOP
progr:
ClS
set cursor 0,0
Print "hello"
return
END
Btw that's not the best use for a while loop.
Cwatson