...
;der teil für Kollisionen

EntityType koerper,2    ; der würfel
EntityType ter,1             ;die spielwelt mit der mauer im 3ds format
Collisions 2,1,2,2
...
;der teil für die Steuerung in der haupt schleife

If KeyDown(17) Then speed# = 1
If KeyDown(42) And KeyDown(17) Then speed# =2
If Not KeyDown(17) Then speed# = 0
If KeyDown(31) Then MoveEntity koerper,0,0,-1
MoveEntity koerper,0,0,speed#
If KeyDown(30) Then MoveEntity koerper,-0.4,0,0
If KeyDown(32) Then MoveEntity koerper,0.4,0,0
TurnEntity cam,MouseYSpeed()*0.2555,0,0
TurnEntity koerper,0, -MouseXSpeed()*0.2555,0,0
If KeyDown(17) Then TurnEntity cam,0,0,wackeln#
...
waittimer(timer)
RenderWorld
UpdateWorld
flip

;----------includes--------------

;Include "includes\draw3d2.bb"
;Include "includes\drawsgg.bb"
;Include "includes\drawxtd.bb"
;Include "includes\start.bb"
;Include "includes\wb3dstyles.bb"
;Include "includes\3d.bb"

;----------graphics--------------

Graphics3D 1920,1080,32,1
SetBuffer BackBuffer()
timer = CreateTimer(60)

;----------------camera--------------------

cam = CreateCamera()
light = CreateLight()
 
;-------------interface----------------------

fadenkreuz = LoadImage("data\tex\zielr.png")

;----------------terrain--------------------

ter = LoadMesh("data\cin\ter.3ds")
 
;----------------mesh-----------------------
koerper = CreateCube()
MoveEntity koerper,0,-22,0

waffe1 = LoadMesh("data\cin\guns.3ds")
waffe2 = LoadMesh("data\cin\gunh.3ds")
waffe3 = LoadMesh("data\cin\gun2.3ds")
TurnEntity waffe2,0,180,0
TurnEntity waffe1,0,180,0
TurnEntity waffe3,0,180,0



;-----------------enttiyparent----------------
EntityParent cam,koerper
EntityParent waffe2,cam
EntityParent waffe1,cam
EntityParent waffe3,cam
EntityParent waffe3,cam

;-----------------colides---------------------
EntityType koerper,2
EntityType ter,1

Collisions 2,1,2,2

;------------------sonstiges------------------
MoveEntity waffe3,8,-5,-17
MoveEntity waffe2,-6,-5,-17
MoveEntity waffe1,-6,-5,-17

wackeln# = -0.2
wackels# = 0
;-------------------------------------------------------------------------
;-------------------------hauptschleife-----------------------------------
;-------------------------------------------------------------------------

While Not KeyDown(1)
;---------------------wackeln------------------

If KeyDown(17) Then
If wackels# = 0 Then wackeln# = wackeln# + 0.02
If wackels# = 1 Then wackeln# = wackeln# - 0.02
If wackeln# > 0.2 Then wackels# = 1
If wackeln# < -0.2 Then wackels# = 0
EndIf

If KeyDown(31) Then
If Not KeyDown(17) Then
If wackels# = 0 Then wackeln# = wackeln# + 0.02
If wackels# = 1 Then wackeln# = wackeln# - 0.02
If wackeln# > 0.2 Then wackels# = 1
If wackeln# < -0.2 Then wackels# = 0
EndIf
EndIf


;---------------koerper-steuerung-------------
If KeyDown(17) Then speed# = 1
If KeyDown(42) And KeyDown(17) Then speed# =2
If Not KeyDown(17) Then speed# = 0
If KeyDown(31) Then MoveEntity koerper,0,0,-1
MoveEntity koerper,0,0,speed#
If KeyDown(30) Then MoveEntity koerper,-0.4,0,0
If KeyDown(32) Then MoveEntity koerper,0.4,0,0
TurnEntity cam,MouseYSpeed()*0.2555,0,0
TurnEntity koerper,0, -MouseXSpeed()*0.2555,0,0
If KeyDown(17) Then TurnEntity cam,0,0,wackeln#


;----------------minigun-drehung---------------
If MouseDown(2) Then
mgdrehung# = mgdrehung# + 0.1
Else mgdrehung# = mgdrehung# - 0.3
EndIf
If mgdrehung# > 7 Then mgdrehung# = 7
If mgdrehung# < 0 Then mgdrehung# = 0
TurnEntity waffe1,0,0,mgdrehung#






;--------------------physics--------------------

TranslateEntity  koerper,0,-1,0

MoveMouse GraphicsWidth()/2,GraphicsHeight()/2


;-------------------rendern---------------------
WaitTimer(timer)
RenderWorld
UpdateWorld

;-------------------2d-bereich------------------
DrawImage fadenkreuz,GraphicsWidth()/2-128,GraphicsHeight()/2-128


Flip
 




Wend
End