Sorry your browser is not supported!

load object "C:\dbp\projects\MagicCube\Data\Cube\Center.x",1

rem Start a loop
SYNC ON : DO

rem Now we handle the camera
`If user presses right mouse button, alter camera angle value but adding the angle value to the mouse's movement in the x-axis
if mouseclick()=1
    camYangle#=Wrapvalue(camYangle#+MousemoveX())
endif

If mouseclick()=2
    camXangle#=Wrapvalue(camXangle#+MousemoveY())
endif

`Apply limits on the camera x angle (i.e. y position) - this way camera is prevented from going up too high or too low
If camxangle#>90 then camxangle#=0
if camxangle#<0 then camxangle#=0

`Here i'm setting the distance so that the camera will be right on top of the character when camera is pointing straight down
`Basically, when the camera is on the ground point straight at the character, the distance should be 200. When it straight above, distance should be 0. Therefore I use this formula to achieve just that
dist#=200-(camxangle#*200/90)

rem Update camera position
`Use newvalues to find a point 200 units *behind the character's position but using camera's yangle value so that user can control camera's rotation around the character object
camx#=NewXValue(Object position x(1),camyangle#,-1*dist#)
camy#=NewYValue(Object Position y(1),camxangle#,-200)
camz#=NewZValue(Object position z(1),camyangle#,-1*dist#)

`Curve the camera values
camx#=Curvevalue(camx#,Camera Position X(),5.0)
camy#=Curvevalue(camy#,Camera Position Y(),5.0)
camz#=Curvevalue(camz#,Camera Position Z(),5.0)

`Update camera position
Position Camera camx#,camy#,camz#

`Keep camera pointing at character at all times
Point Camera Object position X(1),Object position Y(1),Object Position Z(1)

SYNC : LOOP

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

rem make a test object
make object cube 1, 10

rem main loop
do

   rem because the mouse move commands are gay, they have to be called every loop (internal buffer is updated)
   m_movex = mousemovex()
   m_movey = mousemovey()

   rem rotate the camera
   if mouseclick() = 1
      camAngleY# = wrapvalue( camAngleY# + (m_movex*0.5) )
      camAngleX# = wrapvalue( camAngleX# + (m_movey*0.5) )
   endif

   rem limit X angle
   if camAngleX# > 180 and camAngleX# < 270 then camAngleX# = 270
   if camAngleX# < 180 and camAngleX# > 90 then camAngleX# = 90

   rem position camera accordingly
   camDistance# = 50 `Set camera distance here
   position camera 0, 0, 0
   rotate camera camAngleX#, camAngleY#, 0
   move camera 0-camDistance#

   rem refresh sreen
   sync

rem end of main loop
loop

`======================
`setup screen & Camera
Active_Object as DWORD
Cube_Count = 4 `Adjust the number of cubes on screen.
Cube_Offset = 20 `Adjust the space between cubes.
Autocam Off
Backdrop On
Color Backdrop 0
Position Camera ((Cube_Count*Cube_Offset)/2)+(Cube_Offset/2),50,-50
Point Camera ((Cube_Count*Cube_Offset)/2)+(Cube_Offset/2),0,0

`Make a test object(s)
For x = 1 To cube_count
	Make Object Cube x,10
	Position Object x,x*Cube_Offset,0,0
Next x

`Engage sync
sync on
sync rate 30

rem main loop
do	
`-BFM- REM - Added more mouse button & cursor position control
	mouse_press = 0
	mouse_release = 0
	mouse_click = Mouseclick()
	m_movex = Mousemovex()
	m_movey = mousemovey()		
				
	If Mouse_click And mouse_hold = 0
		mouse_press = 1
		mouse_posX = Mouseposx()
		mouse_posY = Mouseposy()
		Active_Object = Pick Object(mouse_posX, mouse_posY,1,Cube_Count)
		If Active_Object
			Hide Mouse 
		Endif
	Endif
	
	If Mouse_click = 0 And mouse_hold = 1
		mouse_release = 1
	Endif
	
	If mouse_release And active_object > 0
		`Fix Object Pivot no worky
		Fix Object Pivot Active_Object
		Active_Object = 0
		Position Mouse mouse_posX,mouse_posY
		Show Mouse
		
	Endif
	
	mouse_hold = Mouse_click

   rem rotate the camera
	If mouse_hold And active_object > 0
		`Rotation not working properly. The below shortcut isn't the desired behaviour. Fix object pivot is also not working as expected...
		Rotate Object Active_Object, (Object Angle X(Active_Object)- m_moveY),Object Angle Y(Active_Object)-m_moveX, Object Angle Z(Active_Object)
	Endif

	Set Cursor 0,0
	Print Active_Object
	
	sync
rem end of main loop
loop