; by matt griffiths (Rims)
; use any way you like.
; any questions ca0mgr@hotmail.com

Const RECORD_FILE_VERSION$="1.00"

Graphics3D 640,480,0,2
SetBuffer BackBuffer()

Type trail
        Field ent,life
End Type

; required global
Global recordFile=0
Global RECORD_state=0

Global leave_a_trail=1 ; 0 for no trail, 1 for.

; for freeLook(cam)
Global FL_Pitch#,FL_Yaw#,FL_Roll#,FL_XSpeed#,FL_YSpeed#,FL_ZSpeed#
Global camera=CreateCamera()
        MoveEntity camera,0,3,-5
       
       
       
       
       
; just make some objects to test with
plane=CreatePlane()
        EntityColor plane,255,0,0
        t=CreateTexture(32,32) : SetBuffer TextureBuffer(t)
        For i=0 To 31 Step 16
                For j=0 To 31 Step 16
                        Color i*120,i*120,i*120
                        Rect i,j,32/3,32/3
                Next
        Next
        SetBuffer BackBuffer()
        EntityTexture plane,t
        FreeTexture t   
c1=CreateCube()
        EntityColor c1,255,255,0
        PositionEntity c1,5,1,5 
c2=CopyEntity(c1)
        EntityColor c2,255,0,255
        PositionEntity c2,-5,1,-5
s1=CreateSphere()
        EntityColor s1,90,90,145
        EntityAlpha s1,0.4
        PositionEntity s1,-5,1,5
s2=CopyEntity(s1)
        PositionEntity s2,5,1,-5
        EntityBlend s2,3
       

; timing
gameFPS = 30
framePeriod = 1000 / gameFPS
frameTime = MilliSecs () - framePeriod
       

       
       
       
       
While KeyHit(1)=0
        Repeat
                frameElapsed = MilliSecs () - frameTime
        Until frameElapsed
        frameTicks = frameElapsed / framePeriod
        frameTween# = Float (frameElapsed Mod framePeriod) / Float (framePeriod)
       
        For frameLimit = 1 To frameTicks
                If frameLimit = frameTicks Then CaptureWorld
                frameTime = frameTime + framePeriod
               
                ; update everything...
                If KeyHit(19) Then startRecording("recording.rec")      ; R
                If KeyHit(25) Then startPlayBack("recording.rec")       ; P
       
                If KeyHit(57) Then stopRecordingAndPlayback()   ; Space
       
                If RECORD_state=1 ; are we recording?
                        record(camera)
                ElseIf RECORD_state=2 ; oh, we're playing back a file
                        playback(camera) ; change camera to any object handle
                EndIf
       
                ; handles all trail left behind
                If leave_a_trail
                        For h.trail=Each trail
                                If h\life < 0
                                        ; kill it
                                        FreeEntity h\ent
                                        Delete h
                                Else
                                        h\life=h\life-1
                                        d#=(1.0/150.0)*Float(h\life) ; (current alpha is (1.0/Total Life)*current life)
                                        EntityAlpha h\ent,d
                                EndIf
                        Next
                EndIf
       
                FreeLook(Camera)
       
                UpdateWorld     
        Next
       
        RenderWorld     frametween
       
        Color 255,0,0
        If RECORD_state=1 Then Text 0,0,"RECORDING" ElseIf RECORD_state=2 Then Text 0,0,"PLAYBACK"
       
        Flip
Wend
End



Function record(ent)
        If ent=0 Then
                DebugLog "Entity does not exist"
                Return 
        EndIf
        If recordFile=0 Then Return

        WriteFloat recordFile,EntityX(ent)
        WriteFloat recordFile,EntityY(ent)
        WriteFloat recordFile,EntityZ(ent)

        WriteFloat recordFile,EntityPitch(ent)
        WriteFloat recordFile,EntityYaw(ent)
        WriteFloat recordFile,EntityRoll(ent)
       
        If leave_a_trail
                If Rand(1,3)=1 ; only once every 3 cycles (on average)
                        ; optional... leaves a trail which fades out.
                        t.trail=New trail
                        t\ent=CreateCube()
                        EntityColor t\ent,255,0,0
                        ScaleEntity t\ent,0.5,0.5,0.5
                        PositionEntity t\ent,EntityX(ent),EntityY(ent),EntityZ(ent)
                        t\life=150
                EndIf
        EndIf
End Function


Function startRecording(file$)
        If recordFile <> 0 Then CloseFile recordFile
        recordFile=WriteFile(file)
        RECORD_state=1
        ; write the recorder version
        WriteLine recordFile,RECORD_FILE_VERSION
End Function


Function startPlayBack(file$)
        recordFile=ReadFile(file)
        RECORD_state=2 
        ; check the file and recorder versions
        r$=ReadLine(recordFile)
        If r <> RECORD_FILE_VERSION
                RuntimeError("Wrong file version (file: "+r+". Rrecorder: "+RECORD_FILE_VERSION+")")
                End
        EndIf
End Function


Function stopRecordingAndPlayback()
        If RECORD_state=1 Or RECORD_state=2 ; are we recording OR playing back?
                CloseFile recordFile
                RECORD_state=0
        EndIf   
End Function


Function playBack(entity)
        If entity=0 Then Return
        If recordFile=0 Then Return

        If Not Eof(recordFile)
                x#=ReadFloat(recordFile)
                y#=ReadFloat(recordFile)
                z#=ReadFloat(recordFile)
               
                PositionEntity entity,x,y,z
               
                New_pitch#=ReadFloat(recordFile)
                New_yaw#=ReadFloat(recordFile)
                New_roll#=ReadFloat(recordFile)
               
                RotateEntity entity,new_pitch,new_yaw,new_roll

                If leave_a_trail
                        If Rand(1,3)=1 ; only once every 3 cycles on average
                                ; optional... leaves a trail which fades out.
                                t.trail=New trail
                                t\ent=CreateCube()
                                EntityColor t\ent,255,0,0
                                ScaleEntity t\ent,0.5,0.5,0.5
                                PositionEntity t\ent,EntityX(entity),EntityY(entity),EntityZ(entity)
                                t\life=150
                        EndIf
                EndIf          
        Else
                CloseFile(recordFile)                          
                RECORD_state=0
        EndIf   
End Function




; FreeLook function by Syntax Error
Function FreeLook(FL_Cam)
                FL_Pitch#=FL_Pitch#-(-MouseYSpeed()*0.02) : FL_Pitch#=FL_Pitch#/1.2
    FL_Yaw#=FL_Yaw#+-(MouseXSpeed()*0.02) : FL_Yaw#=FL_Yaw#/1.2
    MoveMouse (GraphicsWidth()/2,GraphicsHeight()/2)
    FL_ZSpeed#=FL_ZSpeed#+Float(KeyDown(17)-KeyDown(31))*0.12 : FL_ZSpeed#=FL_ZSpeed#/1.14;  w &amp; s
                FL_XSpeed#=FL_XSpeed#+Float(KeyDown(32)-KeyDown(30))*0.12 : FL_XSpeed#=FL_XSpeed#/1.14 ; a &amp; d
                FL_YSpeed#=FL_YSpeed#+Float(KeyDown(19)-KeyDown(33))*0.12 : FL_YSpeed#=FL_YSpeed#/1.14 ; r &amp; f
                FL_Roll#=(FL_Yaw#*1.1)-(FL_XSpeed#*2.3)
    MoveEntity FL_Cam,FL_XSpeed#,FL_YSpeed#+Abs(FL_Roll#*FL_XSpeed#)/50,FL_ZSpeed#
                Local cp#=EntityPitch(FL_Cam,True)+FL_Pitch#
                If cp<-89 Then cp=-89
                If cp>89 Then cp=89
                RotateEntity FL_Cam,cp,EntityYaw(FL_Cam)+FL_Yaw#,FL_Roll#