Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
Puissance 4 tout leger
titozzz le 05/03/2010 à 15:00
Voila un petit puissance 4 pour jouer a 2 ,sans truc en trop ^^
1 pour le joueur 1 , 2 pour le jouer 2 et 2nd pour effacer les grille
on se déplace avec les fleches
Lancer Puissan4 la premiere fois et après, lancer Puiss4anc
http://www.mediafire.com/download.php?2jgyl4mzmcz
http://www.mediafire.com/download.php?mu05erznnmo
Vous pouvez supprimer puissan4 après la premiere utilisation
Puiss4an:
Code
:Menu("PUISSANCE 4","JOUER",D,"QUITTER",Q
:Lbl Q
:Stop
:Lbl D
:2.5->X
:2.5->Y
:RecallPic 5
:While 1
: Pt-On(X,Y
: getKey->K
: Y->W
: X->V
: If K=24 and X>5:X-5->X
: If K=34 and Y>5:Y-5->Y
: If K=26 and X<85:X+5->X
: If K=25 and Y<55:Y+5->Y
: If K=92:Pt-On(V,W,2
: If K=93:Pt-On(V,W,3
: Pt-Off(V,W
: If K=21:Goto E
:
:End
:Lbl E
:ClrDraw
:Goto D
puissan4
Code
:ClrDraw
:AxesOff
:0->Xmin
:94->Xmax
:0->Ymin
:62->Ymax
:Line(0,0,90,0
:Line(0,0,0,60
:Line(90,0,90,60
:Line(0,60,90,60
:Line(5,60,5,0
:Line(10,60,10,0
:Line(15,60,15,0
:Line(20,60,20,0
:Line(25,60,25,0
:Line(30,60,30,0
:Line(35,60,35,0
:Line(40,60,40,0
:Line(45,60,45,0
:Line(50,60,50,0
:Line(55,60,55,0
:Line(60,60,60,0
:Line(65,60,65,0
:Line(70,0,70,60
:Line(75,0,75,60
:Line(80,0,80,60
:Line(85,0,85,60
:Line(0,5,90,5
:Line(0,10,90,10
:Line(0,15,90,15
:Line(0,20,90,20
:Line(0,25,90,25
:Line(0,30,90,30
:Line(0,35,90,35
:Line(0,40,90,40
:Line(0,45,90,45
:Line(0,50,90,50
:Line(0,55,90,55
:StorePic 5
:prgmPUISS4NC
Ou voir plus bas ^^
Stupid le 05/03/2010 à 18:49
C'est sur que si y'a aucun tests de victoire ça pèsera pas très lourd
Aussi
Code
:Line(10,60,10,0
:Line(15,60,15,0
:Line(20,60,20,0
:Line(25,60,25,0
:Line(30,60,30,0
:Line(35,60,35,0
:Line(40,60,40,0
:Line(45,60,45,0
:Line(50,60,50,0
:Line(55,60,55,0
:Line(60,60,60,0
:Line(65,60,65,0
:Line(70,0,70,60
:Line(75,0,75,60
:Line(80,0,80,60
:Line(85,0,85,60
:Line(0,5,90,5
:Line(0,10,90,10
:Line(0,15,90,15
:Line(0,20,90,20
:Line(0,25,90,25
:Line(0,30,90,30
:Line(0,35,90,35
:Line(0,40,90,40
:Line(0,45,90,45
:Line(0,50,90,50
:Line(0,55,90,55
c'est
Code
:For(A,10,85,5
:Line(A,60,A,0
:If A<61
:Line(0,A-5,90,A-5
:End
titozzz le 05/03/2010 à 19:44
Pas con, j'ai pas l'habitude d'être intelligent
Didouille le 05/03/2010 à 19:51
Du coup c'est peut être mieux de tout mettre dans le même programmetitozzz le 05/03/2010 à 22:22
je fais ca 2maindarkjack le 25/09/2010 à 00:09
Je trouve pas StorePic sur ma Ti-82 Stats.fr, quelqu'un peut m'aider svp ^^ ?Sangohan38 le 25/09/2010 à 08:45
Sur ta calculatrice c'est renommé en SauvImage.
Sangohan38darkjack le 25/09/2010 à 09:51
Mici ^^ mais sur le programme je met SauveImage 5 ou SauveImage Img5 ?darkjack le 25/09/2010 à 10:04
Et euh recall pic en Ti 82 sa donne quoi svp ^^' ? aprés tout les autres je connaît
( sangohan ces traductions ne sont pas dans ton sujet sur les traduction Ti 83 -> Ti 82 tu pourrais les rajouter ^^ ?)
Panache le 25/09/2010 à 10:38
Réfléchit un peu...
Si tu sauve une image c'est pour la rappeler après !
Donc ça veut dire Rapelimage c'est tout...
azerty le 25/09/2010 à 11:16
mais c'est quoi la touche menu?
quelqu'un peu m'expliquer svpSangohan38 le 25/09/2010 à 11:23
La fonction Menu permet ... de faire un menu.
Pour ça il faut donner un titre au menu (ce qui est marquer dans les premiers guillemets) puis les différents choix (7 au max). On n'oublie bien sur pas de renvoyer les choix aux différentes étiquettes d'où les chiffres/lettres qui suivent les choix.
Ah au fait tu l'as dans le menu PRGM.
Sangohan38azerty le 25/09/2010 à 18:47
merci mais au début dans menu, il faut mettre les virgules et les guillemets?
azerty le 25/09/2010 à 18:58
et c'est quoi clrdraw et recallpic????azerty le 25/09/2010 à 19:01
et Pt-On et getKey ???
Sangohan38 le 25/09/2010 à 20:14
Oui pour menu il faut marquer tout ce que l'auteur met.
Après ClrDraw est traduit par EffDessin, recallpic par rappelImage, Pt-On par Pt-Aff et getKey par codetouche.
Sangohan38titozzz le 25/09/2010 à 23:25
Et bah, quel emoi provoqué par ce petit programme xD j'en ferais un version simplifiée et améliorée cette semaine
azerty le 26/09/2010 à 11:08
merci ^^
azerty le 26/09/2010 à 11:13
et le "and" on le trouve où?azerty le 26/09/2010 à 11:15
c'est pareil que "et"?
Rézus le 26/09/2010 à 11:38
Oui,tu l'as en appuyant sur [2nd],[math]Sangohan38 le 26/09/2010 à 12:29
Oui, c'est la même fonction.
Sangohan38azerty le 26/09/2010 à 12:47
et on fait comment pour lancer le jeu???Sangohan38 le 26/09/2010 à 14:13
Tu appuie sur PRGM, tu sélectionne ton prog et une fois que tu vois le nom du prog à l'écran, tu ré appuie sur ENTER.
Par contre il faut que le reste de la ligne soit vierge avant la commande prgmNOMDUPROG.
Sangohan38azerty le 26/09/2010 à 15:18
euh j'ai pas tout compris là... c'est quoi qui doit etre vide???Sangohan38 le 26/09/2010 à 15:50
Quand tu est aller dans PRGM, que tu as sélectionner ton prog et appuyer sur ENTER, il apparait sur l'écran principal. Pour que ça te mette pas d'erreur il faut que tout ce qui est mis avant le prgmNOMDUPROG soit effacer.
Sangohan38azerty le 06/10/2010 à 08:54
et la flèche -> tu la fais avec la touche moins et le signe supérieur à ?Rézus le 06/10/2010 à 10:32
Non,avec la touche [sto],au dessus de la touche [On]Dioudiou le 13/12/2010 à 22:29
J'ai tout rentré les codes normalement, sauf que ya une erreur à un moment que j'arrive pas à élucider ^^, après le " RapelImage 5 " le curseur se met sur le "5", need help :p. Merci.linkakro le 13/12/2010 à 23:31
Selon ta calto, tu dois peut-être remplacer le 5 par image5 (menu var>image)
(En suposant que la fonction RappelImage est correcte)
Ou bien l'image n'existe pas encore et tu dois préalablement stocker une image dedans.Dioudiou le 14/12/2010 à 08:09
D'accord :p. Maintenant le problème ne vient plus de là mais de EffDesssin ... ? Le curseur se met sur le "E" de EffDessin ?Sangohan38 le 14/12/2010 à 17:44
Effdessin=2nd+PRGM+1
Vérifie qu'il est bien seul sur sa ligne.
Sangohan38 Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
