PureBasic

Code : Tout sélectionner

InitSprite() : InitKeyboard()
UsePNGImageDecoder()

;fenêtre
Lfenetre=GetSystemMetrics_(#SM_CXSCREEN)  ; recup la resolution de l'ecran en cours
Hfenetre=GetSystemMetrics_(#SM_CYSCREEN)
If Lfenetre>800 And Hfenetre>400
  Lfenetre=800 : Hfenetre=400
EndIf
Lscreen=Lfenetre : Hscreen=Hfenetre-20
centre=Lscreen/2-LPalette/2 ; on trouve le centre de la fenetre

OpenWindow(0, #PB_Ignore, #PB_Ignore, Lfenetre, Hfenetre, "Window", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ButtonGadget(0, 0, Hfenetre-20, 100, 20, "Quitter")
OpenWindowedScreen(WindowID(0), 0, 0, Lscreen, Hscreen, 0, 0, 0)
 

Structure jojo
  PosX.l
  PosY.l
  BougeX.l
  BougeY.l
EndStructure
Global Dim jojo.jojo(1)

jojo(1)\PosX=0
jojo(1)\PosY=Hscreen-64 
jojo(1)\BougeX=10
jojo(1)\BougeY=-10

If LoadSprite(0,"img/je_marche_petit.png",0)
Else
  Debug "ça chie au chargement du sprite"
EndIf


;{- Event loop
Repeat
  FlipBuffers()
  ClearScreen(RGB(0, 0, 0))
  
  Event= WindowEvent ()
  Delay (2)
  ExamineKeyboard ()
  
  ;---AFFICHAGE----
  TransparentSpriteColor(0,$FF00FF)
  DisplayTransparentSprite(0,jojo(1)\PosX ,jojo(1)\PosY ) 
  
  
  If KeyboardPushed(#PB_Key_Left)
    jojo(1)\PosX=jojo(1)\PosX-10
    If jojo(1)\PosX<0
      jojo(1)\PosX=0
    EndIf
  EndIf 
  
  If KeyboardPushed(#PB_Key_Right)
    jojo(1)\PosX=jojo(1)\PosX+10
    If jojo(1)\PosX>Lscreen-64
      jojo(1)\PosX=Lscreen-64
    EndIf
  EndIf
  
  If KeyboardPushed(#PB_Key_Escape)
    Break 
  EndIf
  
  Repeat
    Event = WindowEvent()
    
    Select Event
      Case #PB_Event_Gadget
        If EventGadget() = 0
          End
        EndIf
        
      Case #PB_Event_CloseWindow
        End
    EndSelect
  Until Event = 0
  
ForEver

Code : Tout sélectionner

le retour n'as pas l'animation de la marche !! :roll: :lol:
les 2 dernières images sont pareil !!