Graphics3D 800,600,0,1
AppTitle "Rammjäger"
HidePointer
SetBuffer BackBuffer()
;Laden der Texturen und Meshs
terrain=LoadTerrain("H:\Grassclip.bmp")
text1=LoadTexture("H:\Gras.jpg")
metallpyramide=LoadMesh("H:\pyramide.x")
Gebaude=LoadMesh("H:\house.x")
flieger=LoadMesh("H:\flieger.3ds")
Burg=LoadMesh("H:\Burg.x")
jager=LoadMesh("H:\Rammjäger.3ds")
himmel=LoadTexture("H:\himmel2.jpg")
Baumstumpf=LoadMesh("H:\Baumstumpf.x")
Baumstumpf1=LoadMesh("H:\Baumstumpf.x")
Baumstumpf2=LoadMesh("H:\Baumstumpf.x")
Baumstumpf3=LoadMesh("H:\Baumstumpf.x")
;Objekt richtig drehen
TurnEntity flieger,-90,0,90
;Erstellen eines Pivot für die Kollision
sky=CreateSphere(120)
FlipMesh sky
ScaleEntity  sky,7000,9000,7000
PositionEntity sky,6500,1000,6800
;Metallpyramide
PositionEntity metallpyramide,5000,20,7800
PositionEntity Baumstumpf,Rand(-2000,6000),20,Rand(-1000,9000)
PositionEntity Baumstumpf1,Rand(-2000,6000),20,Rand(-1000,9000)
PositionEntity Baumstumpf2,Rand(-2000,6000),20,Rand(-1000,9000)
PositionEntity Baumstumpf3,4200,20,9000
;
PositionEntity Burg,5000,20,8000
PositionEntity jager,9000,500,9000
;Das Terrain erstellen und Texturieren
EntityTexture terrain,text1,0,0
ScaleEntity terrain,50,60,50
ScaleTexture text1,20,20
;Spielfigur posizionieren
PositionMesh flieger,-8000,-5000,2000
TerrainDetail terrain,8000,True
;Position der Hand 
;Position des Hauses
PositionMesh Gebaude,9000,-250,-9000
;Die Textur des Hauses bearbeiten und verwenden
EntityTexture sky,himmel
RotateMesh Gebaude,180,0,0
;;;;;;;;;;;;;;;;;;;;;;;;;;------Die Eintsellung der Kamera auf Thirdperson sicht
;;
;;
;Kameravoreinstellungen   
cam=CreateCamera()
PositionEntity cam,5100,2050,8075
CameraRange cam,1,80000
light=CreateLight() 
LightRange light,80000
TurnEntity light,45,45,45
EntityParent light,cam
;Einstellungen für die Sicht
TurnEntity cam,10,106,0
EntityParent cam,flieger
PositionEntity cam,3007,1025,5845
TurnEntity cam,270,0,270
;Hier ist der Betrefende Bereicht
;Kollisionsabfrage
EntityRadius flieger,0.2
EntityType terrain,2
EntityType flieger,1
Collisions 1,2,2,2
EntityOrder sky,1
;Steuerung des Spieler und der Cam
;;;;;;;;;;;;;;;;;;;;-------Hauptschleife
While Not KeyHit(1)
;Mausabfrage   
RotateEntity flieger,EntityPitch(flieger)+MouseYSpeed(),EntityYaw(flieger)-MouseXSpeed(),0 ;muss immer mesh parent sein!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
If Not KeyDown(200)=1 Then MoveEntity flieger,0,-20,0 
If KeyDown(200)=1 Then MoveEntity flieger,0,0,20   
If KeyDown(203)=1 Then MoveEntity flieger,-20,0,0
If KeyDown(205)=1 Then MoveEntity flieger,20,0,0
;Ende des Fraglichen Bereichs
If KeyHit(35)=1 Then 
SaveBuffer BackBuffer(),"screenshots.bmp"
EndIf 
If KeyDown(1) Then End
UpdateWorld
RenderWorld
Flip
Wend
ClearWorld
End