Code : Tout sélectionner
; Charge l'image qui contient toutes les lettres graphiques (récupérable dans le zip MadFire).
LoadSprite(1,"Data\letter.bmp", #PB_Sprite_Memory )
Global String$ = " !'#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~é"
; Cette chaine indique l'ordre des lettres dans mon image
; pour faire simple, ici, tous les caractères ont la même taille
; mais on pourrait adapter le code pour avoir des caractères + ou - larges...
Declare AfficheTextcentre(TextMenu01$,y.i,fondu.i)
; dans la boucle
If StartSpecialFX()
; affiche le mot score centré en X, position y=10, et en fondu 255
AfficheTextcentre("Score",10,255)
StopSpecialFX()
EndIf
; La procédure
; Celle-ci compare chaque caractère de la chaine à afficher avec les caractères de l'image
; quand la caractere à afficher est trouvé
; un clipsprite selectionne la bonne lettre
; et le displaysprite affiche la lettre
; i correspond à la position de la lettre dans la chaine
; i*16 correspond à la position en x de la lettre sur l'écran
; le random(1) permet de faire tremblotter la lettre autour de la position x de la lettre
; y est entré dans l'appel de la procédure
; fondu est entré dans l'appel de la procédure
; la valeur 400 correspond à la moitié d'un écran de 800 pixels et centre le texte
; ya bien entendu moyen d'optimiser le code avec un tableau de pointeurs...
Procedure AfficheTextcentre(Text$,y.i,fondu.i)
For i=1 To Len(Text$) ; regarde chaque lettre de la chaine (ici score)
For j=1 To Len(String$) ; cherche la position de la lettre de la chaine dans l'image
If Mid(Text$,i,1)=Mid(String$,j,1) ; si on a trouvé
ClipSprite(1,(j-1)*16,0,16,16) ; selectionne la lettre
DisplayTransparentSprite(1,i*16+Random(1)+400-Len(Text$)*8-16, y+Random(1))
j=Len(String$) ; on sort de la boucle de recherche de la lettre dans l'image
EndIf
Next
Next
EndProcedure
ya quand même plus 
)))))