Sorry your browser is not supported!

type EyeType
    RenderImage as integer
    Sprite as integer
    PosX as float
    PosY as float
    PosZ as float
endtype

LeftEye as EyeType
RightEye as EyeType
global EyeDistance as float : EyeDistance = 10.0
global NetworkID as integer

OSName$ = GetDeviceName( )
if OSName$="windows"
    RunningPC = 1
else
    RunningPC = 0
endif

SetVirtualResolution( 1280,720 )
SetOrientationAllowed( 0,0,1,0 )
SetViewOffset(0.0,0.0)
SetPrintSize( 32 )
SetGlobal3DDepth(10000)
SetScissor( 0,0,0,0 )
SetSyncRate( 60, 1 )

SetWindowTitle("AGK-VR: the occulus thrift")

//Set Camera/Eye positions
LeftEye.PosX = -(EyeDistance / 2.0)
LeftEye.PosY = 0.0
LeftEye.PosZ = 0.0
RightEye.PosX = (EyeDistance / 2.0)
RightEye.PosY = 0.0
RightEye.PosZ = 0.0

SetCameraFOV(1,90.0)
SetCameraRange(1,5,2000)

//set up images to render cameras to
LeftEye.RenderImage = CreateRenderImage(getvirtualwidth()/2,getvirtualheight(),0,0 )
LeftEye.Sprite = CreateSprite(0)
SetSpriteTransparency( LeftEye.Sprite,0 )
SetSpriteDepth(LeftEye.Sprite,1)
FixSpriteToScreen(LeftEye.Sprite,1)

RightEye.RenderImage = CreateRenderImage(getvirtualwidth()/2,getvirtualheight(),0,0 )
RightEye.Sprite = CreateSprite(0)
SetSpriteTransparency( RightEye.Sprite,0 )
SetSpriteDepth(RightEye.Sprite,1)
FixSpriteToScreen(RightEye.Sprite,1)


customimg = LoadImage("Fnt_Illuminate.png")

if RunningPC=1
    CreateText(1,"Waiting for mobile to connect...")
else
    CreateText(1,"Waiting for PC to host...")
endif

SetTextFontImage(1,customimg)
SetTextAlignment(1,1)
SetTextPosition(1,getvirtualwidth()/2.0,getvirtualheight()/2.0)
SetTextSize(1,80)

CreateText(2,"The Oculus Thrift")
SetTextFontImage(2,customimg)
SetTextAlignment(2,1)
SetTextPosition(2,getvirtualwidth()/2.0,80.0)
SetTextSize(2,50)

Sync()

//Connect to LAN
if RunningPC=1
    NetworkID = HostNetwork("Cardboard_UG","PC_Joystick",2000)
    CompleteRawJoystickDetection()
    
    //quit if no joystick connected
    if GetJoystickExists()=0
		Message("Could not detect a joystick.")
		end
	endif
else
    NetworkID = JoinNetwork("Cardboard_UG","Headset")
    
    //quit if no vector sensor exists on headset
    if GetRotationVectorSensorExists()=0
		Message("Could not detect a rotation sensor.")
		end
	endif
endif

timeout# = timer() + 20.0
repeat
    sync()
    Connected = IsNetworkActive(NetworkID)
until Connected>0 or timer()>timeout#

if timer()>timeout#
	Message("Connection timed out.")
    end
endif


//Hold point until second device is connected
repeat
    Clients = GetNetworkNumClients(NetworkID)
    
    //print("Clients connected:"+str(Clients))

    if GetRawKeyPressed( 27 )
        if IsNetworkActive(NetworkID)=1
            CloseNetwork(NetworkID)
        endif

        end
    endif

    sync()
until Clients=2


//record Host and Client IDs
if RunningPC=1
    HostID = GetNetworkMyClientID(NetworkID)
    tempID = GetNetworkFirstClient(NetworkID)

    while tempID<>0
        if tempID<>HostID
            ClientID = tempID
        endif
        tempID = GetNetworkNextClient(NetworkID)
    endwhile

else
    ClientID = GetNetworkMyClientID(NetworkID)
    tempID = GetNetworkFirstClient(NetworkID)

    while tempID<>0
        if tempID<>ClientID
            HostID = tempID
        endif
        tempID = GetNetworkNextClient(NetworkID)
    endwhile

endif


rem Load world
settextstring(1,"Loading Metro Theatre Scene")
settextstring(2,"Artwork by Mark Blosser")

gosub _load_world

settextvisible(1,0)
settextvisible(2,0)


//player position
plrx#=1850 : plrz#=-3650 : plry#=560

if RunningPC=1

    SetNetworkLocalFloat(NetworkID,"PlayerX",plrx#)
    SetNetworkLocalFloat(NetworkID,"PlayerY",plry#)
    SetNetworkLocalFloat(NetworkID,"PlayerZ",plrz#)

endif

// unity
CorrectionX# = 0.0
CorrectionY# = 0.0
CorrectionZ# = 0.0
CorrectionW# = 1.0

Do
    if RunningPC=0
        //get the rotational vector
        RotSensorW# = GetRawRotationVectorW2()
        RotSensorX# = GetRawRotationVectorX2()
        RotSensorY# = GetRawRotationVectorY2()
        RotSensorZ# = GetRawRotationVectorZ2()

        //set network variables
        SetNetworkLocalFloat(NetworkID,"RotQuatX",RotSensorX#)
        SetNetworkLocalFloat(NetworkID,"RotQuatY",RotSensorY#)
        SetNetworkLocalFloat(NetworkID,"RotQuatZ",RotSensorZ#)
        SetNetworkLocalFloat(NetworkID,"RotQuatW",RotSensorW#)

        //get player position
        plrx# = GetNetworkClientFloat(NetworkID,HostID,"PlayerX")
        plrz# = GetNetworkClientFloat(NetworkID,HostID,"PlayerZ")

    else

        //move player with joystick
        if GetJoystickExists()=1
            //strife
            plrx# = plrx# + (GetRawJoystickX(1)*50.0*cos(Angle_Y#)*getframetime())
            plrz# = plrz# - (GetRawJoystickX(1)*50.0*sin(Angle_Y#)*getframetime())

            //forward
            plrx# = plrx# + (GetRawJoystickY(1)*50.0*sin(-Angle_Y#)*getframetime())
            plrz# = plrz# - (GetRawJoystickY(1)*50.0*cos(-Angle_Y#)*getframetime())


            SetNetworkLocalFloat(NetworkID,"PlayerX",plrx#)
            SetNetworkLocalFloat(NetworkID,"PlayerZ",plrz#)
        else
            //use keyboard

            //Right - D
            plrx# = plrx# + (GetRawKeyState(68)*50.0*cos(Angle_Y#)*getframetime())
            plrz# = plrz# - (GetRawKeyState(68)*50.0*sin(Angle_Y#)*getframetime())

            //Left - A
            plrx# = plrx# - (GetRawKeyState(65)*50.0*cos(Angle_Y#)*getframetime())
            plrz# = plrz# + (GetRawKeyState(65)*50.0*sin(Angle_Y#)*getframetime())

            //foward - W
            plrx# = plrx# - (GetRawKeyState(87)*50.0*sin(-Angle_Y#)*getframetime())
            plrz# = plrz# + (GetRawKeyState(87)*50.0*cos(-Angle_Y#)*getframetime())

            //back - S
            plrx# = plrx# + (GetRawKeyState(83)*50.0*sin(-Angle_Y#)*getframetime())
            plrz# = plrz# - (GetRawKeyState(83)*50.0*cos(-Angle_Y#)*getframetime())


            SetNetworkLocalFloat(NetworkID,"PlayerX",plrx#)
            SetNetworkLocalFloat(NetworkID,"PlayerZ",plrz#)
        endif

        //get values from head-set
        RotSensorX# = GetNetworkClientFloat(NetworkID,ClientID,"RotQuatX")
        RotSensorY# = GetNetworkClientFloat(NetworkID,ClientID,"RotQuatY")
        RotSensorZ# = GetNetworkClientFloat(NetworkID,ClientID,"RotQuatZ")
        RotSensorW# = GetNetworkClientFloat(NetworkID,ClientID,"RotQuatW")

    endif

    //set the camera rotation
    SetCameraRotationQuat(1,RotSensorW#,RotSensorX#,RotSensorY#,RotSensorZ#)

    //determine eye positions
    Angle_X# = GetCameraAngleX(1)
    Angle_Y# = GetCameraAngleY(1)
    Angle_Z# = GetCameraAngleZ(1)

    InPlaneDist# = EyeDistance * cos(Angle_Z#)
    LeftEye.PosY = plry# + (EyeDistance * sin(Angle_Z#))
    RightEye.PosY = plry# - (EyeDistance * sin(Angle_Z#))

    LeftEye.PosX = plrx# - ((InPlaneDist# / 2.0) * cos(Angle_Y#))
    RightEye.PosX = plrx# + ((InPlaneDist# / 2.0) * cos(Angle_Y#))

    LeftEye.PosZ = plrz# - ((InPlaneDist# / 2.0) * sin(Angle_Y#))
    RightEye.PosZ = plrz# + ((InPlaneDist# / 2.0) * sin(Angle_Y#))


    //quitting
    if GetRawKeyPressed( 27 )
        if IsNetworkActive(NetworkID)=1
            CloseNetwork(NetworkID)
        endif

        end
    endif

    Update(0)

    if RunningPC=0
        //Left Eye
        SetCameraPosition(1,LeftEye.PosX,LeftEye.PosY,LeftEye.PosZ)
        SetRenderToImage( LeftEye.RenderImage,0 )
        ClearScreen( )
        Render( )

        //Right Eye
        SetCameraPosition(1,RightEye.PosX,RightEye.PosY,RightEye.PosZ)
        SetRenderToImage( RightEye.RenderImage,0 )
        ClearScreen( )
        Render( )
    else
        SetCameraPosition(1,LeftEye.PosX,LeftEye.PosY,LeftEye.PosZ)
    endif

    SetRenderToScreen( )

    if RunningPC=0
        //Left Eye
        SetSpriteImage( LeftEye.Sprite,LeftEye.RenderImage)
        SetSpriteSize( LeftEye.Sprite,getvirtualwidth()/2,getvirtualheight()*1.3 )
        SetSpritePosition( LeftEye.Sprite,0,0 )
        SetSpriteVisible( LeftEye.Sprite,1 )

        //Right Eye
        SetSpriteImage( RightEye.Sprite,RightEye.RenderImage)
        SetSpriteSize( RightEye.Sprite,getvirtualwidth()/2,getvirtualheight()*1.3 )
        SetSpritePosition( RightEye.Sprite,getvirtualwidth()/2.0,0 )
        SetSpriteVisible( RightEye.Sprite,1 )

        drawline(getvirtualwidth()/2.0,0.0,getvirtualwidth()/2.0,720,255,255,255)
    endif

    Render( )
    Swap( )

    SetSpriteVisible( LeftEye.Sprite,0 )
    SetSpriteVisible( RightEye.Sprite,0 )

Loop


_load_world:
 `
 rem Shaders
 shaderindex=1 : LoadShader(shaderindex,"vertex.vs","pixel.ps")
 `
 rem Load lightmaps
 dim lm[10]
 lm[0]=LoadImage("0.png")
 lm[1]=LoadImage("1.png")
 for t=0 to 1
  SetImageWrapU(lm[t],1)
  SetImageWrapV(lm[t],1)
 next t
 `
 rem Load all OBJ making up world (created in FPS Creator)
 objmax=50
 for obj=1 to objmax
  obj$="mesh"+str(obj)+".obj"
  LoadObject(obj,obj$,0)
  if obj>=1 and obj<=7
   tex$="mesh"+str(obj)+"-1.jpg"
  else
   tex$="mesh"+str(obj)+"-0.jpg"
  endif
  texname$=left(tex$,len(tex$)-4)
  lm$=right(texname$,1)
  if lm$="-" then lm$="0"
  teximg=LoadImage(tex$)
  SetImageWrapU(teximg,1)
  SetImageWrapV(teximg,1)
  SetObjectImage(obj,teximg,0)
  SetObjectImage(obj,lm[val(lm$)],1)
  SetObjectShader(obj,shaderindex)
  `
  //SetObjectRotation(obj,0,0,90)
  `
  rem Progress status
  perc#=obj : perc#=perc#/objmax : perc=perc#*100
  SetTextString(1,"Metro Theatre - "+str(perc)+"%") : Sync()

 next obj
 `
return

Function Sensor_GetGyroExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,0 )
    endif
Endfunction e

Function Sensor_GetGyroX( )
    x# = 0
    if GetMemblockExists( 1 )
        x# = GetMemblockFloat( 1,4 )
    endif
Endfunction x#

Function Sensor_GetGyroY( )
    y# = 0
    if GetMemblockExists( 1 )
        y# = GetMemblockFloat( 1,8 )
    endif
Endfunction y#

Function Sensor_GetGyroZ( )
    z# = 0
    if GetMemblockExists( 1 )
        z# = GetMemblockFloat( 1,12 )
    endif
Endfunction z#

Function Sensor_GetProximityExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,16 )
    endif
Endfunction e

Function Sensor_GetProximity( )
    p# = 0
    if GetMemblockExists( 1 )
        p# = GetMemblockFloat( 1,20 )
    endif
Endfunction p#

Function Sensor_GetLightExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,24 )
    endif
Endfunction e

Function Sensor_GetLight( )
    l# = 0
    if GetMemblockExists( 1 )
        l# = GetMemblockFloat( 1,28 )
    endif
Endfunction l#

Function Sensor_GetMagneticExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,32 )
    endif
Endfunction e

Function Sensor_GetMagneticX( )
    x# = 0
    if GetMemblockExists( 1 )
        x# = GetMemblockFloat( 1,36 )
    endif
Endfunction x#

Function Sensor_GetMagneticY( )
    y# = 0
    if GetMemblockExists( 1 )
        y# = GetMemblockFloat( 1,40 )
    endif
Endfunction y#

Function Sensor_GetMagneticZ( )
    z# = 0
    if GetMemblockExists( 1 )
        z# = GetMemblockFloat( 1,44 )
    endif
Endfunction z#

Function Sensor_GetRotVectorExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,48 )
    endif
Endfunction e

Function Sensor_GetRotVectorX( )
    x# = 0
    if GetMemblockExists( 1 )
        x# = GetMemblockFloat( 1,52 )
    endif
Endfunction x#

Function Sensor_GetRotVectorY( )
    y# = 0
    if GetMemblockExists( 1 )
        y# = GetMemblockFloat( 1,56 )
    endif
Endfunction y#

Function Sensor_GetRotVectorZ( )
    z# = 0
    if GetMemblockExists( 1 )
        z# = GetMemblockFloat( 1,60 )
    endif
Endfunction z#

SetVirtualResolution( 1280,720 )
SetOrientationAllowed( 0,0,1,0 )
SetPrintSize( 32 )

Do
 Print( "Gyroscope Exists: " + Str( Sensor_GetGyroExists( ) ) )
 Print( "Gyroscope X: " + Str( Sensor_GetGyroX( ) ) )
 Print( "Gyroscope Y: " + Str( Sensor_GetGyroY( ) ) )
 Print( "Gyroscope Z: " + Str( Sensor_GetGyroZ( ) ) )
 Print( "" )
 Print( "Proximity Sensor Exists: " + Str( Sensor_GetProximityExists( ) ) )
 Print( "Proximity Distance: " + Str( Sensor_GetProximity( ) ) )
 Print( "" )
 Print( "Light Sensor Exists: " + Str( Sensor_GetLightExists( ) ) )
 Print( "Light Sensor Level: " + Str( Sensor_GetLight( ) ) )
 Print( "" )
 Print( "Magnetic Field Sensor Exists: " + Str( Sensor_GetMagneticExists( ) ) )
 Print( "Magnetic Field Sensor X: " + Str( Sensor_GetMagneticX( ) ) )
 Print( "Magnetic Field Sensor Y: " + Str( Sensor_GetMagneticY( ) ) )
 Print( "Magnetic Field Sensor Z: " + Str( Sensor_GetMagneticZ( ) ) )
 Print( "" )
 Print( "Rotation Vector Exists: " + Str( Sensor_GetRotVectorExists( ) ) )
 Print( "Rotation Vector X: " + Str( Sensor_GetRotVectorX( ) ) )
 Print( "Rotation Vector Y: " + Str( Sensor_GetRotVectorY( ) ) )
 Print( "Rotation Vector Z: " + Str( Sensor_GetRotVectorZ( ) ) )

 if GetRawKeyPressed( 27 ) then end
 Sync()
Loop

Function Sensor_GetGyroExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,0 )
    endif
Endfunction e

Function Sensor_GetGyroX( )
    x# = 0
    if GetMemblockExists( 1 )
        x# = GetMemblockFloat( 1,4 )
    endif
Endfunction x#

Function Sensor_GetGyroY( )
    y# = 0
    if GetMemblockExists( 1 )
        y# = GetMemblockFloat( 1,8 )
    endif
Endfunction y#

Function Sensor_GetGyroZ( )
    z# = 0
    if GetMemblockExists( 1 )
        z# = GetMemblockFloat( 1,12 )
    endif
Endfunction z#

Function Sensor_GetProximityExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,16 )
    endif
Endfunction e

Function Sensor_GetProximity( )
    p# = 0
    if GetMemblockExists( 1 )
        p# = GetMemblockFloat( 1,20 )
    endif
Endfunction p#

Function Sensor_GetLightExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,24 )
    endif
Endfunction e

Function Sensor_GetLight( )
    l# = 0
    if GetMemblockExists( 1 )
        l# = GetMemblockFloat( 1,28 )
    endif
Endfunction l#

Function Sensor_GetMagneticExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,32 )
    endif
Endfunction e

Function Sensor_GetMagneticX( )
    x# = 0
    if GetMemblockExists( 1 )
        x# = GetMemblockFloat( 1,36 )
    endif
Endfunction x#

Function Sensor_GetMagneticY( )
    y# = 0
    if GetMemblockExists( 1 )
        y# = GetMemblockFloat( 1,40 )
    endif
Endfunction y#

Function Sensor_GetMagneticZ( )
    z# = 0
    if GetMemblockExists( 1 )
        z# = GetMemblockFloat( 1,44 )
    endif
Endfunction z#

Function Sensor_GetRotVectorExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,48 )
    endif
Endfunction e

Function Sensor_GetRotVectorX( )
    x# = 0
    if GetMemblockExists( 1 )
        x# = GetMemblockFloat( 1,52 )
    endif
Endfunction x#

Function Sensor_GetRotVectorY( )
    y# = 0
    if GetMemblockExists( 1 )
        y# = GetMemblockFloat( 1,56 )
    endif
Endfunction y#

Function Sensor_GetRotVectorZ( )
    z# = 0
    if GetMemblockExists( 1 )
        z# = GetMemblockFloat( 1,60 )
    endif
Endfunction z#

rem
rem AGK Application
rem

SetVirtualResolution( 1024,768 )

For r = 1 to 2
    CreateRenderImage( r,1024,768 / 2.0,0,1 )
    CreateSprite( r,0 )
    SetSpriteSize( r,1024,768 / 2.0 )
Next r

CreateObjectBox( 1,5,5,5 )
CreateObjectBox( 2,0.2,0.2,0.2 )

Do
    Update( 0 )

    SetObjectVisible( 2,0 )
    SetObjectVisible( 1,1 )
        For r = 1 to 2
            SetRenderToImage( r,-1 )
            ClearScreen( )
            if r = 1
                SetObjectColor( 1,255,255,255,255 )
            else
                SetObjectColor( 1,255,0,0,255 )
            endif
            Render( )
        Next r
    SetObjectVisible( 1,0 )
    SetObjectVisible( 2,1 )

    For r = 1 to 2
        SetSpriteImage( r,r )
        SetSpriteTransparency( r,0 )
        SetSpritePosition( r,0,( 768 / 2.0 ) * ( r - 1 ) )
        SetSpriteVisible( r,1 )
    Next r

    SetRenderToScreen( )
    Render( )
    Swap( )

    For r = 1 to 2
        SetSpriteVisible( r,0 )
    Next r

Loop

SetVirtualResolution( 1280,720 )
SetOrientationAllowed( 0,0,1,0 )
SetPrintSize( 32 )

//Camera(s)
SetCameraPosition(1,0.0,0.0,0.0)
SetCameraFOV(1,90.0)
SetCameraRange(1,5,2000)

//objects
BoxID = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID,255,0,0,255)
SetObjectVisible(BoxID,1)
SetObjectPosition(BoxID,100,0,0)

BoxID = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID,0,255,0,255)
SetObjectVisible(BoxID,1)
SetObjectPosition(BoxID,0,100,0)

BoxID = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID,0,0,255,255)
SetObjectVisible(BoxID,1)
SetObjectPosition(BoxID,-100,0,0)

BoxID = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID,255,255,0,255)
SetObjectVisible(BoxID,1)
SetObjectPosition(BoxID,0,-100,0)

BoxID = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID,255,0,255,255)
SetObjectVisible(BoxID,1)
SetObjectPosition(BoxID,0,0,100)

BoxID = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID,0,255,255,255)
SetObjectVisible(BoxID,1)
SetObjectPosition(BoxID,0,0,-100)

Do
    //get the rotational vector
    RotSensorX# = Sensor_GetRotVectorX()
    RotSensorY# = Sensor_GetRotVectorY()
    RotSensorZ# = Sensor_GetRotVectorZ()

    //find the W part of the quaternion
    RotW# = sqrt(1 - (RotSensorX#*RotSensorX#) - (RotSensorY#*RotSensorY#) - (RotSensorZ#*RotSensorZ#))

    //set the camera rotation
    SetCameraRotationquat(1,RotW#,RotSensorY#,-RotSensorX#,RotSensorZ#)

    //quitting
    if GetRawKeyPressed( 27 ) then end

    Sync()
Loop

Function Sensor_GetGyroExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,0 )
    endif
Endfunction e

Function Sensor_GetGyroX( )
    x# = 0
    if GetMemblockExists( 1 )
        x# = GetMemblockFloat( 1,4 )
    endif
Endfunction x#

Function Sensor_GetGyroY( )
    y# = 0
    if GetMemblockExists( 1 )
        y# = GetMemblockFloat( 1,8 )
    endif
Endfunction y#

Function Sensor_GetGyroZ( )
    z# = 0
    if GetMemblockExists( 1 )
        z# = GetMemblockFloat( 1,12 )
    endif
Endfunction z#

Function Sensor_GetProximityExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,16 )
    endif
Endfunction e

Function Sensor_GetProximity( )
    p# = 0
    if GetMemblockExists( 1 )
        p# = GetMemblockFloat( 1,20 )
    endif
Endfunction p#

Function Sensor_GetLightExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,24 )
    endif
Endfunction e

Function Sensor_GetLight( )
    l# = 0
    if GetMemblockExists( 1 )
        l# = GetMemblockFloat( 1,28 )
    endif
Endfunction l#

Function Sensor_GetMagneticExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,32 )
    endif
Endfunction e

Function Sensor_GetMagneticX( )
    x# = 0
    if GetMemblockExists( 1 )
        x# = GetMemblockFloat( 1,36 )
    endif
Endfunction x#

Function Sensor_GetMagneticY( )
    y# = 0
    if GetMemblockExists( 1 )
        y# = GetMemblockFloat( 1,40 )
    endif
Endfunction y#

Function Sensor_GetMagneticZ( )
    z# = 0
    if GetMemblockExists( 1 )
        z# = GetMemblockFloat( 1,44 )
    endif
Endfunction z#

Function Sensor_GetRotVectorExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,48 )
    endif
Endfunction e

Function Sensor_GetRotVectorX( )
    x# = 0
    if GetMemblockExists( 1 )
        x# = GetMemblockFloat( 1,52 )
    endif
Endfunction x#

Function Sensor_GetRotVectorY( )
    y# = 0
    if GetMemblockExists( 1 )
        y# = GetMemblockFloat( 1,56 )
    endif
Endfunction y#

Function Sensor_GetRotVectorZ( )
    z# = 0
    if GetMemblockExists( 1 )
        z# = GetMemblockFloat( 1,60 )
    endif
Endfunction z#

rem
rem AGK Application
rem

SetVirtualResolution( 1280,720 )
SetClearColor( 0,0,128 )

Global screenRender : screenRender = 0

screenRender = CreateRenderImage( GetVirtualWidth( ) / 2.0,GetVirtualHeight( ),0,1 )

Dim renderSprite[ 2 ]

For r = 1 to 2
    renderSprite[ r ] = CreateSprite( 0 )
    SetSpriteSize( renderSprite[ r ],GetVirtualWidth( ) / 2.0,GetVirtualHeight( ) )
Next r

Rem objects
Global boxObjMax : boxObjMax = 6
Dim boxObj[ boxObjMax ]

BoxID = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID,255,0,0,255)
SetObjectVisible(BoxID,1)
SetObjectPosition(BoxID,100,0,0)
bO = bO + 1
boxObj[ bO ] = BoxID

BoxID = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID,0,255,0,255)
SetObjectVisible(BoxID,1)
SetObjectPosition(BoxID,0,100,0)
bO = bO + 1
boxObj[ bO ] = BoxID

BoxID = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID,0,0,255,255)
SetObjectVisible(BoxID,1)
SetObjectPosition(BoxID,-100,0,0)
bO = bO + 1
boxObj[ bO ] = BoxID

BoxID = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID,255,255,0,255)
SetObjectVisible(BoxID,1)
SetObjectPosition(BoxID,0,-100,0)
bO = bO + 1
boxObj[ bO ] = BoxID

BoxID = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID,255,0,255,255)
SetObjectVisible(BoxID,1)
SetObjectPosition(BoxID,0,0,100)
bO = bO + 1
boxObj[ bO ] = BoxID

BoxID = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID,0,255,255,255)
SetObjectVisible(BoxID,1)
SetObjectPosition(BoxID,0,0,-100)
bO = bO + 1
boxObj[ bO ] = BoxID

Do
    Update( 0 )

    Rem Render the scene to the render image
    SetRenderToImage( screenRender,-1 )
    ClearScreen( )
    Render( )

    Rem apply our render image to both sprites (one for each side)
    For r = 1 to 2
        SetSpriteImage( renderSprite[ r ],screenRender )
        SetSpriteTransparency( renderSprite[ r ],0 )
        SetSpritePosition( renderSprite[ r ],GetVirtualWidth( ) / 2.0 * ( r - 1 ),0 )
        SetSpriteVisible( renderSprite[ r ],1 )
    Next r

    //get the rotational vector
    rotSensorX# = Sensor_GetRotVectorX()
    rotSensorY# = Sensor_GetRotVectorY()
    rotSensorZ# = Sensor_GetRotVectorZ()

    //find the W part of the quaternion
    RotW# = sqrt(1 - (RotSensorX#*RotSensorX#) - (RotSensorY#*RotSensorY#) - (RotSensorZ#*RotSensorZ#))

    //set the camera rotation
    SetCameraRotationquat(1,RotW#,RotSensorY#,-RotSensorX#,RotSensorZ#)


    Rem change render target back to screen and render sprites to screen
    SetRenderToScreen( )

    Rem hide objects before render (no need to render objects the camera won't see)
    For bO = 1 to boxObjMax
        SetObjectVisible( boxObj[ bO ],0 )
    Next bO

    Rem render screen
        Render( )
        Swap( )

    Rem make sure we make our objects visible again
    For bO = 1 to boxObjMax
        SetObjectVisible( boxObj[ bO ],1 )
    Next bO

    Rem hide render sprites from next render
    For r = 1 to 2
        SetSpriteVisible( renderSprite[ r ],0 )
    Next r

Loop

Function Sensor_GetGyroExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,0 )
    endif
Endfunction e

Function Sensor_GetGyroX( )
    x# = 0
    if GetMemblockExists( 1 )
        x# = GetMemblockFloat( 1,4 )
    endif
Endfunction x#

Function Sensor_GetGyroY( )
    y# = 0
    if GetMemblockExists( 1 )
        y# = GetMemblockFloat( 1,8 )
    endif
Endfunction y#

Function Sensor_GetGyroZ( )
    z# = 0
    if GetMemblockExists( 1 )
        z# = GetMemblockFloat( 1,12 )
    endif
Endfunction z#

Function Sensor_GetProximityExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,16 )
    endif
Endfunction e

Function Sensor_GetProximity( )
    p# = 0
    if GetMemblockExists( 1 )
        p# = GetMemblockFloat( 1,20 )
    endif
Endfunction p#

Function Sensor_GetLightExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,24 )
    endif
Endfunction e

Function Sensor_GetLight( )
    l# = 0
    if GetMemblockExists( 1 )
        l# = GetMemblockFloat( 1,28 )
    endif
Endfunction l#

Function Sensor_GetMagneticExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,32 )
    endif
Endfunction e

Function Sensor_GetMagneticX( )
    x# = 0
    if GetMemblockExists( 1 )
        x# = GetMemblockFloat( 1,36 )
    endif
Endfunction x#

Function Sensor_GetMagneticY( )
    y# = 0
    if GetMemblockExists( 1 )
        y# = GetMemblockFloat( 1,40 )
    endif
Endfunction y#

Function Sensor_GetMagneticZ( )
    z# = 0
    if GetMemblockExists( 1 )
        z# = GetMemblockFloat( 1,44 )
    endif
Endfunction z#

Function Sensor_GetRotVectorExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,48 )
    endif
Endfunction e

Function Sensor_GetRotVectorX( )
    x# = 0
    if GetMemblockExists( 1 )
        x# = GetMemblockFloat( 1,52 )
    endif
Endfunction x#

Function Sensor_GetRotVectorY( )
    y# = 0
    if GetMemblockExists( 1 )
        y# = GetMemblockFloat( 1,56 )
    endif
Endfunction y#

Function Sensor_GetRotVectorZ( )
    z# = 0
    if GetMemblockExists( 1 )
        z# = GetMemblockFloat( 1,60 )
    endif
Endfunction z#

SetVirtualResolution( 1280,720 )
SetOrientationAllowed( 0,0,1,0 )
SetViewOffset(0.0,0.0)
SetPrintSize( 32 )
SetGlobal3DDepth(10000)

//Camera(s)
LeftEyeX# = -5.0
LeftEyeY# = 0.0
LeftEyeZ# = 0.0
RightEyeX# = 5.0
RightEyeY# = 0.0
RightEyeZ# = 0.0

SetCameraPosition(1,0.0,0.0,0.0)
SetCameraFOV(1,90.0)
SetCameraRange(1,5,2000)

//images to render
LeftEyeImg = CreateRenderImage(getvirtualwidth()/2,getvirtualheight(),0,0 )
LeftEyeSpt = CreateSprite(0)
SetSpriteTransparency( LeftEyeSpt,0 )
SetSpriteDepth(LeftEyeSpt,1)
FixSpriteToScreen(LeftEyeSpt,1)

RightEyeImg = CreateRenderImage(getvirtualwidth()/2,getvirtualheight(),0,0 )
RightEyeSpt = CreateSprite(0)
SetSpriteTransparency( RightEyeSpt,0 )
SetSpriteDepth(RightEyeSpt,1)
FixSpriteToScreen(RightEyeSpt,1)

//objects
dim BoxID[6] as integer
BID = 0

BoxID[BID] = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID[BID],255,0,0,255)
SetObjectVisible(BoxID[BID],1)
SetObjectPosition(BoxID[BID],100,0,0)
BID = BID+1

BoxID[BID] = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID[BID],0,255,0,255)
SetObjectVisible(BoxID[BID],1)
SetObjectPosition(BoxID[BID],0,100,0)
BID = BID+1

BoxID[BID] = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID[BID],0,0,255,255)
SetObjectVisible(BoxID[BID],1)
SetObjectPosition(BoxID[BID],-100,0,0)
BID = BID+1

BoxID[BID] = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID[BID],255,255,0,255)
SetObjectVisible(BoxID[BID],1)
SetObjectPosition(BoxID[BID],0,-100,0)
BID = BID+1

BoxID[BID] = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID[BID],255,0,255,255)
SetObjectVisible(BoxID[BID],1)
SetObjectPosition(BoxID[BID],0,0,100)
BID = BID+1

BoxID[BID] = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID[BID],0,255,255,255)
SetObjectVisible(BoxID[BID],1)
SetObjectPosition(BoxID[BID],0,0,-100)

Do
    //get the rotational vector
    RotSensorX# = Sensor_GetRotVectorX()
    RotSensorY# = Sensor_GetRotVectorY()
    RotSensorZ# = Sensor_GetRotVectorZ()

    //find the W part of the quaternion
    RotW# = sqrt(1 - (RotSensorX#*RotSensorX#) - (RotSensorY#*RotSensorY#) - (RotSensorZ#*RotSensorZ#))

    //set the camera rotation
    SetCameraRotationquat(1,RotW#,RotSensorY#,-RotSensorX#,RotSensorZ#)

    //quitting
    if GetRawKeyPressed( 27 ) then end

    Update(0)

    //Left Eye
    SetCameraPosition(1,LeftEyeX#,LeftEyeY#,LeftEyeZ#)
    SetRenderToImage( LeftEyeImg,0 )
    ClearScreen( )
    Render( )

    SetCameraPosition(1,RightEyeX#,RightEyeY#,RightEyeZ#)
    SetRenderToImage( RightEyeImg,0 )
    ClearScreen( )
    Render( )

    SetSpriteImage( LeftEyeSpt,LeftEyeImg)
    SetSpriteSize( LeftEyeSpt,getvirtualwidth()/2,getvirtualheight() )
    SetSpritePosition( LeftEyeSpt,0,0 )
    SetSpriteVisible( LeftEyeSpt,1 )

    SetSpriteImage( RightEyeSpt,RightEyeImg)
    SetSpriteSize( RightEyeSpt,getvirtualwidth()/2,getvirtualheight() )
    SetSpritePosition( RightEyeSpt,getvirtualwidth()/2.0,0 )
    SetSpriteVisible( RightEyeSpt,1 )

    //x1# = worldtoscreenx(getspritex(RightEyeSpt))
    //y1# = worldtoscreeny(getspritey(RightEyeSpt))
    //x2# = x1#
    //y2# = y1# + worldtoscreeny(getspriteheight(RightEyeSpt))

    drawline(640,0.0,640,720,255,255,255)

    for BID=0 to 5
        SetObjectVisible(BoxID[BID],0)
    next BID

    SetRenderToScreen( )
    Render( )
    Swap( )

    SetSpriteVisible( LeftEyeSpt,0 )
    SetSpriteVisible( RightEyeSpt,0 )

    for BID=0 to 5
        SetObjectVisible(BoxID[BID],1)
    next BID

Loop

Function Sensor_GetGyroExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,0 )
    endif
Endfunction e

Function Sensor_GetGyroX( )
    x# = 0
    if GetMemblockExists( 1 )
        x# = GetMemblockFloat( 1,4 )
    endif
Endfunction x#

Function Sensor_GetGyroY( )
    y# = 0
    if GetMemblockExists( 1 )
        y# = GetMemblockFloat( 1,8 )
    endif
Endfunction y#

Function Sensor_GetGyroZ( )
    z# = 0
    if GetMemblockExists( 1 )
        z# = GetMemblockFloat( 1,12 )
    endif
Endfunction z#

Function Sensor_GetProximityExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,16 )
    endif
Endfunction e

Function Sensor_GetProximity( )
    p# = 0
    if GetMemblockExists( 1 )
        p# = GetMemblockFloat( 1,20 )
    endif
Endfunction p#

Function Sensor_GetLightExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,24 )
    endif
Endfunction e

Function Sensor_GetLight( )
    l# = 0
    if GetMemblockExists( 1 )
        l# = GetMemblockFloat( 1,28 )
    endif
Endfunction l#

Function Sensor_GetMagneticExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,32 )
    endif
Endfunction e

Function Sensor_GetMagneticX( )
    x# = 0
    if GetMemblockExists( 1 )
        x# = GetMemblockFloat( 1,36 )
    endif
Endfunction x#

Function Sensor_GetMagneticY( )
    y# = 0
    if GetMemblockExists( 1 )
        y# = GetMemblockFloat( 1,40 )
    endif
Endfunction y#

Function Sensor_GetMagneticZ( )
    z# = 0
    if GetMemblockExists( 1 )
        z# = GetMemblockFloat( 1,44 )
    endif
Endfunction z#

Function Sensor_GetRotVectorExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,48 )
    endif
Endfunction e

Function Sensor_GetRotVectorX( )
    x# = 0
    if GetMemblockExists( 1 )
        x# = GetMemblockFloat( 1,52 )
    endif
Endfunction x#

Function Sensor_GetRotVectorY( )
    y# = 0
    if GetMemblockExists( 1 )
        y# = GetMemblockFloat( 1,56 )
    endif
Endfunction y#

Function Sensor_GetRotVectorZ( )
    z# = 0
    if GetMemblockExists( 1 )
        z# = GetMemblockFloat( 1,60 )
    endif
Endfunction z#

SetVirtualResolution( 1280,720 )
SetOrientationAllowed( 0,0,1,0 )
SetViewOffset(0.0,0.0)
SetPrintSize( 32 )
SetGlobal3DDepth(10000)
SetScissor( 0,0,0,0 )

Global screenWidth : screenWidth = Abs( GetScreenBoundsLeft( ) ) + GetScreenBoundsRight( )
Global screenHeight : screenHeight = Abs( GetScreenBoundsTop( ) ) + GetScreenBoundsBottom( )

//Camera(s)
LeftEyeX# = -5.0
LeftEyeY# = 0.0
LeftEyeZ# = 0.0
RightEyeX# = 5.0
RightEyeY# = 0.0
RightEyeZ# = 0.0

SetCameraPosition(1,0.0,0.0,0.0)
SetCameraFOV(1,90.0)
SetCameraRange(1,5,2000)

//images to render
LeftEyeImg = CreateRenderImage(screenWidth/2.0,screenHeight,0,0 )
LeftEyeSpt = CreateSprite(0)
SetSpriteTransparency( LeftEyeSpt,0 )
SetSpriteDepth(LeftEyeSpt,1)
FixSpriteToScreen(LeftEyeSpt,1)

RightEyeImg = CreateRenderImage(screenWidth/2.0,screenHeight,0,0 )
RightEyeSpt = CreateSprite(0)
SetSpriteTransparency( RightEyeSpt,0 )
SetSpriteDepth(RightEyeSpt,1)
FixSpriteToScreen(RightEyeSpt,1)

//objects
dim BoxID[6] as integer
BID = 0

BoxID[BID] = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID[BID],255,0,0,255)
SetObjectVisible(BoxID[BID],1)
SetObjectPosition(BoxID[BID],100,0,0)
BID = BID+1

BoxID[BID] = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID[BID],0,255,0,255)
SetObjectVisible(BoxID[BID],1)
SetObjectPosition(BoxID[BID],0,100,0)
BID = BID+1

BoxID[BID] = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID[BID],0,0,255,255)
SetObjectVisible(BoxID[BID],1)
SetObjectPosition(BoxID[BID],-100,0,0)
BID = BID+1

BoxID[BID] = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID[BID],255,255,0,255)
SetObjectVisible(BoxID[BID],1)
SetObjectPosition(BoxID[BID],0,-100,0)
BID = BID+1

BoxID[BID] = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID[BID],255,0,255,255)
SetObjectVisible(BoxID[BID],1)
SetObjectPosition(BoxID[BID],0,0,100)
BID = BID+1

BoxID[BID] = CreateObjectBox(25.0,25.0,25.0)
SetObjectColor(BoxID[BID],0,255,255,255)
SetObjectVisible(BoxID[BID],1)
SetObjectPosition(BoxID[BID],0,0,-100)

Do
    //get the rotational vector
    RotSensorX# = Sensor_GetRotVectorX()
    RotSensorY# = Sensor_GetRotVectorY()
    RotSensorZ# = Sensor_GetRotVectorZ()

    //find the W part of the quaternion
    RotW# = sqrt(1 - (RotSensorX#*RotSensorX#) - (RotSensorY#*RotSensorY#) - (RotSensorZ#*RotSensorZ#))

    //set the camera rotation
    SetCameraRotationquat(1,RotW#,RotSensorY#,-RotSensorX#,RotSensorZ#)

    //quitting
    if GetRawKeyPressed( 27 ) then end

    Update(0)

    //Left Eye
    SetCameraPosition(1,LeftEyeX#,LeftEyeY#,LeftEyeZ#)
    SetRenderToImage( LeftEyeImg,0 )
    ClearScreen( )
    Render( )

    SetCameraPosition(1,RightEyeX#,RightEyeY#,RightEyeZ#)
    SetRenderToImage( RightEyeImg,0 )
    ClearScreen( )
    Render( )

    SetSpriteImage( LeftEyeSpt,LeftEyeImg)
    SetSpriteSize( LeftEyeSpt,screenWidth/2.0,screenHeight )
    SetSpritePosition( LeftEyeSpt,GetScreenBoundsLeft( ),0 )
    SetSpriteVisible( LeftEyeSpt,1 )

    SetSpriteImage( RightEyeSpt,RightEyeImg)
    SetSpriteSize( RightEyeSpt,screenWidth/2.0,screenHeight )
    SetSpritePosition( RightEyeSpt,GetScreenBoundsLeft( ) + screenWidth/2.0,0 )
    SetSpriteVisible( RightEyeSpt,1 )

    //x1# = worldtoscreenx(getspritex(RightEyeSpt))
    //y1# = worldtoscreeny(getspritey(RightEyeSpt))
    //x2# = x1#
    //y2# = y1# + worldtoscreeny(getspriteheight(RightEyeSpt))

    SetRenderToScreen( )

    drawline(GetScreenBoundsLeft( ) + ( screenWidth / 2.0 ),GetScreenBoundsTop( ),GetScreenBoundsLeft( ) + ( screenWidth / 2.0 ),GetScreenBoundsBottom( ),255,255,255)

    for BID=0 to 5
        SetObjectVisible(BoxID[BID],0)
    next BID

    Render( )
    Swap( )

    SetSpriteVisible( LeftEyeSpt,0 )
    SetSpriteVisible( RightEyeSpt,0 )

    for BID=0 to 5
        SetObjectVisible(BoxID[BID],1)
    next BID

Loop

Function Sensor_GetGyroExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,0 )
    endif
Endfunction e

Function Sensor_GetGyroX( )
    x# = 0
    if GetMemblockExists( 1 )
        x# = GetMemblockFloat( 1,4 )
    endif
Endfunction x#

Function Sensor_GetGyroY( )
    y# = 0
    if GetMemblockExists( 1 )
        y# = GetMemblockFloat( 1,8 )
    endif
Endfunction y#

Function Sensor_GetGyroZ( )
    z# = 0
    if GetMemblockExists( 1 )
        z# = GetMemblockFloat( 1,12 )
    endif
Endfunction z#

Function Sensor_GetProximityExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,16 )
    endif
Endfunction e

Function Sensor_GetProximity( )
    p# = 0
    if GetMemblockExists( 1 )
        p# = GetMemblockFloat( 1,20 )
    endif
Endfunction p#

Function Sensor_GetLightExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,24 )
    endif
Endfunction e

Function Sensor_GetLight( )
    l# = 0
    if GetMemblockExists( 1 )
        l# = GetMemblockFloat( 1,28 )
    endif
Endfunction l#

Function Sensor_GetMagneticExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,32 )
    endif
Endfunction e

Function Sensor_GetMagneticX( )
    x# = 0
    if GetMemblockExists( 1 )
        x# = GetMemblockFloat( 1,36 )
    endif
Endfunction x#

Function Sensor_GetMagneticY( )
    y# = 0
    if GetMemblockExists( 1 )
        y# = GetMemblockFloat( 1,40 )
    endif
Endfunction y#

Function Sensor_GetMagneticZ( )
    z# = 0
    if GetMemblockExists( 1 )
        z# = GetMemblockFloat( 1,44 )
    endif
Endfunction z#

Function Sensor_GetRotVectorExists( )
    e = 0
    if GetMemblockExists( 1 )
        e = GetMemblockInt( 1,48 )
    endif
Endfunction e

Function Sensor_GetRotVectorX( )
    x# = 0
    if GetMemblockExists( 1 )
        x# = GetMemblockFloat( 1,52 )
    endif
Endfunction x#

Function Sensor_GetRotVectorY( )
    y# = 0
    if GetMemblockExists( 1 )
        y# = GetMemblockFloat( 1,56 )
    endif
Endfunction y#

Function Sensor_GetRotVectorZ( )
    z# = 0
    if GetMemblockExists( 1 )
        z# = GetMemblockFloat( 1,60 )
    endif
Endfunction z#

type EyeType
    RenderImage as integer
    Sprite as integer
    PosX as float
    PosY as float
    PosZ as float
endtype

LeftEye as EyeType
RightEye as EyeType
global EyeDistance as float : EyeDistance = 10.0
global NetworkID as integer

OSName$ = GetDeviceName( )
if OSName$="windows"
    RunningPC = 1
else
    RunningPC = 0
endif

SetVirtualResolution( 1280,720 )
SetOrientationAllowed( 0,0,1,0 )
SetViewOffset(0.0,0.0)
SetPrintSize( 32 )
SetGlobal3DDepth(10000)
SetScissor( 0,0,0,0 )
SetSyncRate( 60, 1 )

SetWindowTitle("AGK-VR: the occulus thrift")

//Set Camera/Eye positions
LeftEye.PosX = -(EyeDistance / 2.0)
LeftEye.PosY = 0.0
LeftEye.PosZ = 0.0
RightEye.PosX = (EyeDistance / 2.0)
RightEye.PosY = 0.0
RightEye.PosZ = 0.0

SetCameraFOV(1,90.0)
SetCameraRange(1,5,2000)

//set up images to render cameras to
LeftEye.RenderImage = CreateRenderImage(getvirtualwidth()/2,getvirtualheight(),0,0 )
LeftEye.Sprite = CreateSprite(0)
SetSpriteTransparency( LeftEye.Sprite,0 )
SetSpriteDepth(LeftEye.Sprite,1)
FixSpriteToScreen(LeftEye.Sprite,1)

RightEye.RenderImage = CreateRenderImage(getvirtualwidth()/2,getvirtualheight(),0,0 )
RightEye.Sprite = CreateSprite(0)
SetSpriteTransparency( RightEye.Sprite,0 )
SetSpriteDepth(RightEye.Sprite,1)
FixSpriteToScreen(RightEye.Sprite,1)


customimg = LoadImage("Fnt_Illuminate.png")

if RunningPC=1
    CreateText(1,"Waiting for mobile to connect...")
else
    CreateText(1,"Waiting for PC to host...")
endif

SetTextFontImage(1,customimg)
SetTextAlignment(1,1)
SetTextPosition(1,getvirtualwidth()/2.0,getvirtualheight()/2.0)
SetTextSize(1,80)

CreateText(2,"The Oculus Thrift")
SetTextFontImage(2,customimg)
SetTextAlignment(2,1)
SetTextPosition(2,getvirtualwidth()/2.0,80.0)
SetTextSize(2,50)

Sync()

//Connect to LAN
if RunningPC=1
    NetworkID = HostNetwork("Cardboard_UG","PC_Joystick",2000)
    CompleteRawJoystickDetection()
    
    //quit if no joystick connected
    if GetJoystickExists()=0
		Message("Could not detect a joystick.")
		end
	endif
else
    NetworkID = JoinNetwork("Cardboard_UG","Headset")
    
    //quit if no vector sensor exists on headset
    if GetRotationVectorSensorExists()=0
		Message("Could not detect a rotation sensor.")
		end
	endif
endif

timeout# = timer() + 20.0
repeat
    sync()
    Connected = IsNetworkActive(NetworkID)
until Connected>0 or timer()>timeout#

if timer()>timeout#
	Message("Connection timed out.")
    end
endif


//Hold point until second device is connected
repeat
    Clients = GetNetworkNumClients(NetworkID)
    
    //print("Clients connected:"+str(Clients))

    if GetRawKeyPressed( 27 )
        if IsNetworkActive(NetworkID)=1
            CloseNetwork(NetworkID)
        endif

        end
    endif

    sync()
until Clients=2


//record Host and Client IDs
if RunningPC=1
    HostID = GetNetworkMyClientID(NetworkID)
    tempID = GetNetworkFirstClient(NetworkID)

    while tempID<>0
        if tempID<>HostID
            ClientID = tempID
        endif
        tempID = GetNetworkNextClient(NetworkID)
    endwhile

else
    ClientID = GetNetworkMyClientID(NetworkID)
    tempID = GetNetworkFirstClient(NetworkID)

    while tempID<>0
        if tempID<>ClientID
            HostID = tempID
        endif
        tempID = GetNetworkNextClient(NetworkID)
    endwhile

endif


rem Load world
settextstring(1,"Loading Metro Theatre Scene")
settextstring(2,"Artwork by Mark Blosser")

gosub _load_world

settextvisible(1,0)
settextvisible(2,0)


//player position
plrx#=1850 : plrz#=-3650 : plry#=560

if RunningPC=1

    SetNetworkLocalFloat(NetworkID,"PlayerX",plrx#)
    SetNetworkLocalFloat(NetworkID,"PlayerY",plry#)
    SetNetworkLocalFloat(NetworkID,"PlayerZ",plrz#)

endif

// unity
CorrectionX# = 0.0
CorrectionY# = 0.0
CorrectionZ# = 0.0
CorrectionW# = 1.0

Do
    if RunningPC=0
        //get the rotational vector
        RotSensorW# = GetRawRotationVectorW2()
        RotSensorX# = GetRawRotationVectorX2()
        RotSensorY# = GetRawRotationVectorY2()
        RotSensorZ# = GetRawRotationVectorZ2()

        //set network variables
        SetNetworkLocalFloat(NetworkID,"RotQuatX",RotSensorX#)
        SetNetworkLocalFloat(NetworkID,"RotQuatY",RotSensorY#)
        SetNetworkLocalFloat(NetworkID,"RotQuatZ",RotSensorZ#)
        SetNetworkLocalFloat(NetworkID,"RotQuatW",RotSensorW#)

        //get player position
        plrx# = GetNetworkClientFloat(NetworkID,HostID,"PlayerX")
        plrz# = GetNetworkClientFloat(NetworkID,HostID,"PlayerZ")

    else

        //move player with joystick
        if GetJoystickExists()=1
            //strife
            plrx# = plrx# + (GetRawJoystickX(1)*50.0*cos(Angle_Y#)*getframetime())
            plrz# = plrz# - (GetRawJoystickX(1)*50.0*sin(Angle_Y#)*getframetime())

            //forward
            plrx# = plrx# + (GetRawJoystickY(1)*50.0*sin(-Angle_Y#)*getframetime())
            plrz# = plrz# - (GetRawJoystickY(1)*50.0*cos(-Angle_Y#)*getframetime())


            SetNetworkLocalFloat(NetworkID,"PlayerX",plrx#)
            SetNetworkLocalFloat(NetworkID,"PlayerZ",plrz#)
        else
            //use keyboard

            //Right - D
            plrx# = plrx# + (GetRawKeyState(68)*50.0*cos(Angle_Y#)*getframetime())
            plrz# = plrz# - (GetRawKeyState(68)*50.0*sin(Angle_Y#)*getframetime())

            //Left - A
            plrx# = plrx# - (GetRawKeyState(65)*50.0*cos(Angle_Y#)*getframetime())
            plrz# = plrz# + (GetRawKeyState(65)*50.0*sin(Angle_Y#)*getframetime())

            //foward - W
            plrx# = plrx# - (GetRawKeyState(87)*50.0*sin(-Angle_Y#)*getframetime())
            plrz# = plrz# + (GetRawKeyState(87)*50.0*cos(-Angle_Y#)*getframetime())

            //back - S
            plrx# = plrx# + (GetRawKeyState(83)*50.0*sin(-Angle_Y#)*getframetime())
            plrz# = plrz# - (GetRawKeyState(83)*50.0*cos(-Angle_Y#)*getframetime())


            SetNetworkLocalFloat(NetworkID,"PlayerX",plrx#)
            SetNetworkLocalFloat(NetworkID,"PlayerZ",plrz#)
        endif

        //get values from head-set
        RotSensorX# = GetNetworkClientFloat(NetworkID,ClientID,"RotQuatX")
        RotSensorY# = GetNetworkClientFloat(NetworkID,ClientID,"RotQuatY")
        RotSensorZ# = GetNetworkClientFloat(NetworkID,ClientID,"RotQuatZ")
        RotSensorW# = GetNetworkClientFloat(NetworkID,ClientID,"RotQuatW")

    endif

    //set the camera rotation
    SetCameraRotationQuat(1,RotSensorW#,RotSensorX#,RotSensorY#,RotSensorZ#)

    //determine eye positions
    Angle_X# = GetCameraAngleX(1)
    Angle_Y# = GetCameraAngleY(1)
    Angle_Z# = GetCameraAngleZ(1)

    InPlaneDist# = EyeDistance * cos(Angle_Z#)
    LeftEye.PosY = plry# + (EyeDistance * sin(Angle_Z#))
    RightEye.PosY = plry# - (EyeDistance * sin(Angle_Z#))

    LeftEye.PosX = plrx# - ((InPlaneDist# / 2.0) * cos(Angle_Y#))
    RightEye.PosX = plrx# + ((InPlaneDist# / 2.0) * cos(Angle_Y#))

    LeftEye.PosZ = plrz# - ((InPlaneDist# / 2.0) * sin(Angle_Y#))
    RightEye.PosZ = plrz# + ((InPlaneDist# / 2.0) * sin(Angle_Y#))


    //quitting
    if GetRawKeyPressed( 27 )
        if IsNetworkActive(NetworkID)=1
            CloseNetwork(NetworkID)
        endif

        end
    endif

    Update(0)

    if RunningPC=0
        //Left Eye
        SetCameraPosition(1,LeftEye.PosX,LeftEye.PosY,LeftEye.PosZ)
        SetRenderToImage( LeftEye.RenderImage,0 )
        ClearScreen( )
        Render( )

        //Right Eye
        SetCameraPosition(1,RightEye.PosX,RightEye.PosY,RightEye.PosZ)
        SetRenderToImage( RightEye.RenderImage,0 )
        ClearScreen( )
        Render( )
    else
        SetCameraPosition(1,LeftEye.PosX,LeftEye.PosY,LeftEye.PosZ)
    endif

    SetRenderToScreen( )

    if RunningPC=0
        //Left Eye
        SetSpriteImage( LeftEye.Sprite,LeftEye.RenderImage)
        SetSpriteSize( LeftEye.Sprite,getvirtualwidth()/2,getvirtualheight()*1.3 )
        SetSpritePosition( LeftEye.Sprite,0,0 )
        SetSpriteVisible( LeftEye.Sprite,1 )

        //Right Eye
        SetSpriteImage( RightEye.Sprite,RightEye.RenderImage)
        SetSpriteSize( RightEye.Sprite,getvirtualwidth()/2,getvirtualheight()*1.3 )
        SetSpritePosition( RightEye.Sprite,getvirtualwidth()/2.0,0 )
        SetSpriteVisible( RightEye.Sprite,1 )

        drawline(getvirtualwidth()/2.0,0.0,getvirtualwidth()/2.0,720,255,255,255)
    endif

    Render( )
    Swap( )

    SetSpriteVisible( LeftEye.Sprite,0 )
    SetSpriteVisible( RightEye.Sprite,0 )

Loop


_load_world:
 `
 rem Shaders
 shaderindex=1 : LoadShader(shaderindex,"vertex.vs","pixel.ps")
 `
 rem Load lightmaps
 dim lm[10]
 lm[0]=LoadImage("0.png")
 lm[1]=LoadImage("1.png")
 for t=0 to 1
  SetImageWrapU(lm[t],1)
  SetImageWrapV(lm[t],1)
 next t
 `
 rem Load all OBJ making up world (created in FPS Creator)
 objmax=50
 for obj=1 to objmax
  obj$="mesh"+str(obj)+".obj"
  LoadObject(obj,obj$,0)
  if obj>=1 and obj<=7
   tex$="mesh"+str(obj)+"-1.jpg"
  else
   tex$="mesh"+str(obj)+"-0.jpg"
  endif
  texname$=left(tex$,len(tex$)-4)
  lm$=right(texname$,1)
  if lm$="-" then lm$="0"
  teximg=LoadImage(tex$)
  SetImageWrapU(teximg,1)
  SetImageWrapV(teximg,1)
  SetObjectImage(obj,teximg,0)
  SetObjectImage(obj,lm[val(lm$)],1)
  SetObjectShader(obj,shaderindex)
  `
  //SetObjectRotation(obj,0,0,90)
  `
  rem Progress status
  perc#=obj : perc#=perc#/objmax : perc=perc#*100
  SetTextString(1,"Metro Theatre - "+str(perc)+"%") : Sync()

 next obj
 `
return