Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse Page: 1,      >>
Puissance4 v0.1
Auteur Message
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Jeu 06 Sep 2007, 16:41   Citer 

Un petit puissance 4 à deux joueurs happy.gif

*** VOICI LE LIEN v0.2 ***

ET VOICI LE LIEN de la v0.1

Screen winkle.gif


Prochainement: 2 joueurs réseaux, puis Ai disponible (en fait pas tout de suite hein^^).

Code
12->dim([LISTE]P4
Radian:AxesOff
FnOff :LabelOff
Lbl M:1->F
Menu("PUISOC","CONTINUER",L,"NOUV. PARTIE",C,"OPTIONS",P,"QUITTER",Z
Lbl P
If [LISTE]P4(1
Then
Disp "ABANDONNER
1->O:7->N
Input "PARTIE EN COURS?",Str1
If Str1="OUI
Then
DelVar [LISTE]P4
13->dim([LISTE]P4
Else
Disp "MODIFS","IMPOSSIBLES
Pause
Goto M
End
End
ClrHome
Disp "OPTIONS","","*JOUEUR"," NIV. A.I"," MOTIFS
For(I,4,5
Output(I,16,1+[LISTE]P4(I-2
End
[LISTE]P4(1->O
If O=0:"  J/J
If O=1:" AI/J
If O=2:"AI/AI
Output(3,12,Ans
1->A
Repeat K=105
getKey->K
If K:Then
Output(A+2,1,"
(K=34)+A-(K=25->A
min(3,max(1,A->A
Output(A+2,1,"*
[LISTE]P4(A)+(K=26)-(K=24->[LISTE]P4(A
min(2,max(0,Ans->[LISTE]P4(A
Ans->O
If A-1:Then
Output(A+2,16,Ans+1
Else
If O=0:"  J/J
If O=1:" AI/J
If O=2:"AI/AI
Output(3,12,Ans
End
End
End
Goto M
Lbl C
0->F
DelVar [LISTE]P4
12->dim([LISTE]P4
Lbl L
ClrDraw
-.4->Xmin:0->Ymin
13->Xmax:7.75->Ymax
Ymax/62->W
7ñ->R
Text(1,0,"PUISOC4
For(I,0,15W,W
Line(Xmin,6.8-I,4,6.8
Line(Xmin,1.6+I,4,1.6
End
Text(57,0,"(C)2007
Text(50,0,"PAR COC5
For(J,0,8,7W
For(B,4,Xmax
If F and J<7 and B-13:Then
J8/7->I
int(10fPart(10^(B-4)[LISTE]P4(12-round(I,0->T
If Ans:prgmPS4DES
End
Pt-On(B,J,[LISTE]P4(3
End
End
9->B
Text(25,0,"JOUEUR
Lbl 0
Line(B+R,Ymax,B+R,7
B+1-R
Line(Ans,7,Ans,Ymax
Text(25,25,1+[LISTE]P4(4
Repeat (K=21 or K=23) and not(int(10fPart(10^(B-4)[LISTE]P4(5
getKey->K
B->C
B-(K=24 and B>4)+(K=26 and B<12->B
If B-C:Then
For(J,C,B,B-C
J+1-R
Line(J+R,Ymax,J+R,7,J-C
Line(Ans,Ymax,Ans,7,J-C
Line(J+R,0,Ans,0,J-C
End
End
If K=22:Then
Lbl Z
AxesOn:FnOn
LabelOn:Degree
ClrHome
Stop
End
End
For(I,0,7
If not(int(10fPart([LISTE]P4(12-I)10^(B-4
Goto B
End
Lbl B
not([LISTE]P4(4->[LISTE]P4(4
Ans+1->T
[LISTE]P4(12-I)+10^(3-B)T->[LISTE]P4(12-I
prgmPS4DES
Goto 0



/!\ ATTENTION, le nom de ce programme doit impértivement être : PS4DES

Code

7I/8üG
G+3W->M
B+3R
If T:Then
Line(B+R,M,Ans,G+W
Line(B+R,M+W,Ans,G+6W
Line(Ans+R,G+W,B+6R,M
Line(Ans+R,G+6W,B+6R,M+W
If T=2:Then
Pt-On(Ans,M,3
Pt-On(Ans,M+W,3
Pt-On(Ans+R,M,3
Pt-On(Ans+R,M+W,3
End
End
Return



----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Jeu 06 Sep 2007, 18:41   Citer 

plgaieur^^ (je deconne)

 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Jeu 06 Sep 2007, 20:07   Citer 

je serais toi je rajouterais fnon / fnoff au cas ou ;-)

+

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Jeu 06 Sep 2007, 20:56   Citer 

Merci.

@Baby : Tu as fait dans le même genre ?

(La version 0.2 presque terminée!)

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Ven 07 Sep 2007, 17:32   Citer 

ouias mais encore une fois exclu sur mon forum

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Sam 08 Sep 2007, 14:22   Citer 

Beuh, j'ai supprimé mon programme en voulant supprimer son sous-programme cry.gif Pas doué moi crazy.gif

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Mer 12 Sep 2007, 13:45   Citer 

mais comment tu fais pour kil soit en ligne?

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Mer 12 Sep 2007, 18:38   Citer 

(ça avance, bientôt la v0.2^^)
=> Pour qu'il soit en ligne, j'utilise get(variable), avec le cable. Mais ça je vais le faire en dernier en fait^^. Je crois que je vais plutôt m'occuper de passer de la matrice à la liste condensée happy.gif

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Mer 12 Sep 2007, 20:35   Citer 

ce qui m'ettonne c'est la longueur du prog, il est super court, rien que le miens prenait qqchose comme 500 octets de conditions a la fin d'un tour...

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Jeu 13 Sep 2007, 16:59   Citer 

C'est qu'en ce moment je m'efforce de faire des petits programmes donc il fallait mieux éviter ça^^

La v0.2 est terminée bigmouth.gif minied.gif

Donc, L'Ai n'est pas encore fonctionnelle, j'ai juste amélioré l'ensemble et diminué la place prise, plus de matrice à 700 octets, mais juste une liste à 118 octets !

(juste un mini problème, en cas de mémoire faible, il faut relancer le programme au boût d’un certain temps)

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Jeu 13 Sep 2007, 18:31   Citer 


Citer
L'AI n'est pas fonctionelle.



tu m'etonnes, tu crois vraiment que faire une AI qui a un bon niveau ça tient sur une TI sans completement lagger jusqua a bug boucle?

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Jeu 13 Sep 2007, 20:09   Citer 

de bon niveau, je ne dis pas, mais correct je vais essayer^^

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Jeu 13 Sep 2007, 20:19   Citer 

honnetement pour faire une ai déjà faut etre un pro du puissance 4, ensuite faut appliquer sur toute les probabilités de placement etc... donc vraiment si t'y arrives avec 26ko t'es un bon

 Adresse email Haut de page Bas de page 
 
the_bolos
Invité
Posté le : Jeu 27 Sep 2007, 16:49   Citer 

Bonjour a tous excusez moi
je ne trouve pas la commande
"fPart" sur une TI82-stats.fr
quelqun pourait-il mindiquer merci

  Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Jeu 27 Sep 2007, 16:51   Citer 

Salut, va dans [math] puis [gauche], tu devrais trouver facilement...

(sinon tu fais 2nde 0 et la t'as toutes les instructions winkle.gif)

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
the_bolos
Invité
Posté le : Ven 28 Sep 2007, 22:21   Citer 

merci beaucoup ratus ++
mick

  Haut de page Bas de page 
 
the_bolos
Invité
Posté le : Ven 28 Sep 2007, 22:32   Citer 

Re bonne soirée premierement
Et je voudrai dsl abuser de tas gentillesse pourrai tu me dire comment creer
je pense qu'il faut en creer ce que tu appelle [liste]p4
Comment puije le faire merci d'avance de ta gentillesse (dsl pour l'hortographe)
mick

  Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Ven 28 Sep 2007, 22:41   Citer 

Tu fais 1->dim(LP1 .
Le nom de la liste est P1.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Ven 28 Sep 2007, 22:59   Citer 

Je pense qu'il veut plutôt parler du caractère L spécial, qui se trouve dans catalogue, à la lettre L ( catalogue = [2nd] + 0 )

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
dan
Invité
Posté le : Sam 29 Sep 2007, 19:00   Citer 

slt jariv pa a trouver Str1 cry.gif

  Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse Page: 1,      >>





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa