Hello
Can you tell me what's wrong with the two following programs please? Both of them don't reach main loop and quit without any message!
sync on
sync rate 60
`FIRST STEP OF THE TEST
dim wheels(4) as integer
phy start
make object box 1, 512, 64, 64
for i = 2 to 5 step 1
make object sphere i, 32
next i
for i = 2 to 5 step 1
make mesh from object 1, i
limb = 0
while limb exist(1, limb)
limb = limb + 1
endwhile
add limb 1, limb, 1
link limb 1, 0, limb
delete mesh 1
delete object i
wheels(i-1) = limb
next
offset limb 1, wheels(1), 256, -32, 64
offset limb 1, wheels(2), 256, -32, -64
offset limb 1, wheels(3), -256, -32, 64
offset limb 1, wheels(4), -256, -32, -64
phy create vehicle 1
phy add vehicle body 1, 512, 64, 64, 0, 0, 0
phy add vehicle wheel 1, wheels(1), 256, -32, 64, 32, 0, 0, 1
phy add vehicle wheel 1, wheels(2), 256, -32, -64, 32, 0, 1, 1
phy add vehicle wheel 1, wheels(3), -256, -32, 64, 32, 0, 0, 1
phy add vehicle wheel 1, wheels(4), -256, -32, -64, 32, 0, 1, 1
phy build vehicle 1
position camera 0, 0, -1024
tstart = timer()
tend = timer()
while tend-tstart < 5000
text 0, 0, "switch to next scene in " + str$(5000 - tend + tstart) + " SCENE 1 loop"
tend = timer()
phy update
sync
endwhile
phy clear
delete object 1
`NOW SHOULD ENTER THE SECOND PHASE OF THE TEST BUT IT CRASHES
make object box 1, 512, 64, 64
for i = 2 to 5 step 1
make object sphere i, 32
next i
for i = 2 to 5 step 1
make mesh from object 1, i
limb = 0
while limb exist(1, limb)
limb = limb + 1
endwhile
add limb 1, limb, 1
link limb 1, 0, limb
delete mesh 1
delete object i
wheels(i-1) = limb
next
offset limb 1, wheels(1), 256, -32, 64
offset limb 1, wheels(2), 256, -32, -64
offset limb 1, wheels(3), -256, -32, 64
offset limb 1, wheels(4), -256, -32, -64
phy create vehicle 1
phy add vehicle body 1, 512, 64, 64, 0, 0, 0
phy add vehicle wheel 1, wheels(1), 256, -32, 64, 32, 0, 0, 1
phy add vehicle wheel 1, wheels(2), 256, -32, -64, 32, 0, 1, 1
phy add vehicle wheel 1, wheels(3), -256, -32, 64, 32, 0, 0, 1
phy add vehicle wheel 1, wheels(4), -256, -32, -64, 32, 0, 1, 1
phy build vehicle 1
position camera 0, 0, -1024
do
text 0, 0, " SCENE 2"
phy update
sync
loop
phy end
end
sync on
sync rate 60
`FIRST STEP OF THE TEST
dim wheels(4) as integer
phy start
make object box 1, 512, 64, 64
for i = 2 to 5 step 1
make object sphere i, 32
next i
for i = 2 to 5 step 1
make mesh from object 1, i
limb = 0
while limb exist(1, limb)
limb = limb + 1
endwhile
add limb 1, limb, 1
link limb 1, 0, limb
delete mesh 1
delete object i
wheels(i-1) = limb
next
offset limb 1, wheels(1), 256, -32, 64
offset limb 1, wheels(2), 256, -32, -64
offset limb 1, wheels(3), -256, -32, 64
offset limb 1, wheels(4), -256, -32, -64
phy create vehicle 1
phy add vehicle body 1, 512, 64, 64, 0, 0, 0
phy add vehicle wheel 1, wheels(1), 256, -32, 64, 32, 0, 0, 1
phy add vehicle wheel 1, wheels(2), 256, -32, -64, 32, 0, 1, 1
phy add vehicle wheel 1, wheels(3), -256, -32, 64, 32, 0, 0, 1
phy add vehicle wheel 1, wheels(4), -256, -32, -64, 32, 0, 1, 1
phy build vehicle 1
position camera 0, 0, -1024
tstart = timer()
tend = timer()
while tend-tstart < 5000
text 0, 0, "switch to next scene in " + str$(5000 - tend + tstart) + " SCENE 1 loop"
tend = timer()
phy update
sync
endwhile
phy end
delete object 1
`NOW SHOULD ENTER THE SECOND PHASE OF THE TEST BUT IT CRASHES
phy start
make object box 1, 512, 64, 64
for i = 2 to 5 step 1
make object sphere i, 32
next i
for i = 2 to 5 step 1
make mesh from object 1, i
limb = 0
while limb exist(1, limb)
limb = limb + 1
endwhile
add limb 1, limb, 1
link limb 1, 0, limb
delete mesh 1
delete object i
wheels(i-1) = limb
next
offset limb 1, wheels(1), 256, -32, 64
offset limb 1, wheels(2), 256, -32, -64
offset limb 1, wheels(3), -256, -32, 64
offset limb 1, wheels(4), -256, -32, -64
phy create vehicle 1
phy add vehicle body 1, 512, 64, 64, 0, 0, 0
phy add vehicle wheel 1, wheels(1), 256, -32, 64, 32, 0, 0, 1
phy add vehicle wheel 1, wheels(2), 256, -32, -64, 32, 0, 1, 1
phy add vehicle wheel 1, wheels(3), -256, -32, 64, 32, 0, 0, 1
phy add vehicle wheel 1, wheels(4), -256, -32, -64, 32, 0, 1, 1
phy build vehicle 1
position camera 0, 0, -1024
do
text 0, 0, " SCENE 2"
phy update
sync
loop
phy end
end
Thanks