Super Mario 64 type controls (agian)

Blitz3D Forums/Blitz3D Beginners Area/Super Mario 64 type controls (agian)

Cubed Inc.

(Posted 2010) [#1]

Before I say anything, I already made another post about the very same topic. I am trying to achieve the 3rd person controls that are used in most platforming and action games. Super Mario 64 is probably the most well known example. The reason for me restarting this post is becuase the original post of the same topic became confusing and hard to follow. I spended some time learning about some of the functions and I think that I am more familiar now. But regardless, I still need help with my code(which I couldn't have made without the help of the original post). Whenever I press the arrow keys to make the character turn towards the directions, the character spins and glithes infintitly. To make my code easier to figure out, I have replaced the 3d models with primitive shapes. You can also ignore the FastLibs extension codes.

;test;

Include "include\FastExt.bb"
Include "include\ShadowsSimple.bb"

Graphics3D 1280,600,32,2

InitExt
TextureAnisotropy
TextureLodBias

CreateShadow 0,1									; <<<<<   create shadows (with quality=1) and customize his characteristics
ShadowRange 90
ShadowPower .9
ShadowFade 100										; <<<<<   set shadow range (70x70)
ShadowTexture = ShadowTexture()						; <<<<<   get first shadow texture (shadow map)

Noise = LoadTexture("media\bump_noise.png")			; <<<<<  load noise texture and set BUMP blend
TextureBlend Noise, FE_BUMP
ScaleTexture Noise, 0.15, 0.15

FadeOutTexture = LoadTexture("media\fade.png", 59)
ShadowFade FadeOutTexture
 
Const GRAVITY#=-1.8
Const pSpeed#=0


	Global GlowAlpha# = 101.0
	Global GlowDarkPasses = 1
	Global GlowBlurPasses = 4
	Global GlowBlurRadius# = 0.35
	Global GlowQuality = 0
	Global GlowColorRed = 255
	Global GlowColorGreen = 255
	Global GlowColorBlue = 255
	Global GlowAlphaTexture = 0
	; Variables for adjusting the effect
	Global DofNear# = 750
	Global DofFar# = 1400
	Global DofDirection = 1
	Global DofBlurPasses = 4
	Global DofBlurRadius# = 0.35
	Global DofQuality = 100


Const TYPE_PLAYER=1,TYPE_TARGET=3,TYPE_WATER=3
Const TYPE_SCENERY=10,TYPE_TERRAIN=11

Collisions TYPE_PLAYER,TYPE_TERRAIN,2,3
Collisions TYPE_PLAYER,TYPE_SCENERY,2,3
Collisions TYPE_TARGET,TYPE_TERRAIN,2,2
Collisions TYPE_TARGET,TYPE_SCENERY,2,2
Collisions 1,2,2,2

seq=1

VectorPivot = CreatePivot()
EntityParent(VectorPivot, camera, False) ;False makes the pivot snap to the camera's orientation and position automatically.
PlayerOrientation = CreatePivot()
EntityParent(PlayerOrientation, camera,False) ;False makes the pivot snap to the camera's orientation and position automatically.

;player;
player=CreateCube()
ScaleEntity player,10,10,10
playertex=LoadTexture ("media/(_Tg)mars70@...")
PositionEntity player,0,400,40
EntityShininess player,0
ExtractAnimSeq player,100,125
EntityRadius player,3,3
EntityType player,TYPE_PLAYER
createshadowcaster player

;Lego Island;
island=CreateSphere()
islandtex=LoadTexture("media/Untitled2.png",256+4)
islandtex2=LoadTexture("wood.png",256)
EntityShininess island,0
PositionEntity island,0,-160,60
ScaleEntity island,100,100,100
EntityFX island,0
EntityType island,TYPE_TERRAIN
EntityTexture island, Noise, 0, 1										; <<<<<  place noise texture before shadow texture
EntityTexture island, ShadowTexture, 0, 2		; <<<<<   place shadow texture to receiver

;tree;
island2=CreateCone()
islandtex2=LoadTexture("media/Untitled2.png",256)
islandtex3=LoadTexture("wood.png",256)
EntityShininess island2,1
PositionEntity island2,30,-100,-120
ScaleEntity island2,10,10,10
EntityFX island2,0
EntityType island2,TYPE_TERRAIN
EntityTexture island2, Noise, 0, 1										; <<<<<  place noise texture before shadow texture
EntityTexture island2, ShadowTexture, 0, 2		; <<<<<   place shadow texture to receiver

;water;
water = CreatePlane ()
h20=LoadTexture("patch (2).png")
EntityTexture water,h20
ScaleTexture h20, 50, 50
PositionEntity water,0,-140,60
EntityShininess water,0
EntityFX island,0
EntityType water,TYPE_TERRAIN
EntityTexture island, Noise, 0, 1										; <<<<<  place noise texture before shadow texture
EntityTexture water, ShadowTexture, 0, 2					; <<<<<   place shadow texture to receiver

;camera (AKA the player);
camera=CreateCamera(target)
PositionEntity camera,0,200,-10
MoveEntity camera,0,3,-50 

;light;
LightPivot = CreatePivot()
TurnEntity LightPivot, 0, 1800, 0

Light=CreateLight(1, LightPivot)
TurnEntity Light, 60, 0, 0

ShadowLight Light	

;target;
target=CreatePivot( player )
MoveEntity Target,0,10,-50 
RotateEntity Target,0,80,0

;crosshair;
CH = LoadImage ("media/crosshair.bmp")
MaskImage CH, 255, 0, 255
MidHandle CH
	
;sky/fog/range;
sky=CreateSphere(100)
skytex=LoadTexture("media/sky_RT.jpg")
EntityTexture sky,skytex
ScaleEntity sky,9000,9000,9000
CameraFogMode camera,10
CameraFogColor camera,200, 220, 255
CameraRange camera, 1,50000
CameraFogRange camera,1,2500-10
CameraClsColor camera,200,220,255
FlipMesh sky

smooth=True
;move camera;
While Not KeyDown(1)
PointEntity camera,player
TranslateEntity player,0,GRAVITY,0

Keyup = KeyDown(200)

KeyDown1 = KeyDown(208)

KeyLeft = KeyDown(203)

KeyRight = KeyDown(205)

If Not KeyDown(1)
dx#=EntityX( target,True )-EntityX( camera )
		dy#=EntityY( target,True )-EntityY( camera )
		dz#=EntityZ( target,True )-EntityZ( camera )
	    TranslateEntity camera,dx*.3,dy*.1,dz*.3
EndIf
PointEntity camera,player

RotateEntity(VectorPivot, 0, EntityYaw(VectorPivot,True) , 0, True)

TFormVector(KeyRight-KeyLeft , 0, KeyUp-KeyDown1, VectorPivot, 0)

TFormPoint(TFormedX(),0,TFormedZ(),Player,0)
PositionEntity(PlayerOrientation,TFormedX(),TFormedY(),TFormedZ(),True)
TurnEntity(Player,0,DeltaYaw(Player,PlayerOrientation),0,True)
MoveEntity Player,0,0,pSpeed

;attach crosshair;	
x = (MouseX () - x) / 3 + x
y = (MouseY () - y) / 3 + y
		
DrawImage CH, x, y
FlushKeys()

UpdateWorld
UpdateShadows player
RenderWorld

CustomPostprocessGlow GlowAlpha, GlowDarkPasses, GlowBlurPasses, GlowBlurRadius, GlowQuality, GlowColorRed, GlowColorGreen, GlowColorBlue, GlowAlphaTexture
RenderPostprocess FE_GLOW
CustomPostprocessDOF DofNear, DofFar, DofDirection, DofBlurPasses, DofBlurRadius, DofQuality
RenderPostprocess FE_DOF
Flip



Wend
FreeShadows	
DeInitExt					
End

please help out. I really need to achieve these controls for my game.

GIB3D

(Posted 2010) [#2]

TurnEntity(Player,0,DeltaYaw(Player,PlayerOrientation),0,True)

You should put a multiplier onto DeltaYaw. Without one, it will spaz out like that.

TurnEntity(Player,0,DeltaYaw(Player,PlayerOrientation)*.8,0,True)

Kryzon

(Posted 2010) [#3]

It's not the speed, because even with a 100% value the player should turn correctly, even if snappy.

EntityParent(PlayerOrientation, camera,False) ;False makes the pivot snap to the camera's orientation and position automatically.

Why are you parenting the PlayerOrientation to the camera? (this is not rhetorical, do answer).

It's the VectorPivot that needs to be at the same position as the camera, but not this one.
Don't parent the Orientation pivot to anything, just create it.

Cubed Inc.

(Posted 2010) [#4]

I tried both and none worked. I don't want to sound like an ass, after all I am the person asking for the help, but did you try the codes before you posted them? I'm gratefull for your help and i'm trying to say this as friendly as possible, please don't take it the wrong way:) I tried disconnecting the camera from the player to see if the problem was in the camera, but it is the player. Whenever I press left or right, he spins out of control, whenever I press down, he just glitches alot. I modified the code and I turned the pivots into cubes so I could see where the pivots were located. One of the pivots was placed in the middle of the character and the other one was at some other place.

;test;

Include "include\FastExt.bb"
Include "include\ShadowsSimple.bb"

Graphics3D 1280,600,32,2

InitExt
TextureAnisotropy
TextureLodBias

CreateShadow 0,1									; <<<<<   create shadows (with quality=1) and customize his characteristics
ShadowRange 90
ShadowPower .9
ShadowFade 100										; <<<<<   set shadow range (70x70)
ShadowTexture = ShadowTexture()						; <<<<<   get first shadow texture (shadow map)

Noise = LoadTexture("media\bump_noise.png")			; <<<<<  load noise texture and set BUMP blend
TextureBlend Noise, FE_BUMP
ScaleTexture Noise, 0.15, 0.15

FadeOutTexture = LoadTexture("media\fade.png", 59)
ShadowFade FadeOutTexture
 
Const GRAVITY#=-1.8
Const pSpeed#=0


	Global GlowAlpha# = 101.0
	Global GlowDarkPasses = 1
	Global GlowBlurPasses = 4
	Global GlowBlurRadius# = 0.35
	Global GlowQuality = 0
	Global GlowColorRed = 255
	Global GlowColorGreen = 255
	Global GlowColorBlue = 255
	Global GlowAlphaTexture = 0
	; Variables for adjusting the effect
	Global DofNear# = 750
	Global DofFar# = 1400
	Global DofDirection = 1
	Global DofBlurPasses = 4
	Global DofBlurRadius# = 0.35
	Global DofQuality = 100


Const TYPE_PLAYER=1,TYPE_TARGET=3,TYPE_WATER=3
Const TYPE_SCENERY=10,TYPE_TERRAIN=11

Collisions TYPE_PLAYER,TYPE_TERRAIN,2,3
Collisions TYPE_PLAYER,TYPE_SCENERY,2,3
Collisions TYPE_TARGET,TYPE_TERRAIN,2,2
Collisions TYPE_TARGET,TYPE_SCENERY,2,2
Collisions 1,2,2,2

seq=1

VectorPivot = CreateCube()
EntityParent(VectorPivot, camera, False) ;False makes the pivot snap to the camera's orientation and position automatically.
PlayerOrientation = CreateCube()
EntityParent(PlayerOrientation, camera,False) ;False makes the pivot snap to the camera's orientation and position automatically.

;player;
player=CreateCube()
ScaleEntity player,10,10,10
playertex=LoadTexture ("<a href=\"mailto:media/(_Tg)mars70@gmx-de.jpg\">media/(_Tg)mars70@...;")
PositionEntity player,0,400,40
EntityShininess player,0
ExtractAnimSeq player,100,125
EntityRadius player,3,3
EntityType player,TYPE_PLAYER
createshadowcaster player

;Lego Island;
island=CreateSphere()
islandtex=LoadTexture("media/Untitled2.png",256+4)
islandtex2=LoadTexture("wood.png",256)
EntityShininess island,0
PositionEntity island,0,-160,60
ScaleEntity island,100,100,100
EntityFX island,0
EntityType island,TYPE_TERRAIN
EntityTexture island, Noise, 0, 1										; <<<<<  place noise texture before shadow texture
EntityTexture island, ShadowTexture, 0, 2		; <<<<<   place shadow texture to receiver

;tree;
island2=CreateCone()
islandtex2=LoadTexture("media/Untitled2.png",256)
islandtex3=LoadTexture("wood.png",256)
EntityShininess island2,1
PositionEntity island2,30,-100,-120
ScaleEntity island2,10,10,10
EntityFX island2,0
EntityType island2,TYPE_TERRAIN
EntityTexture island2, Noise, 0, 1										; <<<<<  place noise texture before shadow texture
EntityTexture island2, ShadowTexture, 0, 2		; <<<<<   place shadow texture to receiver

;water;
water = CreatePlane ()
h20=LoadTexture("patch (2).png")
EntityTexture water,h20
ScaleTexture h20, 50, 50
PositionEntity water,0,-140,60
EntityShininess water,0
EntityFX island,0
EntityType water,TYPE_TERRAIN
EntityTexture island, Noise, 0, 1										; <<<<<  place noise texture before shadow texture
EntityTexture water, ShadowTexture, 0, 2					; <<<<<   place shadow texture to receiver

;camera (AKA the player);
camera=CreateCamera(target)
PositionEntity camera,0,200,-10
MoveEntity camera,0,3,-50 

;light;
LightPivot = CreatePivot()
TurnEntity LightPivot, 0, 1800, 0

Light=CreateLight(1, LightPivot)
TurnEntity Light, 60, 0, 0

ShadowLight Light	

;target;
target=CreatePivot( player )
MoveEntity Target,0,10,-50 
RotateEntity Target,0,80,0

;crosshair;
CH = LoadImage ("media/crosshair.bmp")
MaskImage CH, 255, 0, 255
MidHandle CH
	
;sky/fog/range;
sky=CreateSphere(100)
skytex=LoadTexture("media/sky_RT.jpg")
EntityTexture sky,skytex
ScaleEntity sky,9000,9000,9000
CameraFogMode camera,10
CameraFogColor camera,200, 220, 255
CameraRange camera, 1,50000
CameraFogRange camera,1,2500-10
CameraClsColor camera,200,220,255
FlipMesh sky

smooth=True
;move camera;
While Not KeyDown(1)
PointEntity camera,player
TranslateEntity player,0,GRAVITY,0

Keyup = KeyDown(200)

KeyDown1 = KeyDown(208)

KeyLeft = KeyDown(203)

KeyRight = KeyDown(205)

If Not KeyDown(1)
dx#=EntityX( target,True )-EntityX( camera )
		dy#=EntityY( target,True )-EntityY( camera )
		dz#=EntityZ( target,True )-EntityZ( camera )
	    TranslateEntity camera,dx*.3,dy*.1,dz*.3
EndIf
PointEntity camera,player

RotateEntity(VectorPivot, 0, EntityYaw(VectorPivot,True) , 0, True)

TFormVector(KeyRight-KeyLeft , 0, KeyUp-KeyDown1, VectorPivot, 0)

TFormPoint(TFormedX(),0,TFormedZ(),Player,0)
PositionEntity(PlayerOrientation,TFormedX(),TFormedY(),TFormedZ(),True)
TurnEntity(Player,0,DeltaYaw(Player,PlayerOrientation),0,True)
MoveEntity Player,0,0,pSpeed

;attach crosshair;	
x = (MouseX () - x) / 3 + x
y = (MouseY () - y) / 3 + y
		
DrawImage CH, x, y
FlushKeys()

UpdateWorld
UpdateShadows player
RenderWorld

CustomPostprocessGlow GlowAlpha, GlowDarkPasses, GlowBlurPasses, GlowBlurRadius, GlowQuality, GlowColorRed, GlowColorGreen, GlowColorBlue, GlowAlphaTexture
RenderPostprocess FE_GLOW
CustomPostprocessDOF DofNear, DofFar, DofDirection, DofBlurPasses, DofBlurRadius, DofQuality
RenderPostprocess FE_DOF
Flip



Wend
FreeShadows	
DeInitExt					
End

could that have anything to do with the problem?

GIB3D

(Posted 2010) [#5]

I looked at the code but it's kinda hard to try it without the media. I have FastExt but I probably don't have some of the texture you have and I don't feel like editing it all out.

Cubed Inc.

(Posted 2010) [#6]

GIB3D
well, since your helping me, I want to make it as easy as possible for you to understand my code. I'll repost the code to make it easier to work with. So you want me to keep the 3d model, but remove the FastLibs functions?

GIB3D

(Posted 2010) [#7]

I have FastLibs so that doesn't need to be removed, it's just all the other textures and stuff that I don't have.

Cubed Inc.

(Posted 2010) [#8]

ok, here's the new edited version of the code. I removed all of the textures and models and replaced them with primative shapes and colors.
I didn't remove it, but I would suggest not using the FastLibs bloom effect, becuase it can make it harder to see with all of the bright colors.
Here's the code

;test;

Include "include\FastExt.bb"
Include "include\ShadowsSimple.bb"

Graphics3D 1280,600,32,2

InitExt
TextureAnisotropy
TextureLodBias

CreateShadow 0,1									; <<<<<   create shadows (with quality=1) and customize his characteristics
ShadowRange 90
ShadowPower .9
ShadowFade 100										; <<<<<   set shadow range (70x70)
ShadowTexture = ShadowTexture()						; <<<<<   get first shadow texture (shadow map)

Noise = LoadTexture("media\bump_noise.png")			; <<<<<  load noise texture and set BUMP blend
TextureBlend Noise, FE_BUMP
ScaleTexture Noise, 0.15, 0.15

FadeOutTexture = LoadTexture("media\fade.png", 59)
ShadowFade FadeOutTexture
 
Const GRAVITY#=-1.8
Const pSpeed#=0


	Global GlowAlpha# = 101.0
	Global GlowDarkPasses = 1
	Global GlowBlurPasses = 4
	Global GlowBlurRadius# = 0.35
	Global GlowQuality = 0
	Global GlowColorRed = 255
	Global GlowColorGreen = 255
	Global GlowColorBlue = 255
	Global GlowAlphaTexture = 0
	; Variables for adjusting the effect
	Global DofNear# = 750
	Global DofFar# = 1400
	Global DofDirection = 1
	Global DofBlurPasses = 4
	Global DofBlurRadius# = 0.35
	Global DofQuality = 100


Const TYPE_PLAYER=1,TYPE_TARGET=3,TYPE_WATER=3
Const TYPE_SCENERY=10,TYPE_TERRAIN=11

Collisions TYPE_PLAYER,TYPE_TERRAIN,2,3
Collisions TYPE_PLAYER,TYPE_SCENERY,2,3
Collisions TYPE_TARGET,TYPE_TERRAIN,2,2
Collisions TYPE_TARGET,TYPE_SCENERY,2,2
Collisions 1,2,2,2

seq=1

VectorPivot = CreatePivot()
EntityParent(VectorPivot, camera, False) ;False makes the pivot snap to the camera's orientation and position automatically.
PlayerOrientation = CreatePivot()
EntityParent(PlayerOrientation, camera,False) ;False makes the pivot snap to the camera's orientation and position automatically.

;player;
player=CreateCube()
ScaleEntity player,10,10,10
PositionEntity player,0,400,40
EntityShininess player,0
ExtractAnimSeq player,100,125
EntityRadius player,3,3
EntityType player,TYPE_PLAYER
createshadowcaster player

;Lego Island;
island=CreateSphere()
EntityShininess island,0
PositionEntity island,0,-160,60
ScaleEntity island,100,100,100
EntityFX island,0
EntityType island,TYPE_TERRAIN
EntityTexture island, Noise, 0, 1										; <<<<<  place noise texture before shadow texture
EntityTexture island, ShadowTexture, 0, 2		; <<<<<   place shadow texture to receiver

;tree;
island2=CreateCone()
EntityShininess island2,1
PositionEntity island2,30,-100,-120
ScaleEntity island2,10,10,10
EntityFX island2,0
EntityType island2,TYPE_TERRAIN
EntityTexture island2, Noise, 0, 1										; <<<<<  place noise texture before shadow texture
EntityTexture island2, ShadowTexture, 0, 2		; <<<<<   place shadow texture to receiver

;water;
water = CreatePlane ()
EntityColor water,20,40,90
PositionEntity water,0,-140,60
EntityShininess water,0
EntityFX island,0
EntityType water,TYPE_TERRAIN
EntityTexture island, Noise, 0, 1										; <<<<<  place noise texture before shadow texture
EntityTexture water, ShadowTexture, 0, 2					; <<<<<   place shadow texture to receiver

;camera (AKA the player);
camera=CreateCamera(target)
PositionEntity camera,0,200,-10
MoveEntity camera,0,3,-50 

;light;
LightPivot = CreatePivot()
TurnEntity LightPivot, 0, 1800, 0

Light=CreateLight(1, LightPivot)
TurnEntity Light, 60, 0, 0

ShadowLight Light	

;target;
target=CreatePivot( player )
MoveEntity Target,0,10,-50 
RotateEntity Target,0,80,0
	
;sky/fog/range;
sky=CreateSphere(100)
EntityColor sky,50,90,80
ScaleEntity sky,9000,9000,9000
CameraFogMode camera,10
CameraFogColor camera,200, 220, 255
CameraRange camera, 1,50000
CameraFogRange camera,1,2500-10
CameraClsColor camera,200,220,255
FlipMesh sky

smooth=True
;move camera;
While Not KeyDown(1)
PointEntity camera,player
TranslateEntity player,0,GRAVITY,0

Keyup = KeyDown(200)

KeyDown1 = KeyDown(208)

KeyLeft = KeyDown(203)

KeyRight = KeyDown(205)

If Not KeyDown(1)
dx#=EntityX( target,True )-EntityX( camera )
		dy#=EntityY( target,True )-EntityY( camera )
		dz#=EntityZ( target,True )-EntityZ( camera )
	    TranslateEntity camera,dx*.3,dy*.1,dz*.3
EndIf
PointEntity camera,player

RotateEntity(VectorPivot, 0, EntityYaw(VectorPivot,True) , 0, True)

TFormVector(KeyRight-KeyLeft , 0, KeyUp-KeyDown1, VectorPivot, 0)

TFormPoint(TFormedX(),0,TFormedZ(),Player,0)
PositionEntity(PlayerOrientation,TFormedX(),TFormedY(),TFormedZ(),True)
TurnEntity(Player,0,DeltaYaw(Player,PlayerOrientation),0,True)
MoveEntity Player,0,0,pSpeed

UpdateWorld
UpdateShadows player
RenderWorld

CustomPostprocessGlow GlowAlpha, GlowDarkPasses, GlowBlurPasses, GlowBlurRadius, GlowQuality, GlowColorRed, GlowColorGreen, GlowColorBlue, GlowAlphaTexture
RenderPostprocess FE_GLOW
CustomPostprocessDOF DofNear, DofFar, DofDirection, DofBlurPasses, DofBlurRadius, DofQuality
RenderPostprocess FE_DOF
Flip



Wend
FreeShadows	
DeInitExt					
End

Hope you can help me out.