hier mein Listing:
Code: Alles auswählen
InitEngine3D()
InitSprite()
OpenWindow(0,0,0,800,600,"LadeOgre3D",#PB_Window_SystemMenu)
OpenWindowedScreen(WindowID(0),100,100,600,400,0,0,0)
Mesh$ = OpenFileRequester("Öffne bitte ein Mesh-File","","Meshdatei (*.mesh)|*.mesh",0)
Part$ =GetPathPart(Mesh$)
Add3DArchive(Part$, #PB_3DArchive_FileSystem)
If Mesh$ <>""
;Parse3DScripts()
Meshspeicher = LoadMesh(0,GetFilePart(Mesh$))
Debug Meshspeicher
;Debug LoadTexture(0, "clouds.jpg")
;CreateMaterial(0,TextureID(0) )
CreateEntity(0, Meshspeicher, #PB_Material_None,0,-50,100)
EntityMaterial(0, MaterialID(0))
CreateLight(0, RGB(0,0,255), 100.0, 0, 0)
CreateCamera(0, 0, 100, 100, 100)
CameraLocate(0,100,0,300)
EndIf
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_CloseWindow
quit = 1
EndSelect
FlipBuffers()
RenderWorld()
Until quit = 1
End