Code de test : Essayer d'afficher le skybox testIf 'Result' is 0, the SkyBox could not be created.
Code : Tout sélectionner
Enumeration
#SkyBox
EndEnumeration
Declare OnSkyboxChange()
InitEngine3D()
InitKeyboard()
InitSprite()
window = OpenWindow(#PB_Any,0,0,1000,800,"Skybox Test")
Add3DArchive(#PB_Compiler_Home + "Examples\3D\Data\Packs\desert.zip", #PB_3DArchive_Zip)
Add3DArchive(#PB_Compiler_Home + "Examples\3D\Data\Packs\skybox.zip", #PB_3DArchive_Zip)
OpenWindowedScreen(WindowID(window),0,0,800,800)
ComboBoxGadget(#SkyBox, 805, 30, 180, 22)
AddGadgetItem(#SkyBox, -1, "stevecube")
AddGadgetItem(#SkyBox, -1, "desert07")
AddGadgetItem(#SkyBox, -1, "test")
BindGadgetEvent(#SkyBox, @OnSkyboxChange())
Camera = CreateCamera(#PB_Any,0,0,100,100)
CameraBackColor(Camera, RGB(145, 182, 201))
Repeat
Repeat
Event = WindowEvent()
Select Event
Case #PB_Event_CloseWindow
End
EndSelect
Until Event = 0
MoveCamera(Camera, 0, 20, 100, #PB_Absolute)
CameraLookAt(Camera, 0, 10, 0)
ExamineKeyboard()
If KeyboardPushed (#PB_Key_Escape)
Break
EndIf
RenderWorld()
FlipBuffers()
ForEver
Procedure OnSkyboxChange()
Protected SkyBox.s = GetGadgetItemText(#SkyBox, GetGadgetState(#SkyBox))
Debug SkyBox(Skybox + ".jpg")
EndProcedure