Graphics3D 800,600,16,2
SetBuffer BackBuffer()
AppTitle"Züchterspiel"

s=MouseX()

holz=LoadTexture("gut.bmp")
boden=LoadTexture("Texture.jpg")

haus=LoadMesh("haus.3ds");haus
MoveEntity haus,0,1.5,23
EntityType haus,2
EntityTexture(haus,holz)

drache=LoadMesh("Rache.3ds");jan.kuhnert@dis-gmbh.com DRACHE DRACHE DRACHE DRACHE
MoveEntity drache,0,20,23
EntityType drache,1
EntityRadius drache,5

level=LoadMesh("level3.3ds");level
MoveEntity level,0,0,0
EntityType level,2
unzen=40

EntityTexture(level,boden)
licht=CreateLight(1);licht
PositionEntity licht,0,0.5,23

baum=LoadMesh ("baum.3ds");baum
MoveEntity baum,6,0.5,40

baum1=CopyMesh (baum);baum2
MoveEntity baum1,10,0.5,40

baum2=CopyMesh(baum)
MoveEntity baum2,-10,0.5,40


krug=LoadMesh ("krug.3ds");krug
MoveEntity krug,-7,3.5,27

cam=CreateCamera();camera
PositionEntity cam,0,4,23
CameraClsColor cam,0,100,255
EntityType cam,1
EntityRadius cam,1.1




Collisions 1,2,2,2

While Not KeyHit(1)
If KeyDown(200)Then
MoveEntity cam,0,0,0.05 EndIf
If KeyDown(208)Then
MoveEntity cam,0,0,-0.05 EndIf
If KeyDown(205)Then
TurnEntity cam,0,-2,0 EndIf
If KeyDown(203)Then
TurnEntity cam,0,2,0 EndIf
If KeyDown(42) Then 
MoveEntity cam,0,0.01,0 EndIf
If KeyDown(29) Then 
MoveEntity cam,0,-0.01,0 EndIf


UpdateWorld
RenderWorld
font=LoadFont("Copperplate Gothic Bold",20,10,0)
Color 0,100,255
SetFont font
If EntityDistance(cam,drache)<10 Then Text 100,550,("Zum Aufsteigen s drücken.") 
If EntityDistance(cam,haus)<10 Then Text 100,500,("Zum Kaufen Leertaste drücken.")
Text 700,550, unzen+" Unzen"
Flip
Wend