PureBasic

Code : Tout sélectionner

;
; ------------------------------------------------------------
;
;   PureBasic - Sprite example file
;
;    (c) 2013 - Fantaisie Software
;
; ------------------------------------------------------------
;

If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0
  MessageRequester("Error", "Sprite system can't be initialized", 0)
  End
EndIf

;
; Now, open a 800*600 - 32 bits screen
;
If OpenScreen(800, 600, 32, "Sprite")

  ; Load our 16 bit sprite (which is a 24 bit picture in fact, as BMP doesn't support 16 bit format)
  ; 
  ; Votre chemin vers data
  LoadSprite(0, "I:/PROG/Purebasic_5.21_LTS/Examples/Sources/Data/PureBasic.bmp", 0)
  
  CopySprite(0,1,0)
  ; CURSEUR
  CopySprite(0,2,0)
  ClipSprite(2, 0, 0, 50, 50)
  
  
  Repeat
    
    ; Inverse the buffers (the back become the front (visible)... And we can do the rendering on the back)
    ExamineMouse()
    FlipBuffers()
    
    ClearScreen(RGB(0,0,0))
    
    ; Draw our sprite

    ClipSprite(0, 0, 0, x, x/8)
     
    DisplaySprite(0, x, 100)
    DisplaySprite(1, x, x)
    DisplaySprite(0, 600-x, x)
    
    ; CURSEUR
    DisplaySprite(2,MouseX(), MouseY())
    
    x+1
    
    ExamineKeyboard()
  Until KeyboardPushed(#PB_Key_Escape)
  
Else
  MessageRequester("Error", "Can't open a 800*600 - 32 bit screen !", 0)
EndIf

End  

Code : Tout sélectionner

 ;Gestion souris roccat, razer ...
      Define testscreenactive.i=#True
      CreateThread(@mousethread(),#True)


Procedure mousethread(flag.i) ; souris roccat, razer .....

   Static quit.i
   If flag
      Repeat
         If ExamineMouse()
            mousex=MouseX()
            mousey=MouseY()
         EndIf
         Delay(1)
      Until quit
      quit=#False
   Else
      If Not flag
         quit=#True
         While quit
            Delay(1)
         Wend
      EndIf
   EndIf
EndProcedure

Code : Tout sélectionner

LoadSprite(0, "I:/PROG/Purebasic_5.21_LTS/Examples/Sources/Data/PureBasic.bmp", 0)