Sorry your browser is not supported!

    x#=getObjectX(object)
    y#=GetObjectY(object)
    z#=getObjectZ(object)
    // calculate the start of the ray cast
    start_x# = x#
    start_y# = y#
    start_z# = z# 
    // calculate the end of the ray cast
    end_x# = x#+1.0   //dimensions of object x +width etc
    end_y# = y#-4.0
    end_z# = z#+2   
    hit=ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
    

        pointer_x = GetSpriteX(mySprite)
        pointer_y =GetSpriteX(mySprite)
        //pointer_y2 =screenHeight-GetPointerY()
    // get the x, y and z unit vectors based on the pointer position
        unit_x# = Get3DVectorXFromScreen(pointer_x,pointer_y)
        unit_y# = Get3DVectorYFromScreen(pointer_x,pointer_y)
        unit_z# = Get3DVectorZFromScreen(pointer_x,pointer_y)
   
        // calculate the start of the ray cast, which is the unit vector + the camera position
        start_x# = unit_x# + GetCameraX(1)
        start_y# = unit_y# + GetCameraY(1)
        start_z# = unit_z# - GetCameraZ(1)
   
        // calculate the end of the vector, which is the unit vector multiplied by the length of the ray cast and then add the camera position to it
        end_x# = 1000*unit_x# + GetCameraX(1)
        end_y# = 1000*unit_y# + GetCameraY(1)
        end_z# = 1000*unit_z# - GetCameraZ(1)
   
   
        // determine which object has been hit
        object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)

x#=getObjectX(object)
y#=GetObjectY(object)
z#=getObjectZ(object)
// calculate the start of the ray cast
start_x# = x#-width
start_y# = y#+height
start_z# = z#-depth 
// calculate the end of the ray cast
end_x# = x#+width   //dimensions of object x +width etc
end_y# = y#-height
end_z# = z#+depth 
// determine which object has been hit
object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)

width=(GetObjectSizeMaxX(object)-GetObjectSizeMinX(object))/2 
height=(GetObjectSizeMaxY(object)-GetObjectSizeMinY(object))/2 
depth=(GetObjectSizeMaxZ(object)-GetObjectSizeMinZ(object))/2 

    width#=GetSpriteWidth(mySprite)/2
    height#=GetSprite?Height(mySprite)/2 

    pointer_x = GetSpriteX(mySprite)-width
    pointer_y =GetSpriteX(mySprite)+height
    // get the x, y and z unit vectors based on the pointer position
    unit_x# = Get3DVectorXFromScreen(pointer_x,pointer_y)
    unit_y# = Get3DVectorYFromScreen(pointer_x,pointer_y)
    unit_z# = Get3DVectorZFromScreen(pointer_x,pointer_y)
 
    // calculate the start of the ray cast, which is the unit vector + the camera position
    start_x# = unit_x# + GetCameraX(1)
    start_y# = unit_y# + GetCameraY(1)
    start_z# = unit_z# - GetCameraZ(1)
 

   // calculate the end of the vector, which is the unit vector multiplied by the length of the ray cast and then add the camera position to it
    pointer_x = GetSpriteX(mySprite)+width#
    pointer_y =GetSpriteX(mySprite)-height#
    // get the x, y and z unit vectors based on the pointer position
    unit2_x# = Get3DVectorXFromScreen(pointer_x,pointer_y)
    unit2_y# = Get3DVectorYFromScreen(pointer_x,pointer_y)
    unit2_z# = Get3DVectorZFromScreen(pointer_x,pointer_y)
 
    // calculate the start of the ray cast, which is the unit vector + the camera position
    end_x# = 1000*unit2_x# + GetCameraX(1)
    end_y# = 1000*unit2_y# + GetCameraY(1)
    end_z# = 1000*unit2_z# - GetCameraZ(1)
 
 
    // determine which object has been hit
    object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)  

function checkCollisionObjSpr(obj as integer,index as integer,spr as integer,camID as integer)
	local collision as integer
	
    //this checks for collision between a sprite with a 3d mesh and returns 1 if there would be a collision
    width=Ceil(GetSpriteWidth(Spr)/2.0)     
    height=Ceil(GetSpriteHeight(Spr)/2.0)  //because the calculations should take place from its centre
 
	check_x = GetSpriteXByOffset(spr)-width
	check_y = GetSpriteYByOffset(spr)+height
	// get the x, y and z unit vectors based on the sprite position
	start_x = Get3DVectorXFromScreen(check_x,check_y)
	start_y = Get3DVectorYFromScreen(check_x,check_y)
	start_z = Get3DVectorZFromScreen(check_x,check_y)

	check_x2 = GetSpriteXByOffset(spr)+width
	check_y2 = GetSpriteYByOffset(spr)-height
 
	end_x = Get3DVectorXFromScreen(check_x2,check_y2)
	end_y = Get3DVectorYFromScreen(check_x2,check_y2)
	end_z = Get3DVectorZFromScreen(check_x2,check_y2)
  
    objStart_x = GetObjectX(obj)+GetObjectMeshSizeMinX(obj,index) 
    objStart_y = GetObjectY(obj)-GetObjectMeshSizeMinY(obj,index)
    objStart_z = GetObjectZ(obj)-GetObjectMeshSizeMinY(obj,index)
    
    objEnd_x = GetObjectX(obj)-GetObjectMeshSizeMaxX(obj,index) 
    objEnd_y = GetObjectY(obj)+GetObjectMeshSizeMaxY(obj,index)
    objEnd_z = GetObjectZ(obj)+GetObjectMeshSizeMaxY(obj,index)
    
    for check=start_x to end_x
		if check>objStart_x and check>objEnd_x then coll1=1
	next check
	
	for check=start_y to end_y
		if check>objStart_y and check>objEnd_y then coll2=1
	next check
	//if start_z<objStart_z and start_z<objEnd_z then coll3=1
	coll3=1
	if coll1=1 and coll2=1 and coll3=1
		collision=1
    else 
		collision=0
	endif	
endfunction collision

Function Get3DObjectCollision(object)
	
	// by fubark
	
	x#=getObjectX(object)
	y#=GetObjectY(object)
	z#=getObjectZ(object)
	
	width=(GetObjectSizeMaxX(object)-GetObjectSizeMinX(object))/2 
	height=(GetObjectSizeMaxY(object)-GetObjectSizeMinY(object))/2 
	depth=(GetObjectSizeMaxZ(object)-GetObjectSizeMinZ(object))/2

	// calculate the start of the ray cast
	start_x# = x#-width
	start_y# = y#+height
	start_z# = z#-depth 
	// calculate the end of the ray cast
	end_x# = x#+width   //dimensions of object x +width etc
	end_y# = y#-height
	end_z# = z#+depth 
	// determine which object has been hit
	object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)

	
endfunction object_hit

// set display properties
// exemple by virtual nomad, modified to use a character
SetVirtualResolution( 1080, 720 ) // 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
 
 
 
Create3DPhysicsWorld() 
 
 
 n = CreateObjectPlane(500, 500)
 SetObjectRotation(n, 90, 0, 0)
 Create3DPhysicsStaticBody(n)
 
// a box to test collision
Box1 = CreateObjectBox(32,32,32)
SetObjectRotation(box1, 0, 45, 0)
Create3DPhysicsKinematicBody(Box1)
SetObjectPosition(Box1, 10, 0, 10)
    

// the character
Box2 = CreateObjectBox(32,32,32)
n = box2
SetObjectPosition(n,35,100,0)    
SetObjectColor(n,120,120,255,255)    


    characterOffsetVec = CreateVector3( 0.0, 0.0, 0.0 )
	//This vector indicates the axis your model faces forward.
	//For example if your model faces down the - Z axis use this vector.
	objectOrientationVec = CreateVector3( 0.0, 0.0, 0.0 )
	//The crouchScale parameter is 0.0 to 1.0, for examle 0.75 is 75% of the models standing height.
	Create3DPhysicsCharacterController(n, 1, characterOffsetVec, objectOrientationVec, 1)
	DeleteVector3( characterOffsetVec )
	DeleteVector3( objectOrientationVec )
	Set3DPhysicsCharacterControllerPosition(n, getobjectx(n), getobjecty(n), getobjectz(n))
	//~ Debug3DPhysicsCharacterController(n,1)
	Set3DPhysicsCharacterControllerMaxSlope(n, 30)
	Set3DPhysicsCharacterControllerGravity(n, 9.8 * 1.5 )
    
   
    //~ Create3DPhysicsKinematicBody(Box2)
 
 
 
MoveCameraLocalZ(1,-200)
 
a= 0
WalkVelocity as float
WalkVelocity= 50
finalRotation =0
x=0

do
    
    print("move character with arrow")
		//~ MoveObjectLocalX(Box1, GetRawKeyState(39)-GetRawKeyState(37) ) `RightKey-LeftKey
		//~ MoveObjectLocalZ(Box1, GetRawKeyState(38)-GetRawKeyState(40) ) `UPKey-DownKey
    
	// Move Character
	x=0
	Move3DPhysicsCharacterController(box2, x, WalkVelocity)
	if GetRawKeyState(38)
		x =1
		Move3DPhysicsCharacterController(box2, x, WalkVelocity)
	elseif GetRawKeyState(40)
		x=2
		Move3DPhysicsCharacterController(box2, x, WalkVelocity)
	endif
	if GetRawKeyState(39)
		inc finalRotation, 3
		Rotate3DPhysicsCharacterController(box2, finalRotation )
	elseif GetRawKeyState(37)
		dec finalRotation, 3
		Rotate3DPhysicsCharacterController(box2, finalRotation )
	endif
	
	
	
    
    inc a
	SetObjectPosition(Box1, 10*sin(a), 0, 10)

     
    If GetObjectCollision(Box1,Box2) // GetObjects3DPhysicsContactPositionVector(Box1,Box2,ThisV3) = 1
        SetObjectColor(Box1,255,0,0,255)
    Else
        SetObjectColor(Box1,255,255,255,255)
    Endif
     
    Step3DPhysicsWorld()
    Sync()
loop

Function GetObjectCollision(a,b)
    ThisV3 = CreateVector3()
    result = GetObjects3DPhysicsContactPositionVector(a,b,ThisV3)
EndFunction result

if (GetObject3DPhysicsFirstContact(box2) = 1)             //Character box has registered a collision in last step
    obj_hit = GetObject3DPhysicsContactObjectB()       //Get ID of object box collided with
    if (Box1 = obj_hit)
        SetObjectColor(Box1,255,0,0,255)
    else   
        while (GetObject3DPhysicsNextContact() = 1)     //Likely the first collision was the floor, keep looking for others
            obj_hit = GetObject3DPhysicsContactObjectB()
            if (Box1 = obj_hit )
                SetObjectColor(Box1,255,0,0,255)
            endif
        endwhile
    endif
else
    SetObjectColor(Box1,255,255,255,255)
endif

// set display properties
// exemple by virtual nomad, modified to use a character
SetVirtualResolution( 1080, 720 ) // 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
  
  
  
Create3DPhysicsWorld() 
  
  
 n = CreateObjectPlane(500, 500)
 SetObjectRotation(n, 90, 0, 0)
 Create3DPhysicsStaticBody(n)
  
// a box to test collision
Box1 = CreateObjectBox(32,32,32)
SetObjectRotation(box1, 0, 45, 0)
Create3DPhysicsKinematicBody(Box1)
SetObjectPosition(Box1, 10, 0, 10)
     
 
// the character
Box2 = CreateObjectBox(32,64,32)
n = box2
SetObjectPosition(n,35,100,0)    
SetObjectColor(n,120,120,255,255)    
//~ SetObjectVisible(n, 0)
 
    characterOffsetVec = CreateVector3( 0.0, 0.0, 0.0 )
    //This vector indicates the axis your model faces forward.
    //For example if your model faces down the - Z axis use this vector.
    objectOrientationVec = CreateVector3( 0.0, 0.0, 0.0 )
    //The crouchScale parameter is 0.0 to 1.0, for examle 0.75 is 75% of the models standing height.
    Create3DPhysicsCharacterController(n, 1, characterOffsetVec, objectOrientationVec, 1)
    DeleteVector3( characterOffsetVec )
    DeleteVector3( objectOrientationVec )
    Set3DPhysicsCharacterControllerPosition(n, getobjectx(n), getobjecty(n), getobjectz(n))
    Debug3DPhysicsCharacterController(n,1)
    Set3DPhysicsCharacterControllerMaxSlope(n, 30)
    Set3DPhysicsCharacterControllerGravity(n, 9.8 * 1.5 )
     
 SetObjectScale(box2, 0.7, 0.7, 0.7) 
  
  
MoveCameraLocalZ(1,-200)
  
a= 0
WalkVelocity as float
WalkVelocity= 50
finalRotation =0
x=0
 
do
     
    print("move character with arrow")
     
    // Move Character
    x=0
    Move3DPhysicsCharacterController(box2, x, WalkVelocity)
    if GetRawKeyState(38)
        x =1
        Move3DPhysicsCharacterController(box2, x, WalkVelocity)
    elseif GetRawKeyState(40)
        x=2
        Move3DPhysicsCharacterController(box2, x, WalkVelocity)
    endif
    if GetRawKeyState(39)
        inc finalRotation, 3
        Rotate3DPhysicsCharacterController(box2, finalRotation )
    elseif GetRawKeyState(37)
        dec finalRotation, 3
        Rotate3DPhysicsCharacterController(box2, finalRotation )
    endif
     
     
     
     
    inc a
    SetObjectPosition(Box1, 10*sin(a), 0, 10)
 
    if (GetObject3DPhysicsFirstContact(box2) = 1)             //Character box has registered a collision in last step
		obj_hit = GetObject3DPhysicsContactObjectB() 
		      //Get ID of object box collided with
		      print("first object : "+str(obj_hit))
		if (Box1 = obj_hit)
			SetObjectColor(Box1,255,0,0,255)
		else  
			while (GetObject3DPhysicsNextContact() = 1)     //Likely the first collision was the floor, keep looking for others
				obj_hit = GetObject3DPhysicsContactObjectB()
				
				 print("other object : "+str(obj_hit))
				if (Box1 = obj_hit )
					SetObjectColor(Box1,255,0,0,255)
					
				endif
			endwhile
			
		endif
	else
		SetObjectColor(Box1,255,255,255,255)
	endif
    print(" object : "+str(obj_hit))
      
      
    Step3DPhysicsWorld()
    Sync()
loop

// Project: charAni 
// Created: 23-07-28

// show all errors

SetErrorMode(2)

// set window properties
SetWindowTitle( "charAni" )
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 )

SetPrintSize(20)
create3DPhysicsWorld(1)
Set3DPhysicsGravity(0, -10, 0)
SetAmbientColor(100, 100, 100)	
`SetCameraPosition(1, 0, 500, -500)
`RotateCameraLocalX(1, -15)
SetCameraRange(1, 1, 5000)

ground = CreateObjectPlane(50, 50)
	RotateObjectLocalX(ground, 90)
	SetObjectColor(ground, 0, 102, 0, 255)
	Create3DPhysicsStaticBody(ground)

box1 = CreateObjectBox(2, 2, 2)
	SetObjectPosition(box1, -5, 7, 0)
	SetObjectColor(box1, 252, 60, 12, 255)
	Create3DPhysicsDynamicBody(box1)

box2 = CreateObjectBox(3, 6, 3)
	SetObjectPosition(box2, 5, 3, 0)
	SetObjectColor(box2, 50, 220, 255, 255)
	Create3DPhysicsKinematicBody(box2)


dude = CreateObjectBox(1, 3.0, 0.5)
	SetObjectPosition(dude, 0, 1.5, 0)
	dudeAxis as integer = 1						//0 for X, 1 for Y (standing), 2 for Z (prone)
	dudePosVec = CreateVector3(0.0, 1.5, 0.0)		//Position Vector - offset from origin (model is 3 units high)
	dudeRotVec = CreateVector3(0.0, 0.0, 0.0)		//Rotation Vector (facing +z axis)
	dudeCrouch as float = 0.5						//Amount to scale model when crouching
	SetObjectTransparency(dude, 1)
	SetObjectColor(dude, 50, 50, 50, 200)
	Create3DPhysicsCharacterController(dude, dudeAxis, dudePosVec, dudeRotVec, dudeCrouch)
	Debug3DPhysicsCharacterController(dude, 1)


a= 0
WalkVelocity as float
WalkVelocity= 20
finalRotation =0
x=0

do
    print("move character with arrow")
    print("jump with space")
    print("crouch with ctrl")
    print("ground ID = " + str(ground))
    print("dynamic box1 ID = " + str(box1))
    print("kinematic box2 ID = " + str(box2))
    print("dude ID = " + str(dude))
    
    x=0
    Move3DPhysicsCharacterController(dude, x, WalkVelocity)
    if GetRawKeyState(38)
        x =1
        Move3DPhysicsCharacterController(dude, x, WalkVelocity)
    elseif GetRawKeyState(40)
        x=2
        Move3DPhysicsCharacterController(dude, x, WalkVelocity)
    endif
    if GetRawKeyState(39)
        inc finalRotation, 3
        Rotate3DPhysicsCharacterController(dude, finalRotation )
    elseif GetRawKeyState(37)
        dec finalRotation, 3
        Rotate3DPhysicsCharacterController(dude, finalRotation )
    endif
    
	if (GetRawKeyState(32) = 1)					//Space Bar
		Jump3DPhysicsCharacterController(dude)
	endif
    
	if (GetRawKeyState(17) = 1)					//Ctrl
		Crouch3DPhysicsCharacterController(dude)
	else
		Stand3DPhysicsCharacterController(dude)
	endif
    
    
    if (GetObject3DPhysicsFirstContact(box1) = 1)             //Character box has registered a collision in last step
		obj_hit = GetObject3DPhysicsContactObjectB()      	//Get ID of object box collided with
	    print("box has made contact with " + str(obj_hit))
	    if (dude = obj_hit)
	        SetObjectColor(Box1, 255, 0, 0, 255)
	        Message("dude hit the box")
	    else  
	        while (GetObject3DPhysicsNextContact() = 1)     //Likely the first collision was the floor, keep looking for others
				obj_hit = GetObject3DPhysicsContactObjectB()
				print("box has also made contact with " + str(obj_hit))
				if (dude = obj_hit)
	                SetObjectColor(Box1,255,0,0,255)
	                Message("dude hit the box")
	            endif
	        endwhile
	    endif
	else
	   ` SetObjectColor(Box1,255,255,255,255)
	endif
    
    Step3DPhysicsWorld()
    Sync()
loop

// Project: charAni 
// Created: 23-07-28

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "charAni" )
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 )

SetPrintSize(20)
create3DPhysicsWorld(1)
Set3DPhysicsGravity(0, -10, 0)
SetAmbientColor(100, 100, 100)	
SetCameraRange(1, 1, 5000)

type boxes
	boxID as integer
	red as integer
	green as integer
	blue as integer
endtype

boxIDs as boxes[2]

ground = CreateObjectPlane(50, 50)
	RotateObjectLocalX(ground, 90)
	SetObjectColor(ground, 0, 102, 0, 255)
	Create3DPhysicsStaticBody(ground)
	boxIDs[0].boxID=ground
	boxIDs[0].green=102

box1 = CreateObjectBox(2, 2, 2)
	SetObjectPosition(box1, -5, 7, 0)
	SetObjectColor(box1, 252, 60, 12, 255)
	Create3DPhysicsdynamicBody(box1)
	boxIDs[1].boxID=box1
	boxIDs[1].red=252
	boxIDs[1].green=60
	boxIDs[1].blue=12	

box2 = CreateObjectBox(3, 6, 3)
	SetObjectPosition(box2, 5, 3.5, 0)
	SetObjectColor(box2, 50, 220, 255, 255)
	Create3DPhysicsKinematicBody(box2)
	boxIDs[2].boxID=box2
	boxIDs[2].red=50
	boxIDs[2].green=220
	boxIDs[2].blue=255	

dude = CreateObjectBox(1, 3.0, 0.5)
	SetObjectPosition(dude, 0, 1.5, 0)
	dudeAxis as integer = 1						//0 for X, 1 for Y (standing), 2 for Z (prone)
	dudePosVec = CreateVector3(0.0, 1.5, 0.0)		//Position Vector - offset from origin (model is 3 units high)
	dudeRotVec = CreateVector3(0.0, 0.0, 0.0)		//Rotation Vector (facing +z axis)
	dudeCrouch as float = 0.5						//Amount to scale model when crouching
	SetObjectTransparency(dude, 1)
	SetObjectColor(dude, 50, 50, 50, 200)
	Create3DPhysicsCharacterController(dude, dudeAxis, dudePosVec, dudeRotVec, dudeCrouch)
	Debug3DPhysicsCharacterController(dude, 1)


a= 0
WalkVelocity as float
WalkVelocity= 20
finalRotation =0
x=0

do
    print("move character with arrow")
    print("jump with space")
    print("crouch with ctrl")
    print("ground ID = " + str(ground))
    print("dynamic box1 ID = " + str(box1))
    print("kinematic box2 ID = " + str(box2))
    print("dude ID = " + str(dude))
    
    x=0
    Move3DPhysicsCharacterController(dude, x, WalkVelocity)
    if GetRawKeyState(38)
        x =1
        Move3DPhysicsCharacterController(dude, x, WalkVelocity)
    elseif GetRawKeyState(40)
        x=2
        Move3DPhysicsCharacterController(dude, x, WalkVelocity)
    endif
    if GetRawKeyState(39)
        inc finalRotation, 3
        Rotate3DPhysicsCharacterController(dude, finalRotation )
    elseif GetRawKeyState(37)
        dec finalRotation, 3
        Rotate3DPhysicsCharacterController(dude, finalRotation )
    endif
    
	if (GetRawKeyState(32) = 1)					//Space Bar
		Jump3DPhysicsCharacterController(dude)
	endif
    
	if (GetRawKeyState(17) = 1)					//Ctrl
		Crouch3DPhysicsCharacterController(dude)
	else
		Stand3DPhysicsCharacterController(dude)
	endif
    
	for cycle=0 to boxIDs.length    
		SetObjectColor(boxIDs[cycle].boxID,boxIDs[cycle].red,boxIDs[cycle].green,boxIDs[cycle].blue,255)
		if (GetObject3DPhysicsFirstContact(boxIDs[cycle].boxID) = 1)             //Character box has registered a collision in last step
			obj_hit = GetObject3DPhysicsContactObjectB()      	//Get ID of object box collided with
			if obj_hit=-1 then obj_hit=dude
			if (dude = obj_hit)
				SetObjectColor(boxIDs[cycle].boxID, 0, 255, 0, 255)
				print("box " + str(boxIDs[cycle].boxID) + " is in contact with " + str(obj_hit))
			else  
				while (GetObject3DPhysicsNextContact() = 1)     //Likely the first collision was the floor, keep looking for others
					obj_hit = GetObject3DPhysicsContactObjectB()
					if obj_hit=-1 then obj_hit=dude
					if (dude = obj_hit)
						SetObjectColor(boxIDs[cycle].boxID,255,0,255,255)
						print("box " + str(boxIDs[cycle].boxID) + " is in contact with " + str(obj_hit))
					endif
				endwhile
			endif
		endif
	 next cycle   

    Step3DPhysicsWorld()
    Sync()
    
loop

Aidan/// Project: Mesh Template
// Created: 2019-01-12

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant size=64  // Size of the chunk in X and Z direction - make this small so the chunk can be quickly rebuilt in processing
#constant renderdistance=0 // how many chunks surrounding each other - call it render distance variable

// set window properties
SetWindowTitle( "Mesh Template" )
SetWindowSize( screenwidth, screenheight, fullscreen )
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( 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

global angx#,angy#,startx#,starty#
global camerax#,cameray#,cameraz#


// meshmemblock types
Type Vertex
    air as integer  
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
endtype
  
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
  
Type Mesh
    VertexList as Vertex[]
endtype
  
global MeshID as Mesh


// create player collisions units all way raround the player
for a=6 to 12
	CreateObjectBox(a,10,10,10)
	SetObjectVisible(a,0)
next


img = createtexture()

SetImageMagFilter(img,0)
SetImageMinFilter(img,0)


startx#=screenwidth/2
starty#=screenheight/2
SetRawMousePosition(startx#,starty#)

vortexposx=random2(-size+5,size-5)
vortexposz=random2(-size+5,size-5)

for x=-size to size
	for y=0 to 1
		for z=-size to size
				

			if y=1
				if random(0,100)>70 
					if x<>vortexposx and z<>vortexposz
						addCubeToMesh(x,random(y,y+1),z,1,1,1,1)
					endif
				endif
			else
				if x=vortexposx and z=vortexposz
					// dont add a cube - make a space in the ground
				else
				
					addCubeToMesh(x,y,z,1,1,1,1)
				endif
			endif	
		next
	next
next



obj=CreateObjectFromMeshWithUVTexturing(meshid,1,img)

camerax#=0
cameray#=5
cameraz#=-10
speed#=.01


SetCameraRange(1,.01,1000)
do
	
	    if ( GetPointerPressed() )
        startx# = GetPointerX()
        starty# = GetPointerY()
        angx# = GetCameraAngleX(1)
        angy# = GetCameraAngleY(1)
        pressed = 1
     endif
	
	        // get player input
	//if ( checkCollisionv2(obj,6,9)<>1 and GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, speed# )  // cursor up
     //if ( checkCollisionv2(obj,6,10)<>1 and GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -speed# ) // cursor down
     //if ( checkCollisionv2(obj,6,11)<>1 and GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -speed# ) // cursor iz
     //if ( checkCollisionv2(obj,6,12)<>1 and GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, speed# )  // cursor derecha 
  		if checkCollisionv2(obj,6,11)<>1 and GetRawKeyState(37) then dec camerax#,speed#
		if checkCollisionv2(obj,6,12)<>1 and GetRawKeyState(39) then inc camerax#,speed#
		if checkCollisionv2(obj,6,10)<>1 and GetRawKeyState(40) then dec cameraz#,speed#
		if checkCollisionv2(obj,6,9)<>1 and GetRawKeyState(38) then inc cameraz#,speed#
		if checkCollisionv2(obj,6,8)<>1 and GetRawKeyState(87) 
			MoveCameraLocalY(1,speed#)
			inc cameray#,speed#
			jumping=1
		endif

// check if hits the ground by checking the collisioner underneath camera
		if jumping=0 and checkCollisionv2(obj,6,7)<>1
			 MoveCameraLocalY(1,-speed#)
			 dec cameray#,speed#
		else
			jumping=0
		endif

		setcameradata()
		
	
	movecamera()
    Print( ScreenFPS() )
    Sync()
loop

function setcameradata()
		SetCameraPosition(1,camerax#,cameray#,cameraz#)
		camerax#=getcamerax(1)
		cameray#=getcameray(1)
		cameraz#=getcameraz(1)
		
		//collision object centre 
		SetObjectPosition(6,camerax#,cameray#,cameraz#)
		//collision object bottom
		SetObjectPosition(7,camerax#,cameray#-.5,cameraz#)
		//collision object above
		SetObjectPosition(8,camerax#,cameray#+.5,cameraz#)
		//collision object front
		SetObjectPosition(9,camerax#,cameray#,cameraz#+.5)
		//collision object behin
		SetObjectPosition(10,camerax#,cameray#,cameraz#-.5)
		//collision object left
		SetObjectPosition(11,camerax#-.5,cameray#,cameraz#)
		//collision object right
		SetObjectPosition(12,camerax#+.5,cameray#,cameraz#)
endfunction

function movecamera()
	if GetPointerState()=1
	fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
    SetCameraRotation(1, newX#, angy# + fDiffX#, 0 )
	endif
endfunction
function addCubeToMesh(x#,y#,z#,sizex#,sizey#,sizez#,c)
	
	
	// do adjacent culling check
	cx = floor(x#)
	cy = floor(y#)
	cz = floor(z#)
	
	
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0	,0		, c)
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0, 0	,.5	, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, .5  ,0		, c)

	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, .5 ,0		, c)
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0, 0	,.5	, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)-sizez# 	, 0,1,0, .5 ,.5	, c)

	// BOTTOM face - top right corner texture
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)			, 0,1,0, 0.5,0  	, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2) 			, 0,1,0, 1,0		, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 0.5,0.5	, c)

	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)			, 0,1,0, 1,0		, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 1,0.5		, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 0.5,0.5		, c)


	// Left Side - bottom left corner texture
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0.5,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)			, 0,1,0, 0,1, c)
	

	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0.5,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2) 			, 0,1,0, 0.5,1, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)			, 0,1,0, 0,1, c)
		
	// Right Side - bottom left corner texture
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0, 0,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 0,1, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)-sizez# 	, 0,1,0, 0.5,0.5, c)

	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)-sizez# 	, 0,1,0, 0.5,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 0,1, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 0.5,1, c)

		
	// Front Side - bottom left corner texture
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0   , 0    , 0.5, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2) 			, 0,1,0   , 0    , 1  , c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0   , .5 , 1  , c)

	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez# 	, 0,1,0  , .5  , 1, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#  	, 0,1,0  , .5  , .5  , c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2)		   	, 0,1,0  , 0    , .5  , c)

	// Back Side - bottom left corner texture
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)			, 0,1,0   , 0   , 0.5, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0   , .5   , 1  , c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2) 			, 0,1,0   , 0   , 1  , c)


	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez# 	, 0,1,0  , .5   , 1, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)		   	, 0,1,0  , 0    , .5  , c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0  , .5  , .5 , c)


	
endfunction


function emptymesh()
	meshid.VertexList.length=-1
endfunction

Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, air as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.air = air
    m.VertexList.Insert(vert)
  
endfunction
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh, MeshIndex,texture)
    DeleteMemblock(chunkmesh)
    VertexCount = m.VertexList.Length + 1
   
    IndexCount = 0
    IndexOffset = 60 + VertexCount*36
    chunkmesh = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(chunkmesh,0,VertexCount)
    SetMemblockInt(chunkmesh,4,IndexCount)
    SetMemblockInt(chunkmesh,8,3)
    SetMemblockInt(chunkmesh,12,32) // no color - 36 if color
    SetmemblockInt(chunkmesh,16,60)
    SetMemblockInt(chunkmesh,20,IndexOffset)
    SetMemblockInt(chunkmesh,24,0x0c000300)
    SetMemblockString(chunkmesh,28,"position")
    SetMemblockInt(chunkmesh,40,0x08000300)
    SetMemblockString(chunkmesh,44,"normal")
    SetMemblockInt(chunkmesh,52,0x04000200)
    SetMemblockString(chunkmesh,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
			
		if m.VertexList[i].air = 1 // has a block there
			SetMemblockFloat(chunkmesh,60+i*32,m.VertexList[i].x)
			SetMemblockFloat(chunkmesh,64+i*32,m.VertexList[i].y)
			SetMemblockFloat(chunkmesh,68+i*32,m.VertexList[i].z)
			SetMemblockFloat(chunkmesh,72+i*32,m.VertexList[i].nx)
			SetMemblockFloat(chunkmesh,76+i*32,m.VertexList[i].ny)
			SetMemblockFloat(chunkmesh,80+i*32,m.VertexList[i].nz)
			SetMemblockFloat(chunkmesh,84+i*32,m.VertexList[i].u)
			SetMemblockFloat(chunkmesh,88+i*32,m.VertexList[i].v)
		endif
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
//    DeleteAllObjects()
	DeleteObject(1)
	
	

    CreateObjectFromMeshMemblock(1,chunkmesh)
    SetObjectImage(1,texture,0)
	SetObjectColor(1,255,255,255,10)
endfunction 1

function checkCollisionv2(objwith,objID as integer,objID2 as integer)
	start_x#=getobjectx(objID)
	start_y#=getobjecty(objID)
	start_z#=getobjectz(objID)

	end_x#=getobjectx(objID2)
	end_y#=getobjecty(objID2)
	end_z#=getobjectz(objID2)


// determine which object has been hit
	object_Hit = ObjectRayCast(objwith,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)

endfunction object_Hit

function createtexture()

countx=2
	
	
	stp = 1
	//top - grass top
	for x=0 to 16 step stp
		for y=0 to 16 step stp
		//	if random(1,0)=1
				c=MakeColor(0,random(100,200),0) // green
			//else
			//	c=MakeColor(random(200,255),random(200,255),random(200,255)) // white
			//endif	
			
			DrawBox(x,y,x+4,y+4,c,c,c,c,1)
		next
	next
	
	//bottom - dirt
	for x=16 to 32 step stp
		for y=0 to 16 step stp
			c=MakeColor(random(100,140),random(30,130),0)
			DrawBox(x,y,x+4,y+4,c,c,c,c,1)
		next
	next


// 3 sides - a bit of green at top and orange at bottom
	for x=0 to 16 step stp
		for y=16 to 32 step stp
			if y<20
				if random(0,10)>1
					c=MakeColor(0,random(100,200),0)
				else
					c=MakeColor(random(100,140),random(30,130),0)
				endif
						
			else
				c=MakeColor(random(100,140),random(30,130),0)
			endif
			DrawBox(x,y,x+4,y+4,c,c,c,c,1)
		next
	next



	
	img = GetImage(0,0,32,32)
	SaveImage(img,"test.png")
endfunction img

// Project: IDcheck 
// Created: 23-09-30

SetErrorMode(2)
width# = GetMaxDeviceWidth()
height# = GetMaxDeviceHeight()
SetWindowSize(width#,height#,1)
SetVirtualResolution(width#,height#)
SetSyncRate(30,0)
SetScissor(0,0,0,0)
UseNewDefaultFonts(1)
Create3DPhysicsWorld()
Set3DPhysicsGravity(0,-0.15,0)
SetGenerateMipmaps(1)
SetSkyboxVisible(1)
SetSkyBoxHorizonColor(100,100,255)
SetSkyBoxSkyColor(100,100,255)
setprintsize(height#/25)

light1=1
CreatePointLight(light1,0,1000,0,10000,255,255,255)
SetPointLightMode(light1,1)

ground=1000
createobjectplane(ground,700,700)
setobjectcolor(ground,40,100,40,255)
rotateobjectlocalX(ground,90)
Create3DPhysicsStaticBody(ground)
setobjectshapebox(ground)
SetObjectCollisionMode(ground,1)


maxBoxes=50
//SetRandomSeed(11)
for i=1 to maxBoxes
    boxID=i+1000
    boxXpos=random(1,200)
    boxZpos=random(1,200)
    CreateObjectBox(boxID,7,7,7)
    SetObjectposition(boxID,boxXpos,-2,boxZpos)
    setobjectcolor(boxID,random(50,200),random(50,200),random(50,200),255)
    Create3DPhysicsStaticBody(boxID)
next i

cam1=1
SetCameraRange(cam1,0.1, 50000 )
SetCameraposition(cam1,0,30,0)
SetCameraRotation(cam1,0,0,0)

man1=CreateObjectsphere(2,6,12)
SetObjectposition(man1,0,30,0)
setobjectvisible(man1,0)
SetObjectRotation(man1,0,0,0)
Create3DPhysicsDynamicBody(man1)
SetObject3DPhysicsCanSleep(man1,0)
ovec = CreateVector3(0,0,0)
rvec = CreateVector3(0,0,0)
Create3DPhysicsCharacterController(man1,1,ovec,rvec,0.5)
Set3DPhysicsCharacterControllerJumpSpeed(man1,1)
Set3DPhysicsCharacterControllerFallSpeed(man1,3)
Set3DPhysicsCharacterControllerGravity(man1,1)
SetObjectCollisionMode(man1,1)
SetObject3DPhysicsMass(man1,2)


setrawmousevisible(0)
SetRawMousePosition(width#/2,height#/2)

do

    //  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  cam control

    mouseX# = (GetRawMouseX()-width#/2)*0.2:mouseY# = (GetRawMouseY()-height#/2)*0.2 
    RotateCameraLocalX(cam1,mouseY#)
    SetCameraRotation(cam1,GetCameraAngleX(cam1),GetObjectAngleY(man1),0)
    If GetCameraAngleX(cam1)>80 Then SetCameraRotation(cam1,80,GetCameraAngleY(cam1),0)
    If GetCameraAngleX(cam1)<-80 Then SetCameraRotation(cam1,-80,GetCameraAngleY(cam1),0)
    strafe# = (GetRawKeyState(68) - GetRawKeyState(65)):move# = (GetRawKeyState(87) - GetRawKeyState(83))
    Move3DPhysicsCharacterController(man1,strafe#,move#,30)
    Rotate3DPhysicsCharacterController(man1,GetCameraAngleY(cam1)+mouseX#)
    
    if GetRawKeyPressed(32)
        Jump3DPhysicsCharacterController(man1)
    endif
    SetCameraPosition(cam1,GetObjectX(man1),GetObjectY(man1)+1,GetObjectZ(man1))
    
    //  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  check close proximity and ID
    
    HitID=0
    dist# = 1000
    for c=0 to maxBoxes
        if c=0
            ray = ObjectRayCast(c+1000,getobjectworldX(man1),getobjectworldY(man1),getobjectworldZ(man1),getobjectworldX(man1),getobjectworldY(man1)-2,getobjectworldZ(man1))
        else
            ray = ObjectRayCast(c+1000,getobjectworldX(man1),getobjectworldY(man1),getobjectworldZ(man1),getobjectworldX(c+1000),getobjectworldY(c+1000),getobjectworldZ(c+1000))
        endif
        dist# = GetObjectRayCastDistance(0)
        if dist#<3.5      //  set detection range
            HitID=c+1000
            exit
        endif
    next c
    
    //  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
    
    print(" Mouse WASD Space")
    print(" HitID "+str(HitID))
    if HitID=1000 then print(" on ground")
    
    Step3DPhysicsWorld()
    SetRawMousePosition(width#/2,height#/2)
    Sync()
    if GetrawKeyPressed(27) then end
loop

// Project: IDcheck 
// Created: 23-09-30

SetErrorMode(2)
width# = GetMaxDeviceWidth()
height# = GetMaxDeviceHeight()
SetWindowSize(width#,height#,1)
SetVirtualResolution(width#,height#)
SetSyncRate(30,0)
SetScissor(0,0,0,0)
UseNewDefaultFonts(1)
Create3DPhysicsWorld()
Set3DPhysicsGravity(0,-0.15,0)
SetGenerateMipmaps(1)
SetSkyboxVisible(1)
SetSkyBoxHorizonColor(100,100,255)
SetSkyBoxSkyColor(100,100,255)
setprintsize(height#/25)

light1=1
CreatePointLight(light1,0,1000,0,10000,255,255,255)
SetPointLightMode(light1,1)

ground=1000
createobjectplane(ground,700,700)
setobjectcolor(ground,40,100,40,255)
rotateobjectlocalX(ground,90)
Create3DPhysicsStaticBody(ground)
setobjectshapebox(ground)
SetObjectCollisionMode(ground,1)


maxBoxes=50
//SetRandomSeed(11)
for i=1 to maxBoxes
    boxID=i+1000
    boxXpos=random(1,200)
    boxZpos=random(1,200)
    CreateObjectBox(boxID,7,7,7)
    SetObjectposition(boxID,boxXpos,-2,boxZpos)
    setobjectcolor(boxID,random(50,200),random(50,200),random(50,200),255)
    Create3DPhysicsStaticBody(boxID)
next i

cam1=1
SetCameraRange(cam1,0.1, 50000 )
SetCameraposition(cam1,0,30,0)
SetCameraRotation(cam1,0,0,0)

man1=CreateObjectsphere(2,6,12)
SetObjectposition(man1,0,30,0)
setobjectvisible(man1,0)
SetObjectRotation(man1,0,0,0)
Create3DPhysicsDynamicBody(man1)
SetObject3DPhysicsCanSleep(man1,0)
ovec = CreateVector3(0,0,0)
rvec = CreateVector3(0,0,0)
Create3DPhysicsCharacterController(man1,1,ovec,rvec,0.5)
Set3DPhysicsCharacterControllerJumpSpeed(man1,1)
Set3DPhysicsCharacterControllerFallSpeed(man1,3)
Set3DPhysicsCharacterControllerGravity(man1,1)
SetObjectCollisionMode(man1,1)
SetObject3DPhysicsMass(man1,2)


setrawmousevisible(0)
SetRawMousePosition(width#/2,height#/2)

do

    //  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  cam control

    mouseX# = (GetRawMouseX()-width#/2)*0.2:mouseY# = (GetRawMouseY()-height#/2)*0.2 
    RotateCameraLocalX(cam1,mouseY#)
    SetCameraRotation(cam1,GetCameraAngleX(cam1),GetObjectAngleY(man1),0)
    If GetCameraAngleX(cam1)>80 Then SetCameraRotation(cam1,80,GetCameraAngleY(cam1),0)
    If GetCameraAngleX(cam1)<-80 Then SetCameraRotation(cam1,-80,GetCameraAngleY(cam1),0)
    strafe# = (GetRawKeyState(68) - GetRawKeyState(65)):move# = (GetRawKeyState(87) - GetRawKeyState(83))
    Move3DPhysicsCharacterController(man1,strafe#,move#,30)
    Rotate3DPhysicsCharacterController(man1,GetCameraAngleY(cam1)+mouseX#)
    
    if GetRawKeyPressed(32)
        Jump3DPhysicsCharacterController(man1)
    endif
    SetCameraPosition(cam1,GetObjectX(man1),GetObjectY(man1)+1,GetObjectZ(man1))
    
    //  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  check close below feet and get ID
    
    HitID=0
    dist# = 1000
    for c=0 to maxBoxes
        ray = ObjectRayCast(c+1000,getobjectworldX(man1),getobjectworldY(man1),getobjectworldZ(man1),getobjectworldX(man1),getobjectworldY(man1)-2,getobjectworldZ(man1))
        dist# = GetObjectRayCastDistance(0)
        if dist#<3.5      //  set detection range
            HitID=c+1000
            exit
        endif
    next c
    
    //  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
    
    //myXpos#=getobjectworldX(man1)
    //myYpos#=getobjectworldY(man1)
    //myZpos#=getobjectworldZ(man1)
    //print(" XYZ "+str(myXpos#)+"  "+str(myYpos#)+"  "+str(myZpos#))
    
    print(" Mouse WASD Space")
    print(" HitID "+str(HitID))
    if HitID=1000 then print(" on ground")
    
    Step3DPhysicsWorld()
    SetRawMousePosition(width#/2,height#/2)
    Sync()
    if GetrawKeyPressed(27) then end
loop