ÇáÓáÇã Úáíßã æÑÍãÉ Çááå æÈÑßÇÊå

ÑÛã Ãä ÇáãæÖæÚ íäÏÑÌ ÏÇÆãÇ ÊÍÊ ÅØÇÑ ÇáãÍÑß irrlicht ÅáÇ Ãääí ÓÃÍÇæá ÞÏÑ ÇáÅãßÇä ÊÛííÑ ÃÓáæÈ ÇáØÑÍ æÇÓÊÏÑÇß ÈÚÖ ÇáÃÔíÇÁ ÇáÊí ÞÏ íßæä ÇáãæÖæÚ ÇáÃæá íÍÊÇÌåÇ

áÊÍãíá ÇáãßÊÈÉ

 irr.zip (1.14ãíÌÇ ÈÇíÊ )
ÚÏÏ ãÑÇÊ ÇáÊÍãíá : 280

ãÇ ÓäÑÇå åäÇ Óíßæä ÈÏÇíÉ áÊÓåíá ÇáÊÚÇãá ãÚ ãßÊÈÉ ÊÚÊãÏ Ýí ÇáÃÓÇÓ Åáì ÇáãÍÑß irrlichtCP Ýí ÇÓÊÚãÇáåÇ ááãÍÑß æÇÐÇ ÊßáãäÇ Úä ÇáÝÑÞ ÝÓíßæä ÇáÝÑÞ Èíä åÐÇ ÇáãÍÑß æÇáãÍÑß ÇáÑÓãí ÇáÐí ÊÍÏËäÇ Úäå ÓÇÈÞÇ
áßääÇ áä äÊÍÏË ßËíÑÇ Úä ÇáÝÑæÞ åÐå ÇáãÑÉ áÇä ÇáãÊÊÈÚ ÓíáÇÍÙ ÝÑæÞ ÈÓíØÉ
irrlichtCP ÌÇÁÊ áÊÏÚã ÇáãÍÑß Úáì ÌãíÚ ÇáãäÕÇÊ ÈÇÓÊÚãÇá áÛÇÊ ÇáÏæÊ äÊ ÈíäãÇ ÇáãßÊÈÉ ÇáÊí ÓäÑÇåÇ æÑÛã ÇäåÇ ÇäØáÞÊ ãä ßæÏ ÇáãÍÑß ÅáÇ ÃäåÇ áÇ ÊåÏÝ ÅáÇ ÇáÚãá Úáì ÌãíÚ ÇáãäÕÇÊ æÇäãÇ æÖÚ ÇØÇÑ Úãá Óåá áãÈÑãÌí ÇáÃáÚÇÈ Úáì ÇáÏæÊ äÊ ÈÇÏÑÇÌ ãßÊÈÉ ÝíÒíÇÁ ãÍÊÑãÉ (newton) + ãßÊÈÉ ÕæÊ ÞæíÉ (openal)

áÐáß ÓäÑì Çáíæã ÇáÊäÙíã ÇáÐí ÌÇÁÊ Èå åÐå ÇáãßÊÈÉ æÇáÊÓåíá ÃíÖÇ

ÚäÏ ÅÏÑÇÌäÇ áãÑÌÚ ÇáãßÊÈÉ ÓäÑì ÃäåÇ ÊÍãá 5 ÝÖÇÁÇÊ ááÃÓãÇÁ
ÝÖÇÆíä ãæÌæÏíä ÃÕáÇ Ýí ÇáãÍÑß irrlichtCP æ æÝÖÇÆí ÇáÕæÊ æÇáÝíÒíÇÁ æÝÖÇÁ ááÅØÇÑ ÇáãÔÊÑß Èíäåã
íæÝÑ ÝÖÇÁ ÇáÅØÇÑ ÇáãÔÊÑß Framework (áíÓ åæ ÇáÝÑíãæÑß ááÏæÊ äÊ ) ÝÆÇÊ ãÔÊÑßÉ ÎÕæÕÇ ÝÆÇÊ ÇáÃÍÏÇËíÇÊ ÇáÊí ÊÛäíäÇ Úä ÇáÊÍæíá áÊæÍíÏ ãÚÇííÑ ÇáÞíÇÓ Èíä ÝÖÇÁÇÊ ÇáÃÓãÇÁ ÇáÃÎÑì æÝÆíä ÎÇÕíä æÝÑåãÇ ÕÇÍÈ ÇáãßÊÈÉ áÊÓåíá ÇáßæÏ æááÇÓÊÝÇÏÉ ãä ããíÒÇÊ ÇáæÑÇËÉ åãÇ game æ entity

ÇáÝÆÉ Game : æÊÍãá ÌãíÚ ãÊÛíÑÇÊ ÇááÚÈÉ æåí ÞÇÈáÉ ááæÑÇËÉ
ÇáÝÆÉ Entity : ÊÞæã ÈÊÍãíá ßá ßíÇäÇÊ ÏÇÎá ÇááÚÈÉ æåí ÚÈÇÑÉ Úä collection

ØíÈ áÞÏ ÃØáäÇ ÇáßáÇã åÐå ÇáãÑÉ áäÑì ßíÝ íãßääÇ ÇáÈÏà ÈÇáÊØÈíÞ
ÈÚÏ ÇÏÇÑÇÌ ÇáãÑÌÚ ÇáÎÇÕ ÈÇáãßÊÈÉ ááãÔÑæÚ ÇáãäÔÆ æáíßä console
äÖíÝ ááãÔÑæÚ ßáÇÓ æäÓãíåÇ ãËáÇ myGame
áßí äÑì ÝÇÆÏÉ æÌæÏ ÇáÝÆÉ Game äÞæã ÈÚãá ÊæÑíË áåÇ áÝÆÊäÇ myGame

Public Class myGame
        Inherits Framework.Game

End Class

Public Sub New()
                Run()
 End Sub

Dim test As myGame = New myGame

Imports Framework
Imports Framework.Irrlicht
Public Class mBox
        Inherits Framework.Entity
        Private m_node As SceneNode = Nothing
        Public Sub New(ByVal mgame As Game)
                MyBase.New(mgame)
                Dim texture As Texture = Game.VideoDriver.GetTexture("box.png")

                m_node = mgame.IrrlichtDevice.SceneManager.AddCubeSceneNode(19, Nothing, -1)
                m_node.SetMaterialFlag(MaterialFlag.Lighting, False)
                m_node.SetMaterialTexture(0, texture)
                m_node.Position = New Vector3D(10, -10, 70)
        End Sub
End Class

SceneManager.AddCameraSceneNodeFPS(Nothing, 300, 300, False)
 Entities.Add(New mBox(Me))

Public Sub New(ByVal dtype As DriverType)
                MyBase.New(dtype, New Dimension2D(640, 480), 32, False, False, False, False)

                SceneManager.AddCameraSceneNodeFPS(Nothing, 300, 300, False)
                Entities.Add(New mBox(Me))
                Run()
        End Sub

Dim test As myGame = New myGame(Framework.Irrlicht.DriverType.Direct3D9)