Diagonals not working and getting a stray frame

Blitz3D Forums/Blitz3D Beginners Area/Diagonals not working and getting a stray frame

fox95871

(Posted 2009) [#1]

Hi, could someone please tell me how to get my diagonal controls to work? I think I get the gist of why they're not, something about them getting overridden by up down left and right, but I don't know how to fix it. Please help!

.setup
Graphics3D 640,480,32,1
SetBuffer BackBuffer()
SeedRnd MilliSecs()
Const fps=30
blitz=LoadFont("blitz",10,1,0,0)
SetFont blitz
Color 100,100,100
ClearTextureFilters
period=1000/fps
time=MilliSecs()-period
elapsed%=0
ticks%=0
tween#=0
rt%=0

.charactervariables
Global characterposition#=0
Global characterheight#=5
Global characterdistance#=0
Global facing$="down"
Global moving$="nowhere"

.collisionvariables
Global charactercollider%=1
Global levelcollider%=2
Global collisionmethod%=2
;1=sphere
;2=mesh
;3=box
Global collisionresponse%=2
;1=stick
;2=slide
;3=slide but not down 

.cameracreation
Global camera=CreateCamera()
CameraZoom camera,1.6
RotateEntity camera,40,0,0
PositionEntity camera,0,20,-20

.lightcreation
Global light=CreateLight(1)
RotateEntity light,50,-70,0

.levelcreation
Global ground=CreateCube()
EntityColor ground,70,60,30
EntityType ground,levelcollider
ScaleMesh ground,20,1,20
Global hill=CreateCube()
ScaleMesh hill,10,10,10
RotateMesh hill,0,0,30
PositionMesh hill,-12,-4,0
AddMesh hill,ground
FreeEntity hill
Global platform=CreateCube()
ScaleMesh platform,4,.5,4
PositionMesh platform,7,6,0
EntityType platform,levelcollider
AddMesh platform,ground
FreeEntity platform

.charactercreation
Global character=CreateCube()
EntityType character,charactercollider
EntityRadius character,.05,2
EntityColor character,20,20,60
ScaleEntity character,1,2,1
arrow=CreateCone()
ScaleMesh arrow,.5,.5,.5
RotateMesh arrow,90,0,0
PositionMesh arrow,0,0,2
AddMesh arrow,character
FreeEntity arrow
Global upmarker=CreateSphere(2)
ScaleEntity upmarker,.1,.1,.1
EntityColor upmarker,0,0,0
Global uprightmarker=CreateSphere(2)
ScaleEntity uprightmarker,.1,.1,.1
Global rightmarker=CreateSphere(2)
ScaleEntity rightmarker,.1,.1,.1
Global rightdownmarker=CreateSphere(2)
ScaleEntity rightdownmarker,.1,.1,.1
Global downmarker=CreateSphere(2)
ScaleEntity downmarker,.1,.1,.1
Global downleftmarker=CreateSphere(2)
ScaleEntity downleftmarker,.1,.1,.1
Global leftmarker=CreateSphere(2)
ScaleEntity leftmarker,.1,.1,.1
Global leftupmarker=CreateSphere(2)
ScaleEntity leftupmarker,.1,.1,.1

.collisionsetup
Collisions charactercollider,levelcollider,collisionmethod,collisionresponse

.blitz3d
While Not KeyHit(1)
Cls
Repeat
elapsed=MilliSecs()-time
Until elapsed
ticks=elapsed/period
tween#=Float(elapsed Mod period)/Float(period)
For rt=1 To ticks
time=time+period
If rt=ticks Then CaptureWorld
;Gravity()
Controls()
Characterupdater()
UpdateWorld
Next
RenderWorld tween

.blitz2d
Debugtext()
Flip
Wend
End

.controls
Function Controls()
If KeyDown(200) facing="up"
If KeyDown(200) And KeyDown(45) facing="upright"
If KeyDown(45) facing="right"
If KeyDown(45) And KeyDown(208) facing="rightdown"
If KeyDown(208) facing="down"
If KeyDown(208) And KeyDown(44) facing="downleft"
If KeyDown(44) facing="left"
If KeyDown(44) And KeyDown(200) facing="leftup"
Select facing
Case "up"
PointEntity character,upmarker
Case "upright"
PointEntity character,uprightmarker
Case "right"
PointEntity character,rightmarker
Case "rightdown"
PointEntity character,rightdownmarker
Case "down"
PointEntity character,downmarker
Case "downleft"
PointEntity character,downleftmarker
Case "left"
PointEntity character,leftmarker
Case "leftup"
PointEntity character,leftupmarker
End Select
End Function

.gravity
Function Gravity()
If Not EntityCollided(character,ground) characterheight=characterheight=-.1
End Function

.characterupdater
Function Characterupdater()
PositionEntity character,characterposition,characterheight,characterdistance
PositionEntity upmarker,characterposition,characterheight,characterdistance+2
PositionEntity uprightmarker,characterposition+1.5,characterheight,characterdistance+1.5
PositionEntity rightmarker,characterposition+2,characterheight,characterdistance
PositionEntity rightdownmarker,characterposition+1.5,characterheight,characterdistance-1.5
PositionEntity downmarker,characterposition,characterheight,characterdistance-2
PositionEntity downleftmarker,characterposition-1.5,characterheight,characterdistance-1.5
PositionEntity leftmarker,characterposition-2,characterheight,characterdistance
PositionEntity leftupmarker,characterposition-1.5,characterheight,characterdistance+1.5
End Function

.debugtext
Function Debugtext()
Text 0,00,"Controls: up down z x"
Text 0,15,"facing " +facing
End Function

I'd also really like to know how to get rid of the stray frame you always see between directions.

Stevie G

(Posted 2009) [#2]

What's with all the markers? You only need a single pivot ..

Global PIVOT = CreatePivot()

Function Controls()

	Dx = KeyDown(45) - KeyDown(44)
	Dz = KeyDown(200) - KeyDown(208)
	
	PositionEntity PIVOT, EntityX( character ) + Dx, EntityY( character ) , EntityZ( character ) + Dz
	PointEntity Character, PIVOT
	
End Function

Nate the Great

(Posted 2009) [#3]

here I fixed it with some string addition and adding a variable facing2$

.setup
Graphics3D 640,480,32,1
SetBuffer BackBuffer()
SeedRnd MilliSecs()
Const fps=30
blitz=LoadFont("blitz",10,1,0,0)
SetFont blitz
Color 100,100,100
ClearTextureFilters
period=1000/fps
time=MilliSecs()-period
elapsed%=0
ticks%=0
tween#=0
rt%=0

.charactervariables
Global characterposition#=0
Global characterheight#=5
Global characterdistance#=0
Global facing$="down"
Global facing2$ = ""
Global moving$="nowhere"

.collisionvariables
Global charactercollider%=1
Global levelcollider%=2
Global collisionmethod%=2
;1=sphere
;2=mesh
;3=box
Global collisionresponse%=2
;1=stick
;2=slide
;3=slide but not down 

.cameracreation
Global camera=CreateCamera()
CameraZoom camera,1.6
RotateEntity camera,40,0,0
PositionEntity camera,0,20,-20

.lightcreation
Global light=CreateLight(1)
RotateEntity light,50,-70,0

.levelcreation
Global ground=CreateCube()
EntityColor ground,70,60,30
EntityType ground,levelcollider
ScaleMesh ground,20,1,20
Global hill=CreateCube()
ScaleMesh hill,10,10,10
RotateMesh hill,0,0,30
PositionMesh hill,-12,-4,0
AddMesh hill,ground
FreeEntity hill
Global platform=CreateCube()
ScaleMesh platform,4,.5,4
PositionMesh platform,7,6,0
EntityType platform,levelcollider
AddMesh platform,ground
FreeEntity platform

.charactercreation
Global character=CreateCube()
EntityType character,charactercollider
EntityRadius character,.05,2
EntityColor character,20,20,60
ScaleEntity character,1,2,1
arrow=CreateCone()
ScaleMesh arrow,.5,.5,.5
RotateMesh arrow,90,0,0
PositionMesh arrow,0,0,2
AddMesh arrow,character
FreeEntity arrow
Global upmarker=CreateSphere(2)
ScaleEntity upmarker,.1,.1,.1
EntityColor upmarker,0,0,0
Global uprightmarker=CreateSphere(2)
ScaleEntity uprightmarker,.1,.1,.1
Global rightmarker=CreateSphere(2)
ScaleEntity rightmarker,.1,.1,.1
Global rightdownmarker=CreateSphere(2)
ScaleEntity rightdownmarker,.1,.1,.1
Global downmarker=CreateSphere(2)
ScaleEntity downmarker,.1,.1,.1
Global downleftmarker=CreateSphere(2)
ScaleEntity downleftmarker,.1,.1,.1
Global leftmarker=CreateSphere(2)
ScaleEntity leftmarker,.1,.1,.1
Global leftupmarker=CreateSphere(2)
ScaleEntity leftupmarker,.1,.1,.1

.collisionsetup
Collisions charactercollider,levelcollider,collisionmethod,collisionresponse

.blitz3d
While Not KeyHit(1)
Cls
Repeat
elapsed=MilliSecs()-time
Until elapsed
ticks=elapsed/period
tween#=Float(elapsed Mod period)/Float(period)
For rt=1 To ticks
time=time+period
If rt=ticks Then CaptureWorld
;Gravity()
Controls()
Characterupdater()
UpdateWorld
Next
RenderWorld tween

.blitz2d
Debugtext()
Flip
Wend
End

.controls
Function Controls()
If KeyDown(200)
	facing="up"
ElseIf KeyDown(208)
	facing="down"
Else
	facing = ""
EndIf
If KeyDown(45)
	facing2="right"
ElseIf KeyDown(44)
	facing2="left"
Else
	facing2 = ""
EndIf

facing = facing$+facing2$

Select facing
Case "up"
PointEntity character,upmarker
Case "upright"
PointEntity character,uprightmarker
Case "right"
PointEntity character,rightmarker
Case "downright"
PointEntity character,rightdownmarker
Case "down"
PointEntity character,downmarker
Case "downleft"
PointEntity character,downleftmarker
Case "left"
PointEntity character,leftmarker
Case "upleft"
PointEntity character,leftupmarker
End Select
End Function

.gravity
Function Gravity()
If Not EntityCollided(character,ground) characterheight=characterheight=-.1
End Function

.characterupdater
Function Characterupdater()
PositionEntity character,characterposition,characterheight,characterdistance
PositionEntity upmarker,characterposition,characterheight,characterdistance+2
PositionEntity uprightmarker,characterposition+1.5,characterheight,characterdistance+1.5
PositionEntity rightmarker,characterposition+2,characterheight,characterdistance
PositionEntity rightdownmarker,characterposition+1.5,characterheight,characterdistance-1.5
PositionEntity downmarker,characterposition,characterheight,characterdistance-2
PositionEntity downleftmarker,characterposition-1.5,characterheight,characterdistance-1.5
PositionEntity leftmarker,characterposition-2,characterheight,characterdistance
PositionEntity leftupmarker,characterposition-1.5,characterheight,characterdistance+1.5
End Function

.debugtext
Function Debugtext()
Text 0,00,"Controls: up down z x"
Text 0,15,"facing " +facing
End Function

fox95871

(Posted 2009) [#4]

Thanks for your suggestions! Can't wait to try them. Adding strings... hm, wouldn't have thought of that I don't think. Should be interesting to see. There's so many markers because I'm just starting out. Maybe one day I'll be able to understand the code you wrote, but this is still just the very beginning for me. My engine has so many parts, so the easier it is for me to understand each individual part, the happier I am coding, that's all!

Nate the Great

(Posted 2009) [#5]

so you want to know what I did and how it works?

I have it check to see if you pressed left or right
if so then it sets the leftright string to left or right depending on what key you pressed
It then does the same with up and down and the updown string

After that it adds the updown string to the leftright string

I had to modify your select case slightly but it pretty much worked on the first try

fox95871

(Posted 2009) [#6]

Perfect! Thanks Nate.

Anyone have any ideas on how to get rid of the stray frame now? It'd be pretty noticeable in a finished game. If you can't see what I mean, just keep turning the character around and you should see it, a non 45 or 90 degree type angle for one frame. I'm just a beginner, but it looks to me like Blitz is saying, "Okay, turn the character around? You got it!" but when you see Blitz actually goes through the process of turning it, you say, "No no, just make the character be turned around suddenly." and Blitz says, "Uh... can't really do that, yo."

Hopefully there's a purely code based fix for this, but if not I have thought of just making eight sets of meshes in Maya. It's no big, I'm already making seven for the antialiasing meshes. Oh wait, that's 56 then... ouch. Help!

Wait! It's because of the frame tween! I just turned it off now and the stray frame went away. Well, there's no way I'm getting rid of that, but if someone wants to try to mess around with it without breaking it, go for it. The frame tween, for anyone who doesn't know, makes it so no matter what computer you run your game on, it'll never run slow. It's these Holy lines of code:

;(in setup)
Const fps=30
period=1000/fps
time=MilliSecs()-period
elapsed%=0
ticks%=0
tween#=0
rt%=0

;(in the 3d loop)
While Not KeyHit(1)
Cls
Repeat
elapsed=MilliSecs()-time
Until elapsed
ticks=elapsed/period
tween#=Float(elapsed Mod period)/Float(period)
For rt=1 To ticks
time=time+period
If rt=ticks Then CaptureWorld
;(your code goes here)
UpdateWorld
Next
RenderWorld tween

I noticed that making fps 90 seems to fix it, but boy I don't think I want to do that for a finished game! Or is that okay?

fox95871

(Posted 2009) [#7]

I'm heading into nights now, so I won't be able to use the internet for a while. Hopefully someone can answer this before then so I can work on this part of my engine while I'm on my night schedule. If nothing else, just what are the major upsides or downsides of making your game 90 fps? I guess the upside's clear in this case, it fixes the stray frame, but I don't want to end up with compatibility problems or any other weirdness.

fox95871

(Posted 2009) [#8]

I added some moving controls and even running!

.setup
Graphics3D 640,480,32,1
SetBuffer BackBuffer()
SeedRnd MilliSecs()
Const fps=90
blitz=LoadFont("blitz",10,1,0,0)
SetFont blitz
Color 100,100,100
ClearTextureFilters
period=1000/fps
time=MilliSecs()-period
elapsed%=0
ticks%=0
tween#=0
rt%=0

.charactervariables
Global characterposition#=0
Global characterheight#=3
Global characterdistance#=0
Global facing$="down"
Global facing2$=""
Global walking$=""
Global walking2$=""
Global running$=""
Global running2$=""

.collisionvariables
Global charactercollider%=1
Global levelcollider%=2
Global collisionmethod%=2
;1=sphere
;2=mesh
;3=box
Global collisionresponse%=2
;1=stick
;2=slide
;3=slide but not down 

.cameracreation
Global camera=CreateCamera()
CameraZoom camera,1.6
RotateEntity camera,40,0,0
PositionEntity camera,0,20,-20

.lightcreation
Global light=CreateLight(1)
RotateEntity light,50,-70,0

.levelcreation
Global ground=CreateCube()
EntityColor ground,70,60,30
EntityType ground,levelcollider
ScaleMesh ground,20,1,20
Global hill=CreateCube()
ScaleMesh hill,10,10,10
RotateMesh hill,0,0,30
PositionMesh hill,-12,-4,0
AddMesh hill,ground
FreeEntity hill
Global platform=CreateCube()
ScaleMesh platform,4,.5,4
PositionMesh platform,7,4,0
EntityType platform,levelcollider
AddMesh platform,ground
FreeEntity platform

.charactercreation
Global character=CreateCube()
EntityType character,charactercollider
EntityRadius character,.05,2
EntityColor character,20,20,60
ScaleEntity character,1,2,1
arrow=CreateCone()
ScaleMesh arrow,.5,.5,.5
RotateMesh arrow,90,0,0
PositionMesh arrow,0,0,2
AddMesh arrow,character
FreeEntity arrow
Global upmarker=CreateSphere(2)
ScaleEntity upmarker,.1,.1,.1
Global uprightmarker=CreateSphere(2)
ScaleEntity uprightmarker,.1,.1,.1
Global rightmarker=CreateSphere(2)
ScaleEntity rightmarker,.1,.1,.1
Global rightdownmarker=CreateSphere(2)
ScaleEntity rightdownmarker,.1,.1,.1
Global downmarker=CreateSphere(2)
ScaleEntity downmarker,.1,.1,.1
Global downleftmarker=CreateSphere(2)
ScaleEntity downleftmarker,.1,.1,.1
Global leftmarker=CreateSphere(2)
ScaleEntity leftmarker,.1,.1,.1
Global leftupmarker=CreateSphere(2)
ScaleEntity leftupmarker,.1,.1,.1

.collisionsetup
Collisions charactercollider,levelcollider,collisionmethod,collisionresponse

.blitz3d
While Not KeyHit(1)
Cls
Repeat
elapsed=MilliSecs()-time
Until elapsed
ticks=elapsed/period
tween#=Float(elapsed Mod period)/Float(period)
For rt=1 To ticks
time=time+period
If rt=ticks Then CaptureWorld
;Gravity()
FacingAndMovingControl()
FacingEffects()
MovingEffects()
MarkerUpdater()
UpdateWorld
Next
RenderWorld tween

.blitz2d
DebugText()
Flip
Wend
End

.facingandmovingcontrol
Function FacingAndMovingControl()
;nates code (thanks nate!)
;/walking
If     KeyDown(200):facing="up"    :walking= "up"
ElseIf KeyDown(208):facing="down"  :walking= "down"
Else               :facing=""      :walking= ""     :running=""
EndIf
If KeyDown(45)     :facing2="right":walking2="right"
ElseIf KeyDown(44) :facing2="left" :walking2="left"
Else               :facing2=""     :walking2=""     :running2=""
EndIf
;/running
If     KeyDown(200) And KeyDown(203):facing= "up"   :running= "up"   :walking=""
ElseIf KeyDown(208) And KeyDown(203):facing= "down" :running= "down" :walking=""
Else                                                 running=""
EndIf
If     KeyDown(45)  And KeyDown(203):facing2="right":running2="right":walking2=""
ElseIf KeyDown(44)  And KeyDown(203):facing2="left" :running2="left" :walking2=""
Else                                                 running2=""
EndIf
;/prevariables 
walking=walking$+walking2$
running=running$+running2$
facing=facing$+facing2$
End Function

.facingeffects
Function FacingEffects()
Select facing
Case "up":PointEntity character,upmarker
Case "upright":PointEntity character,uprightmarker
Case "right":PointEntity character,rightmarker
Case "downright":PointEntity character,rightdownmarker
Case "down":PointEntity character,downmarker
Case "downleft":PointEntity character,downleftmarker
Case "left":PointEntity character,leftmarker
Case "upleft":PointEntity character,leftupmarker
End Select
End Function

.movingeffects
Function MovingEffects()

Select walking
Case "up":characterdistance=characterdistance+.1
Case "upright":characterdistance=characterdistance+.1:characterposition=characterposition+.1
Case "right":characterposition=characterposition+.1
Case "downright":characterdistance=characterdistance-.1:characterposition=characterposition+.1
Case "down":characterdistance=characterdistance-.1
Case "downleft":characterdistance=characterdistance-.1:characterposition=characterposition-.1
Case "left":characterposition=characterposition-.1
Case "upleft":characterposition=characterposition-.1:characterdistance=characterdistance+.1
End Select

Select running
Case "up":characterdistance=characterdistance+.2
Case "upright":characterdistance=characterdistance+.2:characterposition=characterposition+.2
Case "right":characterposition=characterposition+.2
Case "downright":characterdistance=characterdistance-.2:characterposition=characterposition+.2
Case "down":characterdistance=characterdistance-.2
Case "downleft":characterdistance=characterdistance-.2:characterposition=characterposition-.2
Case "left":characterposition=characterposition-.2
Case "upleft":characterposition=characterposition-.2:characterdistance=characterdistance+.2
End Select

End Function

.gravity
Function Gravity()
If Not EntityCollided(character,ground) characterheight=characterheight=-.1
End Function

.markerupdater
Function MarkerUpdater()
PositionEntity character,characterposition,characterheight,characterdistance
PositionEntity upmarker,characterposition,characterheight,characterdistance+2
PositionEntity uprightmarker,characterposition+1.5,characterheight,characterdistance+1.5
PositionEntity rightmarker,characterposition+2,characterheight,characterdistance
PositionEntity rightdownmarker,characterposition+1.5,characterheight,characterdistance-1.5
PositionEntity downmarker,characterposition,characterheight,characterdistance-2
PositionEntity downleftmarker,characterposition-1.5,characterheight,characterdistance-1.5
PositionEntity leftmarker,characterposition-2,characterheight,characterdistance
PositionEntity leftupmarker,characterposition-1.5,characterheight,characterdistance+1.5
End Function

.debugtext
Function DebugText()
Text 0,00,"Controls: up down z and x to move, left arrow to run"
Text 0,15,"facing " +facing
Text 0,30,"walking " +walking
Text 0,45,"running " +running
End Function

It'd still be good to know if using 90fps is going to blow up anyone's computer, but otherwise I'm really happy with this. Thanks so much for the help. I'm moving this to a new thread now to try to figure out it's other unrelated problems.

http://www.blitzbasic.com/Community/posts.php?topic=84307

Yasha

(Posted 2009) [#9]

90 logical updates isn't going to hurt anything. Most machines can handle hundreds, although there's not much reason for this besides speed tests. The important FPS (from the perspective of possibly hurting computers) is the rendering rate. Since you're using Flip True this will always stay at the computer's local refresh rate, so it won't break it (at leat, not unless the user has already done something evil to their own machine). The one to watch out for is using Flip False without any kind of regulating code - trying to render hundreds of FPS may well kill the user's computer. But the CPU is designed to be used that way - being able to update the logic 90 times and only draw 60 (or whatever) is the entire point of render tweening; you're using it correctly.

On an entirely unrelated note, you don't need to Cls at the start of your main loop if the camera's going to draw over the entire screen anyway...

fox95871

(Posted 2009) [#10]

What would have got me started using that? My notes say it's an old 2D command that's been replaced by RenderWorld and CameraClsMode in the 3D commands. Is that right?