Part of my code won't work

Blitz3D Forums/Blitz3D Beginners Area/Part of my code won't work

Cubed Inc. (Posted 2010) [#1]

quite some time ago, I put up a post about how to align a character onto a terrian. Luckily, I was able to find out how to do it:) But I tried to implement that code which worked previously into my little crappy game that i'm making, and now the character does not align to the terrian like it should>:( Here's the whole code(this is the game so far,I have been working on it for about 2 days now) ;Lego Island Rescue; Graphics3D 800,600,0,2 SeedRnd MilliSecs() ClearTextureFilters() Const GRAVITY#=-1.7 Const TYPE_PLAYER=1,TYPE_TARGET=3,TYPE_WATER=3 Const TYPE_SCENERY=10,TYPE_TERRAIN=11 Collisions TYPE_PLAYER,TYPE_TERRAIN,2,2 Collisions TYPE_PLAYER,TYPE_SCENERY,2,2 Collisions TYPE_TARGET,TYPE_TERRAIN,2,3 Collisions TYPE_TARGET,TYPE_SCENERY,2,2 ;player; player=LoadMesh ("Mechanibal2.b3d") playertex=LoadTexture ("media/(_Tg)mars70@...") PositionEntity player,0,60,40 ScaleEntity player,.2,.2,.2 EntityShininess player,0 ExtractAnimSeq player,100,125 EntityRadius player,3,3 EntityType player,TYPE_PLAYER cam=CreateCamera() cam_piv=CreatePivot() EntityType cam,TYPE_TARGET ;Lego Island island=LoadMesh("media/tower.b3d") islandtex=LoadTexture("media/Untitled2.png",256) islandtex2=LoadTexture("wood.png",256) EntityShininess island,0 PositionEntity island,0,-160,60 ScaleEntity island,4,4,4 EntityFX island,0 EntityType island,TYPE_TERRAIN ;water; water = CreatePlane () h20=LoadTexture("media\water_tex.jpg") EntityTexture water,h20 ScaleTexture h20, 200,200 EntityAlpha water, .4 PositionEntity water,0,-140,60 EntityShininess water,0 EntityFX water,1 EntityType water,TYPE_TERRAIN ;sky/fog/range; CameraFogMode cam,1 CameraFogColor cam,200, 220, 255 CameraRange cam, 1,50000 CameraFogRange cam,1,2500-10 CameraClsColor cam,200,220,255 ;light; light = CreateLight() While KeyDown(1)=False kh_200=False:If KeyHit(200)=True kh_200=True kh_208=False:If KeyHit(208)=True kh_208=True kh_203=False:If KeyHit(203)=True kh_203=True kh_205=False:If KeyHit(205)=True kh_205=True kh_28=False:If KeyHit(28)=True kh_28=True While KeyDown(1)=False kh_200=False:If KeyHit(200)=True kh_200=True kh_208=False:If KeyHit(208)=True kh_208=True kh_203=False:If KeyHit(203)=True kh_203=True kh_205=False:If KeyHit(205)=True kh_205=True kh_28=False:If KeyHit(28)=True kh_28=True smooth=True debug = 0 update = 1 ;move camera; While Not KeyDown(1) If CountCollisions(island)<> 0 Then ;my failed alignment code; islandx=CollisionNX( island,1 ) islandy=CollisionNY( island,1 ) islandz=CollisionNZ( island,1 ) If smooth Then AlignToVector player,islandx,islandy,islandz,2,0.1 ;last parameter = .1 AlignToVector camera,islandx,islandy,islandz,2 Else AlignToVector player,islandx,islandy,islandz,2 ;last parameter ommited: Default=1 = no smooth End If Else ;if not colliding, then align to a vertical vector: 0,1,0 If smooth Then AlignToVector player, 0, 1, 0, 2, 0.1 Else AlignToVector player, 0, 1, 0, 2 End If EndIf While Not KeyDown(1) TranslateEntity player,0,GRAVITY,0 TranslateEntity cam,0,GRAVITY,0 PointEntity cam,player ;--camera physics-- PositionEntity cam_piv,EntityX(player),EntityY(player),EntityZ(player) PositionEntity cam,EntityX(cam_piv),EntityY(cam_piv),EntityZ(cam_piv) RotateEntity cam,0,EntityYaw(cam_piv),0 TurnEntity cam,5,0,0 MoveEntity cam,0,10,-50 tmp_yaw=EntityYaw(cam_piv) tmp_yaw2=EntityYaw(player) If tmp_yaw<0 Then tmp_yaw=tmp_yaw+360 If tmp_yaw2<0 Then tmp_yaw2=tmp_yaw2+360 If cam_active=True Then If tmp_yaw2<tmp_yaw-180 Then TurnEntity cam_piv,0,1,0 ElseIf tmp_yaw2>tmp_yaw+180 Then TurnEntity cam_piv,0,-1,0 ElseIf tmp_yaw2>tmp_yaw Then TurnEntity cam_piv,0,1,0 ElseIf tmp_yaw2<tmp_yaw Then TurnEntity cam_piv,0,-1,0 End If End If ;--controls-- If key_200_timer>0 key_200_timer=key_200_timer-1:If kh_200=True running=True If kh_200=True And key_200_timer=0 key_200_timer=15 If key_208_timer>0 key_208_timer=key_208_timer-1:If kh_208=True running=True If kh_208=True And key_208_timer=0 key_208_timer=15 If key_203_timer>0 key_203_timer=key_203_timer-1:If kh_203=True running=True If kh_203=True And key_203_timer=0 key_203_timer=15 If key_205_timer>0 key_205_timer=key_205_timer-1:If kh_205=True running=True If kh_205=True And key_205_timer=0 key_205_timer=15 If KeyDown(200)=False And KeyDown(208)=False And KeyDown(203)=False And KeyDown(205)=False Then running=False idle=True:cam_active=False If KeyDown(203) And KeyDown(200) Then RotateEntity player,0,EntityYaw(cam_piv)+30,0:idle=False:cam_active=True ElseIf KeyDown(205) And KeyDown(200) Then RotateEntity player,0,EntityYaw(cam_piv)-30,0:idle=False:cam_active=True ElseIf KeyDown(205) And KeyDown(208) Then RotateEntity player,0,EntityYaw(cam_piv)-150,0:idle=False:cam_active=True ElseIf KeyDown(203) And KeyDown(208) Then RotateEntity player,0,EntityYaw(cam_piv)+150,0:idle=False:cam_active=True ElseIf KeyDown(203) Then RotateEntity player,0,EntityYaw(cam_piv)+90,0:idle=False:cam_active=True ElseIf KeyDown(205) Then RotateEntity player,0,EntityYaw(cam_piv)-90,0:idle=False:cam_active=True ElseIf KeyDown(200) Then RotateEntity player,0,EntityYaw(cam_piv),0:idle=False:cam_active=True ElseIf KeyDown(208) Then RotateEntity player,0,EntityYaw(cam_piv)-180,0:idle=False:cam_active=False End If If KeyDown(209) TurnEntity cam_piv,0,-1.5,0 End If If KeyDown(207) TurnEntity cam_piv,0,1.5,0 End If If idle=False And running=False Then MoveEntity player,0,0,1 If idle=False And running=True Then MoveEntity player,0,0,.3 UpdateWorld RenderWorld Delay 1 Flip Wend Wend Wend Wend End Here's the part of the code that isn't working>:( smooth=True debug = 0 update = 1 ;move camera; While Not KeyDown(1) If CountCollisions(island)<> 0 Then ;my failed alignment code; islandx=CollisionNX( island,1 ) islandy=CollisionNY( island,1 ) islandz=CollisionNZ( island,1 ) If smooth Then AlignToVector player,islandx,islandy,islandz,2,0.1 ;last parameter = .1 AlignToVector camera,islandx,islandy,islandz,2 Else AlignToVector player,islandx,islandy,islandz,2 ;last parameter ommited: Default=1 = no smooth End If Else ;if not colliding, then align to a vertical vector: 0,1,0 If smooth Then AlignToVector player, 0, 1, 0, 2, 0.1 Else AlignToVector player, 0, 1, 0, 2 End If EndIf please help and reply

Matty (Posted 2010) [#2]

I'm guessing but I think you should be using countcollisions with the player / moving entity. I assume your island does not move, in which case it will always report countcollisions(island) as 0. Replace "island" with "player" (and also the collisionnx, etc commands) to check the collisions the player has with the island.

Cubed Inc. (Posted 2010) [#3]

Matty well, I tried your idea, but it doesn't seem to work. I don't think that it can work becuase then that means that the player should align with itself, not the island. islandx,islandy and islandz are the collisionNX of the entity that the player should align with. If CountCollisions(player)<> 0 Then ;my failed alignment code; islandx=CollisionNX( player,1 ) islandy=CollisionNY( player,1 ) islandz=CollisionNZ( player,1 ) If smooth Then AlignToVector player,islandx,islandy,islandz,2,0.1 ;last parameter = .1 AlignToVector camera,islandx,islandy,islandz,2 Else AlignToVector player,islandx,islandy,islandz,2 ;last parameter ommited: Default=1 = no smooth End If Else ;if not colliding, then align to a vertical vector: 0,1,0 If smooth Then AlignToVector player, 0, 1, 0, 2, 0.1 Else AlignToVector player, 0, 1, 0, 2 End If EndIf For some reason, it still doesn't work. could it be where I place the alignment code itself?