stacked boxes, Help me please.

Blitz3D Forums/Blitz3D Programming/stacked boxes, Help me please.

Yue (Posted 2015) [#1]

Hi, I need to know how the character can make a box that is on top of another. What I need is that if I have three boxes on top of each other, can make the above and take it away, then come back and take the second, hata get to the last one it is on the floor. What not to do is select that box, which can make the first box in the top of the tower of boxes. Any suggestions?

Flanker (Posted 2015) [#2]

One simple solution is to parent your boxes to a pivot, the lowest box first, and the highest box last. Then, if your player is near the boxes pivot, you can access the highest box with GetChild(boxes_pivot,CountChildren(boxes_pivot)), the last child will alway be the highest box if you respect the order. An example : Graphics3D 1280,720,32,2 SetBuffer BackBuffer() boxes_pivot = CreatePivot() PositionEntity boxes_pivot,3,0,3 boxes = 10 For i = 0 To boxes - 1 box = CreateCube() ScaleEntity box,0.5,0.5,0.5 PositionEntity box,3,0.5+i,3 TurnEntity box,0,Rnd(360),0 EntityParent box,boxes_pivot Next camera = CreateCamera() MoveEntity camera,0,3,-10 light = CreateLight() RotateEntity light,70,30,0 ground = CreatePlane() EntityColor ground,100,200,100 player = CreateSphere() ScaleEntity player,1,3,1 EntityColor player,100,100,200 PositionEntity player,0,3,0 While Not KeyHit(1) If KeyDown(200) Then MoveEntity player,0,0,0.02 If KeyDown(208) Then MoveEntity player,0,0,-0.02 If KeyDown(205) Then MoveEntity player,0.02,0,0 If KeyDown(203) Then MoveEntity player,-0.02,0,0 If KeyHit(57) And EntityDistance(player,boxes_pivot) < 4 Then FreeEntity GetChild(boxes_pivot,CountChildren(boxes_pivot)) RenderWorld() Text 10,10,"Move the player to the boxes" Text 10,25,"Hit SPACE to delete the highest box" Flip Wend End

stayne (Posted 2015) [#3]

Here's my quick and dirty take on it. Get close to a box and click it to pick it up. Click anywhere else to drop it. Go ahead and rip me a new one Stevie :) Graphics3D 1280,720,32,2 SetBuffer BackBuffer() Const type_box = 1 Const type_ground = 2 Collisions type_box,type_ground,2,3 Collisions type_box,type_box,2,3 Type box Field mesh End Type For i = 1 To 6 b.box = New box b\mesh = CreateCube() ;ScaleEntity b\mesh,0.5,0.5,0.5 PositionEntity b\mesh,3,3.5+i*2,3 TurnEntity b\mesh,0,Rnd(360),0 EntityPickMode b\mesh,2 EntityType b\mesh,type_box Next camera = CreateCamera() MoveEntity camera,0,3,-10 light = CreateLight() RotateEntity light,70,30,0 ground = CreatePlane() EntityColor ground,40,80,40 EntityType ground,type_ground player = CreateSphere() EntityColor player,100,100,200 PositionEntity player,0,3,0 ScaleEntity player,1,3,1 hand = CreateCube() ScaleEntity hand,.2,.2,.2 MoveEntity hand,2,4,2 EntityParent hand,player handpiv = CreatePivot(hand) While Not KeyHit(1) If KeyDown(200) Then MoveEntity player,0,0,0.02 If KeyDown(208) Then MoveEntity player,0,0,-0.02 If KeyDown(205) Then MoveEntity player,0.02,0,0 If KeyDown(203) Then MoveEntity player,-0.02,0,0 If MouseHit(1) = True pick = CameraPick(camera,MouseX(),MouseY()) EndIf For b.box = Each box Localboxhit = EntityCollided(b\mesh,type_ground) If b\mesh = pick And EntityDistance(b\mesh,handpiv) < 5 EntityParent(b\mesh,handpiv) EntityColor(b\mesh,255,0,0) PositionEntity(b\mesh,EntityX(handpiv),EntityY(handpiv),EntityZ(handpiv)) Else EntityParent(b\mesh,0) EntityColor(b\mesh,255,255,255) If Localboxhit = 0 MoveEntity (b\mesh,0,-.1,0) EndIf EndIf Next UpdateWorld RenderWorld Flip Wend End

Stevie G (Posted 2015) [#4]

From what you say, you can only pick up a box if it is not in contact with an entity above it. If you're using a physics package it should be easy enough to find out this contact information and set a flag per entity to true or false so indicate whether it can be picked up. Then if the player is close enough to an entity with the true flag, pick it up. You may need to explain a bit more about what contact/collision information is available to you.