SuperStrict
Framework sedm.simple3d
Import brl.keycodes

Options(dev_ogl)
ShadowOptions()
ShaderDir("fx")

Set3DAudioDriver(DRV_DIRECTSOUND)
ClsMode(1, 1)

Local result:Int = Graphics3D(1024, 768, 32, 0)
If result = 0 Then End

AddZIP("media.zip", 1, 1)
ClsColor(90, 120, 255)
AmbientLight(100, 100, 100)
Local vendor:String = GetGfxVendor()

AddShaderPass("BlurHP")
AddShaderPass("BlurVP")
AddShaderPass("BloomP")

' Kamera
Local cam:TCamera = CreateFPSCamera(0.02, 80.0)
PositionEntity(cam, 0.0, 10.0, -10.0)


' Licht
'Local light:TLight = CreateLight(LIGHT_POINT, 0)
'PositionEntity(light, -100, 150, -10)
Local smlight:TLight = CreateSLight(-20, 20, -20, 0, -1, 0, 255, 255, 255, 10, 60, 40)

' Kisten
Local crate:TMesh = LoadMesh("wcrate/wcrate.b3d")
PositionEntity(crate, 0.0, 50.0, 0.0)
HideEntity(crate)

' Boden
Local boden:TMesh = LoadMesh("plane/plane.b3d")
EntityLighting(boden, False)
EntityShadow(boden, SHADOW_RECEIVE)
EntityPhysics(boden, PHYS_BOX, 0.0)


SetGravity(-9.81 * 16.0)

' Mucke
Local sound:TKlang = Load3DSound("music.mod")
Play3DSound(sound, 1)
PositionSound(sound, 0, 1, 0)

Local time:Int		= MilliSecs()
Local fps:Int		= -1
Local last_fps:Int	= -1
Local active:Int	= True

Repeat
	fps = GetFPS()
	If fps <> last_fps
		last_fps = fps
		Local title:String = "FPS: " + String(fps)
		WindowTitle(title)
	EndIf
	
	Local now:Int = MilliSecs()
	If now - time > 2500
		Local crate2:TMesh = CopyMesh(crate)
		PositionEntity(crate2, Rand(-1.0, 1.0), 50, Rand(-1.0, 1.0))
		EntityPhysics(crate2, PHYS_BOX, .5)
		EntityShadow(crate2, SHADOW_BOTH)
		EntityLighting(crate2, False)
		time = now
	EndIf
		
	CameraListener(cam)
	
	active = RenderWorld()
	
Until active <> 1 Or isKeyHit(KEY_ESCAPE) = True
End

Include "../simple3D.bb"

Print "Bitte wähle das Device aus:"
Print " "
Print "1 = DirectX 9"
Print "2 = OpenGL"
Print "3 = Software"
Print " "
dev = Input("> ")


Select dev
	Case 1
		renderer = DEV_DX9
		rend$ = "DirectX 9"
	Case 2
		renderer = DEV_OGL
		rend$ = "OpenGL"
	Case 3
		renderer = DEV_SOFTWARE
		rend$ = "Software Renderer"
	Default
		renderer = DEV_DX9
		rend$ = "DirectX 9"
End Select

irrlicht% = s3d_Init()

s3d_Options(irrlicht, renderer, 0, 1)
s3d_ShadowOptions(irrlicht, SHADOW_MAP, 1024, SHADOW_FILTER_16)
s3d_ShaderDir(irrlicht, "fx")
s3d_SetAudioDriver(irrlicht, DRV_DIRECTSOUND)
s3d_ClsMode(irrlicht, 1, 1)

result% = s3d_Graphics3D(irrlicht, 1024, 768, 32, 0)
If result = 0 Then End

s3d_AddZip(irrlicht, "media.zip", 1, 1)
s3d_ClsColor(irrlicht, 90, 120, 255)
s3d_AmbientLight(irrlicht, 100, 100, 100)
vendor$ = s3d_GetGfxVendor(irrlicht)

;s3d_AddShaderPass(irrlicht, "BrightPass")
s3d_AddShaderPass(irrlicht, "BlurHP")
s3d_AddShaderPass(irrlicht, "BlurVP")
s3d_AddShaderPass(irrlicht, "BloomP")

; Kamera
cam% = s3d_CreateFPSCamera(irrlicht, 0, 0.01, 80.0)
s3d_PositionEntity(cam, 0.0, 10.0, -10.0)

; Licht
light% = s3d_CreateLight(irrlicht,LIGHT_POINT, 0)
s3d_PositionEntity(light, -100, 150, -10)
s3d_CreateSMLight(irrlicht, -20, 20, -20, 0, -1, 0, 255, 255, 255, 10, 60, 40)

; Kisten
crate% = s3d_LoadMesh(irrlicht, "wcrate/wcrate.b3d", 0)
s3d_PositionEntity(crate, 0.0, 50.0, 0.0)
s3d_HideEntity(crate)

; Boden
boden% = s3d_LoadMesh(irrlicht, "plane/plane.b3d", 0)
s3d_EntityLighting(boden, False)
s3d_EntityShadow(boden, SHADOW_RECEIVE)
s3d_EntityPhysics(boden, PHYS_BOX, 0.0)


s3d_SetGravity(-9.81 * 16.0)

; Mucke
sound% = s3d_LoadSound(irrlicht, "music.mod", S_AUTO_DETECT, 0)
s3d_Play3DSound(sound, 1)
s3d_PositionSound(sound, 0, 1, 0)



time%		= MilliSecs()
fps%		= -1
last_fps%	= -1
Repeat
	fps = s3d_GetFPS(irrlicht)
	If fps <> last_fps
		last_fps = fps
		title$ = "FPS: " + fps + " | " + rend$ + " | " + vendor$
		s3d_AppTitle(irrlicht, title)
	EndIf
	
	now = MilliSecs()
	If now-time > 2500
		crate2% = s3d_CopyMesh(crate, 0)
		s3d_PositionEntity(crate2, Rand(-1.0, 1.0), 50, Rand(-1.0, 1.0))
		s3d_EntityPhysics(crate2, PHYS_BOX, .5)
		s3d_EntityShadow(crate2, SHADOW_BOTH)
		s3d_EntityLighting(crate2, False)
		time = now
	EndIf
		
	s3d_CameraListener(cam)
	
	active = s3d_RenderWorld(irrlicht)
	
Until active <> 1 Or s3d_KeyHit(irrlicht, KEY_ESCAPE) = True

s3d_Drop(irrlicht)

End