J'ai du me piner dans la hierarchie de mes évènements car j'ai l'impression que mes timers ne sont pas pris en compte.
J'ai du mal à gérer la structuration du code mélangeant event de fenetres, timer et graphisme 2d
Voilà grossièrement l'agencement de ma boucle.
Code : Tout sélectionner
OpenWindow()
OpenWindowedScreen()
Repeat
Event = WaitWindowEvent (20)
ET = EventTimer()
;/////////// PARTIE EVENEMENT
Select ET
Case #PB_Event_Timer
Select EventTimer()
Case #TfadeIn
COMPTE +1
If compte >20
CHANGE_TIMER = 1
Else
Debug COMPTE
EndIf
Case #TfadeOut
COMPTE -1
If compte < 0
CHANGE_TIMER = 0
Else
Debug COMPTE
EndIf
EndSelect
EndSelect
Select Event
Case #PB_Event_CloseWindow
Select EventWindow()
Case #LDVM
CloseWindow(#LDVM)
Break
EndSelect
EndSelect
;/////////// PARTIE GRAPHIQUE
ExamineKeyboard()
ExamineMouse()
MX = MouseX()
MY = MouseY()
FlipBuffers()
ClearScreen(RGB(0,0,0))
; AFFICHAGE DES SPRITES
Until XXXXXXXXX