Leadwerks Engine 2.41 for Monkey V32

Import LE2
Function Main()
	Initialize
	Graphics
	CreateFramework
	Local cube=CreateCube
	Local camera=GetLayerCamera(GetFrameworkLayer(0))
	MoveEntity camera,0,0,-2
	Local light=CreateSpotLight
	MoveEntity light,0,0,-2
	While Not KeyHit
		UpdateFramework
		TurnEntity cube,AppSpeed,AppSpeed,AppSpeed
		RenderFramework
		Flip
	End
	Terminate
End

Import LE2
Function Main()
        Initialize
        Graphics 800,600
        CreateFramework

        Local cube=CreateCube
        EntityColor cube,.5,1,.5,1
        MoveEntity cube,.8,0,0
        MoveEntity CreateSphere(32),-1.2,0,0            ' combined parameters

        Local camera=GetLayerCamera(GetFrameworkLayer(0))
        MoveEntity camera,0,0,-2
        
        Local light=CreateSpotLight
        MoveEntity light,0,0,-2
        Local yellow:Vec4=New Vec4(1,1,0,1)    ' yellow
        EntityColor light,yellow               ' Vec4 works also as parameter

        Local ground=CreateCube
        ScaleMesh ground,10000,1,10000
        MoveEntity ground,0,-1,0

        AmbientLight .1,.1,.3
        SetShadowmapSize light,4096     ' might not work on worse than GeForce 8800
        SetShadowQuality 1
        SetShadowSoftness light,.5
        SetFarDOF 1
        SetNearDOF 1
        SetBloom 1
        SetWater 1
        SetWaterHeight -.2
        SetWaterSoftness 1.6
        SetReflectionElements 1
        SetWaterColor .5,.5,1,.5,1,1,1,.5
        While Not KeyHit
                UpdateFramework
                TurnEntity cube,AppSpeed        ' default parameters work
                RenderFramework
                Flip 1
        End
        Terminate
End

Import Leadwerks

Class Game Extends App
	Field fw
	Field cube
	
	Method OnCreate()
		SetAppTitle "Leadwerks Monkey"
		Graphics 800,600
		fw=CreateFramework
		DebugPhysics 0
		SetupScene
	End
	
	Method SetupScene()
		SetupCube
		SetupBall
		SetupLight
		SetupGround
		Local camera=GetLayerCamera(GetFrameworkLayer(0))
		MoveEntity camera,0,0,-2
		AmbientLight .02,.02,.03
	
		Local blue:Vec4=New Vec4(0,0,0.1,1)
		SetBackgroundColor blue
		SetShadowQuality 1
		SetFarDOF 1
		SetNearDOF 1
		SetBloom 1
	
		Collisions
	End
	
	Method SetupCube()
		cube=CreateBodyBox
		Local cubemesh=CreateCube(cube)
		EntityColor cubemesh,0.5,1,0.5,1
		MoveEntity cube,0.8,10,1
		SetBodyMass cube,1
		EntityType cube,1
	End
	
	Method SetupBall()
		Local ball=CreateBodySphere
		Local ballmesh=CreateSphere(32,ball)
		MoveEntity ball,-1.2,10,0
		SetBodyMass ball,1
		EntityType ball,1
		SetBodyElasticity ball,2
	End
	
	Method SetupLight()
		Local light=CreateSpotLight
		MoveEntity light,0,1,-2
		TurnEntity light,10,0,0
		Local yellow:Vec4=New Vec4(1,1,.5,1)
		EntityColor light,yellow			' Vec4 works also as parameter
		SetShadowmapSize light,4096			' might not work on worse than GeForce 8800
		SetShadowSoftness light,.5
	End
	
	Method SetupGround()
		Local ground=CreateBodyBox(10000,1,10000)
		Local groundmesh=CreateCube(ground)
		ScaleMesh groundmesh,10000,1,10000
		MoveEntity ground,0,-1,0
		EntityType ground,1
	End

	Method OnRender()	
		If KeyHit Then Quit
		UpdateFramework
		AddBodyTorque cube,0,35,35,0
		RenderFramework
		Flip 0
	End
	
End

Function Main()
	Local game:Game=New Game
	game.Delete
End

	Local cube:Cube=New Cube
	cube.Move 0.8,10,1
	cube.SetMass 1
	cube.SetType 1

	Local cube=CreateCube
	MoveEntity cube,0.8,10,1
	SetBodyMass cube,1
	EntityType cube,1

Import Leadwerks

Class Game Extends App
	Field fw:Framework
	Field cube:BodyBox
	
	Method OnCreate()
		SetAppTitle "Leadwerks Monkey"
		Graphics 800,600
		fw=New Framework
		DebugPhysics 0
		SetupScene
	End
	
	Method SetupScene()
		SetupCube
		SetupBall
		SetupLight
		SetupGround

		Local camera:Camera=New Camera(0,fw.main.camera)
		camera.Move 0,0,-2
		AmbientLight .02,.02,.03
	
		Local blue:Vec4=New Vec4(0,0,0.1,1)
		SetBackgroundColor blue
		SetShadowQuality 1
		SetFarDOF 1
		SetNearDOF 1
		SetBloom 1
	
		Collisions
		
		Local cube2:Cube=New Cube
		cube2.Move 0,0,3
		'cube2=0				' not sure what this does, but it does something
		cube2.Delete
	End
	
	Method SetupCube()
		cube=New BodyBox
		Local cubemesh:Cube=New Cube(cube)		' parent the mesh to the physics body
		cubemesh.SetColor .2,.6,.2,1
		cube.Move .8,10,1
		cube.SetMass 1
		cube.SetType 1
	End
	
	Method SetupBall()
		Local ball:BodySphere=New BodySphere
		Local ballmesh:Sphere=New Sphere(32,ball)	' parent the mesh to the physics body
		ballmesh.SetColor .6,.2,.2,1
		ball.Move -1.2,10,0
		ball.SetMass 1
		ball.SetType 1
		ball.SetElasticity 2
	End
	
	Method SetupLight()
		Local light:SpotLight=New SpotLight
		light.Move 0,1,-2
		light.Turn 10,0,0
		Local yellow:Vec4=New Vec4(1,1,.5,1)
		light.SetColor yellow				' Vec4 works also as parameter
		light.SetShadowmapSize 4096			' might not work on worse than GeForce 8800
		light.SetShadowSoftness .5
	End
	
	Method SetupGround()
		Local ground:BodyBox=New BodyBox(10000,1,10000)
		Local groundmesh:Cube=New Cube(ground)
		groundmesh.Scale 10000,1,10000
		ground.Move 0,-1,0
		ground.SetType 1
	End

	Method OnRender()	
		If KeyHit Then Quit
		fw.Update
		cube.AddTorque 0,35,35,0
		fw.Render
		Flip 0
	End
	
End

Function Main()
	Local game:Game=New Game
	game.Delete
End

Extern
    ' the C++ or javascript function mytestfunc1 is renamed as MyFunc1 in Monkey
    Function MyFunc1:Void()="mytestfunc1"