Code : Tout sélectionner
ClipSprite(#shipb, 256, 0, 64, 64):EndIf; gauche 2
DisplayTransparentSprite( #shipb , Xgentil, Ygentil)
... et faire çà:
Code : Tout sélectionner
Procedure.i image(a$, x1,x2,x3,x4, x5,x6)
ClipSprite(a$, x1, x2, x3, x4)
DisplayTransparentSprite( a$, x5, x6)
EndProcedure
;boucle principale
image("#shipb", 256, 0, 64, 64, Xgentil, Ygentil)