Sorry your browser is not supported!

function CreateCharacterController(z as integer)
    //create the character controller of the player its invisible but needed for physics
    DeleteObject(playerObj)
    CreateObjectBox(playerObj,20,20,20)
    SetObjectPosition(playerObj,0,-10,z)
         
    SetObjectVisible(playerObj,0) 
    characterOffsetVec = CreateVector3( 0.0, 2.5, 0.0 )
    objectOrientationVec = CreateVector3( 0.0, 0.0, 0.0 )
    Delete3DPhysicsCharacterController(playerObj)
    Create3DPhysicsCharacterController(playerObj, 1, characterOffsetVec, objectOrientationVec, .90 )
    DeleteVector3( characterOffsetVec )
    DeleteVector3( objectOrientationVec )
     
    CreateObjectBox(playerGunObj,20,20,20)
    SetObjectPosition(playerGunObj,GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj))
    SetObjectVisible(playerGunObj,0) 
endfunction

if GetRawKeyState(KEY_LEFT)  //strafe left
        Move3DPhysicsCharacterController(playerObj,3,velocity)
        old=3
    endif
    if GetRawKeyState(KEY_RIGHT)  //strafe right
        Move3DPhysicsCharacterController(playerObj,4,velocity)
        old=4
    endif

// Project: test 
// Created: 2019-01-06

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

GetDeviceWidth()
GetDeviceHeight()

// set window properties
SetWindowTitle( "test" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

swap()
	DrawBox(0,0,100,100,MakeColor(255,0,0),MakeColor(0,255,0),MakeColor(0,0,255),MakeColor(255,255,0),1)
render()
img = GetImage(0,0,100,100)

plane = CreateObjectPlane(100,100)
SetObjectRotation(plane,90,0,0)
SetObjectImage(plane,img,0)

SetCameraRange(1,.01,1000)

do
   if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 0.02 )  // cursor up
     if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -0.02 ) // cursor down
     if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -0.01 ) // cursor iz
     if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 0.01 )  // cursor derecha 
	if getcameray(1)<1 then SetCameraPosition(1,getcamerax(1),1,getcameraz(1))
	print(getcameray(1))
     if ( GetPointerPressed() )
        startx# = GetPointerX()
        starty# = GetPointerY()
        angx# = GetCameraAngleX(1)
        angy# = GetCameraAngleY(1)
        pressed = 1
     endif
 
     if ( GetPointerState() = 1 )
        fDiffX# = (GetPointerX() - startx#)/1.0
        fDiffY# = (GetPointerY() - starty#)/1.0
 
        newX# = angx# + fDiffY#
        if ( newX# > 89 ) then newX# = 89
        if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
     endif
     


    Print( ScreenFPS() )
    Sync()
loop


 


 

// Project: test 
// Created: 2019-01-06

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

GetDeviceWidth()
GetDeviceHeight()

// set window properties
SetWindowTitle( "test" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

swap()
	DrawBox(0,0,100,100,MakeColor(255,0,0),MakeColor(0,255,0),MakeColor(0,0,255),MakeColor(255,255,0),1)
render()
img = GetImage(0,0,100,100)

plane = CreateObjectPlane(100,100)
SetObjectRotation(plane,90,0,0)
SetObjectImage(plane,img,0)

SetCameraRange(1,.01,1000)

do
 	movecameralocalz(1,(GetRawKeyState( 38 )*0.3)-GetRawKeyState( 40 )*0.3)
	movecameralocalx(1,(GetRawKeyState( 39 )*0.3)-GetRawKeyState( 37 )*0.3)
	setcamerarotation(1,getpointery(),-80+getpointerx(),0)

    Print( ScreenFPS() )
    Sync()
loop

if getrawkeystate(87)=1 then zoom=zoom+10

if getrawkeystate(83)=1 then zoom=zoom-10
if getrawkeystate(88)=1 then x=x+5
if getrawkeystate(90)=1 then x=x-5
if GetRawKeyState(77)=1 then b=b+5
if getrawkeystate(78)=1 then b=b-5

SetErrorMode(2)

// set window properties
SetWindowTitle( "camera turn" )
SetWindowSize( 1366, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1366, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
a=0
b=00
c=0

l=0
m=0
w=10
x=1180
y=0
zoom=0
start:

Print( ScreenFPS() )
if getrawkeystate(32)=1 then setwindowsize(1366,768,1)
if getrawkeystate(32)=0 then setwindowsize(1366,768,0)
Sync()
if getrawkeystate(13)=1 then goto beginning
goto start
beginning:


DeleteObject(3)
CreateObjectFromHeightMap(3,"mappy.png",512,150,512,50,0)
setobjectcolor(3,0,200,0,1)
setobjectposition(3,1000,-150,00)
setcameraposition(1,x,y,zoom)
camerarotate:

//setcameraposition(1,x,y,zoom)

//setcamerarotation(1,l,b,c)

sync()
    movecameralocalz(1,(GetRawKeyState( 38 )*0.3)-GetRawKeyState( 40 )*0.3)
    movecameralocalx(1,(GetRawKeyState( 39 )*0.3)-GetRawKeyState( 37 )*0.3)
    setcamerarotation(1,getpointery(),-80+getpointerx(),0)
 
/*if getrawkeystate(87)=1 then zoom=zoom+10

if getrawkeystate(83)=1 then zoom=zoom-10
if getrawkeystate(88)=1 then x=x+5
if getrawkeystate(90)=1 then x=x-5
if GetRawKeyState(77)=1 then b=b+5
if getrawkeystate(78)=1 then b=b-5
*/
goto camerarotate