Graphics3D 1024, 768, 32, 1
AppTitle "School Survival"
SetBuffer BackBuffer()

Global ms=20
Global cx#
Global cy#

Const links = 30
Const rechts = 32
Const hoch = 17
Const runter = 31

Global player=CreateCube()
PositionEntity player, 0, 0, -10
EntityRadius player,1.8
EntityType player,1

Global campiv=CreateCamera()
PositionEntity campiv,EntityX(player),EntityY(player),EntityZ(player)

Global cam=CreateCamera(campiv)
PositionEntity cam,EntityX(player),EntityY(player)+3,EntityZ(player)

light = CreateLight(2)
PositionEntity light, 0, 20, 0
LightRange light,35

scene = LoadMesh("data\Models\Test.b3d")
PositionEntity scene, 0, -5, 35

;----------------------------------------------------------------------------;

While Not KeyHit(1)

If KeyDown(hoch) MoveEntity campiv,0,0,0.3
If KeyDown(hoch) MoveEntity player,0,0,0.3

mouse()
PositionEntity cam,EntityX(player),EntityY(player)+3,EntityZ(player)-5
UpdateWorld
RenderWorld
Text 0,0,EntityYaw(campiv)
Rect 472,344,40,40,False
Flip
Wend
End

;----------------------------------------------------------------------------;

Function mouse()
mxs=MouseXSpeed()*ms ;(20)
mys=MouseYSpeed()*ms ;(20)

cx#=EntityPitch(cam)+mys*0.01
cy#=EntityYaw(campiv)-mxs*0.01

If cx#>89 Then cx#=89
If cx#<-89 Then cx#=-89

;If cy#>50 Then cy#=50
;If cy#<-50 Then cy#=-50

RotateEntity cam,cx,0,0
RotateEntity campiv,0,cy,0

Y1#=EntityYaw(campiv)
Y2#=EntityYaw(player)
Y#=Y1#-Y2#
Y#=Y#/1
TurnEntity player,0,Y#,0


MoveMouse 400,300
End Function