camera problem?

Blitz3D Forums/Blitz3D Programming/camera problem?

Guy Fawkes (Posted 2009) [#1]

can someone please help me fix this code i found while searching the forums for a camera code? ;Player Control Example Graphics3D 800,600,0,2 SeedRnd MilliSecs() ;filename$="hero/hero.b3d" Global Player=LoadAnimMesh("dwarf/b3d/dwarf1.b3d") : If Not Player Then RuntimeError "Error Loading Hero Model" ; Load hero b3d file ScaleEntity Player,0.25,0.25,0.25 DebugLog "Setting up Hero animation" ExtractAnimSeq Player,2,14 ;1 ExtractAnimSeq Player,16,26 ;2 ExtractAnimSeq Player,28,40 ;3 ExtractAnimSeq Player,42,54 ;4 ExtractAnimSeq Player,56,59 ;5 ExtractAnimSeq Player,60,69 ;6 ExtractAnimSeq Player,70,74 ;7 ExtractAnimSeq Player,75,88 ;8 ExtractAnimSeq Player,90,110 ;9 ExtractAnimSeq Player,112,126 ;10 ExtractAnimSeq Player,128,142 ;11 ExtractAnimSeq Player,144,160 ;12 ExtractAnimSeq Player,162,180 ;13 ExtractAnimSeq Player,182,192 ;14 ExtractAnimSeq Player,194,210 ;15 ExtractAnimSeq Player,212,227 ;16 ExtractAnimSeq Player,230,251 ;17 ExtractAnimSeq Player,253,272 ;18 ExtractAnimSeq Player,274,290 ;19 ExtractAnimSeq Player,292,325 ;19 ExtractAnimSeq Player,327,360 ;19 ;Global hero_neck=FindChild(Player, "neck") Global Speed# Global MainCameraPivot = CreatePivot(Player) Global PS_player_action Global PS_player_walking Global PS_old_player_action=99999 ; ;This isn't necessary, it's just to give a nice pan-rotate effect ;when the program starts. RotateEntity MainCameraPivot,0,180,0 ;------------------------------------------------------------------- ;The main camera itself, done for the primary rendering of the game. ;This must be a child of MainCameraPivot. Global MainCamera = CreateCamera(MainCameraPivot) CameraViewport MainCamera,0,0,GraphicsWidth(),GraphicsHeight() ;You can change these coordinates to change the angle & distance of ;the main camera. REMEMBER, the coordinates are relative to ;MainCameraPivot, NOT to the 3D world! PositionEntity MainCamera,0,55,-75 CameraClsColor MainCamera,0,0,255;Nicer than plain ol' black. ;) ;------------------------------------------------------------------- Global Light = CreateLight() Global Ground = CreatePlane();Self-explanatory PositionEntity Ground,0,-1,0 Global GroundTex = CreateTexture(64,64) ;A grid so you can see the orientation of the ground SetBuffer TextureBuffer(GroundTex) Color 0,128,255 Rect 0,0,164,64,0 ScaleTexture GroundTex,2,2 EntityTexture Ground,GroundTex SetBuffer BackBuffer() Color 255,255,255 While Not KeyHit(1) Cls ;PS_player_action = 0 UpdateCamera UpdatePlayer UpdateWorld RenderWorld Text 1,10,"Player Action: " + PS_player_action Text 1,21,"Player Walking: " + PS_player_walking Flip Wend End Function UpdateCamera() ;If A or D are pressed, then the player is moving the camera ;manually, so the main camera's pivot (NOT the camera itself) turns ;right or left, respectively. The camera, being a child of its ;pivot, follows automatically. ;If neither A or D are pressed, however, then the camera's pivot ;attempts to re-center itself behind the player by moving its Yaw ;back to 0. If KeyDown(17);W TurnEntity MainCameraPivot,2,0,0 ElseIf KeyDown(31);S TurnEntity MainCameraPivot,-2,0,0 ElseIf KeyDown(30);A TurnEntity MainCameraPivot,0,-2,0 ElseIf KeyDown(32);D TurnEntity MainCameraPivot,0,2,0 Else ;Re-center the camera, but smoothly ;Here's the deal with the "If Not KeyDown()" thing. When the player ;presses Down, the player's entity must move straight towards the ;camera. If, at this point, the camera's pivot still tried to re- ;center itself, the player would turn while moving, which isn't ;supposed to happen. The If statement is here so that, if Down is ;the only key pressed, the camera's pivot doesn't try to re-center. If Not KeyDown(208) ;If the pivot's Yaw is more than 5 degrees above or below 0, it ;turns by 3 degrees. If it's closer to 0 than 5 degrees, though, ;it turns by a tenth of the remaining degrees, giving a smooth ;"deceleration" effect. If EntityYaw(MainCameraPivot) > 5 TurnEntity MainCameraPivot,0,-3,0 ElseIf EntityYaw(MainCameraPivot) < -5 TurnEntity MainCameraPivot,0,3,0 Else TurnEntity MainCameraPivot,0,-EntityYaw(MainCameraPivot) / 10,0 EndIf ;If the pivot's Pitch is more than 5 degrees above or below 0, it ;turns by 3 degrees. If it's closer to 0 than 5 degrees, though, ;it turns by a tenth of the remaining degrees, giving a smooth ;"deceleration" effect. ; Added by Nadeem Rasool for complete control of Camera :-) If EntityPitch(MainCameraPivot) > 5 TurnEntity MainCameraPivot,-3,0,0 ElseIf EntityPitch(MainCameraPivot) < -5 TurnEntity MainCameraPivot,3,0,0 Else TurnEntity MainCameraPivot,-EntityPitch(MainCameraPivot) / 10,0,0 EndIf Else If KeyDown(203) Or KeyDown(205) If EntityYaw(MainCameraPivot) > 5 TurnEntity MainCameraPivot,0,-3,0 ElseIf EntityYaw(MainCameraPivot) < -5 TurnEntity MainCameraPivot,0,3,0 Else TurnEntity MainCameraPivot,0,-EntityYaw(MainCameraPivot) / 10,0 EndIf EndIf EndIf EndIf PointEntity MainCamera,Player;Self-explanatory End Function Function UpdatePlayer() ;Harder to explain. It was a pain to come up with in the first place, ;and I've forgotten most of the theory behind it by now, not that I ;could've really put it into words beforehand; it's all in my head. ;Suffice it to say, IT WORKS. :) PS_player_action=0 If KeyDown(200);Up PS_player_action=1 If KeyDown(203) If EntityYaw(Player) < EntityYaw(MainCameraPivot,True) + 45 Then TurnEntity Player,0,5,0 If EntityYaw(Player) > EntityYaw(MainCameraPivot,True) + 45 Then TurnEntity Player,0,-5,0 TurnEntity MainCameraPivot,0,(-45 - EntityYaw(MainCameraPivot)) / 10,0 ElseIf KeyDown(205) If EntityYaw(Player) < EntityYaw(MainCameraPivot,True) - 45 Then TurnEntity Player,0,5,0 If EntityYaw(Player) > EntityYaw(MainCameraPivot,True) - 45 Then TurnEntity Player,0,-5,0 TurnEntity MainCameraPivot,0,(45 - EntityYaw(MainCameraPivot)) / 10,0 EndIf If Speed < .5 Then Speed = Speed + .005 ElseIf KeyDown(208);Down If KeyDown(203) If EntityYaw(Player) < EntityYaw(MainCameraPivot,True) + 130 TurnEntity Player,0,10,0 ElseIf EntityYaw(Player) > EntityYaw(MainCameraPivot,True) + 140 TurnEntity Player,0,-10,0 Else TurnEntity Player,0,(EntityYaw(MainCameraPivot,True) + 135) - EntityYaw(Player),0 EndIf TurnEntity MainCameraPivot,0,(-135 - EntityYaw(MainCameraPivot)) / 4,0 If Speed < .5 Then Speed = Speed + .005 ElseIf KeyDown(205) If EntityYaw(Player) < EntityYaw(MainCameraPivot,True) - 130 TurnEntity Player,0,10,0 ElseIf EntityYaw(Player) > EntityYaw(MainCameraPivot,True) - 140 TurnEntity Player,0,-10,0 Else TurnEntity Player,0,(EntityYaw(MainCameraPivot,True) - 135) - EntityYaw(Player),0 EndIf TurnEntity MainCameraPivot,0,(135 - EntityYaw(MainCameraPivot)) / 4,0 If Speed < .5 Then Speed = Speed + .005 Else If EntityYaw(Player) < EntityYaw(MainCameraPivot,True) - 175 TurnEntity Player,0,10,0 TurnEntity MainCameraPivot,0,-10,0 ElseIf EntityYaw(Player) > EntityYaw(MainCameraPivot,True) + 175 TurnEntity Player,0,-10,0 TurnEntity MainCameraPivot,0,10,0 Else RotateEntity Player,EntityPitch(Player),EntityYaw(MainCameraPivot,True) - 180,EntityRoll(Player) RotateEntity MainCameraPivot,0,180,0 EndIf If Speed < .5 Then Speed = Speed + .005 EndIf Else If KeyDown(203);Left If EntityYaw(Player) < EntityYaw(MainCameraPivot,True) + 85 TurnEntity Player,0,10,0 ElseIf EntityYaw(Player) > EntityYaw(MainCameraPivot,True) + 95 TurnEntity Player,0,-10,0 Else TurnEntity Player,0,(EntityYaw(MainCameraPivot,True) + 90) - EntityYaw(Player),0 EndIf TurnEntity MainCameraPivot,0,(-90 - EntityYaw(MainCameraPivot)) / 4,0 If Speed < .5 Then Speed = Speed + .005 ElseIf KeyDown(205);Right If EntityYaw(Player) < EntityYaw(MainCameraPivot,True) - 85 TurnEntity Player,0,10,0 ElseIf EntityYaw(Player) > EntityYaw(MainCameraPivot,True) - 95 TurnEntity Player,0,-10,0 Else TurnEntity Player,0,(EntityYaw(MainCameraPivot,True) - 90) - EntityYaw(Player),0 EndIf TurnEntity MainCameraPivot,0,(90 - EntityYaw(MainCameraPivot)) / 4,0 If Speed < .5 Then Speed = Speed + .005 Else ;Decelerate if no keys are pressed If Speed > 0 Then Speed = Speed * 0.9 EndIf EndIf MoveEntity Player,0,0,Speed updateanims() End Function Function updateanims() ;player_action stores 'what the player is doing' whether it's ;running,walking,falling over, dying etc. - you only need to call ;looped animations once, so we just check for changes in the ;player_action variable (with the old_player_action variable) then ;update when a change occurs. Keeps everything neat with all anims ;called from this single function rather than confusion with ifs If PS_old_player_action<>PS_player_action Then Select PS_player_action Case 0 ;standing still Animate Player,0,.1,16 Case 1 ;walking Animate Player,1,.1,1 End Select EndIf PS_old_player_action=PS_player_action End Function the problem at least i am now having is that when u hold the down button, the dwarf doesn't animate, and also the dwarf shakes a little bit. the other problem is that the dwarf's idle animation isn't playing when the dwarf is not moving. if someone can help me i would sure appreciate it thanks!

Warner (Posted 2009) [#2]

In general, it might be better to build the code from the ground up. I think it is a bit hard for someone to locate what goes wrong in your code without being able to run it. Also, it would be questionable how much is helps, since when this problem is eliminated, likely other problems will arise soon, since you don't understand exactly what the code does. Use this as an example, but build your own code up one step at the time.

Guy Fawkes (Posted 2009) [#3]

ok. alls u need is to download the psionic b3d dwarf model from psionic's site. and change the code to match the folder u put it in.