Help with object picking (Switching modes)

Blitz3D Forums/Blitz3D Beginners Area/Help with object picking (Switching modes)

Guy Fawkes

(Posted 2012) [#1]

Hi all, JUST when I thought it was over, I found one LAST glitch in this code I've been working on. Can someone please help point out the error of my ways? What it's doing wrong NOW, is when you go into single object select mode, and select an object, then go into double object select mode, and select to or more objects, when u go to click on any other object, for SOME reason, it's making me click twice when trying to deselect an object... Also, when in multi mode, for some reason, it's not selecting the object like it should....

Here's the code:

Graphics3D 800,600,0,2
SetBuffer BackBuffer()
SeedRnd MilliSecs()

AmbientLight 255, 255, 255

Global ObjsSelected%=0 ;To keep track of how many objects are selected

Global type_player = 1
Global type_obj    = 2
Global type_land   = 3

Collisions type_player, type_land, 2, 3
Collisions type_obj, type_land, 2, 3

Global camera=CreateCamera() ;Create a camera
PositionEntity camera,0,1,-30

Local ground=CreatePlane() ;Create a ground
EntityColor ground,0,100,0
EntityType ground, type_land

Type Obj ;Create our Type Cube
	Field mesh
	Field selected
End Type

Local x
Local c.Obj
For x=1 To 10 ;Make 10 cubes, placed randomly.
	c.Obj=New Obj
	c\mesh=CreateCube()
	PositionEntity c\mesh,Rand(-30,30),1,Rand(-20,30)
	EntityColor c\mesh,Rnd(0, 255), Rnd(0, 255), Rnd(0, 255)
	EntityPickMode c\mesh,2,1
	EntityType c\mesh, type_obj
Next



For x=1 To 10 ;Make 10 spheres, placed randomly.
	c.Obj=New Obj
	c\mesh=CreateSphere()
	PositionEntity c\mesh,Rand(-60,60),1,Rand(-40,60)
	EntityColor c\mesh,Rnd(0, 255), Rnd(0, 255), Rnd(0, 255)
	EntityPickMode c\mesh,2,1
	EntityType c\mesh, type_obj
Next



For x=1 To 10 ;Make 10 cones, placed randomly.
	c.Obj=New Obj
	c\mesh=CreateCone(12)
	PositionEntity c\mesh,Rand(-90,90),1,Rand(-60,80)
	EntityColor c\mesh,Rnd(0, 255), Rnd(0, 255), Rnd(0, 255)
	EntityPickMode c\mesh,2,1
	EntityType c\mesh, type_obj
Next



Global picked



Global oldpicked



Global inpickmode



Global spacer



Global zspacer



Global count



Global objcountselected



Global oldwhichmode



Global whichmode = 1



Global modename$



Global resetpick = False



While Not KeyDown(1)



		oldwhichmode = whichmode


		If KeyDown(29) Or KeyDown(157)
		
			If KeyHit(57)<>0	
				whichmode = whichmode + 1
				If whichmode > 2
					whichmode = 1
				EndIf
			EndIf
		EndIf
	
	
		If MouseHit(1)
			inpickmode = PickAll(camera, whichmode) ;Run the function for selecting an object
		EndIf


		If whichmode = 1 Then modename$ = "Single Object Select Mode"
		If whichmode = 2 Then modename$ = "Multiple Object Select Mode"
	
	MoveEntity camera, 0, 0, (KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*.05
	TurnEntity camera, 0, (KeyDown(30)-KeyDown(32) Or KeyDown(203)-KeyDown(205))*.5, 0
	
	Check_Copy_Key()
	
	UpdateWorld()
	RenderWorld()
	
	Text 0,0,"Click a cube to select it. Click the ground to de-select all the objects.
	Text 0,20,"Use the arrow keys to move the selected objects.
	Text 0,40,"Objects Selected: "+ObjsSelected
	Text 0,60,"picked: "+picked
	Text 0,80,"oldpicked: "+oldpicked
	Text 0,100,"spacer: "+spacer
	Text 0,120,"zspacer: "+zspacer
	Text 0,140,"count: "+count
	Text 0,160,"objcountselected: "+objcountselected
	Text 0,180,"whichmode: "+whichmode
	Text 0,200,"mode: "+modename$
	
	Flip
	
Wend

End



Function PickAll(camera, whichmode)
	
	oldpicked = picked
	
	mx = MouseX()
	my = MouseY()
	picked = CameraPick(camera,MouseX(),MouseY())
	
	Select whichmode
	
	Case 1
	
	
	If whichmode=oldwhichmode Then resetpick = True
	

			If picked
				EntityAlpha picked, .5
				EntityFX picked, 1
			EndIf
			If oldpicked <> 0
				EntityAlpha oldpicked,1.0
				EntityFX oldpicked,0
			EndIf
			If picked = oldpicked Or oldpicked = picked Then picked = 0
			;Add more for multiple object mode here
		oldpicked = picked

	
	Case 2
	

	
	If whichmode=oldwhichmode Then resetpick = True

	
	
	If picked <> 0
		collisiontype = GetEntityType(picked)
		inpickedmode = True
	Else
		inpickmode = False
	EndIf
	If picked = 0
		collisiontype = 0
		objcountselected = 0
	EndIf


		For c.Obj=Each Obj
		
		If resetpick=0
		
		If collisiontype = type_obj
			If picked=c\mesh And EntityVisible(camera,c\mesh)
				c\selected=1-c\selected
				If c\selected = 1
					objcountselected = objcountselected + 1
					EntityAlpha c\mesh,0.5
				EndIf
				If c\selected = 0
					objcountselected = objcountselected - 1
					EntityAlpha c\mesh,1
				EndIf
			EndIf
		EndIf
		
		EndIf
			
		
		If collisiontype <> type_obj Or resetpick = True
			c\selected = 0
			EntityAlpha c\mesh,1.0
		EndIf
		
	Next
	
	If collisiontype <> type_obj
		objcountselected = 0
	EndIf
	
	Default
	
	End Select
	
	Return inpickmode
	
End Function



Function Check_Copy_Key()
	
	
	
	If KeyHit(46)
		Local c.Obj
		Local ne.Obj
		Local x#
		Local y#
		Local z#
		Local averagecount#
		For c.Obj = Each Obj
			If c\selected = 1
				averagecount# = averagecount# + 1.0
				x# = x# + EntityX(c\mesh,True)
				y# = y# + EntityY(c\mesh,True)
				z# = z# + EntityZ(c\mesh,True)
				c\selected = 0
				EntityAlpha c\mesh,1.0
				ne.Obj = New Obj
				ne\mesh = CopyEntity(c\mesh)
				EntityType ne\mesh,0
				EntityPickMode ne\mesh, 2, 1
                EntityAlpha ne\mesh,0.5
				ne\selected = 2
			EndIf
		Next
		Local center = CreatePivot()
		PositionEntity center,x#/averagecount#,y#/averagecount#,z#/averagecount#,True
		For c.Obj = Each Obj
			If c\selected = 2
				EntityParent c\mesh,center
			EndIf
		Next
		FlushKeys()
		FlushMouse()
		Local continue = 0
		Local leftkey = 0
		Local rightkey = 0
		Local upkey = 0
		Local downkey = 0
		Local akey = 0
		Local zkey = 0
		Local onekey = 0
		Local twokey = 0
		Local threekey = 0
		Local fourkey = 0
		Local fivekey = 0
		Local sixkey = 0
		Local rotationmode$ = "Local"
		While Not continue
			If KeyDown(1) Then End
			If KeyDown(203) Then leftkey = 1
			If KeyDown(205) Then rightkey = 1
			If KeyDown(200) Then upkey = 1
			If KeyDown(208) Then downkey = 1
			If KeyDown(30) Then akey = 1
			If KeyDown(44) Then zkey = 1
			If KeyDown(2) Then onekey = 1
			If KeyDown(3) Then twokey = 1
			If KeyDown(4) Then threekey = 1
			If KeyDown(5) Then fourkey = 1
			If KeyDown(6) Then fivekey = 1
			If KeyDown(7) Then sixkey = 1
			For ne.Obj = Each Obj
				If ne\selected = 2
					Local pitch#
					Local yaw#
					Local roll#
					pitch# = EntityPitch(ne\mesh,True)
					yaw# = EntityYaw(ne\mesh,True)
					roll# = EntityRoll(ne\mesh,True)
					RotateEntity ne\mesh,EntityPitch(camera,True),EntityYaw(camera,True),EntityRoll(camera,True),True
					If leftkey
						MoveEntity ne\mesh,-0.1,0,0
					EndIf
					If rightkey
						MoveEntity ne\mesh,0.1,0,0
					EndIf
					If upkey
						MoveEntity ne\mesh,0,0,0.1
					EndIf
					If downkey
						MoveEntity ne\mesh,0,0,-0.1
					EndIf
					If akey
						MoveEntity ne\mesh,0,0.1,0
					EndIf
					If zkey
						MoveEntity ne\mesh,0,-0.1,0
					EndIf
					RotateEntity ne\mesh,pitch#,yaw#,roll#,True
					If rotationmode$ = "Local"
						If onekey
							TurnEntity ne\mesh,1,0,0,True
						EndIf
						If twokey
							TurnEntity ne\mesh,-1,0,0,True
						EndIf
						If threekey
							TurnEntity ne\mesh,0,1,0,True
						EndIf
						If fourkey
							TurnEntity ne\mesh,0,-1,0,True
						EndIf
						If fivekey
							TurnEntity ne\mesh,0,0,1,True
						EndIf
						If sixkey
							TurnEntity ne\mesh,0,0,-1,True
						EndIf
					EndIf
				EndIf
			Next
			If rotationmode$ = "Group"
				If onekey
					TurnEntity center,1,0,0,True
				EndIf
				If twokey
					TurnEntity center,-1,0,0,True
				EndIf
				If threekey
					TurnEntity center,0,1,0,True
				EndIf
				If fourkey
					TurnEntity center,0,-1,0,True
				EndIf
				If fivekey
					TurnEntity center,0,0,1,True
				EndIf
				If sixkey
					TurnEntity center,0,0,-1,True
				EndIf
			EndIf
			If Not KeyDown(203) Then leftkey = 0
			If Not KeyDown(205) Then rightkey = 0
			If Not KeyDown(200) Then upkey = 0
			If Not KeyDown(208) Then downkey = 0
			If Not KeyDown(30) Then akey = 0
			If Not KeyDown(44) Then zkey = 0
			If Not KeyDown(2) Then onekey = 0
			If Not KeyDown(3) Then twokey = 0
			If Not KeyDown(4) Then threekey = 0
			If Not KeyDown(5) Then fourkey = 0
			If Not KeyDown(6) Then fivekey = 0
			If Not KeyDown(7) Then sixkey = 0
			If KeyHit(19)
				Local gotit = 0
				If rotationmode$ = "Local" And gotit = 0
					rotationmode$ = "Group"
					gotit = 1
				EndIf
				If rotationmode$ = "Group" And gotit = 0
					rotationmode$ = "Local"
					gotit = 1
				EndIf
			EndIf
			If MouseHit(1) Then continue = 1
			If KeyHit(14) Then continue = 2
			UpdateWorld()
			RenderWorld()
			Color 255,0,0
			Text 0,0,"COPY MODE: CLICK LEFT MOUSE BUTTON TO CONFIRM PLACEMENT, HIT BACKSPACE TO REJECT COPIED OBJECTS."
			Text 0,20,"Use left/right keys to move copied objects left/right (X-axis)."
			Text 0,40,"Use up/down keys to move copied objects forward/backward (Z-axis)."
			Text 0,60,"Use a/z keys to move copied objects up/down (Y-axis)."
			Text 0,100,"Hit R key to change rotation mode. Currently set to: " + rotationmode$
			Text 0,120,"Use 1/2 to rotate group pitch (X-axis) on the " + rotationmode$ + " axis."
			Text 0,140,"Use 3/4 to rotate group yaw (Y-axis) on the " + rotationmode$ + " axis."
			Text 0,160,"Use 5/6 to rotate group roll (Z-axis) on the " + rotationmode$ + " axis."
			Text 0,200,"Objects Selected: "+ObjsSelected
			Text 0,220,"picked: "+picked
			Text 0,240,"spacer: "+spacer
			Text 0,260,"zspacer: "+zspacer
			Text 0,280,"count: "+count
			Text 0,300,"objcountselected: "+objcountselected
			Color 255,255,255
			Flip
		Wend
		If continue = 1
			For ne.Obj = Each Obj
				EntityType ne\mesh, type_obj
				EntityPickMode ne\mesh, 2, 1
				ne\selected = 0
				EntityAlpha ne\mesh,1.0
				EntityParent ne\mesh,0
			Next
		EndIf
		If continue = 2
			For ne.Obj = Each Obj
				If ne\selected = 2
					FreeEntity ne\mesh
					Delete ne
				Else
					EntityType ne\mesh, type_obj
					EntityPickMode ne\mesh, 2, 1
					ne\selected = 0
					EntityAlpha ne\mesh,1.0
					EntityParent ne\mesh,0
				EndIf
			Next
		EndIf
		objcountselected = 0
		FreeEntity center
	EndIf
	
	
End Function

Any help would be GREATLY appreciated! :)

Thanks! :)

Last edited 2012

Ginger Tea

(Posted 2012) [#2]

Seeing as it looks more like Rob's changes from this thread than the one you originally posted, what did you change for it to now break?

Thank you very much, sir :) This is PERFECT! :) I will study it when I get some time :)

if nothing was changed, why start a brand new thread when you could just post in that thread the bug you have found?

Guy Fawkes

(Posted 2012) [#3]

Im ignoring all smart-alec comments.

Ginger Tea

(Posted 2012) [#4]

It wasn't a smart alec comment, it was an observation that the new code was without checking every single line, very similar to rob's, so if that was true it's gone from PERFECT to broken in an hour.

Then the second was, if you changed nothing then a 6th or so thread on a similar issue, just fragments everything when there was a valid thread you could have posted too.

Guy Fawkes

(Posted 2012) [#5]

alls i need it to do is switch correctly between single object select, and multi-object select.

Matty

(Posted 2012) [#6]

Out of interest thundros, what kind of game are you planning on making?

Guy Fawkes

(Posted 2012) [#7]

It is not a game. It is a level editor / particle editor system :)

Rob the Great

(Posted 2012) [#8]

I'm not sure what you're talking about because I couldn't even get multi-mode to work. I had no problem with the double click issue once I fixed the multi-mode version.

Graphics3D 800,600,0,2
SetBuffer BackBuffer()
SeedRnd MilliSecs()

AmbientLight 255, 255, 255

Global ObjsSelected%=0 ;To keep track of how many objects are selected

Global type_player = 1
Global type_obj    = 2
Global type_land   = 3

Collisions type_player, type_land, 2, 3
Collisions type_obj, type_land, 2, 3

Global camera=CreateCamera() ;Create a camera
PositionEntity camera,0,1,-30

Local ground=CreatePlane() ;Create a ground
EntityColor ground,0,100,0
EntityType ground, type_land

Type Obj ;Create our Type Cube
	Field mesh
	Field selected
End Type

Local x
Local c.Obj
For x=1 To 10 ;Make 10 cubes, placed randomly.
	c.Obj=New Obj
	c\mesh=CreateCube()
	PositionEntity c\mesh,Rand(-30,30),1,Rand(-20,30)
	EntityColor c\mesh,Rnd(0, 255), Rnd(0, 255), Rnd(0, 255)
	EntityPickMode c\mesh,2,1
	EntityType c\mesh, type_obj
Next



For x=1 To 10 ;Make 10 spheres, placed randomly.
	c.Obj=New Obj
	c\mesh=CreateSphere()
	PositionEntity c\mesh,Rand(-60,60),1,Rand(-40,60)
	EntityColor c\mesh,Rnd(0, 255), Rnd(0, 255), Rnd(0, 255)
	EntityPickMode c\mesh,2,1
	EntityType c\mesh, type_obj
Next



For x=1 To 10 ;Make 10 cones, placed randomly.
	c.Obj=New Obj
	c\mesh=CreateCone(12)
	PositionEntity c\mesh,Rand(-90,90),1,Rand(-60,80)
	EntityColor c\mesh,Rnd(0, 255), Rnd(0, 255), Rnd(0, 255)
	EntityPickMode c\mesh,2,1
	EntityType c\mesh, type_obj
Next



Global picked



Global oldpicked



Global inpickmode



Global spacer



Global zspacer



Global count



Global objcountselected



Global oldwhichmode



Global whichmode = 1



Global modename$ = "Single Object Select Mode"



Global resetpick = False



While Not KeyDown(1)



	oldwhichmode = whichmode
	
	If KeyDown(29) Or KeyDown(157)
		If KeyHit(57)<>0	
			whichmode = whichmode + 1
			If whichmode > 2
				whichmode = 1
			EndIf
			If whichmode = 1 Then modename$ = "Single Object Select Mode"
			If whichmode = 2 Then modename$ = "Multiple Object Select Mode"
		EndIf
	EndIf
	
	If MouseHit(1)
		inpickmode = PickAll(camera, whichmode) ;Run the function for selecting an object
	EndIf
	
	MoveEntity camera, 0, 0, (KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*.05
	TurnEntity camera, 0, (KeyDown(30)-KeyDown(32) Or KeyDown(203)-KeyDown(205))*.5, 0
	
	Check_Copy_Key()
	
	UpdateWorld()
	RenderWorld()
	
	Text 0,0,"Click a cube to select it. Click the ground to de-select all the objects.
	Text 0,20,"Use the arrow keys to move the selected objects.
	Text 0,40,"Objects Selected: "+ObjsSelected
	Text 0,60,"picked: "+picked
	Text 0,80,"oldpicked: "+oldpicked
	Text 0,100,"spacer: "+spacer
	Text 0,120,"zspacer: "+zspacer
	Text 0,140,"count: "+count
	Text 0,160,"objcountselected: "+objcountselected
	Text 0,180,"whichmode: "+whichmode
	Text 0,200,"mode: "+modename$
	
	Flip
	
Wend

End



Function PickAll(camera,whichmode)
	

	picked = CameraPick(camera,MouseX(),MouseY())
	
	Select whichmode
		Case 1
			If picked
				EntityAlpha picked,0.5
				EntityFX picked, 1
			EndIf
			If oldpicked <> 0
				EntityAlpha oldpicked,1.0
				EntityFX oldpicked,0
			EndIf
			oldpicked = picked
		Case 2
			If picked
				Local collisiontype
				collisiontype = GetEntityType(picked)
				inpickmode = 1
				Local c.Obj
				For c.Obj=Each Obj
					If collisiontype = type_obj
						If picked=c\mesh And EntityVisible(camera,c\mesh)
							c\selected=1-c\selected
							If c\selected = 1
								objcountselected = objcountselected + 1
								EntityAlpha c\mesh,0.5
							EndIf
							If c\selected = 0
								objcountselected = objcountselected - 1
								EntityAlpha c\mesh,1
							EndIf
						EndIf
					EndIf
					If collisiontype <> type_obj
						c\selected = 0
						EntityAlpha c\mesh,1.0
					EndIf
				Next
			Else
				inpickmode = 0
				objcountselected = 0
			EndIf
		Default
			RuntimeError "Whichmode has to equal 1 or 2!"
	End Select
	
	Return inpickmode
	
End Function



Function Check_Copy_Key()
	
	
	
	If KeyHit(46)
		Local c.Obj
		Local ne.Obj
		Local x#
		Local y#
		Local z#
		Local averagecount#
		For c.Obj = Each Obj
			If c\selected = 1
				averagecount# = averagecount# + 1.0
				x# = x# + EntityX(c\mesh,True)
				y# = y# + EntityY(c\mesh,True)
				z# = z# + EntityZ(c\mesh,True)
				c\selected = 0
				EntityAlpha c\mesh,1.0
				ne.Obj = New Obj
				ne\mesh = CopyEntity(c\mesh)
				EntityType ne\mesh,0
				EntityPickMode ne\mesh, 2, 1
                EntityAlpha ne\mesh,0.5
				ne\selected = 2
			EndIf
		Next
		Local center = CreatePivot()
		PositionEntity center,x#/averagecount#,y#/averagecount#,z#/averagecount#,True
		For c.Obj = Each Obj
			If c\selected = 2
				EntityParent c\mesh,center
			EndIf
		Next
		FlushKeys()
		FlushMouse()
		Local continue = 0
		Local leftkey = 0
		Local rightkey = 0
		Local upkey = 0
		Local downkey = 0
		Local akey = 0
		Local zkey = 0
		Local onekey = 0
		Local twokey = 0
		Local threekey = 0
		Local fourkey = 0
		Local fivekey = 0
		Local sixkey = 0
		Local rotationmode$ = "Local"
		While Not continue
			If KeyDown(1) Then End
			If KeyDown(203) Then leftkey = 1
			If KeyDown(205) Then rightkey = 1
			If KeyDown(200) Then upkey = 1
			If KeyDown(208) Then downkey = 1
			If KeyDown(30) Then akey = 1
			If KeyDown(44) Then zkey = 1
			If KeyDown(2) Then onekey = 1
			If KeyDown(3) Then twokey = 1
			If KeyDown(4) Then threekey = 1
			If KeyDown(5) Then fourkey = 1
			If KeyDown(6) Then fivekey = 1
			If KeyDown(7) Then sixkey = 1
			For ne.Obj = Each Obj
				If ne\selected = 2
					Local pitch#
					Local yaw#
					Local roll#
					pitch# = EntityPitch(ne\mesh,True)
					yaw# = EntityYaw(ne\mesh,True)
					roll# = EntityRoll(ne\mesh,True)
					RotateEntity ne\mesh,EntityPitch(camera,True),EntityYaw(camera,True),EntityRoll(camera,True),True
					If leftkey
						MoveEntity ne\mesh,-0.1,0,0
					EndIf
					If rightkey
						MoveEntity ne\mesh,0.1,0,0
					EndIf
					If upkey
						MoveEntity ne\mesh,0,0,0.1
					EndIf
					If downkey
						MoveEntity ne\mesh,0,0,-0.1
					EndIf
					If akey
						MoveEntity ne\mesh,0,0.1,0
					EndIf
					If zkey
						MoveEntity ne\mesh,0,-0.1,0
					EndIf
					RotateEntity ne\mesh,pitch#,yaw#,roll#,True
					If rotationmode$ = "Local"
						If onekey
							TurnEntity ne\mesh,1,0,0,True
						EndIf
						If twokey
							TurnEntity ne\mesh,-1,0,0,True
						EndIf
						If threekey
							TurnEntity ne\mesh,0,1,0,True
						EndIf
						If fourkey
							TurnEntity ne\mesh,0,-1,0,True
						EndIf
						If fivekey
							TurnEntity ne\mesh,0,0,1,True
						EndIf
						If sixkey
							TurnEntity ne\mesh,0,0,-1,True
						EndIf
					EndIf
				EndIf
			Next
			If rotationmode$ = "Group"
				If onekey
					TurnEntity center,1,0,0,True
				EndIf
				If twokey
					TurnEntity center,-1,0,0,True
				EndIf
				If threekey
					TurnEntity center,0,1,0,True
				EndIf
				If fourkey
					TurnEntity center,0,-1,0,True
				EndIf
				If fivekey
					TurnEntity center,0,0,1,True
				EndIf
				If sixkey
					TurnEntity center,0,0,-1,True
				EndIf
			EndIf
			If Not KeyDown(203) Then leftkey = 0
			If Not KeyDown(205) Then rightkey = 0
			If Not KeyDown(200) Then upkey = 0
			If Not KeyDown(208) Then downkey = 0
			If Not KeyDown(30) Then akey = 0
			If Not KeyDown(44) Then zkey = 0
			If Not KeyDown(2) Then onekey = 0
			If Not KeyDown(3) Then twokey = 0
			If Not KeyDown(4) Then threekey = 0
			If Not KeyDown(5) Then fourkey = 0
			If Not KeyDown(6) Then fivekey = 0
			If Not KeyDown(7) Then sixkey = 0
			If KeyHit(19)
				Local gotit = 0
				If rotationmode$ = "Local" And gotit = 0
					rotationmode$ = "Group"
					gotit = 1
				EndIf
				If rotationmode$ = "Group" And gotit = 0
					rotationmode$ = "Local"
					gotit = 1
				EndIf
			EndIf
			If MouseHit(1) Then continue = 1
			If KeyHit(14) Then continue = 2
			UpdateWorld()
			RenderWorld()
			Color 255,0,0
			Text 0,0,"COPY MODE: CLICK LEFT MOUSE BUTTON TO CONFIRM PLACEMENT, HIT BACKSPACE TO REJECT COPIED OBJECTS."
			Text 0,20,"Use left/right keys to move copied objects left/right (X-axis)."
			Text 0,40,"Use up/down keys to move copied objects forward/backward (Z-axis)."
			Text 0,60,"Use a/z keys to move copied objects up/down (Y-axis)."
			Text 0,100,"Hit R key to change rotation mode. Currently set to: " + rotationmode$
			Text 0,120,"Use 1/2 to rotate group pitch (X-axis) on the " + rotationmode$ + " axis."
			Text 0,140,"Use 3/4 to rotate group yaw (Y-axis) on the " + rotationmode$ + " axis."
			Text 0,160,"Use 5/6 to rotate group roll (Z-axis) on the " + rotationmode$ + " axis."
			Text 0,200,"Objects Selected: "+ObjsSelected
			Text 0,220,"picked: "+picked
			Text 0,240,"spacer: "+spacer
			Text 0,260,"zspacer: "+zspacer
			Text 0,280,"count: "+count
			Text 0,300,"objcountselected: "+objcountselected
			Color 255,255,255
			Flip
		Wend
		If continue = 1
			For ne.Obj = Each Obj
				EntityType ne\mesh, type_obj
				EntityPickMode ne\mesh, 2, 1
				ne\selected = 0
				EntityAlpha ne\mesh,1.0
				EntityParent ne\mesh,0
			Next
		EndIf
		If continue = 2
			For ne.Obj = Each Obj
				If ne\selected = 2
					FreeEntity ne\mesh
					Delete ne
				Else
					EntityType ne\mesh, type_obj
					EntityPickMode ne\mesh, 2, 1
					ne\selected = 0
					EntityAlpha ne\mesh,1.0
					EntityParent ne\mesh,0
				EndIf
			Next
		EndIf
		objcountselected = 0
		FreeEntity center
	EndIf
	
	
End Function

From this point forward, I'm not going to just fix broken code for you. I will help you with any questions or problems you are having, but debugging your own game is an invaluable part of understanding your own code.

Guy Fawkes

(Posted 2012) [#9]

Try being in single mode 1st. then choosing an object. then choose multi mode. then choose the 1st object u clicked. the double click glitch is RIGHT there. Even in THIS version. Also, in single object mode, it only lets me select it, then unselect it, only once.

Last edited 2012

Rob the Great

(Posted 2012) [#10]

Ok, I see what you're talking about now. I've changed the PickAll() function a little bit to get rid of the "oldpicked" variable because it's making things way more complicated than they have to be. Instead, the system is set up where each entity has additional properties (c\selected). This should work now:

Graphics3D 800,600,0,2
SetBuffer BackBuffer()
SeedRnd MilliSecs()

AmbientLight 255, 255, 255

Global ObjsSelected%=0 ;To keep track of how many objects are selected

Global type_player = 1
Global type_obj    = 2
Global type_land   = 3

Collisions type_player, type_land, 2, 3
Collisions type_obj, type_land, 2, 3

Global camera=CreateCamera() ;Create a camera
PositionEntity camera,0,1,-30

Local ground=CreatePlane() ;Create a ground
EntityColor ground,0,100,0
EntityType ground, type_land

Type Obj ;Create our Type Cube
	Field mesh
	Field selected
End Type

Local x
Local c.Obj
For x=1 To 10 ;Make 10 cubes, placed randomly.
	c.Obj=New Obj
	c\mesh=CreateCube()
	PositionEntity c\mesh,Rand(-30,30),1,Rand(-20,30)
	EntityColor c\mesh,Rnd(0, 255), Rnd(0, 255), Rnd(0, 255)
	EntityPickMode c\mesh,2,1
	EntityType c\mesh, type_obj
Next



For x=1 To 10 ;Make 10 spheres, placed randomly.
	c.Obj=New Obj
	c\mesh=CreateSphere()
	PositionEntity c\mesh,Rand(-60,60),1,Rand(-40,60)
	EntityColor c\mesh,Rnd(0, 255), Rnd(0, 255), Rnd(0, 255)
	EntityPickMode c\mesh,2,1
	EntityType c\mesh, type_obj
Next



For x=1 To 10 ;Make 10 cones, placed randomly.
	c.Obj=New Obj
	c\mesh=CreateCone(12)
	PositionEntity c\mesh,Rand(-90,90),1,Rand(-60,80)
	EntityColor c\mesh,Rnd(0, 255), Rnd(0, 255), Rnd(0, 255)
	EntityPickMode c\mesh,2,1
	EntityType c\mesh, type_obj
Next



Global picked



Global oldpicked



Global inpickmode



Global spacer



Global zspacer



Global count



Global objcountselected



Global oldwhichmode



Global whichmode = 1



Global modename$ = "Single Object Select Mode"



Global resetpick = False



While Not KeyDown(1)



	oldwhichmode = whichmode
	
	If KeyDown(29) Or KeyDown(157)
		If KeyHit(57)
			whichmode = whichmode + 1
			If whichmode > 2
				whichmode = 1
			EndIf
			If whichmode = 1 Then modename$ = "Single Object Select Mode"
			If whichmode = 2 Then modename$ = "Multiple Object Select Mode"
		EndIf
	EndIf
	
	If MouseHit(1)
		inpickmode = PickAll(camera, whichmode) ;Run the function for selecting an object
	EndIf
	
	MoveEntity camera, 0, 0, (KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*.05
	TurnEntity camera, 0, (KeyDown(30)-KeyDown(32) Or KeyDown(203)-KeyDown(205))*.5, 0
	
	Check_Copy_Key()
	
	UpdateWorld()
	RenderWorld()
	
	Text 0,0,"Click a cube to select it. Click the ground to de-select all the objects.
	Text 0,20,"Use the arrow keys to move the selected objects.
	Text 0,40,"Objects Selected: "+ObjsSelected
	Text 0,60,"picked: "+picked
	Text 0,80,"oldpicked: "+oldpicked
	Text 0,100,"spacer: "+spacer
	Text 0,120,"zspacer: "+zspacer
	Text 0,140,"count: "+count
	Text 0,160,"objcountselected: "+objcountselected
	Text 0,180,"whichmode: "+whichmode
	Text 0,200,"mode: "+modename$
	
	Flip
	
Wend

End



Function PickAll(camera,whichmode)
	

	picked = CameraPick(camera,MouseX(),MouseY())
	
	Select whichmode
		Case 1
			If picked
				inpickmode = 1
				Local c.Obj
				For c.Obj=Each Obj
					If picked = c\mesh
						c\selected=1-c\selected
						If c\selected = 1
							objcountselected = 1
							EntityAlpha c\mesh,0.5
							EntityFX c\mesh,1
						EndIf
						If c\selected = 0
							objcountselected = 0
							EntityAlpha c\mesh,1
							EntityFX c\mesh,0
						EndIf
					EndIf
					If picked <> c\mesh
						c\selected = 0
						EntityAlpha c\mesh,1.0
						EntityFX c\mesh,0
					EndIf
				Next
			Else
				For c.Obj = Each Obj
					c\selected = 0
					EntityAlpha c\mesh,1.0
					EntityFX c\mesh,0
				Next
				inpickmode = 0
				objcountselected = 0
			EndIf
		Case 2
			If picked
				Local collisiontype
				collisiontype = GetEntityType(picked)
				inpickmode = 1
				For c.Obj=Each Obj
					If collisiontype = type_obj
						If picked=c\mesh
							c\selected=1-c\selected
							If c\selected = 1
								objcountselected = objcountselected + 1
								EntityAlpha c\mesh,0.5
								EntityFX c\mesh,1
							EndIf
							If c\selected = 0
								objcountselected = objcountselected - 1
								EntityAlpha c\mesh,1
								EntityFX c\mesh,0
							EndIf
						EndIf
					EndIf
					If collisiontype <> type_obj
						c\selected = 0
						EntityAlpha c\mesh,1.0
					EndIf
				Next
			Else
				For c.Obj = Each Obj
					c\selected = 0
					EntityAlpha c\mesh,1.0
					EntityFX c\mesh,0
				Next
				inpickmode = 0
				objcountselected = 0
			EndIf
		Default
			RuntimeError "Whichmode has to equal 1 or 2!"
	End Select
	
	Return inpickmode
	
End Function



Function Check_Copy_Key()
	
	
	
	If KeyHit(46)
		Local c.Obj
		Local ne.Obj
		Local x#
		Local y#
		Local z#
		Local averagecount#
		For c.Obj = Each Obj
			If c\selected = 1
				averagecount# = averagecount# + 1.0
				x# = x# + EntityX(c\mesh,True)
				y# = y# + EntityY(c\mesh,True)
				z# = z# + EntityZ(c\mesh,True)
				c\selected = 0
				EntityAlpha c\mesh,1.0
				ne.Obj = New Obj
				ne\mesh = CopyEntity(c\mesh)
				EntityType ne\mesh,0
				EntityPickMode ne\mesh, 2, 1
                EntityAlpha ne\mesh,0.5
				ne\selected = 2
			EndIf
		Next
		Local center = CreatePivot()
		PositionEntity center,x#/averagecount#,y#/averagecount#,z#/averagecount#,True
		For c.Obj = Each Obj
			If c\selected = 2
				EntityParent c\mesh,center
			EndIf
		Next
		FlushKeys()
		FlushMouse()
		Local continue = 0
		Local leftkey = 0
		Local rightkey = 0
		Local upkey = 0
		Local downkey = 0
		Local akey = 0
		Local zkey = 0
		Local onekey = 0
		Local twokey = 0
		Local threekey = 0
		Local fourkey = 0
		Local fivekey = 0
		Local sixkey = 0
		Local rotationmode$ = "Local"
		While Not continue
			If KeyDown(1) Then End
			If KeyDown(203) Then leftkey = 1
			If KeyDown(205) Then rightkey = 1
			If KeyDown(200) Then upkey = 1
			If KeyDown(208) Then downkey = 1
			If KeyDown(30) Then akey = 1
			If KeyDown(44) Then zkey = 1
			If KeyDown(2) Then onekey = 1
			If KeyDown(3) Then twokey = 1
			If KeyDown(4) Then threekey = 1
			If KeyDown(5) Then fourkey = 1
			If KeyDown(6) Then fivekey = 1
			If KeyDown(7) Then sixkey = 1
			For ne.Obj = Each Obj
				If ne\selected = 2
					Local pitch#
					Local yaw#
					Local roll#
					pitch# = EntityPitch(ne\mesh,True)
					yaw# = EntityYaw(ne\mesh,True)
					roll# = EntityRoll(ne\mesh,True)
					RotateEntity ne\mesh,EntityPitch(camera,True),EntityYaw(camera,True),EntityRoll(camera,True),True
					If leftkey
						MoveEntity ne\mesh,-0.1,0,0
					EndIf
					If rightkey
						MoveEntity ne\mesh,0.1,0,0
					EndIf
					If upkey
						MoveEntity ne\mesh,0,0,0.1
					EndIf
					If downkey
						MoveEntity ne\mesh,0,0,-0.1
					EndIf
					If akey
						MoveEntity ne\mesh,0,0.1,0
					EndIf
					If zkey
						MoveEntity ne\mesh,0,-0.1,0
					EndIf
					RotateEntity ne\mesh,pitch#,yaw#,roll#,True
					If rotationmode$ = "Local"
						If onekey
							TurnEntity ne\mesh,1,0,0,True
						EndIf
						If twokey
							TurnEntity ne\mesh,-1,0,0,True
						EndIf
						If threekey
							TurnEntity ne\mesh,0,1,0,True
						EndIf
						If fourkey
							TurnEntity ne\mesh,0,-1,0,True
						EndIf
						If fivekey
							TurnEntity ne\mesh,0,0,1,True
						EndIf
						If sixkey
							TurnEntity ne\mesh,0,0,-1,True
						EndIf
					EndIf
				EndIf
			Next
			If rotationmode$ = "Group"
				If onekey
					TurnEntity center,1,0,0,True
				EndIf
				If twokey
					TurnEntity center,-1,0,0,True
				EndIf
				If threekey
					TurnEntity center,0,1,0,True
				EndIf
				If fourkey
					TurnEntity center,0,-1,0,True
				EndIf
				If fivekey
					TurnEntity center,0,0,1,True
				EndIf
				If sixkey
					TurnEntity center,0,0,-1,True
				EndIf
			EndIf
			If Not KeyDown(203) Then leftkey = 0
			If Not KeyDown(205) Then rightkey = 0
			If Not KeyDown(200) Then upkey = 0
			If Not KeyDown(208) Then downkey = 0
			If Not KeyDown(30) Then akey = 0
			If Not KeyDown(44) Then zkey = 0
			If Not KeyDown(2) Then onekey = 0
			If Not KeyDown(3) Then twokey = 0
			If Not KeyDown(4) Then threekey = 0
			If Not KeyDown(5) Then fourkey = 0
			If Not KeyDown(6) Then fivekey = 0
			If Not KeyDown(7) Then sixkey = 0
			If KeyHit(19)
				Local gotit = 0
				If rotationmode$ = "Local" And gotit = 0
					rotationmode$ = "Group"
					gotit = 1
				EndIf
				If rotationmode$ = "Group" And gotit = 0
					rotationmode$ = "Local"
					gotit = 1
				EndIf
			EndIf
			If MouseHit(1) Then continue = 1
			If KeyHit(14) Then continue = 2
			UpdateWorld()
			RenderWorld()
			Color 255,0,0
			Text 0,0,"COPY MODE: CLICK LEFT MOUSE BUTTON TO CONFIRM PLACEMENT, HIT BACKSPACE TO REJECT COPIED OBJECTS."
			Text 0,20,"Use left/right keys to move copied objects left/right (X-axis)."
			Text 0,40,"Use up/down keys to move copied objects forward/backward (Z-axis)."
			Text 0,60,"Use a/z keys to move copied objects up/down (Y-axis)."
			Text 0,100,"Hit R key to change rotation mode. Currently set to: " + rotationmode$
			Text 0,120,"Use 1/2 to rotate group pitch (X-axis) on the " + rotationmode$ + " axis."
			Text 0,140,"Use 3/4 to rotate group yaw (Y-axis) on the " + rotationmode$ + " axis."
			Text 0,160,"Use 5/6 to rotate group roll (Z-axis) on the " + rotationmode$ + " axis."
			Text 0,200,"Objects Selected: "+ObjsSelected
			Text 0,220,"picked: "+picked
			Text 0,240,"spacer: "+spacer
			Text 0,260,"zspacer: "+zspacer
			Text 0,280,"count: "+count
			Text 0,300,"objcountselected: "+objcountselected
			Color 255,255,255
			Flip
		Wend
		If continue = 1
			For ne.Obj = Each Obj
				EntityType ne\mesh, type_obj
				EntityPickMode ne\mesh, 2, 1
				ne\selected = 0
				EntityAlpha ne\mesh,1.0
				EntityParent ne\mesh,0
			Next
		EndIf
		If continue = 2
			For ne.Obj = Each Obj
				If ne\selected = 2
					FreeEntity ne\mesh
					Delete ne
				Else
					EntityType ne\mesh, type_obj
					EntityPickMode ne\mesh, 2, 1
					ne\selected = 0
					EntityAlpha ne\mesh,1.0
					EntityParent ne\mesh,0
				EndIf
			Next
		EndIf
		objcountselected = 0
		FreeEntity center
	EndIf
	
	
End Function

Guy Fawkes

(Posted 2012) [#11]

Thanks, ALOT, Rob! This is BEAUTIFUL! :) I THOROUGHLY tested it this time, both with copies, and without copies, and I found NO OTHER glitches, WHATSOEVER! :) Thanks again, Sir! :)