Small problem with multi object select

Blitz3D Forums/Blitz3D Programming/Small problem with multi object select

Guy Fawkes (Posted 2012) [#1]

Hi all, for SOME reason, when I click the background or anywhere on the screen, then i go to click on 1 or more meshes that are already selected, it waits until i hit the mouseclick a second time. it should wait only for one time of the mouseclick button, then deselect EVERY object selected.. To recreate the problem: Select a couple of objects. Then try to click on the background or on the 2nd object of the 2 objects that u selected. IE: I first clicked on a sphere. then a cube. i then click on the sphere, but nothing happens. same thing with the cube. but something happens the 2nd time i click them in that order. Here's the code: ;Kiyoshi's code for Thundros :) 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 camera=CreateCamera() ;Create a camera PositionEntity camera,0,1,-30 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 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 inpickmode Global spacer Global zspacer Global count Global objcountselected While Not KeyDown(1) If ObjsSelected=0 picked=0 If ObjsSelected=0 picked=0 If MouseHit(1) Then inpickmode = PickAll(camera) ;Run the function for selecting an object End If If ObjsSelected<>0 Then inpickmode = True Else inpickmode = False;NOT REALLY :) End If If Not inpickmode Then 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))*.05, 0 EndIf ObjsSelected=0 ;Reset the amount of objects selected. 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,"spacer: "+spacer Text 0,100,"zspacer: "+zspacer Text 0,120,"count: "+count Text 0,140,"objcountselected: "+objcountselected Flip 0 Wend End Function PickAll(camera) picked = CameraPick(camera,MouseX(),MouseY()) For c.Obj=Each Obj If picked=c\mesh And EntityVisible(camera,c\mesh);If the object is clicked, change the field "c\selected" to 1. c\selected=1-c\selected If c\selected = 1 Then objcountselected = objcountselected + 1 ; IN HERE SET ENTITY ALPHA OF THE SELECTED OBJECT EntityAlpha c\mesh, .5 End If If c\selected = 0 Then objcountselected = objcountselected - 1 EntityAlpha c\mesh,1 EndIf Else ;If PickedEntity()=ground c\selected=0 objcountselected = 0 ;Clicking the ground will de-select all the objects by setting "c\selected" to 0. EndIf Next End Function Function Check_Copy_Key() If KeyHit(46) Then For c.obj = Each Obj If c\selected = 1 Then ne.Obj = New Obj ne\mesh = CopyEntity(c\mesh) EntityType ne\mesh, type_obj EntityPickMode ne\mesh, 2, 1 MoveEntity ne\mesh, 0, 0, 5+x EntityAlpha ne\mesh,1 End If Next End If End Function ;~IDEal Editor Parameters: ;~C#Blitz3D Any help would be GREATLY appreciated! :) Thanks! :) Last edited 2012

Guy Fawkes (Posted 2012) [#2]

Anyone? :/

Rob the Great (Posted 2012) [#3]

Select the objects you wish to copy with the mouse, or click on them a second time to deselect them. When your selection is how you want it to be, hit "C" and follow the on screen instructions to position/rotate the copies as you want. You're welcome. ;Kiyoshi's code for Thundros :) 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 inpickmode Global spacer Global zspacer Global count Global objcountselected While Not KeyDown(1) If MouseHit(1) PickAll(camera) ;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,"spacer: "+spacer Text 0,100,"zspacer: "+zspacer Text 0,120,"count: "+count Text 0,140,"objcountselected: "+objcountselected Flip Wend End Function PickAll(camera) picked = CameraPick(camera,MouseX(),MouseY()) If picked <> 0 Local collisiontype = GetEntityType(picked) EndIf If picked = 0 collisiontype = 0 EndIf 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 If collisiontype <> type_obj objcountselected = 0 EndIf If objcountselected <> 0 inpickmode = 1 Else inpickmode = 0 EndIf 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 I'm not going to get into details on how I fixed the problem because I want you to be able to come to those conclusions yourself based off of what I did. Do take some time and see the logic behind all of this. Compare your version to mine, specifically in the "PickAll()" function. The rest I added in "Check_Copy_Key()" was to speed up this process for you.

Guy Fawkes (Posted 2012) [#4]

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