Graphics3D 1024,768
SetBuffer BackBuffer()
cam = CreateCamera()
PositionEntity cam, 10,5,10
EntityRadius cam,1.5



textur = LoadTexture("stein.jpg")
boden = CreatePlane()

EntityTexture boden, textur


mesh = LoadMesh("haha.3ds")
mesh2 = LoadMesh("haha.3ds")
mesh3 = LoadMesh("haha.3ds")
mesh4 = LoadMesh("haha.3ds")

PositionEntity mesh, 0,1.5,0
PositionEntity mesh2, 3,1.5,-15
PositionEntity mesh3, 15,1.5,0
PositionEntity mesh4, 18,1.5,-15


ScaleEntity mesh,0.1,0.1,0.1
ScaleEntity mesh2,0.1,0.1,0.1
ScaleEntity mesh3,0.1,0.1,0.1
ScaleEntity mesh4,0.1,0.1,0.1


TurnEntity mesh,270,0,0
TurnEntity mesh2,270,180,0
TurnEntity mesh3,270,0,0
TurnEntity mesh4,270,180,0

EntityType cam,1
EntityType boden,2
EntityType mesh,2
EntityType mesh2,2
EntityType mesh3,2
EntityType mesh4,2




schuss = CreateSphere()
ScaleEntity schuss,0.1,0.1,0.1

Repeat



RotateEntity cam,EntityPitch(cam)+MouseYSpeed(),EntityYaw(cam)-MouseXSpeed(),0
MoveMouse 400,300

 If KeyDown(203) Then MoveEntity cam,-0.2,0,0
 If KeyDown(205) Then MoveEntity cam,0.2,0,0
 If KeyDown(200) Then MoveEntity cam,0,0,0.2
 If KeyDown(208) Then MoveEntity cam,0,0,-.2



x# = EntityX#(cam)
y# = EntityY#(cam)
z# = EntityZ#(cam)

terra_y#=TerrainY(boden,x#,y#,z#)+1.5
PositionEntity cam,x#,terra_y#,z#


mouse = GetMouse()

If mouse = 1 Then
schussanderwand = False
PositionEntity schuss,x#,y#,z#
EntityTexture schuss, textur
EntityType schuss,1
EntityRadius schuss,0
RotateEntity schuss,EntityPitch(cam),EntityYaw(cam),EntityRoll(cam)
EndIf


If EntityCollided(schuss,2) Then
s_loch=CreateSprite()
SpriteViewMode s_loch,2
EntityTexture s_loch,textur
schussanderwand = True

col=CountCollisions(schuss)


PositionEntity s_loch,EntityX(schuss),EntityY(schuss),EntityZ(schuss)
AlignToVector s_loch, CollisionNX(schuss,col), CollisionNY(schuss,col), CollisionNZ(schuss,col),3
TurnEntity s_loch,180,0,0

Else
 If schussanderwand = False
MoveEntity schuss,0,0,2


 EndIf
EndIf



 

Collisions 1,2,2,2
 UpdateWorld
 RenderWorld
 Flip
Until KeyHit(1)