RTS Selection multi-object 3D - GameCreators Forum

Author

Message

Blendman

10

Years of Service

User Offline

Joined: 17th Feb 2014

Location: Arkeos

Posted: 23rd Jun 2016 07:08

Link

Hi

I need to select several objects by mouse border (like in a RTS 3D). Do you know how to do that ?

My test (not working) :

// Project: 3D_Rts_Selection 
// Created: 2016-06-23

// set window properties
SetWindowTitle( "3D_Rts_Selection" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

FOr i= 0 to 10
	
	r = 5
	CreateObjectBox(i,r,r,r)
	r = 40
	SetObjectPosition(i,random(-r,r),random(-r,r),random(-r,r))
	
next

SetCameraPosition(1,0,-50,-50)
SetCameraLookAt(1,0,0,0,0)

do
    
    	// hold shift to move slower
	speed# = 4
	
    // control the camera with WASD
    if ( GetRawKeyState( 38 ) ) then MoveCameralocalZ( 1, speed# )
	if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -speed# )
	if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -speed# )
	if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, speed# )
	if ( GetRawKeyState( 27 ) ) then end

// rotate the camera
		if GetRawMouseLeftPressed()
			oldMx#= GetPointerX() 
			oldMy#= GetPointerY() 
			
			angx# = GetCameraAngleX(1)
			angy# = GetCameraAngleY(1)
		endif
		if GetRawMouseLeftState()			
			fDiffX# = (GetPointerX()  -oldMx#)/4.0
			fDiffY# = (GetPointerY()  -oldMy#)/4.0
			newX# = angx# + fDiffY#
			if ( newX# > 89 ) then newX# = 89
			if ( newX# < -89 ) then newX# = -89
			SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
        endif
		
    if GetRawMouseRightPressed()
		StartX# = GetpointerX()
		StartY# = GetpointerY()
		u = 80000
		wX1# = Get3DVectorXFromScreen( StartX# , StartY# ) *u 
		wY1# = Get3DVectorYFromScreen( StartX# , StartY# ) *u 
		wZ1# = Get3DVectorZFromScreen( StartX# , StartY# ) *u
		// set all object with no color
		For i= 0 to 10
			SetObjectColorEmissive(i,0,0,0)
		next 	
	endif
	
    if GetRawMouseRightState()	
		DrawBox(StartX#,StartY#,GetpointerX(),GetpointerY(),255,255,255,255,0)
	
		u = 80000
		wX2# = Get3DVectorXFromScreen( GetPointerX(), GetPointerY() ) *u 
		wY2# = Get3DVectorYFromScreen( GetPointerX(), GetPointerY() ) *u 
		wZ2# = Get3DVectorZFromScreen( GetPointerX(), GetPointerY() ) *u 									
	endif
	
    if GetRawMouseRightReleased()	
		
		For i=0 to 10
			x# = getobjectX(i)
			y# = getobjectX(i)
			z# = getobjectX(i)
			if X#>=wX1# and X#<=wX2# and Y#>=wY1# and Y#<=wY2# and Z#>=wZ1# and Z#<=wZ2#
				SetObjectColorEmissive(i,255,0,0)
			endif				
		next
		
		
    Endif

Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet


// Project: 3D_Rts_Selection 
// Created: 2016-06-23

// set window properties
SetWindowTitle( "3D_Rts_Selection" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

FOr i= 0 to 10
	
	r = 5
	CreateObjectBox(i,r,r,r)
	r = 40
	SetObjectPosition(i,random(-r,r),random(-r,r),random(-r,r))
	
next


SetCameraPosition(1,0,-50,-50)
SetCameraLookAt(1,0,0,0,0)

do
    
    	// hold shift to move slower
	speed# = 4
	
    // control the camera with WASD
    if ( GetRawKeyState( 38 ) ) then MoveCameralocalZ( 1, speed# )
	if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -speed# )
	if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -speed# )
	if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, speed# )
	if ( GetRawKeyState( 27 ) ) then end

		// rotate the camera
		if GetRawMouseLeftPressed()
			oldMx#= GetPointerX() 
			oldMy#= GetPointerY() 
			
			angx# = GetCameraAngleX(1)
			angy# = GetCameraAngleY(1)
		endif
		if GetRawMouseLeftState()			
			fDiffX# = (GetPointerX()  -oldMx#)/4.0
			fDiffY# = (GetPointerY()  -oldMy#)/4.0
			newX# = angx# + fDiffY#
			if ( newX# > 89 ) then newX# = 89
			if ( newX# < -89 ) then newX# = -89
			SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
        endif
		
    if GetRawMouseRightPressed()
		StartX# = GetpointerX()
		StartY# = GetpointerY()
		u = 80000
		wX1# = Get3DVectorXFromScreen( StartX# , StartY# ) *u 
		wY1# = Get3DVectorYFromScreen( StartX# , StartY# ) *u 
		wZ1# = Get3DVectorZFromScreen( StartX# , StartY# ) *u
		// set all object with no color
		For i= 0 to 10
			SetObjectColorEmissive(i,0,0,0)
		next 	
	endif
	
    if GetRawMouseRightState()	
		DrawBox(StartX#,StartY#,GetpointerX(),GetpointerY(),255,255,255,255,0)
	
		u = 80000
		wX2# = Get3DVectorXFromScreen( GetPointerX(), GetPointerY() ) *u 
		wY2# = Get3DVectorYFromScreen( GetPointerX(), GetPointerY() ) *u 
		wZ2# = Get3DVectorZFromScreen( GetPointerX(), GetPointerY() ) *u 									
	endif
	
    if GetRawMouseRightReleased()	
		
		For i=0 to 10
			x# = getobjectX(i)
			y# = getobjectX(i)
			z# = getobjectX(i)
			if X#>=wX1# and X#<=wX2# and Y#>=wY1# and Y#<=wY2# and Z#>=wZ1# and Z#<=wZ2#
				SetObjectColorEmissive(i,255,0,0)
			endif				
		next
		
		
    Endif
    

    Print( ScreenFPS() )
    Sync()
loop

AGK2 tier1 - http://www.dracaena-studio.com

Back to top

Profile PM Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 23rd Jun 2016 09:42

Link

i don't understand the code very well but i think you need a ground plane. then calculate where the mouse intersects with that ground plane and draw your area that way.
anything on the ground plane within your selection area is selected.
does that help?

Back to top

Profile PM

Blendman

10

Years of Service

User Offline

Joined: 17th Feb 2014

Location: Arkeos

Posted: 23rd Jun 2016 11:14

Link

Hi BlinkOk

YEs, I use the raycast to move one or several object on a plane. But My matter is I can have flying object, and they aren't on the ground plane ^^. So How to include them in my selection ?

AGK2 tier1 - http://www.dracaena-studio.com

Back to top

Profile PM Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 23rd Jun 2016 11:30 Edited at: 23rd Jun 2016 11:32

Link

assume their y position is the same as the ground plane when you test for collision. in fact ignore the y position entirely and just use AABB collision based on their x/z footprint

Back to top

Profile PM

Blendman

10

Years of Service

User Offline

Joined: 17th Feb 2014

Location: Arkeos

Posted: 24th Jun 2016 11:43

Link

I can't ignore their Y position, I really need to select the object in a X,Y,Z area

. It's for my 3D editor, so object can be placed anywhere in x,y,z ^^.

AGK2 tier1 - http://www.dracaena-studio.com

Back to top

Profile PM Website

29 games

18

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 25th Jun 2016 12:16

Link

I would project the 3d coordinate of the objects into 2d screen coordinates, like this:

// Project: 3D_Rts_Selection
// Created: 2016-06-23

// set window properties
SetWindowTitle( "3D_Rts_Selection" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

type _box_type

obj as integer
	spr as integer

xp_screen# as integer
	yp_screen# as integer

xp_world# as float
	yp_world# as float
	zp_world# as float

endtype

dim box[10] as _box_type

For i= 0 to 10

r = 5
    box[i].obj = CreateObjectBox(r,r,r)
    r = 40
    box[i].xp_world# = random(-r,r)
    box[i].yp_world# = random(-r,r)
    box[i].zp_world# = random(-r,r)

SetObjectPosition(box[i].obj,box[i].xp_world#,box[i].yp_world#,box[i].zp_world#)

box[i].spr = createSprite(0)
	SetSpriteSize(box[i].spr,10,10)
	SetSpriteColor(box[i].spr,0,0,255,150)

do

// hold shift to move slower
    speed# = 4

// control the camera with WASD
    if ( GetRawKeyState( 38 ) ) then MoveCameralocalZ( 1, speed# )
    if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -speed# )
    if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -speed# )
    if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, speed# )
    if ( GetRawKeyState( 27 ) ) then end

// rotate the camera
        if GetRawMouseLeftPressed()
            oldMx#= GetPointerX()
            oldMy#= GetPointerY()

angx# = GetCameraAngleX(1)
            angy# = GetCameraAngleY(1)
        endif
        if GetRawMouseLeftState()
            fDiffX# = (GetPointerX()  -oldMx#)/4.0
            fDiffY# = (GetPointerY()  -oldMy#)/4.0
            newX# = angx# + fDiffY#
            if ( newX# > 89 ) then newX# = 89
            if ( newX# < -89 ) then newX# = -89
            SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
        endif

// project 3d coordinate to 2d screen coordinates
	for i = 0 to 10
		box[i].xp_screen# = GetScreenXFrom3D(box[i].xp_world#,box[i].yp_world#,box[i].zp_world#)
		box[i].yp_screen# = GetScreenYFrom3D(box[i].xp_world#,box[i].yp_world#,box[i].zp_world#)
		SetSpritePositionByOffset(box[i].spr,box[i].xp_screen#,box[i].yp_screen#)
	next i

if GetRawMouseRightPressed()
        StartX# = GetpointerX()
        StartY# = GetpointerY()
        For i= 0 to 10
            SetObjectColor(box[i].obj,0,255,0,255)
        next
    endif

if GetRawMouseRightState()
		EndX# = GetpointerX()
		EndY# = GetpointerY()
        DrawBox(StartX#,StartY#,EndX#,EndY#,255,255,255,255,0)
    endif

if GetRawMouseRightReleased()
		EndX# = GetpointerX()
		EndY# = GetpointerY()

// determine the left, right, top and bottom of the selection box
		if StartX# < EndX#
			left# = StartX#
			right# = EndX#
		else
			left# = EndX#
			right# = StartX#
		endif

if StartY# < EndY#
			top# = StartY#
			bottom# = EndY#
		else
			top# = EndY#
			bottom# = StartY#
		endif

// determine if the centre of the object if within the selection box
		// based on the object's screen x and y position
        For i=0 to 10

if box[i].xp_screen# > left# and box[i].xp_screen# < right#
				if box[i].yp_screen# > top# and box[i].yp_screen# < bottom#
					SetObjectColor(box[i].obj,255,0,0,255)
				endif
			endif

Sync()
loop

+ Code Snippet

// Project: 3D_Rts_Selection
// Created: 2016-06-23

// set window properties
SetWindowTitle( "3D_Rts_Selection" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

type _box_type

	obj as integer
	spr as integer

	xp_screen# as integer
	yp_screen# as integer

	xp_world# as float
	yp_world# as float
	zp_world# as float

endtype

dim box[10] as _box_type


For i= 0 to 10

    r = 5
    box[i].obj = CreateObjectBox(r,r,r)
    r = 40
    box[i].xp_world# = random(-r,r)
    box[i].yp_world# = random(-r,r)
    box[i].zp_world# = random(-r,r)

    SetObjectPosition(box[i].obj,box[i].xp_world#,box[i].yp_world#,box[i].zp_world#)

	box[i].spr = createSprite(0)
	SetSpriteSize(box[i].spr,10,10)
	SetSpriteColor(box[i].spr,0,0,255,150)

next


SetCameraPosition(1,0,-50,-50)
SetCameraLookAt(1,0,0,0,0)

do

    // hold shift to move slower
    speed# = 4

    // control the camera with WASD
    if ( GetRawKeyState( 38 ) ) then MoveCameralocalZ( 1, speed# )
    if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -speed# )
    if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -speed# )
    if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, speed# )
    if ( GetRawKeyState( 27 ) ) then end

        // rotate the camera
        if GetRawMouseLeftPressed()
            oldMx#= GetPointerX()
            oldMy#= GetPointerY()

            angx# = GetCameraAngleX(1)
            angy# = GetCameraAngleY(1)
        endif
        if GetRawMouseLeftState()
            fDiffX# = (GetPointerX()  -oldMx#)/4.0
            fDiffY# = (GetPointerY()  -oldMy#)/4.0
            newX# = angx# + fDiffY#
            if ( newX# > 89 ) then newX# = 89
            if ( newX# < -89 ) then newX# = -89
            SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
        endif


	// project 3d coordinate to 2d screen coordinates
	for i = 0 to 10
		box[i].xp_screen# = GetScreenXFrom3D(box[i].xp_world#,box[i].yp_world#,box[i].zp_world#)
		box[i].yp_screen# = GetScreenYFrom3D(box[i].xp_world#,box[i].yp_world#,box[i].zp_world#)
		SetSpritePositionByOffset(box[i].spr,box[i].xp_screen#,box[i].yp_screen#)
	next i

    if GetRawMouseRightPressed()
        StartX# = GetpointerX()
        StartY# = GetpointerY()
        For i= 0 to 10
            SetObjectColor(box[i].obj,0,255,0,255)
        next
    endif

    if GetRawMouseRightState()
		EndX# = GetpointerX()
		EndY# = GetpointerY()
        DrawBox(StartX#,StartY#,EndX#,EndY#,255,255,255,255,0)
    endif

    if GetRawMouseRightReleased()
		EndX# = GetpointerX()
		EndY# = GetpointerY()

		// determine the left, right, top and bottom of the selection box
		if StartX# < EndX#
			left# = StartX#
			right# = EndX#
		else
			left# = EndX#
			right# = StartX#
		endif

		if StartY# < EndY#
			top# = StartY#
			bottom# = EndY#
		else
			top# = EndY#
			bottom# = StartY#
		endif


		// determine if the centre of the object if within the selection box
		// based on the object's screen x and y position
        For i=0 to 10

			if box[i].xp_screen# > left# and box[i].xp_screen# < right#
				if box[i].yp_screen# > top# and box[i].yp_screen# < bottom#
					SetObjectColor(box[i].obj,255,0,0,255)
				endif
			endif

        next

    Endif

    Sync()
loop

I've also added in code that means it doesn't matter how the player draws the box (from corner to corner).

Hover Car Race Challenge! - available now on Google Play
Invaders of the 29th Dimension - available now on Google Play
Find me on indieDB

Back to top

Profile PM Email

Blendman

10

Years of Service

User Offline

Joined: 17th Feb 2014

Location: Arkeos

Posted: 25th Jun 2016 16:56

Link

@29games :
excellent !!! Thank you very much, it's great

!

AGK2 tier1 - http://www.dracaena-studio.com

Back to top

Profile PM Website

Sorry your browser is not supported!

Newcomers AppGameKit Corner / RTS Selection multi-object 3D