BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Include Code For First Person control", by arwell

Add 2 new Functions for Player Move and Player Collision.

Code

;-------------------------------------------------------------------------------------------------------------------
;-----------------------------------------libary-with-2-new-Comands-to-control-a-player-model-----------------------
;------------------------------------------------in-First-Person-Camera---------------------------------------------
;-------------------------------------------------------------------------------------------------------------------
Global geschw = 1
Function PlayerMoving(Mesh$)
If KeyDown(17) Then 
MoveEntity Mesh$,0,0,0.1
MoveEntity Cam,0,0,0.1
Animate Mesh$,1,1,0
EndIf
If KeyDown(17) = 0 Then Animate Mesh$,1,2,0

If KeyDown(31) Then 
MoveEntity Mesh$,0,0,0.1
MoveEntity Cam,0,0,0.1
Animate Mesh$,1,-1,0
EndIf
If KeyDown(17) = 0 Then Animate Mesh$,1,2,0

If MouseX() < 10 Then
TurnEntity Mesh$,0,1,0
MoveEntity cam,-0.1,0,0
PointEntity cam,Mesh$
Animate Mesh$,1,geschw,0
EndIf
If MouseX() > 790 Then 
TurnEntity Mesh$,0,-1,0
MoveEntity cam,0.1,0,0
PointEntity cam,Mesh$
Animate Mesh$,1,geschw,0
EndIf
If MouseX() > 10 And MouseX() < 790 Then
Animate Mesh$,1,2,0
EndIf
End funktion

Function UpdatePlayerCollide(Mesh$)
a = EntityPick(Mesh$,1)
If a = 1 Then
a = 0
MoveEntity Mesh,0,0,-0.1
EndIf
End Function

Code software created by Krylar's Kreations