| Puissance4 v0.1 |
| Auteur |
Message |
coc5
Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Jeu 06 Sep 2007, 16:41
|
|
 |
Un petit puissance 4 à deux joueurs 
*** VOICI LE LIEN v0.2 ***
ET VOICI LE LIEN de la v0.1
Screen 
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
|
|
 |
  |
| |
Stupid
Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42
|
Posté le : Jeu 06 Sep 2007, 18:41
|
|
|
plgaieur^^ (je deconne)
|
| |
|
| |
ratuss
Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41
|
Posté le : Jeu 06 Sep 2007, 20:07
|
|
|
je serais toi je rajouterais fnon / fnoff au cas ou ;-)
+
----------------------
--- LISTE DES JEUX POUR TI --- |
| |
|
| |
coc5
Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Jeu 06 Sep 2007, 20:56
|
|
|
Merci.
@Baby : Tu as fait dans le même genre ?
(La version 0.2 presque terminée!)
|
| |
|
| |
Stupid
Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42
|
Posté le : Ven 07 Sep 2007, 17:32
|
|
|
ouias mais encore une fois exclu sur mon forum
|
| |
|
| |
coc5
Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Sam 08 Sep 2007, 14:22
|
|
|
Beuh, j'ai supprimé mon programme en voulant supprimer son sous-programme  Pas doué moi 
|
| |
|
| |
mad67
Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05
|
Posté le : Mer 12 Sep 2007, 13:45
|
|
|
mais comment tu fais pour kil soit en ligne?
|
| |
|
| |
coc5
Autorisation : Membre
Nb de messages : 879
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
|
| |
|
| |
Stupid
Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42
|
Posté le : Mer 12 Sep 2007, 20:35
|
|
|
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...
|
| |
|
| |
coc5
Autorisation : Membre
Nb de messages : 879
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)
|
| |
|
| |
Stupid
Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42
|
Posté le : Jeu 13 Sep 2007, 18:31
|
|
|
| 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?
|
| |
|
| |
coc5
Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Jeu 13 Sep 2007, 20:09
|
|
|
de bon niveau, je ne dis pas, mais correct je vais essayer^^
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
Stupid
Autorisation : Membre
Nb de messages : 765
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
|
| |
|
| |
ratuss
Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41
|
Posté le : Jeu 27 Sep 2007, 16:51
|
|
|
Salut, va dans [math] puis [gauche], tu devrais trouver facilement...
(sinon tu fais 2nde 0 et la t'as toutes les instructions )
----------------------
--- LISTE DES JEUX POUR TI --- |
| |
|
| |
the_bolos
Invité
|
Posté le : Ven 28 Sep 2007, 22:21
|
|
|
merci beaucoup ratus ++
mick
|
| |
|
| |
the_bolos
Invité
|
Posté le : Ven 28 Sep 2007, 22:32
|
|
|
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
|
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Ven 28 Sep 2007, 22:41
|
|
|
Tu fais 1->dim(LP1 .
Le nom de la liste est P1.
Sangohan38
|
| |
|
| |
coc5
Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Ven 28 Sep 2007, 22:59
|
|
|
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 )
|
| |
|
| |
dan
Invité
|
Posté le : Sam 29 Sep 2007, 19:00
|
|
|
slt jariv pa a trouver Str1
|
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Sam 29 Sep 2007, 19:17
|
|
|
Tu va dans Vars puis dans STRING puis tu choisis ta chaine.
Sangohan38
|
| |
|
| |
ratuss
Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41
|
Posté le : Sam 29 Sep 2007, 19:19
|
|
|
(sinon pour éviter d'être bloqué tu peux jeter un coup d'œil ici https://tout82.pages-perso.free.fr/forum/sujet.php?sujet=104 )
----------------------
--- LISTE DES JEUX POUR TI --- |
| |
|
| |
baby
Invité
|
Posté le : Sam 29 Sep 2007, 21:14
|
|
|
il est un petit peu plus beau que le miens
et tu peux dégager le truc "a venir AI"
|
| |
|
| |
ratuss
Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41
|
Posté le : Sam 29 Sep 2007, 21:43
|
|
|
Slovak est ce que tu peux te loguer pour poster s'il te plait... :/ (ou au moins évite de changer ton pseudo à chaque post ;] ).
Merci.
----------------------
--- LISTE DES JEUX POUR TI --- |
| |
|
| |
Stupid
Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42
|
Posté le : Dim 30 Sep 2007, 13:05
|
|
|
c'es juste que ça amrchait pas la connection
|
| |
|
| |
ratuss
Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41
|
Posté le : Dim 30 Sep 2007, 14:38
|
|
|
Oui ça doit être encore un coup du bug free ou t'es obligé d'écrire 6000 le fois le même post 
----------------------
--- LISTE DES JEUX POUR TI --- |
| |
|
| |
coc5
Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Dim 30 Sep 2007, 14:44
|
|
|
Vous ne sauriez pas cment on peut éviter la saturation de la mémoire, car même avec return, l'appelle du sous-programme sature la mémoire 
|
| |
|
| |
ratuss
Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41
|
Posté le : Dim 30 Sep 2007, 14:51
|
|
|
il y a une astuce : lorsque le joueur termine une partie ou quelque chose du genre, on indique le score et on affiche
"APPUYER SUR ENTER POUR CONTINUER"
le programme se termine, le joueur relance le prog (en appuyant sur enter) et le tour est joué :]
(sinon je vois pas trop comment faire :°)
----------------------
--- LISTE DES JEUX POUR TI --- |
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Dim 30 Sep 2007, 15:53
|
|
|
User et abuser des For et While, je vois que ça comme solution.
Sangohan38
|
| |
|
| |
Kid64
Invité
|
Posté le : Mar 29 Avr 2008, 15:11
|
|
|
Bonjour,
D'abord bravo au concepteur du prgm
J'ai juste un petit probleme, a quoi correspond le ñ du programme SVP
merci
|
| |
|
| |
coc5
Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Mar 29 Avr 2008, 19:51
|
|
|
https://tout82.pages-perso.free.fr/forum/sujet.php?sujet=799
Il y a tout.
Mais je vais pour cette fois t'épargner la recherche : Ce signe correspond à l'exposant [-1] (à gauche sur le clavier de ta Ti).
|
| |
|
| |
Kid64
Invité
|
Posté le : Mer 30 Avr 2008, 9:31
|
|
|
Merci beaucoup!
Et félicitation pour ton programme il marche très bien!
|
| |
|
| |
