Probleme de touches et de script sur ma calculatrice TI-82 stats

Fermé
Airghost Messages postés 3 Date d'inscription jeudi 4 juin 2015 Statut Membre Dernière intervention 4 juin 2015 - 4 juin 2015 à 21:34
Airghost Messages postés 3 Date d'inscription jeudi 4 juin 2015 Statut Membre Dernière intervention 4 juin 2015 - 4 juin 2015 à 21:37
Bonjour a tous je viens sur se forum pour poster mon premier poste.
donc voici mon problème, je cherche tout d abord la touche (ou le programme) :
"lSNY" ou "lSNX" alors si quelqu'un sait ce n est pas de refus je serais même très content car j en ai besoin pour un petit jeu snake ^^

et mon second problème qui est lui plus important a mes yeux c est que je cherche comment mettre un 3eme obstacle a un jeu mais je n y arrive pas voici mon code :

:Lbl 1
:ClrHome
:For(A,1,8
:Output(A,5,"*"
:End
:For(A,1,8
:Output(A,12,"*"
:End
:8?E:1?F
:10?G:2?H
:9?X
:Output(8,X,"^"
:Output(F,E,"*"
:Output(H,G,"*"
:0?S
:0?M
:Repeat ((F=8) and (E=X)) or ((H=8) and (G=X))
:getKey?K
:If K?0
:Then
:Output(8,X," "
:X+(K=26)-(K=24)?X
:If X>11
:6?X
:If X<6
:11?X
:Output(8,X,"^"
:End
:M+1?M
:If (M>2)
:Then
:0?M
:Output(F,E," "
:Output(H,G," "
:F+1?F
:H+1?H
:If F>8
:Then
:S+1?S
:randInt(1,2)?F
:randInt(6,11)?E
:End
:If H>8
:Then
:S+1?S
:randInt(1,2)?H
:randInt(6,11)?G
:End
:Output(F,E,"*"
:Output(H,G,"*"
:End
:End
:Output(1,1,S
:Pause
:Menu("REJOUER ?","OUI",1,"NON",2
:Lbl 2
:ClrHome


et voila ce que moi j ai fait a partir de ce code :


:Lbl 1
:ClrHome
:For(A,1,8
:Output(A,5,"*"
:End
:For(A,1,8
:Output(A,12,"*"
:End
:8?E:1?F
:10?G:2?H
:12?V:3?L //première ligne que j ai rajouter
:9?X
:Output(8,X,"^"
:Output(F,E,"*"
:Output(H,G,"*"
:Output(V,L;"*" //2eme
:0?S
:0?M
:Repeat ((F=8) and (E=X)) or ((H=8) and (G=X)) or ((V=8) and (L=X)) //3eme (petit rajout)
:getKey?K
:If K?0
:Then
:Output(8,X," "
:X+(K=26)-(K=24)?X
:If X>11
:6?X
:If X<6
:11?X
:Output(8,X,"^"
:End
:M+1?M
:If (M>2)
:Then
:0?M
:Output(F,E," "
:Output(H,G," "
:Output(V,L," "
:F+1?F
:H+1?H
:V+1?V
:If F>8
:Then
:S+1?S
:randInt(1,2)?F
:randInt(6,11)?E
:End
:If H>8
:Then
:S+1?S
:randInt(1,2)?H
:randInt(6,11)?G
:End
:Then
:S+1?S
:randInt(1,2)?V
:randInt(6,11)?L
:End
:Output(F,E,"*"
:Output(H,G,"*"
:Output(V,L,"*"
:End
:End
:Output(1,1,S
:Pause
:Menu("REJOUER ?","OUI",1,"NON",2
:Lbl 2
:ClrHome


voila tout merci de votre aide ^^
A voir également:

1 réponse

Airghost Messages postés 3 Date d'inscription jeudi 4 juin 2015 Statut Membre Dernière intervention 4 juin 2015
4 juin 2015 à 21:37
juste un détail au quel je ne me suis pas rendu compte c est que mes flèches ne sont pas passer sur le forum et ils ont été transformée en "?" je vous laisse donc les prendre en compte mais j ai bien mit des flèches sur ma calculatrice.
0