My player is FALLING!!!!!!!!!!!!

Blitz3D Forums/Blitz3D Beginners Area/My player is FALLING!!!!!!!!!!!!

Captain Wicker (crazy hillbilly)

(Posted 2011) [#1]

My player has a huge problem with falling through the ground.
Is there something wrong in this function that could be causing the error?

Player = p1_coll
Terrain = fl1_coll


Setup() 

AppTitle ("Bucky GamePlay V0.1")



Const p1_coll=1 
Const op1_coll=1
Const WW1_coll=1
Const fl1_coll=1
Const off=0

Const camdistance=6.2



AmbientLight 200, 200, 200
Global cam1=CreateCamera() 
Global light=CreateLight(2) 
CameraRange cam1,1,2000000 
LightRange light,2000000 





; ADD NEW MENU & MOUSE PICK variables HERE
Global spr_menu, spr_start, spr_quit, spr_credits, spr_cur
Global currentpicked, lastpicked, LeaveMenu=False, ShowCredits=False, speech$, AMMO=10


; Load World Objects Here

Type Projectile			
    Field sprite, time_out
End Type

Type Explosion			
    Field sprite, scale#
End Type

Type Sprite	
	Field ID, char_tex
	Field pt1, pt2
	Field targetpt
	Field temper
	Field speech$	; Let's add some conversation!
End Type

; Load MENU Sprites *************************
spr_menu = LoadSprite( "menu.tga", 7, cam1 )		; Stick to camera
ScaleSprite spr_menu, 2, 1.5						; Enlarge a bit
MoveEntity spr_menu, 0, 0, 2						; Move in front of camera
HideEntity spr_menu									; Hide until needed

spr_start = LoadSprite( "btn_start.bmp", 7, cam1 )	; Stick to camera
ScaleSprite spr_start, .25, .25						; Shrink a bit
EntityRadius spr_start, .25							; Adjust PICK radius
MoveEntity spr_start, -.5, 0, 2						; Move in front of camera
HideEntity spr_start								; Hide until needed
EntityPickMode spr_start,1							; Make "PICKable"	

spr_quit = LoadSprite( "btn_quit.bmp", 7, cam1 )		
ScaleSprite spr_quit, .25, .25
EntityRadius spr_quit, .25
MoveEntity spr_quit, 0, 0, 2						
HideEntity spr_quit	
EntityPickMode spr_quit,1

spr_credits = LoadSprite( "btn_credits.bmp", 7, cam1 )	
ScaleSprite spr_credits, .25, .25
EntityRadius spr_credits, .25
MoveEntity spr_credits, .5, 0, 2
HideEntity spr_credits	
EntityPickMode spr_credits,1


; CURSOR IMAGE
Global cur = LoadImage( "cursor.png" )



; Load HUD Sprite **************************
Global spr_ammo = LoadSprite( "heart.bmp", 7, cam1 )	
ScaleSprite spr_ammo, .25, .25						
MoveEntity spr_ammo, -1.7, -1.3, 2.1
EntityAlpha spr_ammo, .5	

; *******************************************

Global explosion_sprite=LoadSprite( "explosion.bmp" )
HideEntity explosion_sprite

Global projectile_sprite=LoadSprite( "heart.bmp" )
EntityRadius projectile_sprite, 2
EntityType projectile_sprite, coll_projectile
HideEntity projectile_sprite




Global world=CreateSphere(100)
ScaleEntity world,50,50,50
Global sky=LoadTexture("media/world/sky.png")
EntityTexture world,sky
FlipMesh world


Global terrain=CreateTerrain(128) 
Global grass=LoadTexture("media/world/grass.png")
EntityTexture terrain,grass
TerrainDetail terrain,128,True
PositionEntity terrain,-50,-8,-50



Global sphere=LoadMesh("media/bucky/bucky.x") 
Global obpiv=CreatePivot(sphere) 

PositionEntity obpiv,0,10.7,-camdistance
RotateEntity obpiv,0,0,-100

PositionEntity sphere,0,-7.7,5 
PointEntity light,cam1 
Global cube=LoadMesh("media/slappy/o1.x")
PositionEntity cube,0,-7.7,15

EntityType sphere,p1_coll 
EntityType cube,op1_coll 
EntityType world,WW1_coll
EntityType terrain,fl1_coll

CameraClsColor cam1,145,201,242

Music() ;play title theme



fntArial=LoadFont("Arial", 36, True )		 
SetFont fntArial

MENU()	; Run Menu at Start of Game!

While QUIT = False	; Use QUIT flag instead
    
	; Escape key now brings up menu!
	If KeyHit( escape_key ) Then MENU()
	; New function allows us to SELECT sprites with our mouse!
	MousePick()
	
    
    
   ; Escape()
    
    SmoothCam(obpiv,sphere,50)
    
    Gravity()
    Collide()
    
    Movement()
    
    If KeyDown(17) Then WireFrame cam1
    If Not KeyDown(17) Then WireFrame off
    
    Cls
    DrawImage cur,MouseX(),MouseY()
    Sync() 
    
    
Wend


Function Setup()
    Graphics3D 640,480,16,2
    SetBuffer BackBuffer()
End Function

Function Music()
    PlayMusic("media/music/title_music.mid")
End Function

Function Movement() 
    If KeyDown(200) Then MoveEntity sphere,0,0,0.2 ;foreword
    If KeyDown(208) Then MoveEntity sphere,0,0,-0.2 ;backword
    
    If KeyDown(203) Then TurnEntity sphere,0,5,0 ;left
    If KeyDown(205) Then TurnEntity sphere,0,-5,0 ;right
End Function

Function Sync() 
    UpdateWorld
    RenderWorld
    Flip
End Function

Function Escape() 
    
    If KeyHit(1) Then End
End Function

Function SmoothCam(pivot,target,camspeed) 
    
    curx#=EntityX(cam1)
    curz#=EntityZ(cam1)
    
    destx#=EntityX(pivot,True)
    destz#=EntityZ(pivot,True)
    
    curx#=curx#+((destx#-curx#)/camspeed)
    curz#=curz#+((destz#-curz#)/camspeed)
    cury#=1
    
    ;PositionEntity cam1,curx#,cury#,curz#
    PositionEntity cam1,curx#,-4.2,curz#
    PointEntity cam1,target
    
End Function

Function Collide()
    Collisions WW1_coll,p1_coll,2,1
    Collisions p1_coll,WW1_coll,2,1
    Collisions p1_coll,op1_coll,3,1 ;I cant go through enemy
    Collisions op1_coll,p1_coll,3,1 ;enemy cant go through me
	Collisions fl1_coll,p1_coll,0,0 ;Gravity set
    Collisions p1_coll,fl1_coll,0,0
End Function

Function MENU()			; MENU
	
	ShowEntity spr_menu	
	ShowEntity spr_start
	ShowEntity spr_quit	
	ShowEntity spr_credits
    
	LeaveMenu=False 
	
	While Not KeyHit( escape_key )
		
		MousePick()
		If QUIT=True Then Return
		If LeaveMenu = True Then Exit
		
		UpdateWorld 
		RenderWorld
		
		If ShowCredits = True Then
			Color 0,0,0
			Text 10,10, "Created by:"
			Text 10,40, "Captain Wicker (Austin)"
		EndIf
        
		Flip
		Delay 10
	Wend
	
	HideEntity spr_menu	
	HideEntity spr_start
	HideEntity spr_quit	
	HideEntity spr_credits
    ;HideEntity spr_cur
	LeaveMenu=False
	ShowCredits=False
    
End Function

Function MousePick()		; MOUSEPICK
	currentpicked = CameraPick( cam1, MouseX(), MouseY() ) 
    
    DrawImage cur,MouseX(),MouseY()
    ;Cls
	If currentpicked>0 And MouseHit(1)
		If currentpicked = spr_start Then LeaveMenu = True
		If currentpicked = spr_quit Then QUIT=True
		If currentpicked = spr_credits Then ShowCredits = True
		For Character.Sprite = Each Sprite
			If currentpicked = Character\ID
				speech$ = Character\speech$
                Exit
			EndIf
		Next
	EndIf
	If MouseHit(2) Then speech$=""		;Right Mouse Click Closes Speech
	If currentpicked<>lastpicked
		If lastpicked Then EntityAlpha lastpicked, 1	;UNDO fade when mouse leaves
		lastpicked=currentpicked
	EndIf
	If currentpicked
		EntityAlpha currentpicked, Sin( MilliSecs() )*.3+.7
	EndIf
End Function

Function Gravity()
    TranslateEntity sphere,0,-.02,0
    
End Function

Include "draw3d.bb"
Include "physix.bb"

My game could never be played with the player falling through the floor! What have I or havent I done!!?

Last edited 2011

Last edited 2011

Captain Wicker (crazy hillbilly)

(Posted 2011) [#2]

I do not know what I could have done wrong on this! Help please! :)

Floyd

(Posted 2011) [#3]

You've mentioned:

Player = p1_coll
Terrain = fl1_coll

... and your code contains

Collisions fl1_coll,p1_coll,0,0 ;Gravity set
Collisions p1_coll,fl1_coll,0,0

Which certainly looks wrong.

Rob the Great

(Posted 2011) [#4]

You've set some collision responses to 0, which I believe will disable collisions for that type. Since you've set all of your entity types to 1, I'm not even sure if it will work to begin with. Rather than this:

Const p1_coll=1 
Const op1_coll=1
Const WW1_coll=1
Const fl1_coll=1
Const off=0

Try this. It might help:

Const p1_coll=1 
Const op1_coll=2
Const WW1_coll=3
Const fl1_coll=4
Const off=0 ;Don't know what this is used for.

If you want your player to collide with the level, then it's important that your character has EntityRadius applied and that your character is checking its radius again the polygons, not the radius, of the level. Otherwise, your character might fall through the level when it reaches the end of the imaginary bubble. So, collisions should look more like this example:

Const type_hero = 1
Const type_level = 2

Global hero = CreateSphere()
EntityRadius hero,10
EntityType hero,type_hero

Global level = LoadMesh("Some Mesh Here.b3d")
EntityType level,type_level

Collisions type_hero,type_level,2,3

This piece of code will check the type_hero (1) to see if it collides with type_level (2). It will do so using method 2 (the entity radius against the polygons), and with response 3 (do not slide down a slope). In other words, this will use the hero's radius of 10 units to check if that "bubble" is touching any of the triangles of the level. This is the most accurate while at the same time being the most efficient method to check for collisions on a level.

Plus, like Floyd says, it doesn't even look like you're checking your character against the level at all yet.