Yeah i might start developing something like that
I was inspired by that Acoders competition on time.
anyways here's a version that records 5 objects at one time and uses less memory
sync on
sync rate 55
randomize timer()
dim Time(5,3600,1,1)
make matrix 1,1000,1000,25,25
make object cube 1,10
c=rnd(1000)
b=rnd(1000)
for t=2 to 5
make object sphere t,50
position object t,c,10,b
next t
Time=1
Speed=5
do
inc a,5
set cursor 0,0
Print "Move around a bit, then press R to rewind like in Prince of Persia!"
Print "Only without thouse really cool effects!"
PRint "Time: " ;Time
Print "FPS: " ;screen fps()
point camera object position x(1),object position y(1),object position z(1)
position object 2,500+sin(a)*50,10,500+-cos(a)*50
position object 3,500+sin(a)*50,10,570+cos(a)*50
position object 4,500+sin(a)*50,10,640+-cos(a)*50
Position object 5,500+sin(a)*50,10,710+cos(a)*50
if inkey$()<>"r"
if upkey()=1 then move object 1,10
if downkey()=1 then move object 1,-10
if leftkey() then dec angle,5 : yrotate object 1,wrapvalue(angle)
if rightkey() then inc angle,5 : yrotate object 1,wrapvalue(angle)
endif
if Time>3600 then Time=0
if inkey$()="r"
dec Time
sync rate 30
if Time<1 then Time=0
else
sync rate 55
inc Time
if Time>3600 then Time=0
for t=1 to 5
Time(t,Time)=object position x(t)
Time(t,Time,1)=object position z(t)
Time(t,Time,1,1)=object angle y(t)
next t
endif
for t=1 to 5
Position object t,Time(t,Time),20,Time(t,Time,1)
yrotate object t,Time(t,Time,1,1)
next t
set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),100,10,2.0,0
sync
loop
