Early beta of my gameengine

Miscellaneous Forums/Blitz Showcase/Early beta of my gameengine

Filax
 #1
Ok i have find :) But there is a problem with MouseSpeedX ?

Strict
Import "libOgreRAD.a"
Include "OgreRAD_Imports.bmx"

'Tutorial 4 - Pile of plastic monkeys (Per Pixel Lighting)
'(DirectX version only, sorry!)

If Engine_Init(True,False)=False Then
 Notify "Failed to initialize engine!",True
 End
EndIf

'ShaderCheck
If Card_HasCapability(RSC_FRAGMENT_PROGRAM) Then
	If GPU_IsSyntaxSupported("ps_2_0")=False Then
 		Notify("Pixelshader 2.0 doesn't seem to be supported!",True)
 		Engine_Drop()
 		End
	EndIf
Else
	Notify("Your card doesn't seem to support shaders!",True)
 	Engine_Drop()
 	End
EndIf

Local Camera:Byte Ptr =GOTemplate_CreateCamera("Camera")
GameObject_SetPosition(GOFactory_GetObject("Camera"),0,5,15)
GameObject_Pitch(GOFactory_GetObject("Camera"),-5,LOCAL_SPACE)

GOTemplate_CreatePointLight("Light")
GameObject_SetPosition(GOFactory_GetObject("Light"),10,10,10)

Local Room:Byte Ptr = GOTemplate_CreateMesh("Room","room.mesh")
GameObject_SetYawPitchRoll(Room,-45,0,0)
GameObject_SetInt(Room,"HullType",7) 'Static mesh collider(built from mesh)
GameObject_AddRigidBodyComponent(Room)

For Local i=1 To 10
	Local Monkey:Byte Ptr = GOTemplate_CreateMesh("Monkey"+i,"Monkey.mesh")
	GameObject_MeshSetMaterial(Monkey,"PPL_Shader",0)
	GameObject_SetScale(Monkey,0.7,0.7,0.7)
	GameObject_SetPosition(Monkey,0,i+1,0)
	GameObject_SetInt(Monkey,"HullType",6) ' Convex Hull(built from mesh)
	GameObject_SetFloat(Monkey,"Mass",15)
	GameObject_AddRigidBodyComponent(Monkey)
Next
    
Scene_AddCompositor("Bloom")
Scene_SetCompositorEnabled("Bloom",True)  

' Try different shadows
'Scene_SetShadowTechnique(SHADOWTYPE_STENCIL_ADDITIVE)  
Scene_SetShadowTechnique(SHADOWTYPE_STENCIL_MODULATIVE)
'Scene_SetShadowTechnique(SHADOWTYPE_TEXTURE_MODULATIVE)
'Scene_SetShadowTechnique(SHADOWTYPE_TEXTURE_ADDITIVE)       

Global Camera_Speed:Float=0.1   
Global Camera_X:Float=0
Global Camera_Z:Float=15  
Global Camera_Pitch:Float=0       
Global Camera_Yaw:Float=10

While (not Input_KeyDown(1)) and Engine_IsActive()   
	Engine_Update()   

	If Input_KeyDown(200)
		Camera_Z=Camera_Z-Camera_Speed     
	End If     
	
	If Input_KeyDown(208)
		Camera_Z=Camera_Z+Camera_Speed
	End If     
	
	If Input_KeyDown(203)
		Camera_X=Camera_X-Camera_Speed
	End If  
	
	If Input_KeyDown(205)
		Camera_X=Camera_X+Camera_Speed
	End If          
	
	Camera_Pitch=Camera_Pitch+Input_MouseSpeedX()
	Camera_Yaw=Camera_Yaw+Input_MouseSpeedY()	
	
	GameObject_SetPosition(GOFactory_GetObject("Camera"),Camera_X,0,Camera_Z) 
	GameObject_SetYawPitchRoll(GOFactory_GetObject("Camera"),Camera_Yaw,Camera_Pitch,0) 	
	
	MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
	
	Engine_Render()	 
	
	DrawText "Scrolling Text Demo",0,0

Wend

Engine_Drop()