PureBasic

Code : Tout sélectionner

#SourisPointe=1 ; Pointe de la souris
#SourisCorps=2  ; Reste de la souris
#bouton_X=3
#jaune=$99FFFF
#Repertoire = "Ressources\"
#FenetrePrincipale=0
#LargeurEcranJeu=1366
#HauteurEcranJeu=768

If InitSprite()=0 : MessageRequester("Erreur", "InitSprite() non initialisé !"):End:EndIf
If InitMouse()=0 : MessageRequester("Erreur", "InitMouse() non initialisé !"):End:EndIf
If InitKeyboard()=0 : MessageRequester("Erreur", "InitKeyboard() non initialisé !"):End:EndIf
If InitSound() = 0 : MessageRequester("Erreur", "InitSound() non initialisé !"):End:EndIf
If InitMovie() = 0 : MessageRequester("Erreur", "InitMovie() non initialisé !"):End:EndIf

ExamineDesktops()
LargeurBureau=DesktopWidth(0)
HauteurBureau=DesktopHeight(0)

; Vérifier si l'ordi dispose de la résolution minimale pour le jeu
If LargeurBureau<#LargeurEcranJeu Or HauteurBureau<#HauteurEcranJeu
  MessageRequester("Erreur", "L'ordinateur doit avoir une résolution minimale de "+Str(#LargeurEcranJeu)+ " par "+Str(#HauteurEcranJeu)+ " pixels !")
  End
EndIf  

; Création de la fenêtre principale
If OpenWindow(#FenetrePrincipale,0,0,#LargeurEcranJeu,#HauteurEcranJeu,"test", #PB_Window_MinimizeGadget)=0
  MessageRequester("Erreur", "Impossible d'ouvrir la fenêtre principale")
  End
EndIf
; Création de la fenêtre du jeu
If OpenWindowedScreen(WindowID(#FenetrePrincipale),0,0,#LargeurEcranJeu,#HauteurEcranJeu,1,0,0)=0
  MessageRequester("Erreur", "Impossible d'ouvrir la fenêtre de jeu")
  End
EndIf
ResizeWindow(#FenetrePrincipale,0,0,LargeurBureau,HauteurBureau)

LoadSprite(#SourisPointe, #Repertoire+"SourisPointe.bmp", #PB_Sprite_PixelCollision)
LoadSprite(#SourisCorps, #Repertoire+"SourisCorps.bmp", #PB_Sprite_PixelCollision)
LoadSprite(#bouton_X, #Repertoire+"bouton_X.bmp", #PB_Sprite_PixelCollision)

Repeat
  Repeat
    Event = WindowEvent()
    Select Event  
      Case #PB_Event_CloseWindow
        End 
    EndSelect
  Until Event = 0
  ClearScreen(#jaune)
  DisplayTransparentSprite(#bouton_X, 600,300)    
  DisplayTransparentSprite(#SourisPointe, MouseX(),MouseY()) 
  DisplayTransparentSprite(#SourisCorps, MouseX(),MouseY()+6)
  If SpritePixelCollision(#SourisCorps,MouseX(),MouseY()+6,#bouton_X,600,300) And MouseButton(#PB_MouseButton_Left)
    ExamineMouse()
    While MouseButton(#PB_MouseButton_Left)
      ExamineMouse()                        
      Delay(1)
    Wend
    End
  EndIf
  FlipBuffers()
Until Event = #PB_Event_CloseWindow

Code : Tout sélectionner

Enumeration
  #Window_0
EndEnumeration

Enumeration
  #Curseur
  #Croix
EndEnumeration

Declare Initialisations()

  If OpenWindow(#Window_0, 0, 0, 400, 400, "", #PB_Window_TitleBar | #PB_Window_ScreenCentered)
   Initialisations() ; initialise les differents environments (voir en bas du code)
    If OpenWindowedScreen(WindowID(#Window_0), 0, 0, 400, 400)
      
      ; dessine le curseur de la souris
      If CreateSprite(#Curseur, 10, 10, #PB_Sprite_PixelCollision) And StartDrawing(SpriteOutput(#Curseur))
        Box(0, 0, 10, 10, RGB(255, 0, 0))
       StopDrawing() 
      EndIf 
      
      ; dessine la croix
      If CreateSprite(#Croix, 20, 20, #PB_Sprite_PixelCollision) And StartDrawing(SpriteOutput(#Croix))
        Line(0, 0, 20, 20, RGB(0, 255, 0))
        Line(20, 0, -20, 20, RGB(0, 255, 0))
       StopDrawing() 
      EndIf
     
    EndIf         
  EndIf 
  
  
  Repeat
   Repeat ; Gestion de la fenêtre
     Event  = WindowEvent() 
   Until Event = 0

   ExamineKeyboard()
   ExamineMouse()

   DisplayTransparentSprite(#Croix, 200, 200) ; affiche la croix
   
   DisplayTransparentSprite(#Curseur, MouseX(), MouseY()) ; affiche le curseur
   
   If MouseButton(#PB_MouseButton_Left) <> 0 ; test si on fait un clic gauche
    If SpritePixelCollision(#Croix, 200, 200, #Curseur, MouseX(), MouseY()) ; test si nous sommes sur la croix
     End ; si oui, on kill le programme
    EndIf 
   EndIf 
   
   FlipBuffers()
   ClearScreen(RGB(0, 0, 0))
  Until KeyboardPushed(#PB_Key_Escape) ;- Echap pour quitter
 End


Procedure Initialisations()
; Initialisation environnement sprite
If InitSprite() = 0
 MessageRequester("Erreur", "Impossible d'ouvrir l'écran & l'environnement nécessaire aux sprites !", 0)
  End
EndIf

; Initialisation environnement clavier
If InitKeyboard() = 0
 MessageRequester("Erreur", "Impossible d'initialisé le clavier !", 0)
  End
EndIf
  
; Initialisation environnement souris
If InitMouse() = 0
 MessageRequester("Erreur", "Impossible d'initialisé la souris !", 0)
  End
EndIf
EndProcedure