Adaptation du célèbre Guitar Hero sur calculatrice ;).
Nom : GUITAR
Version : 1.0
Taille : 609 octets
Développeur : Hakan Sener
Date de création : 20/01/2010
Langage de programmation : Ti-Basic
Plateformes : Ti 82/83/84
Captures d'écran :
Code sources : Guitar.8xp
:ClrHome :Output(2,2,"GUITAR HERO TI" :Output(4,1,"PAR HAKAN :Output(6,2,"PRESS ENTER :0→G :Pause :Lbl 15 :Menu("GUITAR HERO TI","NOUVEAU",11,"AIDE",12,"QUITER",13) :Lbl 12 :ClrHome:Output(1,2,"TAPEZ LES CHIFFRES QUI DEFFILENT A L:ECRAN QUAND ILS ARRIVENT ENTRES LES FLECHES :Pause :Goto 15 :Lbl 13:Stop :Lbl 11 :Menu("MODE","FACILE",31,"MOYEN",32,"DIFFICILE",33) :Lbl 31:16→Z:Goto 66 :Lbl 32:6→Z:Goto 66 :Lbl 33:1→Z :Lbl 66 :ClrHome :1→Y:1→X :0→T:0→K:0→P:3→C :randInt(1,3)→N :Lbl 1 :ClrHome :Output(2,12,C :Output(5,7,"> < :Output(Y,8,N :Output(5,4,X :If Y=8:Then : C-1→C : If C=0:Goto 00 : 1→Y:0→K:1→X : randInt(1,3→N : Goto 1 :End :getKey→K :If K=91+N and Y≥4 and Y≤6:Then : If Y=5:Then : Output(2,2,"OUAIS : P+5*X→P : Else:Output(2,2,"BOF : P+2*X→P:End : X+1→X:0→K:0→Y : randInt(1,3→N :End :For(Θ,1,Z :End :Y+1→Y :Goto 1 : :Lbl 00 :ClrHome :Output(3,2,"PERDU, POINTS : :Output(4,6,P :Pause :ClrHome :Output(1,1,"