Graphics3D 1024,768,32,1 
;--------------------------------
Const Terrain_T = 1         
Const Unsichtbar_T = 1
Const Figur_T = 2
Const Haus_T = 1
Global Jump#               
;-----------------------------------------
Type Schuss                   
Field x
Field y
Field z
Field s
End Type
;-----------------------------------------
Light = CreateLight()                 
;------------------------------------------
tex1 = LoadTexture("Gras1.jpg")       
ScaleTexture tex1, 10, 10
tex2 = LoadTexture("Wasser.jpg")
ScaleTexture tex2,10,10
;------------------------------------------
Figur = LoadMesh("mario.x")           
ScaleMesh Figur,0.25,0.25,0.25     
EntityType Figur,Figur_T               
;--------------------------------------------
Camera = CreateCamera(Figur)     
PositionEntity Camera,0,5,2         
;--------------------------------------------
Terrain = LoadTerrain("Terrain.png")
TerrainDetail Terrain,2000,True       
TerrainShading Terrain,True             
EntityTexture Terrain,Tex1               
ScaleEntity Terrain,3,199,3             
EntityType Terrain,Terrain_T           
;-------------------------------------------
Wasser = CreatePlane()                   
EntityTexture Wasser,tex2                 
EntityAlpha Wasser,0.5                   
;------------------------------------------

;------------------------------------------
Unsichtbar = CreatePlane()               
EntityAlpha Unsichtbar,0                   
EntityType Unsichtbar,Unsichtbar_T
;------------------------------------------------
Haus = LoadMesh("a.3ds")     
ScaleMesh Haus, 25, 25, 25
EntityType Haus, Haus_T                       
;------------------------------------------------

SetBuffer BackBuffer()                         
;----------------------------------------------
PositionEntity Figur,180,100,1010     
PositionEntity Haus,100,190,1010
PositionEntity Wasser,0,100,0
PositionEntity Unsichtbar,0,97,0
RotateEntity Haus, 90,0,0

;------------------------------------------------
Collisions 2,1,2,3
                               
;===================================
While Not(KeyHit(1))                         
;-----------------------------------------

If KeyDown(17) Then MoveEntity Figur,0,0,2   
If KeyDown(31) Then MoveEntity Figur,0,0,-2
If KeyDown(30) Then TurnEntity Figur,0,2,0
If KeyDown(32) Then TurnEntity Figur,0,-2,0
;-----------------------------------------------------
If KeyHit(57) Then 
Jump = 5               
ElseIf Jump > 0 Then
Jump = Jump - 0.3     
TranslateEntity Figur,0,Jump,0
EndIf
;--------------------------------------------------
If MouseDown(1) Then 
s.schuss = New Schuss 
s\s = LoadSprite("schuss.png")   

s\x = EntityX(Figur)       
s\y = EntityY(Figur)
s\z = EntityZ(Figur)
PositionEntity s\s, s\x, s\y + 2,s\z + 4   
RotateEntity s\s,EntityPitch(Figur),EntityYaw(Figur),EntityRoll(Figur)
End If
;-------------------------------------------------------
For  s.schuss = Each schuss   
MoveEntity s\s,0,0,5         
Next
;-------------------------------------------------------
counter = counter + 1                   
If time = 0 Then time = MilliSecs()
If time + 1001 < MilliSecs() Then
framerate = counter
counter = 0
time = MilliSecs()
EndIf
;---------------------------------------------------
TranslateEntity Figur,0,-1,0       
;-----------------------------------------
UpdateWorld()                 
RenderWorld()                 
;------------------------------------
Text 10,10,framerate       
Flip                                 
;---------------------------------------
Wend
;===============================
End