Moving Platform

Blitz3D Forums/Blitz3D Beginners Area/Moving Platform

Josaih6/10 (Posted 2009) [#1]

Could someone please give me an example of a moving platform that a player can stand on. Do you have to child the player to the platform? Code would be very very appreciated

Warner (Posted 2009) [#2]

Normally, that is not possible. However, you could try this code archive entry by SimonH: http://www.blitzmax.com/codearcs/codearcs.php?code=898

AJ00200 (Posted 2009) [#3]

I would write code that detects if the player is on the platform, and then move the player the same way the platform is moving.

Charrua (Posted 2009) [#4]

hi, based on the example given by Simonh i do some modifications, but i'm not so pleased about the behavior of the player over the plataforms, it speedup his movement. Try and see if it helps you. ; Dynamic Collisions Example ; -------------------------- Include "dcol_lib.bb" ; must be used at start of program Graphics3D 640,480,0,2 SetBuffer BackBuffer() Type platfrm Field entidad ;entity End Type cam=CreateCamera() : PositionEntity cam,0,12,-10 : RotateEntity cam,30,0,0 light=CreateLight() ; Create source entity player=CreateSphere() : EntityColor player,0,0,255 : PositionEntity player,0,5,0 guide=CreateCube(player) : EntityColor guide,0,255,255 : ScaleEntity guide,.1,.1,1 : PositionEntity guide,0,.8,.3 ; Give sphere a collision type for collisions with non-dynamic objects, i.e. the ground in this case EntityType player,1 : EntityRadius player,1 ; Create ground - this won't be moving and so will not be part of the dynamic collision system. ; It will be part of the normal collision system however so apply collision type to it and enable collisions with sphere. plane=CreatePlane() : EntityColor plane,0,255,0 EntityType plane,2 ; Set up normal sliding collisions between sphere and plane Collisions 1,2,2,2 ; NOW THE DYNAMIC STUFF - *** Important comments highlighted by stars *** ; Create first destination entity - platform 1 platform1=CreateCylinder(16) : ScaleEntity platform1,2,8,2 : EntityColor platform1,255,255,0 PositionEntity platform1,-10,-8,8 EntityPickMode platform1,2 plat.platfrm = New platfrm plat\entidad = platform1 ; Create second destination entity - platform 2 platform2=CreateCube() : ScaleEntity platform2,4,1,4 : EntityColor platform2,255,0,0 PositionEntity platform2,10,-.8,3 EntityPickMode platform2,2 plat.platfrm = New platfrm plat\entidad = platform2 ;another one platform3=CreateCube() : ScaleEntity platform3,5,.2,5 : EntityColor platform3,0,0,255 PositionEntity platform3,0,0,28 EntityPickMode platform3,2 plat.platfrm = New platfrm plat\entidad = platform3 src_type=3 ; assign a collision type for source collision entity (sphere) des_type=4 ; assign a collision type for destination collision entity (platforms) ; *** Set dynamic collision pairs *** DCO_SetPair(player,platform1,src_type,des_type,1.0) ; parameters - src_entity,des_entity,src_type,des_type,src_radius=1.0 DCO_SetPair(player,platform2,src_type,des_type,1.0) DCO_SetPair(player,platform3,src_type,des_type,1.0) ; *** Enable collisions for dynamic pairs *** Collisions src_type,des_type,2,2 Global txt1$,txt2$,txt3$ Global estoy=False Global pvt=CreatePivot() While Not KeyDown(1) sph_z#=0 dy# = 0 If KeyDown(203)=True Then dy =2 If KeyDown(205)=True Then dy =-2 If KeyDown(208)=True Then sph_z=-.4 If KeyDown(200)=True Then sph_z=.4 ; Make our platforms dynamic - move them! MoveEntity platform1,0,Sin(angle#)*0.1,0 : angle#=angle#+1 TurnEntity platform2,0,1,0 TranslateEntity platform2,0,0,Sin(angle#)*0.1 MoveEntity platform3,Sin(angle1#)*0.1,0,0 : angle1#=angle1#+1 MoveEntity player,0,sph_y,sph_z TurnEntity player,0,dy,0 If EstoySobrePlataforma(player) Then Else DCO_UpdateA() UpdateWorld 0 DCO_UpdateB() MoveEntity player,0,-.3,0 EndIf ; *** Usual UpdateWorld call *** UpdateWorld ; *** For best results, try experimenting with the order of the above four function calls *** RenderWorld ; Output dynamic collision information - the dynamic collision system works best if you use these values to implement ; proper bouncing physics between source entity and destination entity Text 0, 0,"EntityCollided: "+DCO_EntityCollided() Text 0, 20,"CollisionNX: "+DCO_CollisionNX#() Text 0, 40,"CollisionNY: "+DCO_CollisionNY#() Text 0, 60,"CollisionNZ: "+DCO_CollisionNZ#() Flip True Wend Function EstoySobrePlataforma(yo) ;I am over a plataform (yo = me) ;algo = something algo = LinePick(EntityX(yo,True),EntityY(yo,True),EntityZ(yo,True),0,-50,0) ;linea hacia abajo si = False ;si = yes If algo Then For plat.platfrm = Each platfrm If algo = plat\entidad Then EntityParent yo,plat\entidad si=True End If Next End If If Not si Then EntityParent yo,0 Return si End Function Juan

SabataRH (Posted 2009) [#5]

http://www.blitzbasic.com/toolbox/toolbox.php?tool=49

puki (Posted 2009) [#6]

"Sausagedonkey" - Nuclear Glory abandoned Blitz3D development - they even removed the original Blitz3D version. Basically, they did what you did with Aliencodec - they sold out to The Games Creators. EDIT: Having said that, we badgered The Games Creators into handing back Blitztree 3D and Blitzgrass 3D. I wonder if I could badger Nuclear Glory into submission?

puki (Posted 2009) [#7]

Of course, there is still Coldet: http://www.freewebs.com/elias_t/coldetwrapper.htm Not sure if it is good for platforms or not though.

SabataRH (Posted 2009) [#8]

TGC bought out Aliencodec for the Treemagic and plantlife series, they were never after blitztree or any Blitz3D specific application. It just happened that those products 'fell' under the Aliencodec label and became property of the label holder, TGC. I had no control over what was to be kept or not, it was a one-way deal. Onto topic - I didn't realize NukeGlory had sold the collision lib, well good for them none-the-less, its perhaps the best collision lib I've seen in any engine or development kit. If you can still get your hands on it I highly recommend it. I never start a blitz3d project without NukeCollision.