PureBasic

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