TI-82 stats.fr quelques probleme pour mon jeu sur calculatrice.

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:53
jordane45 Messages postés 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 - 4 juin 2015 à 22:26
Bonjour,
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) :
"Xmax" ou "Xmin" 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," " //4eme
: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 // 5/6 eme
:randInt(6,11)?L
:End
:Output(F,E,"*"
:Output(H,G,"*"
:Output(V,L,"*" //7 eme
:End
:End
:Output(1,1,S
:Pause
:Menu("REJOUER ?","OUI",1,"NON",2
:Lbl 2
:ClrHome


les flèches ont été changer en point d interrogation il faut les prendre en compte mais j ai bien mis des flèches dans ma calculette merci
A voir également:

1 réponse

jordane45 Messages postés 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 4 649
4 juin 2015 à 22:26
Bonjour,

Pour ce qui est de Xmax, Xmin...
Sur un autre forum, il semble que la réponse aie été donnée :

tu vas dans var, fenetre et ensuite tu trouves ton bonheur.

0