
Mon code source actuel est le suivant :
Code : Tout sélectionner
version.s="Alpha 1"
ScreenWidth=800
ScreenHeight=600
If InitKeyboard()=0
OpenConsole()
PrintN("Erreur 1K : Impossible d'initialiser le clavier.")
Input()
End
EndIf
If InitMouse()=0
OpenConsole()
PrintN("Erreur 1M : Impossible d'initialiser la souris.")
Input()
End
EndIf
If InitSound()=0
OpenConsole()
PrintN("Erreur 1S : Impossible d'initialiser les musiques et sons.")
Input()
End
EndIf
If InitEngine3D()=0
OpenConsole()
PrintN("Erreur 1E : Impossible d'initialiser le système 3D.")
Input()
End
EndIf
If InitSprite()=0
OpenConsole()
PrintN("Erreur 1G : Impossible d'initialiser le système graphique.")
Input()
End
EndIf
If OpenWindow(0, 0, 0, ScreenWidth, ScreenHeight+MenuHeight(), "Les mondes de kraessor - "+version, #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
resultat = OpenWindowedScreen(WindowID(0), 0, 0, ScreenWidth, ScreenHeight, 0, 0, 0)
Quit=0
Add3DArchive("data.zip",#PB_3DArchive_Zip)
LoadTexture(0, "titre_kraessor.png")
ImageGadget3D(0,10,10,900,300,TextureID(0))
Repeat
Repeat
Event = WindowEvent()
Select Event
Case #PB_Event_CloseWindow
End
EndSelect
Until Event=0
Until Quit=1
EndIf
End