Sorry your browser is not supported!

// Project: MouseMoveFunctions 

// Created: 2018-08-15

SetErrorMode ( 2 )

SetWindowTitle ( 'MouseMoveFunctions' )

SetWindowSize ( 1024, 768, 0 )

SetVirtualResolution ( 1024, 768 )

SetOrientationAllowed ( 1, 1, 1, 1 )

SetSyncRate ( 0, 0 )

SetScissor ( 0, 0, 0, 0 )

UseNewDefaultFonts ( 1 )

function MouseMoveX ( )

	oldMouseX = ( mouseX )

	mouseX = ( GetPointerX ( ) )

	diffX = ( oldMouseX - mouseX )

endfunction diffX

function MouseMoveY ( )

	oldMouseY = ( mouseY )

	mouseY = ( GetPointerY ( ) )

	diffY = ( oldMouseY - mouseY )

endfunction diffY

function MouseMoveZ ( )

	oldMouseZ = ( mouseZ )

	mouseZ = ( GetPointerZ ( ) )

	diffZ = ( oldMouseZ - mouseZ )

endfunction diffZ

while ( GetRawKeyState ( 27 ) <> 1 )

	diffX = MouseMoveX ( )

	diffY = MouseMoveY ( )

	diffZ = MouseMoveZ ( )

	Print ( 'Diff-X :: ' + str ( diffX ) )

	Print ( 'Diff-Y :: ' + str ( diffY ) )

	Print ( 'Diff-Z :: ' + str ( diffZ ) )

	Sync ( )

endwhile

end

 function mouseOver()
           
    myX as float
    myY as float
    my3dX as float
    my3dY as float
    my3dZ as float
    rayStartX as float
    rayStartY as float
    rayStartZ as float
    rayEndX as float
    rayEndY as float
    rayEndZ as float
           
    myX=getpointerx()
    myY=getpointery()
           
    my3dX=Get3DVectorXFromScreen(myX,myY)
    my3dY=Get3DVectorYFromScreen(myX,myY)
    my3dZ=Get3DVectorZFromScreen(myX,myY)
           
    rayStartX=my3dX+GetCameraX(1)
    rayStartY=my3dY+GetCameraY(1)
    rayStartZ=my3dZ+GetCameraZ(1)
           
    rayEndX=800*my3dX+GetCameraX(1)
    rayEndY=800*my3dY+GetCameraY(1)
    rayEndZ=800*my3dZ+GetCameraZ(1) 
           
    theObjectHit= ObjectRayCast(0,rayStartX,rayStartY,rayStartZ,rayEndX,rayEndY,rayEndZ)      
  
    // Move camera with WASD
    // Rotate Camera with Arrow Keys
    MoveCameraLocalX(1,GetRawKeyState(68) - GetRawKeyState(65))
    MoveCameraLocalZ(1,GetRawKeyState(87) - GetRawKeyState(83))
    RotateCameraGlobalY(1,GetRawKeyState(39) - GetRawKeyState(37))
    RotateCameraLocalX(1,GetRawKeyState(40) - GetRawKeyState(38))
   
    cx# = GetCameraX(1)
    cy# = GetCameraY(1)
    cz# = GetCameraZ(1)
   
    pxRaw# = Get3DVectorXFromScreen(myX,myY)
    pyRaw# = Get3DVectorYFromScreen(myX,myY)
    pzRaw# = Get3DVectorZFromScreen(myX,myY)
   
    // get pointer vector y added to camera's y position
    pyRelative# = pyRaw# + cy#
   
    // find distance between camera's y position and pyRelative#
    dist# = cy# - pyRelative#
   
    // calculate scaling value by finding how many times dist# goes into the camera's y position
    s# = cy# / dist#
   
    // find the intersection point by multiplying pointer vector by s# and adding it to the camera position. 
    // ignoring Y in this case since it should be 0 anyway.
    ix# = cx# + pxRaw# * s#
    iz# = cz# + pzRaw# * s#
   



  
endfunction theObjectHit

// Created: 2018-08-15

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Mousemove" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

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



do
    Print( ScreenFPS() )

    Print( MousemoveX() )
    Print( MousemoveY() )
    Print( MousemoveZ() )


    Sync()
loop


function MousemoveX()
	global OldMouseX

	dx = GetRawMouseX() - OldMouseX
	OldMouseX = GetRawMouseX()

endfunction dx

function MousemoveY()
	global OldMouseY

	dy = GetRawMouseY() - OldMouseY
	OldMouseY = GetRawMouseY()

endfunction dy

function MousemoveZ()
	dz = GetRawMouseWheelDelta()
endfunction dz

			x# = GetCameraX(1)
			y# = GetCameraY(1)
			z# = GetCameraZ(1)
			yp# = GetObjectY(game.player.objID)
			mouse_x1# = GetPointerX()
			mouse_z1# = GetPointerY()
			if GetPointerPressed() = 1
				g_startx# = Mouse_x1#
				g_startz# = Mouse_z1#
				g_scroll_timer# = timer()
			endif
			if GetPointerState() = 1 
				DiffX# = Mouse_x1# - g_startx# //difference in X
				DiffZ# = Mouse_z1# - g_startz# //difference in Z
				a# = atan2( DiffX#, DiffZ# )
				// abs angle > 90 = going south abs angle < 90 going north
				if mouse_z1# <= g_startz# then z_dir = -1
				if mouse_z1# >= g_startz# then z_dir = 1
				if mouse_x1# <= g_startx# then x_dir = 1
				if mouse_x1# >= g_startx# then x_dir = -1
				 
				Zaxis# = (abs( 90-abs( a# ) )/90)*z_dir //zAxis Movement
				if abs(a#) >= 90 then Xaxis# = (abs( 180 - abs( a# ) )/90)*x_dir // xAxis movement
				if abs(a#) < 90 then Xaxis# = abs( a# )/90*x_dir // xAxis movement
				if abs(diffx#) <= .1 and abs(diffz#) <= .1 or timer() - g_scroll_timer# < .1 then exitfunction // prevents movement at pressing at same spot
				cmx# = x#+(Xaxis#*.2)
				cmz# = z#+(Zaxis#*.2)
				if cmx# > 23.00 then cmx# = 23.00 //prevents going outside of map
				if cmx# < -23.00 then cmx# = -23.00 //prevents going outside of map
				if cmz# > 23.00 then cmz# = 23.00 //prevents going outside of map
				if cmz# < -23.00 then cmz# = -23.00 //prevents going outside of map
				SetCameraPosition( 1, cmx#, y#, cmz#)
			 endif