■ Définir une stucture minimum d'un sprite.
Code : Tout sélectionner
Structure Scrolling
Sprite.i
PositionX.i
PositionY.i
EndStructure
Exemple :
Code : Tout sélectionner
Global Background.Scrolling
Code : Tout sélectionner
LoadSprite(#background, "data/images/background.jpg")
background\Sprite = #background
■ La procédure ScrollSprite()
Code : Tout sélectionner
Procedure ScrollSprite(*sprite.scrolling, x, y, StepX, StepY)
Protected SpriteWidth = SpriteWidth(*sprite\Sprite)
Protected SpriteHeight = SpriteHeight(*sprite\Sprite)
Protected sx, sy
*sprite\PositionX+StepX
*sprite\PositionY+StepY
If *sprite\PositionX > SpriteWidth
*sprite\PositionX = 0
EndIf
If *sprite\PositionX < 0
*sprite\PositionX = SpriteWidth
EndIf
If *sprite\PositionY > SpriteHeight
*sprite\PositionY=0
EndIf
If *sprite\PositionY < 0
*sprite\PositionY = SpriteHeight
EndIf
For sx=0 To 2
For sy=0 To 2
DisplaySprite(*sprite\Sprite, x+ SpriteWidth * sx - *sprite\PositionX, y + SpriteHeight * sy - *sprite\PositionY)
Next
Next
EndProcedure
Télécharger parallax.zip (Sources 2.2 Mo)