Jeu: Puissance 4

Bonjour à tous !

Voici le code de puissance 4 (qui n'est pas de moi):

Code:

FullScreen
0=>Xmin
94=>Xmax
0=>Ymin
62=>Ymax
ClrDraw
CoordOff
QuadOff
AxesOff
Horizontal 0
Horizontal 62
Vertical 0
Vertical 94
For(A,1,07
Text(10,A," SANGOHAN38"
End
For(A,1,10
Text(A,53," PRESENTE:"
End
For(A,1,25
Text(32,A," PUISSANCE 4"
End
Text(52,27,"VERSION 1.0"
Pause
ClrDraw
Lbl 1
Menu("PUISSANCE 4","JOUER",2,"INSTRUCTIONS",3,"QUITTER",4)
Lbl 3
ClrDraw
Text(1,1,"LE BUT DE CE JEU EST "
Text(7,1,"D ALINER 4 PIONTS SOIT"
Text(13,1,"EN LIGNE, SOIT EN COLONNE"
Text(19,1,"SOIT EN DIAGONALE."
Text(28,1,"POUR CHOISIR LA COLONNE,"
Text(34,1,"ON UTILISE LES FLECHES ET"
Text(40,1,"LA TOUCHE [2ND]."
Pause
Goto 1
Lbl 4
ClrHome
ClrDraw
Output(1,1,"          "
Stop
Lbl 2
ClrDraw
41=>A
EffListe L1
43=>dim(L1
Float
Line(37,50,93,50
Line(37,42,93,42
Line(37,34,93,34
Line(37,26,93,26
Line(37,18,93,18
Line(37,10,93,10
Line(37,2,93,2
Line(37,50,37,2
Line(45,50,45,2
Line(53,50,53,2
Line(61,50,61,2
Line(69,50,69,2
Line(77,50,77,2
Line(85,50,85,2
Line(93,50,93,2
Text(17,5,"JOUEUR"
(-)2=>Y
Lbl 5
1=>[THETA]
1=>B
Text(17,31,[THETA]
Pt-Off(A-8,52
Pt-Off(A-8,53
Pt-Off(A-8,54
Pt-Off(A-8,55
Pt-Off(A+8,52
Pt-Off(A+8,53
Pt-Off(A+8,54
Pt-Off(A+8,55
Line(A,52,A,55
Getkey=>C
If C=24:A-8=>A
If C=26:A+8=>A
If C=21:Goto 6
Goto 5
Lbl 7
2=>[THETA]
0.1=>B
Text(17,31,[THETA]
Pt-Off(A-8,52
Pt-Off(A-8,53
Pt-Off(A-8,54
Pt-Off(A-8,55
Pt-Off(A+8,52
Pt-Off(A+8,53
Pt-Off(A+8,54
Pt-Off(A+8,55
Line(A,52,A,55
Getkey=>C
If C=24:A-8=>A
If C=26:A+8=>A
If C=21:Goto 6
Goto 7
Lbl 6
If A=41:1=>Z
If A=49:7=>Z
If A=57:13=>Z
If A=65:19=>Z
If A=73:25=>Z
If A=81:31=>Z
If A=89:37=>Z
Goto 0
Lbl 0
Z+1=>Z
Y+8=>Y
If L1(Z)[différent de]0 et B=1:Goto 0
If L1(Z)[différent de]0 et B=0.1:Goto 0
If L1(Z)=0 et B=1:Goto 8
If L1(Z)=0 et B=0.1:Goto 9
Lbl 8
Circle(A,Y,3
1=>L1(Z)
(-)2=>Y
Goto 7
Lbl 9
Circle(A,Y,3
0.1=>L1(Z)
Line(A-3,Y,A+3,Y
Line(A,Y-3,A,Y+3
(-)2=>Y
Goto 5

Bonne journée !

bonjour,

Quand un code n'est pas de toi, précise le (même si c'est écrit dans le code en l’occurrence, mais c'est quand même un truc à faire tout le temps).

pito2901 a écrit:
Voici le code de puissance 4:

Le? il n'y en a pas qu'un seul j'imagine  (surtout que le sujet faisait parti du ti concours une année je crois )

EDIT: Pourquoi as-tu mis The K en dessous du titre du projet (ce qui ne se remarque pas immédiatement) alors que dans le code il y a "SANGOHAN38 PRESENTE" ?!

Il s'agit de Sangohan38

Tu as modifié quoi? La mise en forme? L'as tu au moins testé ?

Code a écrit:Text(10,A," SANGOHAN38"
End
For(A,1,10
Text(A,53," PRESENTE:"

EDIT: Pas de double poste.
J'ai vu (cf mon edit précédent) mais ce n'est pas de lui...
Quand c'est comme ça donne le sujet d'où tu sors le code...

m@thieu41 a écrit:Tu as modifié quoi? La mise en forme? L'as tu au moins testé ?

Code a écrit:Text(10,A," SANGOHAN38"
End
For(A,1,10
Text(A,53," PRESENTE:"

 

Désolé. Et oui je l'ai testé mais enlevé toute l'intro...

Voilà c'est déjà mieux

Evitons le double post, les amis...  

En tout cas, merci, pito, de participer au transfert de ressources depuis l'ancien forum.

blg_flg a écrit:Evitons le double post, les amis...

excuse-moi c'est que j'ai fais précédent quand j'ai terminé mon sujet, du coup ça l'a enregistré deux fois...