Need help with walk speed value change

Blitz3D Forums/Blitz3D Programming/Need help with walk speed value change

Guy Fawkes

(Posted 2009) [#1]

I have done some research on the camera wobble code in the code archives. I need to use BT_PickBelow() to align the player to any vector, and change the speed from walking to slowly running, to medium running, to running at a constant and close to constant speed.

i have tried everything, and cant get it to work. also when u hold shift and hold up & down, not up or down, same thing with left or right, it totally slows down the player to a complete halt. same with up and down, or left and right.

here's the code:

Graphics3D 640,480,32,2
SetBuffer BackBuffer()

player=CreatePivot()
PositionEntity player,0,3,0
EntityRadius player,.9
EntityType player,1

camera=CreateCamera( player )
TranslateEntity camera,0,0.9,0
CameraRange camera,.1,200

tex=CreateDummyTexture(256,256)
ScaleTexture tex,10,10

ground=CreatePlane() ; or the map mesh etc.
EntityTexture ground,tex
EntityType ground,2


sp#=.05 ; main walking speed (not connected with wobbling)
shoe_size#=7.0 ; stepspeed for wobbling camera (eg. 7=running, 4=walking)
head_bang_X#=0.1 ; amount of wobbling
head_bang_Y#=0.1

Collisions 1,2,2,2

While Not KeyHit(1)

BT_PickBelow#(camera,10000,glob=False)

 mxs#=MouseXSpeed()/4.0
 mys#=MouseYSpeed()/4.0
 MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
 camxa#=camxa-mxs Mod 360
 camya#=camya+mys
 If camya<-90 Then camya=-90
 If camya>90 Then camya=90
 RotateEntity player,0,camxa,0
 RotateEntity camera,camya,0,0

 MoveEntity player,0,-.05,0 ; simplified gravity

 walking=0

 If KeyDown(203) Then: MoveEntity player,-sp,0,0 : walking=1: EndIf
 If KeyDown(205) Then: MoveEntity player, sp,0,0 : walking=1: EndIf
 If KeyDown(200) Then: MoveEntity player,0,0, sp : walking=1: EndIf
 If KeyDown(208) Then: MoveEntity player,0,0,-sp : walking=1: EndIf

 If KeyDown(42) And (KeyDown(200) Or KeyDown(203) Or KeyDown(205) Or KeyDown(208))
sp = sp+.0002
Else If KeyDown(42) And (KeyDown(200)=KeyDown(203) Or KeyDown(203)=KeyDown(200) Or KeyDown(203)=KeyDown(205) Or KeyDown(205)=KeyDown(203) Or KeyDown(205)=KeyDown(208) Or KeyDown(208)=KeyDown(205))
sp = 0
wobble=0
Else
sp = sp-.0001
If sp > 0 And sp < .08
MoveEntity player, 0, 0, sp
EndIf
EndIf

If sp > .05 Then sp = .05
If sp < 0 Then sp = 0


 ; >>>>>>>>>wobble camera
 If walking=1
  a1#=(a1#+shoe_size) Mod 360
  Else
  ;a1#=a1#*0.8
 EndIf
; PositionEntity camera,Cos(a1#)*head_bang_X#,Sin(90+a1#*2)*head_bang_Y#,0,0
 PositionEntity camera,Cos(a1#)*head_bang_X#,Sin(270+a1#*2)*head_bang_Y#,0,0 ; or try this one instead!

 UpdateWorld
 RenderWorld

 ; >>>>>>>>>control footstep sound
 If Sin(90+a1*2)<-.85
  If  footstep_needed<>0
   Color 255,255,255
   Text 10,10, "Tap!" ; play a footstep sound here!
   footstep_needed=0
  EndIf
 Else
  footstep_needed=1
 EndIf

Text 10, 30, "sp="+sp

 VWait:Flip 0

Wend

End

; -----------------------------------------------------------------------------------------------
; Pick below a given X/Z position to get the exact height there
; -----------------------------------------------------------------------------------------------
Function BT_PickBelow#(entity%,range#=10000,glob=False)
	
	Local height#
	
	Local x#=EntityX(entity%,glob)
	Local y#=EntityY(entity%,glob)
	Local z#=EntityZ(entity%,glob)
	
	;HideEntity BT_PlacesPivot
	
	LinePick(x,y+range,z,0,-range*2,0)
	height=PickedY()
	
	BT_NX#=PickedNX()
	BT_NY#=PickedNY()
	BT_NZ#=PickedNZ()
	
	;ShowEntity BT_PlacesPivot
	
	Return height
	
End Function


; -----------------------------------------------------------------------------------------------
; reads the INI-File to a string
; -----------------------------------------------------------------------------------------------
Function BT_LoadINI$(filename$)
	
	Local linetext$=""
	Local file%=ReadFile(filename)
	If file<>0 Then
		While Not(Eof(file))
			linetext=linetext+ReadLine$(file)+Chr$(0)
		Wend
		CloseFile file
	End If
	
	Return linetext
	
End Function


; -----------------------------------------------------------------------------------------------
; extracts a section key out of a INI-String or sets the given default value
; -----------------------------------------------------------------------------------------------
Function BT_GetINI$(section$,key$,defaultvalue$="",ini$="")
	
 	section="["+Upper$(Trim$(section))+"]"
	key=Upper$(Trim$(key))
	
	;Local ini$=FileToString(filename)
	Local UpperINI$=Upper$(ini)
	Local value$=""
 	Local sectionpos%=Instr(UpperINI,section)
	
	Local keypos%,startpos%,endpos%,nextsection%
	
	If (sectionpos<>0) Then
		
		keypos=Instr(UpperINI,key,(sectionpos+Len(section)+1))
		
		If (keypos<>0) Then
			
			nextsection=Instr(UpperINI,"[",(sectionpos+Len(section)+1))
			
			If nextsection=0 Or (nextsection=>1 And keypos<nextsection)
				
				startpos=Instr(UpperINI,"=",(keypos + 1))
				
				If (startpos<>0) Then
					
					endpos=Instr(UpperINI,Chr$(0),(startpos + 1))
					
					If (endpos<>0) Then
						
						value=Trim$(Mid$(ini,startpos+1,(endpos-startpos-1)))
						
					End If
					
				End If
				
			EndIf
			
		End If
		
	End If
	
	If (value<>"") Then Return value Else Return defaultvalue
	
End Function

Function CreateDummyTexture(w,h)
 tex=CreateTexture(w,h)
 SetBuffer TextureBuffer(tex)
  Color 255,255,255
  For i=0 To 1000
   Color Rand(255),Rand(255),Rand(255)
   Line Rand(0,w-1),Rand(0,h-1),Rand(0,w-1),Rand(0,h-1)
  Next
 SetBuffer BackBuffer()
 Return tex
End Function

ANY help is GREATLY appreciated! :)

~DS~

GIB3D

(Posted 2009) [#2]

Else If KeyDown(42) And (KeyDown(200)=KeyDown(203) Or KeyDown(203)=KeyDown(200) Or KeyDown(203)=KeyDown(205) Or KeyDown(205)=KeyDown(203) Or KeyDown(205)=KeyDown(208) Or KeyDown(208)=KeyDown(205))

Let's say your holding down shift and nothing else, then it would look like

Else If 1 And (0=0 or 0=0 or 0=0 or 0=0 or 0=0 or 0=0)

Then it would make sp = 0

Guy Fawkes

(Posted 2009) [#3]

Ok, then how would I go about changing the speed depending on if ur say on a hill and slowly walking down, then it gets steeper, and ur speed slowly increases by the force of walking down the hill, and then slowly come to a halt, also depending on the force of the hill?

_PJ_	(Posted 2009) [#4]

What do you mean Force of the hill and why would your speed slowly come to a halt?

If your entity has the collision set to allow sliding, and you have gravity implemented by default which should always translate your entity vertically downwards (assuming downwards is of course the direction of gravitational attraction), then acceleration will always be correct and you wont need to do anything else. Since if the player moves downhill ina addition to the gravity, they will move faster because more than one change will be performed on the entity location. Likewise, if they are moving uphill, then their movement will be countered by the translation down (let's hope they can move upwards faster than gravity can pull them down ;) )

Guy Fawkes

(Posted 2009) [#5]

that answers part of my question. the other part is the exact point of tripping, falling, and rolling down the hill on 1 of the models sides. also controlled by gravity. and what do u expect i use for gravity?

_PJ_	(Posted 2009) [#6]

TranslateEntity entity,0,-g,0,true ?

Guy Fawkes

(Posted 2009) [#7]

That answers 75% of my question. Now how do I say make him literally roll down the hill on his side at a given speed dependent on the gravity or w/e?