Et ça ne donne un message d'erreur que si on est en windowedscreen et sans débogueur, dans tous les autres cas le prog se ferme sans même s'excuser, le malpoli.
Un exemple (mais ça fait pareil avec n'importequel prog utilisant cette commande):
Code : Tout sélectionner
If InitSprite()=0 Or OpenScreen(800,600,32,"Sprite3D")=0
MessageRequester("","Impossible d'opener un scrîne!")
End
EndIf
;
; If InitSprite()=0 Or OpenWindow(0,0,0,600,400,#pb_window_screencentered|#pb_window_systemmenu,"Sprite3D")=0 Or OpenWindowedScreen(WindowID(0),0,0,600,400,0,0,0)=0
; MessageRequester("","Impossible d'opener un scrîne!")
; End
; EndIf
If InitSprite3D()=0
CloseScreen()
MessageRequester("","échoué à initsprite3d")
End
EndIf
#bob=1
bob=CreateSprite(#bob,32,32,#pb_sprite_texture)
If bob
If StartDrawing(SpriteOutput(#bob))
Circle(16,16,16,RGB(200,0,0))
StopDrawing()
Else
CloseScreen()
MessageRequester("","peut pas dessiner")
End
EndIf
bob3d=CreateSprite3D(#bob,#bob)
If bob3d
chrono=GetTickCount_()
Repeat
Start3D()
TransformSprite3D(#bob,0,0,799,0,799,599,0,599)
DisplaySprite3D(#bob,00,00)
Stop3D()
FlipBuffers()
Until GetTickCount_()-chrono>9000
Else
CloseScreen()
MessageRequester("","échouer à créer sprite3d")
EndIf
Else
CloseScreen()
MessageRequester("","échoué à créer la texture")
EndIf
