PureBasic

Code : Tout sélectionner

InitKeyboard()
InitSprite()
UseJPEGImageDecoder()
OpenScreen(1280,1024,32,game$)

#Herdelia = 1
LoadSprite(#Herdelia, "logo.jpeg")
DisplaySprite(#HErdelia, 500 , 700)
Delay(2000)

Code : Tout sélectionner

Enumeration
  #Herdelia
EndEnumeration

;
;
;
  ScreenWidth = GetSystemMetrics_(#SM_CXSCREEN)
  ScreenHeight = GetSystemMetrics_(#SM_CYSCREEN)
  ScreenDepth = 32
  If InitSprite() And InitMouse() And InitKeyboard()
      If OpenScreen(ScreenWidth, ScreenHeight, ScreenDepth, "")
          ;
          ; Génère n'importe nawak pour replacer le LoadSprite
          ;
          CreateSprite(#Herdelia, 64, 64, #PB_Sprite_Texture)
          StartDrawing(SpriteOutput(#Herdelia))
            For i = 1 To 100
              Plot(Random(63), Random(63), Random($FFFFFF))
            Next
          StopDrawing()
          Quit = #False
          Repeat
            FlipBuffers()
            ClearScreen(0, 0, 0)
            DisplaySprite(#Herdelia, MouseX(), MouseY())
            ExamineKeyboard()
            If KeyboardPushed(#PB_Key_Escape) : Quit = #True : EndIf
            ExamineMouse()
          Until Quit
      EndIf
  EndIf
End