PureBasic 5.00 Beta 2 Exemples
Publié : ven. 31/août/2012 11:57
SetEntityAttribute(Sphere, #PB_Entity_MaxVelocity, 80) ; Pour limiter la vitesse de la boule
EntityLinearFactor(Sphere, 0.7, 0, 0.7) ; Pour que la boule reste sur le plateau et ne soit pas expédiée dans les étoiles (l'axe Y est à zéro)
(faudra que je trouve un autre exemple plus parlant que celui là !)
Code : Tout sélectionner
;
; ------------------------------------------------------------
;
; PureBasic - Flipper
;
; (c) 2011 - Fantaisie Software
;
; ------------------------------------------------------------
;
IncludeFile "Screen3DRequester.pb"
#PB_Entity_MaxVelocity = 10
#CameraSpeed = 1
#Nb = 30
Define.f KeyX, KeyY, MouseX, MouseY, Angle = 145
Dim Planche(#Nb)
If InitEngine3D()
Add3DArchive("Data/Textures", #PB_3DArchive_FileSystem)
Add3DArchive("Data/Scripts",#PB_3DArchive_FileSystem)
Add3DArchive("Data/Packs/desert.zip", #PB_3DArchive_Zip)
Parse3DScripts()
InitSprite()
InitKeyboard()
InitMouse()
If Screen3DRequester()
WorldShadows(#PB_Shadow_Modulative)
;-Materials
CreateMaterial(0, LoadTexture(0, "Wood.jpg"))
GetScriptMaterial(1, "SphereMap/SphereMappedRustySteel")
GetScriptMaterial(2, "Color/Blue")
GetScriptMaterial(3, "Scene/GroundBlend")
;-Ground
CreatePlane(0, 100, 100, 10, 10, 15, 15)
CreateEntity(0,MeshID(0),MaterialID(3), 0, 0, 0)
EntityRenderMode(0, 0)
EntityPhysicBody(0, #PB_Entity_BoxBody, 0, 0, 1)
;-Mesh
CreateCube(1, 1.0)
CreateSphere(2, 2, 30, 30)
CreateCylinder(3, 2, 10)
;-Entity
Sphere = CreateEntity(#PB_Any, MeshID(2), MaterialID(1), 21, 2.1, 0)
EntityPhysicBody(Sphere, #PB_Entity_SphereBody, 0.5, 1, 1)
EntityLinearFactor(Sphere, 0.7, 0, 0.7)
; Cadre
BiaisD = CreateEntity(#PB_Any, MeshID(1), MaterialID(2), 20, 2, -40)
ScaleEntity(BiaisD, 10, 4, 1)
RotateEntity(BiaisD, 0, -45, 0)
EntityPhysicBody(BiaisD, #PB_Entity_BoxBody, 0, 1, 1)
Haut = CreateEntity(#PB_Any, MeshID(1), MaterialID(2), 0, 2, -45)
ScaleEntity(Haut, 50, 4, 1)
EntityPhysicBody(Haut, #PB_Entity_BoxBody, 0, 1, 1)
Bas = CreateEntity(#PB_Any, MeshID(1), MaterialID(2), 0, 2, 45)
ScaleEntity(Bas, 50, 4, 1)
EntityPhysicBody(Bas, #PB_Entity_BoxBody, 0, 1.5, 1)
Gauche = CreateEntity(#PB_Any, MeshID(1), MaterialID(2), -25, 2, 0)
ScaleEntity(Gauche, 1, 4, 90)
EntityPhysicBody(Gauche, #PB_Entity_BoxBody, 0, 1, 1)
Droit = CreateEntity(#PB_Any, MeshID(1), MaterialID(2), 25, 2, 0)
ScaleEntity(Droit, 1, 5, 90)
EntityPhysicBody(Droit, #PB_Entity_BoxBody, 0, 1, 1)
Couloir = CreateEntity(#PB_Any, MeshID(1), MaterialID(2), 17, 2, 10)
ScaleEntity(Couloir, 1, 4, 70)
EntityPhysicBody(Couloir, #PB_Entity_BoxBody, 0, 0.1, 1)
; Bumper
Cylinder = CreateEntity(#PB_Any, MeshID(3), MaterialID(0), 0, 0, -16)
EntityPhysicBody(Cylinder, #PB_Entity_CylinderBody, 0, 1.5, 1)
Cylinder = CreateEntity(#PB_Any, MeshID(3), MaterialID(0), 0, 0, 0)
EntityPhysicBody(Cylinder, #PB_Entity_CylinderBody, 0, 1.5, 1)
Cylinder = CreateEntity(#PB_Any, MeshID(3), MaterialID(0), -8, 0, -8)
EntityPhysicBody(Cylinder, #PB_Entity_CylinderBody, 0, 1.5, 1)
Cylinder = CreateEntity(#PB_Any, MeshID(3), MaterialID(0), 8, 0, -8)
EntityPhysicBody(Cylinder, #PB_Entity_CylinderBody, 0, 1.5, 1)
Cylinder = CreateEntity(#PB_Any, MeshID(3), MaterialID(0), 0, 0, 32)
EntityPhysicBody(Cylinder, #PB_Entity_CylinderBody, 0, 1.5, 1)
;-Camera
CreateCamera(0, 0, 0, 100, 100)
CameraLocate(0, 0, 35, 70)
CameraLookAt(0, 0, 0, 10)
;-Skybox
SkyBox("desert07.jpg")
;-Light
CreateLight(0, RGB(255, 255, 255), 100, 800, -500)
AmbientColor(RGB(20, 20, 20))
Repeat
Screen3DEvents()
If ExamineMouse()
MouseX = -MouseDeltaX() * #CameraSpeed * 0.05
MouseY = -MouseDeltaY() * #CameraSpeed * 0.05
EndIf
If ExamineKeyboard()
If KeyboardPushed(#PB_Key_Space)
ApplyEntityImpulse(Sphere, 0, 0, -30)
EndIf
If KeyboardPushed(#PB_Key_LeftShift)
ApplyEntityImpulse(Sphere, 3, 0, 0)
EndIf
If KeyboardPushed(#PB_Key_RightShift)
ApplyEntityImpulse(Sphere, -3, 0, 0)
EndIf
If KeyboardPushed(#PB_Key_Left)
KeyX = -#CameraSpeed
ElseIf KeyboardPushed(#PB_Key_Right)
KeyX = #CameraSpeed
Else
KeyX = 0
EndIf
If KeyboardPushed(#PB_Key_Up)
KeyY = -#CameraSpeed
ElseIf KeyboardPushed(#PB_Key_Down)
KeyY = #CameraSpeed
Else
KeyY = 0
EndIf
EndIf
ApplyEntityImpulse(Sphere, 0, 0, 0.3)
SetEntityAttribute(Sphere, #PB_Entity_MaxVelocity, 80)
MoveCamera (0, KeyX, 0, KeyY)
RotateCamera(0, MouseY, MouseX, 0, #PB_Relative)
RenderWorld()
Screen3DStats()
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape) Or Quit = 1
EndIf
Else
MessageRequester("Error", "The 3D Engine can't be initialized",0)
EndIf
End
.