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
Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Mer 12 Sep 2007, 18:38
(ç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
Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Jeu 13 Sep 2007, 16:59
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
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)
Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Jeu 13 Sep 2007, 20:19
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
the_bolos Invité
Posté le : Jeu 27 Sep 2007, 16:49
Bonjour a tous excusez moi
je ne trouve pas la commande
"fPart" sur une TI82-stats.fr
quelqun pourait-il mindiquer merci
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
Pas doué moi 
