J'ai créé le début d'une planche de sprite de mon (futur) héros "Johnny Egg" que j'ai créé au collège y'a déjà une bonne vingtaine d'années.
J'ai eu beau lire les pages
http://www.purebasic.fr/french/viewtopi ... 88&start=0
http://www.purebasic.fr/french/viewtopi ... 57&start=0
http://www.purebasic.fr/french/viewtopi ... 736#p87736
j'arrive à rien. Je suis une vraie bille

Voilà l'image.

Elle fait 384x64 et les séquences sont en 64x64 donc 3 sprites pour marcher vers la droite et 3 pour marcher vers la gauche.
Pourriez vous me montrer un code commenté pour créer une animation avec cette planche ?
(le courage pour un nouveau tuto?)
Merci aux courageux.
Pour le moment j'ai juste fait le code qui affiche l'image globale et qu'on peut déplacer avec les flèches <- ->
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