Sorry your browser is not supported!

#constant screenwidth=800
#constant screenheight=600
SetWindowTitle( "MOve Cam" )
SetWindowSize( screenwidth, screenheight, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth,screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 1200, 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


global angx#
global angy#
global startx#
global starty#
global fDiffX#, fDiffY#

CreateObjectBox(10,10,10)

SetRawMousePosition(screenwidth/2,screenheight/2)
startx#=screenwidth/2:starty#=screenheight/2
do
	movecamerawithmouse()
	sync()
loop

function movecamerawithmouse()
      
    fDiffX# = (GetPointerX() - startx#)/8.0
    fDiffY# = (GetPointerY() - starty#)/8.0
  
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
  
endfunction

//based in softmotion3d and aviles22 code posted in APPGAMEKIT forums
//to work with PORCENTUAL SCREEN.
setwindowsize(1024,768,0)
setdisplayaspect(1024.0/768)
SetRawMouseVisible(0)

Ground = CreateObjectPlane(128, 128):RotateObjectGlobalX(Ground, 90):setobjectcolor(ground,50,10,150,255)
caja=createobjectbox(5,5,5):setobjectposition(caja,10,2.5,20):setobjectcolor(caja,200,10,10,255)
Player = CreateObjectBox(2, 6, 2):SetObjectPosition(Player, 0, 3, 2):SetCameraRotation(1, 0, 0, 0)

if getdevicewidth()=800 //800*600
aw#=2.0
ay#=2.0
endif
if getdevicewidth()=917 //1024*768
aw#=4.312143 //not easy
ay#=9.480632
endif

w#=(getdevicewidth()/100.0)/aw#+50
h#=(getdeviceheight()/100.0)/ay#+50

do

	if k(87) then movecameralocalz(1,1)
	if k(83) then movecameralocalz(1,-1)
	if k(68) then movecameralocalx(1,1)
	if k(65) then movecameralocalx(1,-1)
	
	grabx#=0
	graby#=0
	grabx#=((w#-getrawmousex())/2.0)
	graby#=((h#-getrawmousey())/2.0)
	camy#=wrapvalue(camy#-grabx#)
	camx#=wrapvaluex(camx#-graby#)		
	SetRawMousePosition(w#, h#)
 	setcamerarotation(1,camx#,camy#,0)
	if getrawkeypressed(27) then end
	sync()
	
loop

//so long to write and rewrite ;). My function k()
function k(a)
b=getrawkeystate(a)
endfunction b

//SoftMotion3D functions. thanks!!
function wrapvalue(a#)
while a#<0 or a#>360
if a#<0 then a#=a#+360
if a#>360 then a#=a#-360
endwhile
endfunction a#

function wrapvaluex(a#)
//while a#<-90 or a#>90
if a#<-88 then a#=-88
if a#>88 then a#=88
//endwhile
//no actual wrap just limits since agk hangs at 90 deg
endfunction a#

//based in softmotion3d and aviles22 code posted in APPGAMEKIT forums
//to work with virtual pixels:
setvirtualresolution(1024,600)
SetRawMouseVisible(0)

Ground = CreateObjectPlane(128, 128):RotateObjectGlobalX(Ground, 90):setobjectcolor(ground,50,10,150,255)
caja=createobjectbox(5,5,5):setobjectposition(caja,10,2.5,20):setobjectcolor(caja,200,10,10,255)
Player = CreateObjectBox(2, 6, 2):SetObjectPosition(Player, 0, 3, 2):SetCameraRotation(1, 0, 0, 0)

do
    
	if k(87) then movecameralocalz(1,1)
	if k(83) then movecameralocalz(1,-1)
	if k(68) then movecameralocalx(1,1)
	if k(65) then movecameralocalx(1,-1)
	
	grabx#=0
	graby#=0
	grabx#=(512-getrawmousex())/2.0
	graby#=(300-getrawmousey())/2.0
	camy#=wrapvalue(camy#-grabx#)
	camx#=wrapvaluex(camx#-graby#)
		
	SetRawMousePosition(512, 300) 
	setcamerarotation(1,camx#,camy#,0)

	if getrawkeypressed(27) then end
	sync()
	
loop

function k(a)
b=getrawkeystate(a)
endfunction b

function wrapvalue(a#)
while a#<0 or a#>360
if a#<0 then a#=a#+360
if a#>360 then a#=a#-360
endwhile
endfunction a#

function wrapvaluex(a#)
//while a#<-90 or a#>90
if a#<-88 then a#=-88
if a#>88 then a#=88
//endwhile
//no actual wrap just limits since agk hangs at 90 deg
endfunction a#

function wrapvalue(a#)
while a#<0 or a#>360
if a#<0 then a#=a#+360
if a#>360 then a#=a#-360
endwhile
endfunction a#

function wrapvalue(a#)
//while a#<0 or a#>360
if a#<0 then a#=a#+360
if a#>360 then a#=a#-360
//endwhile
endfunction a#

setwindowsize(800,600,1)
setdisplayaspect(-1)

pax#=10
pay#=5
cam_height#=1.72
mx_value#=0
my_value#=0
speed#=0.1

Ground=CreateObjectPlane(500, 500):RotateObjectGlobalX(Ground, 90):setobjectcolor(ground,50,10,150,255)
caja=createobjectbox(1,2,1):setobjectposition(caja,10,1,20):setobjectcolor(caja,200,10,10,255)
Player = CreateObjectBox(1, 2, 1):SetObjectPosition(Player, 0, 0, 0)
setrawmousevisible(0)
setrawmouseposition(50,50)
setobjectrotation(player,pax#,pay#,0)
setcamerarotation(1,pax#,pay#,0)

do

	if getrawkeystate(87)
	moveobjectlocalz(player,speed#)
	endif
	
	if getrawkeystate(83)
	moveobjectlocalz(player,-speed#)
	endif
	
	if getrawkeystate(87) or getrawkeystate(83)
	moving=1
	else
	moving=0
	endif
	
	if getrawkeystate(68) then moveobjectlocalx(player,speed#)
	if getrawkeystate(65) then moveobjectlocalx(player,-speed#)
	
	if moving=1
	walk=mod((walk+15),360)
	endif

	mx_value#=getpointerx()-50
	my_value#=getpointery()-50
	pay#=pay#+mx_value#
	pax#=pax#+my_value#
	setobjectrotation(player,pax#,pay#,0)
	setcamerarotation(1,pax#,pay#,0)
	setrawmouseposition(50,50)
	setobjectposition(player,getobjectx(player),0.05*sin(walk)+1,getobjectz(player))
	setcameraposition(1,getobjectx(player),getobjecty(player),getobjectz(player))
	//setcameraposition(1,0,0.5,-25)

if getrawkeystate(27) then end
sync()
loop