Ton jeu sera compatible TI-83 Premium CE/84 Plus CE, et TI-84 Plus CSE.
Pour les chaines c'est effectivement possible mais assez difficile pour un débutant

inString(Chaine principale, sous-chaine à rechercher[, position de départ])
tu peux récupérer la position d'un ou plusieurs caractère dans la chaine.inString(Str1,"/")->A
tu trouveras la première occurrence du caractère '/' dans la chaine Str1, et avec inString(Str1,"/",A+1)->B
tu trouveras la suivante. Et ainsi de suite. sub(chaine principale, position de départ, nombre de caractère)
tu peux extraire une partie de la chaine, et avec les bon paramètres, par exemple sub(Str1,A+1,B-A-1)
, ça prend le premier nom 1→A
For(N,1,9
⌊J1(N→B
Output(N,1,sousch(Chn1,A,B
"rajoute le score ici
B+A→A
End
Output(10,1,sousch(Chn1,A,⌊J1(10
""→Chn0
repeat longueur(Chn0)<21 et longueur(Ch0)>0
Input "PSEUDO : ",Chn0
End
longueur(Chn0→X
⌊J1(S→P
1→B
"decoupage de la liste
For(A,1,S-1
B+⌊J1(A→B
If A=1
Then
{⌊J1(1→⌊PIV1
Else
augmenter(⌊PIV1,{⌊J1(A→⌊PIV1
End
End
"B c'est la position du premier caractère du pseudo dans la chaîne
For(A,S,9
If A=S
Then
{⌊J1(S→⌊PIV2
Else
augmenter(⌊PIV2,{⌊J1(A→⌊PIV2
End
End
"decoupage de la chaîne
If S=1
Then
Chn0+sousch(Chn1,1,longueur(Chn1)-⌊J1(10→Chn1
augmenter({X},⌊PIV2→⌊J1
End
If S=10
Then
augmenter(⌊PIV1,{X→⌊J1
sousch(Chn1,1,longueur(Chn1)-⌊J1(10))+Chn0→Chn1
End
If S≠1 et S≠10
Then
sousch(Chn1,1,B-1)+Chn0+sousch(Chn1,B,longueur(Chn1)+1-B-⌊J1(10→Chn1
augmenter(augmenter(⌊PIV1,{X}),⌊PIV2→⌊J1
End
Users browsing this forum: ClaudeBot [spider] and 2 guests