Graphics3D 1024,768,32,2
SetBuffer BackBuffer()

Include "DevilParticleSystem.bb"
Include "Includes\DevilShadowSystem.bb"
Include "Includes\ShadowVolumes.bb"
Include "Includes\UserInterface.bb"

Global arenafile$,arenaname$,arenamesh$,arenascale,heightmap$,bodentex$,bodentexscale,bodenbump$,bodenbumpscale
loadarena("Pandorra")

;----

Global arena=LoadMesh(arenamesh$)
PositionMesh arena,0,0,0
ScaleMesh arena,arenascale,arenascale,arenascale
EntityType arena,1

SetShadowMesh(arena)

Global terrain=CreateCube()
ScaleEntity terrain,110,0.01,110
PositionEntity terrain,0,0,0
SetShadowMesh(terrain,False)
cam=CreateCamera()
PositionEntity cam,0,0,-20
InitShadows(cam)

Global light=CreateLight()
PositionEntity light,0,50,100
PointEntity light, CreatePivot()
SetShadowLight(light)

Repeat
   
   PositionEntity cam,0,20,0
   If KeyDown(205)Then TurnEntity cam,0,1,0
   If KeyDown(208)Then TurnEntity cam,1,0,0
   
   
   If KeyHit(2) Then a=a+1
   If a=3 Then a=0
   
   Render(1)
   Flip
   Cls
Until KeyHit(1)

Function loadarena(arenafile$)
   arenafile$=ReadFile("Arenas/"+arenafile$+"daten.dat")
   arenaname$=ReadLine(arenafile$)
   arenamesh$=ReadLine(arenafile$)
   arenascale=ReadLine(arenafile$)
   heightmap$=ReadLine(arenafile$)
   bodentex$=ReadLine(arenafile$)
   bodentexscale=ReadLine(arenafile$)
   bodenbump$=ReadLine(arenafile$)
   bodenbumpscale=ReadLine(arenafile$)
   CloseFile arenafile$
End Function