Lbl 1
If Eø0 et Fø0 et Gø0 et Hø0 et Iø0 et Jø0 et Lø0 et Mø0 et Nø0
Then
Texte(5,4,"MATCH NUL
Goto F
End
0üA:0üB:0üC
If V=1
Then
0üV
Goto A
End
0üK
codeTouch(üK
While K=0
codeTouch(üK
End
If K=92 et E=0
Then ú7üA:ú7üB:1üE
End
If K=93 et F=0
Then
0üA:ú7üB:1üF
End
If K=94 et G=0
Then
7üA:ú7üB:1üG
End
If K=82 et H=0
Then ú7üA:0üB:1üH
End
If K=83 et I=0
Then
0.1üA:0.1üB:1üI
End
If K=84 et J=0
Then
7üA:0üB:1üJ
End
If K=72 et L=0
Then ú7üA:7üB:1üL
End
If K=73 et M=0
Then
0üA:7üB:1üM
End
If K=74 et N=0
Then
7üA:7üB:1üN
End
If K<72 ou K>94 ou (A=0 et B=0)
Then
codeTouch(üK
Goto 1
End
partEnt(A)üA
partEnt(B)üB
Ligne(A+2,B+2,A-2,B-2
Ligne(A+2,B-2,A-2,B+2
If ((E=1)(F=1)(G=1)) ou ((H=1)(I=1)(J=1)) ou ((E=1)(H=1)(L=1)) ou ((F=1)(I=1)(M=1)) ou ((G=1)(J=1)(N=1)) ou ((L=1)(M=1)(N=1))
Then
If U=0:Texte(5,4,"VOUS AVEZ GAGNE")
If U=1:Texte(5,4,"JOUEUR 1 GAGNE
P+1üP
Goto F
End
If ((E=1)(I=1)(N=1)) ou ((G=1)(I=1)(L=1))
Then
If U=0:Texte(5,4,"VOUS AVEZ GAGNE")
If U=1:Texte(5,4,"JOUEUR 1 GAGNE
P+1üP
Goto F
End
Lbl A
Horizontale 4
Horizontale ú4
Verticale 4
Verticale ú4
If Eø0 et Fø0 et Gø0 et Hø0 et Iø0 et Jø0 et Lø0 et Mø0 et Nø0
Then
Texte(5,4,"MATCH NUL
Goto F
End
If U=0
Then
If E=0:1üC
If F=0:2üC
If G=0:3üC
If H=0:4üC
If I=0:5üC
If J=0:6üC
If L=0:7üC
If M=0:8üC
If N=0:9üC
If E=0 et F=0 et G=0 et H=0 et I=0 et J=0 et L=0 et M=0 et N=0
Then
If C>5:7üC
If C<6:5üC
End
If I=1 et E=0 et F=0 et G=0 et H=0 et J=0 et L=0 et M=0 et N=0:9üC
If I=1 et E=1 et N=2 et F=0 et G=0 et H=0 et J=0 et L=0 et M=0:7üC
If L=1 et E=0 et F=0 et G=0 et H=0 et I=0 et J=0 et M=0 et N=0:5üC
If N=1 et E=0 et F=0 et G=0 et H=0 et I=0 et J=0 et L=0 et M=0:5üC
If E=1 et F=0 et G=0 et H=0 et I=0 et J=0 et L=0 et M=0 et N=0:5üC
If G=1 et E=0 et F=0 et H=0 et I=0 et J=0 et L=0 et M=0 et N=0:5üC
If E=1 et F=1 et G=0
Then
3üC
End
If E=1 et F=0 et G=1
Then
2üC
End
If E=0 et F=1 et G=1
Then
1üC
End
If H=1 et I=1 et J=0
Then
6üC
End
If H=1 et I=0 et J=1
Then
5üC
End
If H=0 et I=1 et J=1
Then
4üC
End
If L=1 et M=1 et N=0
Then
9üC
End
If L=1 et M=0 et N=1
Then
8üC
End
If L=0 et M=1 et N=1
Then
7üC
End
If E=1 et H=1 et L=0
Then
7üC
End
If E=1 et H=0 et L=1
Then
4üC
End
If E=0 et H=1 et L=1
Then
1üC
End
If F=1 et I=1 et M=0
Then
8üC
End
If F=1 et I=0 et M=1
Then
5üC
End
If F=0 et I=1 et M=1
Then
2üC
End
If G=1 et J=1 et N=0
Then
9üC
End
If G=1 et J=0 et N=1
Then
6üC
End
If G=0 et J=1 et N=1
Then
3üC
End
If E=1 et I=1 et N=0:9üC
If E=1 et I=0 et N=1:5üC
If E=0 et I=1 et N=1:1üC
If G=1 et I=1 et L=0:7üC
If G=1 et I=0 et L=1:5üC
If G=0 et I=1 et L=1:3üC
If E=2 et F=2 et G=0:3üC
If E=2 et F=0 et G=2:2üC
If E=0 et F=2 et G=2:1üC
If H=2 et I=2 et J=0:6üC
If H=2 et I=0 et J=2:5üC
If H=0 et I=2 et J=2:4üC
If L=2 et M=2 et N=0:9üC
If L=2 et M=0 et N=2:8üC
If L=0 et M=2 et N=2:7üC
If E=2 et H=2 et L=0:7üC
If E=2 et H=0 et L=2:4üC
If E=0 et H=2 et L=2:1üC
If F=2 et I=2 et M=0:8üC
If F=2 et I=0 et M=2:5üC
If F=0 et I=2 et M=2:2üC
If G=2 et J=2 et N=0:9üC
If G=2 et J=0 et N=2:6üC
If G=0 et J=2 et N=2:3üC
If F=2 et I=2 et L=0:7üC
If F=2 et I=0 et L=2:5üC
If F=0 et I=2 et L=2:3üC
If E=2 et I=2 et N=0:9üC
If E=2 et I=0 et N=2:5üC
If E=0 et I=2 et N=2:1üC
End
If U=1
Then
0üK
codeTouch(üK
While K=0
codeTouch(üK
End
If K=92:1üC
If K=93:2üC
If K=94:3üC
If K=82:4üC
If K=83:5üC
If K=84:6üC
If K=72:7üC
If K=73:8üC
If K=74:9üC
End
0üK
If (C=1)(E=0)
Then
2üE:1üK
Cercle(ú7,ú7,2,{à
End
If (C=2)(F=0)
Then
2üF:1üK
Cercle(0,ú7,2,{à
End
If (C=3)(G=0)
Then
2üG:1üK
Cercle(7,ú7,2,{à
End
If (C=4)(H=0)
Then
2üH:1üK
Cercle(ú7,0,2,{à
End
If (C=5)(I=0)
Then
2üI:1üK
Cercle(0,0,2,{à
End
If (C=6)(J=0)
Then
2üJ:1üK
Cercle(7,0,2,{à
End
If (C=7)(L=0)
Then
2üL:1üK
Cercle(ú7,7,2,{à
End
If (C=8)(M=0)
Then
2üM:1üK
Cercle(0,7,2,{à
End
If (C=9)(N=0)
Then
2üN:1üK
Cercle(7,7,2,{à
End
If K=0
Then
Goto A
End
Lbl 68
If ((E=2)(F=2)(G=2)) ou ((H=2)(I=2)(J=2)) ou ((L=2)(M=2)(N=2)) ou ((L=2)(H=2)(E=2)) ou ((F=2)(I=2)(M=2)) ou ((G=2)(J=2)(N=2)) ou ((E=2)(I=2)(N=2)) ou ((G=2)(I=2)(L=2))
Then
If U=0:Texte(5,4,"VOUS AVEZ PERDU")
If U=1:Texte(5,4,"JOUEUR 2 GAGNE
P-1üP
Goto F
End
If V=1
Then
Goto 1
End
Goto 0
Lbl Q
Stop
Lbl F
0üK
Repeat Kø0
codeTouch(üK
End
If K=45 ou K=23
Then
EffEcr
EffDessin
Stop
End
If P>O
Then
PüL(2)
End
L(1)üQ
If Q=1:1üY
If Q=0:0üY
If Y=1:Goto J
If Y=0:Goto B
tbmc Invité
Posté le : Mar 08 Jui 2010, 10:57
Et voila le pendu.
Code
Lbl Z
0üZ
Menu("PENDU ","1 JOUEUR",E,"ENTRER MOT",F,"QUITTER",Q
Lbl F
EffEcr
Lbl Y
Disp "MAX CARACTERE:",7
Disp "MOT A FAIRE"
Input "DEVINER: ",Cha ne3
longueur(Cha ne3)üA
If A>7
Then
Disp "MOT TROP LONG"
Goto Y
End
1üZ
Lbl E
0üX
Lbl B
If Z=1:Goto A
{0,0,0,0,0,0,0,0,0}üáEA
entAl–at(1,5)üX
If X=1 et áEA(1)=0
Then
"PORTE"üCha ne3
1üáEA(1
Goto A
End
If X=1 et áEA(1)=1:X+1üX
If X=2 et áEA(2)=0
Then
"ROBOT"üCha ne3
1üáEA(2
Goto A
End
If X=2 et áEA(2)=1:X+1üX
If X=3 et áEA(3)=0
Then
"CHIEN"üCha ne3
1üáEA(3
Goto A
End
If X=3 et áEA(3)=1:X+1üX
If X=4 et áEA(4)=0
Then
"CHAISE"üCha ne3
1üáEA(4
Goto A
End
If X=4 et áEA(4)=1:X+1üX
If X=5 et áEA(5)=0
Then
"TABLEAU"üCha ne3
1üáEA(5
Goto A
End
If X=5 et áEA(5)=1:1üX
If X>10:Goto B
Lbl A
EffEcr
0üE:10üF
" "üCha ne0
" "üCha ne1
" "üCha ne2
" "üCha ne5
" "üCha ne6
" "üCha ne7
" "üCha ne8
" "üCha ne9
longueur(Cha ne3)üA
"-"üCha ne1
If Aù2:"-"üCha ne2
If Aù3:"-"üCha ne5
If Aù4:"-"üCha ne6
If Aù5:"-"üCha ne7
If Aù6:"-"üCha ne8
If Aù7:"-"üCha ne9
Cha ne1üCha ne0
If A>1
Then
1üV
Repeat A=V
Cha ne0+Cha ne1üCha ne0
V+1üV
End
End
0üD
Lbl 2
EffEcr
Output(4,1,"MOT MYSTERE:"
Disp "LONGUEUR:"
Output(1,15,A
Output(5,1,Cha ne0
1üD
carCha ne(Cha ne0,"-",1)üD
If D=0
Then
Disp "GAGNER
Pause
If Z=1:Goto Z
Goto B
End
Output(8,1,"COUPS RESTANT:"
Output(8,15,F
Input "LETTRE: ",Cha ne4
sous-Cha ne(Cha ne4,1,1)üCha ne4
1üB
Lbl 1
carCha ne(Cha ne3,Cha ne4,B)üC
If Cø0
Then
C+1üB
If C=1:Cha ne4üCha ne1
If C=2:Cha ne4üCha ne2
If C=3:Cha ne4üCha ne5
If C=4:Cha ne4üCha ne6
If C=5:Cha ne4üCha ne7
If C=6:Cha ne4üCha ne8
If C=7:Cha ne4üCha ne9
Cha ne1üCha ne0
If Aù2:Cha ne0+Cha ne2üCha ne0
If Aù3:Cha ne0+Cha ne5üCha ne0
If Aù4:Cha ne0+Cha ne6üCha ne0
If Aù5:Cha ne0+Cha ne7üCha ne0
If Aù6:Cha ne0+Cha ne8üCha ne0
If Aù7:Cha ne0+Cha ne9üCha ne0
1üE
Goto 1
End
If E=0:F-1üF
If F=0
Then
Disp "PREDU
Stop
End
0üE
Goto 2
Lbl Q
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mar 08 Jui 2010, 22:18
là je suis en train de recopier, et ... c'est très long et surtout répétitif.
A l'avenir utilise plus d'algorithmes pour alléger tes progs.
je sais, c'est difficile au début mais on s'y fait!
tbmc Invité
Posté le : Mar 08 Jui 2010, 23:49
C'est ce que j'essaye de faire d'habitude mais la je voit pas comment le simplifier.
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mer 09 Jui 2010, 10:16
bien. je croyais que tu ne savis pas.
j'ai arrêté de recopier hier, je vais continuer aujourd'hui.
juste un truc pour silmplifier:
If E=0 peut s'écrire If non(E
If E=1 peut s'écrire juste If E (dans le sens ou E n'est pas nul)
If ((E=1)(F=1)(G=1)) ou ((H=1)(I=1)(J=1)) ou ((E=1)(H=1)(L=1)) ou ((F=1)(I=1)(M=1)) ou ((G=1)(J=1)(N=1)) ou ((L=1)(M=1)(N=1))
peut s'écrire:
IF EFG ou HIJ ou EHL ou FIM ou GJN ou LMN et ça simplifie vachement.
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mer 09 Jui 2010, 10:45
j'abandonne. je suis flemmard de nature.
si tu veux que ton prog soit utilisé, une version téléchargeable serait la bienvenue.(en tout cas pour le morpion).
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mer 09 Jui 2010, 16:53
voilà un morpion à moi, inspiré de plusieurs morpions déjà existants, mais sans IA.
si tu veux tu peux essayer de rajouter l'IA sur mon prog qui est quand même plus simple.
Code
AxesNaff
0->S:0->R
1->P
Lbl Z
0->Y
EffDessin
PleinEcr
0->Xmin
50->Xmax
0->Ymin
30->Ymax
Ligne(0,10,30,10
Ligne(0,20,30,20
Ligne(10,2,10,29
Ligne(20,2,20,29
Verticale 35
Ligne(35,0,50,0
Ligne(35,30,50,30
1->C:1->D
2->A:2->B
0->T
If partDéc(P/2):1->T
{3,3}->dim([A]
For(K,1,3
For(G,1,3
0->[A](K,G)
End
End
Texte(10,85,"J.1"
Texte(52,85,"J.2"
Repeat 0
codeTouche->K
If K>=24 et K =<26 ou K=34:Then
A->C:B->D
End
If K=24:A-1->A
If K=25:B+1->B
If K=26:A+1->A
If K=34:B-1->B
If A=0:3->A
If B=0:3->B
If A=4:1->A
If B=4:1->B
Ligne(10C-1,10D-1,10C-1,10D-9,0
Ligne(10C-9,10D-1,10C-1,10D-1,0
Ligne(10C-9,10D-9,10C-1,10D-9,0
Ligne(10C-9,10D-9,10C-9,10D-1,0
Ligne(10A-1,10B-1,10A-1,10B-9
Ligne(10A-9,10B-1,10A-1,10B-1
Ligne(10A-9,10B-9,10A-1,10B-9
Ligne(10A-9,10B-9,10A-9,10B-1
Texte(28,69,"PARTIE :"
Texte(34,75,P
Texte(10,70,S
Texte(52,70,R
Ligne(44,22,50,22,T
Ligne(44,1.5,50,1.5,non(T
If K=45:Goto Q
If K=105 et [A](A,B):0->K
If K=105 et T=1:Then
1->[A](A,B)
Ligne(10A-8,10B-2,10A-2,10B-8
Ligne(10A-8,10B-8,10A-2,10B-2
End
If K=105 et T=0:Then
Cercle(10A-5,10B-5,3
2->[A](A,B)
End
If K=105:non(T->T
[A](1,1)->J
[A](1,2)->K
[A](1,3)->L
[A](2,1)->M
[A](2,2)->E
[A](2,3)->F
[A](3,1)->G
[A](3,2)->H
[A](3,3)->I
If JKL=1 ou MEF=1 ou GHI=1 ou JMG=1 ou KEH=1 ou LFI=1 ou JEI=1 ou LEG=1
Then
Ligne(0,12,50,12
For(K,12.5,18.5,0.5
Ligne(0,K,50,K,0
End
Ligne(0,19,50,19
Texte(28,20,"JOUEUR 1 GAGNE!"
P+1->P
S+1->S
1->Y
Pause
End
If JKL=8 ou MEF=8 ou GHI=8 ou JMG=8 ou KEH=8 ou LFI=8 ou JEI=8 ou LEG=8
Then
Ligne(0,12,50,12
For(K,12.5,18.5,0.5
Ligne(0,K,50,K,0
End
Ligne(0,19,50,19
Texte(28,20,"JOUEUR 2 GAGNE!"
P+1->P
R+1->R
1->Y
Pause
End
If non(Y) et J+K+L+M+E+F+G+H+I>=13:Then
Ligne(0,12,50,12
For(K,12.5,18.5,0.5
Ligne(0,K,50,K,0
End
Ligne(0,19,50,19
Texte(28,32,"RATE!!"
P+1->P
1->Y
Pause
End
If Y:Goto Z
End
Lbl Q
EffDessin
EffEcr
ZStandard
AxesAff
EffVar [A]
EffVar A:EffVarB: etc...,C,D,E,F,G,H,I,J,K,L,M,P,R,S,T,Y
Output(1,1,"
vu que j'ai pas arrêté de te trasher, fais pareil pour moi!
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mer 09 Jui 2010, 17:19
réflexion sur le pendu:
j'ai recopié ton prog, j'ai essayé, et quand je cherche à deviner le mot il écrit longueur: 1 alors que ce que j'avais rentré était plus long, et quand je rentre les bonnes lettres, il ne les affiche pas.
idem quand la calto tire un mot au sort.
je ne crois pas avoir fait d'erreur.
as tu testé ton prog?
si oui, j'ai du mal recopier quelque chose.
tbmc Invité
Posté le : Mer 09 Jui 2010, 17:43
Ouais je l'ai teste et normalement il marche tres bien
tbmc Invité
Posté le : Mer 09 Jui 2010, 17:49
Pour le morpion, l'IA c'est 80% du programme
tbmc Invité
Posté le : Mer 09 Jui 2010, 17:55
Je veut bien mettre une version telechargeable pour le morpion mais j sais pas trop comment on fait
Et si ta des problèmes pour recopier le pendu n'ésite pas a demander.
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 09 Jui 2010, 18:22
J'arrive trop tard pour donner des conseils ^^' ; Je suis d'accord avec tout ce qui a été dit.
Pour une version téléchargeable :
-soit tu utilise le site ti Editor
-soit tu utilise le logiciel vti
-soit tu utilise un câble
Puis héberge le fichier sur internet.
ps: le conseil n'est pas pour toi persalteas ^^
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mer 09 Jui 2010, 18:28
prends la relève linkakro je suis mort j'ai déjà invent 3 progs dans l'aprèm.
tu es le bienvenu.
teste donc le pendu pour voir si c'est le prog ou moi qu'il faut changer.
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Jeu 10 Jui 2010, 16:34
c'était le prog qu'il fallait changer : j'ai supprimé une ligne et ça a fonctionné normalement.
Il affiche la bonne longueur, le bon nombre de traits.
par contre, quand le mot fait moins de 7 lettres, il n'affiche pas la dernière quand on l'a trouvé.
Autorisation : Membre
Nb de messages : 230
Inscrit le : Dim 10 Mai 2009, 13:31
Posté le : Jeu 10 Jui 2010, 17:59
Bonjour, hier tu m'as donné l'idée de faire un pendu. J'ai donc fais un pendu de 745 octets qui utilise le partage d'écran entre le graphique et le tableur. Si tu veux tu peux t'en inspirer pour raccourcir le tiens.
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 10 Jui 2010, 23:39
S'il te plaît, persalteas, dis-nous précisément quelle est la modification que tu as effectuée (au-cas-où)
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Sam 12 Jui 2010, 9:19
ah, euh...
tout bien vérifié, j'ai enlevé une ligne que j'avais écrite mais qui n'était pas dans le code prog.
l'erreur venait donc de moi.
désolé.
Sangohan=> non, ti connect sous vista 64 bit ça ne marche pas.
j'ai cherché sur internet il y a quelque temps et je suis tombé sur un forum ou un type avait écrit un mail à Ti education pour demander si c'était possible de connecter une calto avec vista 64.
la réponse de Ti était formelle: "aucun de nos produits n'est compatible avec Vista 64 bits."
Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Dim 01 Mai 2011, 0:57
Salut alexvire pour ton programme du pendu ! très bien fait coté design et simplicité.
Les 10 mots que tu as mis, on peux en rajouter dans la liste ? il faut qu'ils aient 6lettres exactement apparemment. ya-t-il un moyen d'en mettre avec plus de lettre ? en mettant 2 espace par exemple un truck dans le genre ^^, j'aimerai test quelque truck mais j'ai pas de cable sous la main et ça m'a deja fais 2 ram clear
---------------------- "Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."
"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"
Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Dim 01 Mai 2011, 2:16
j'ai regler le probleme ! je vous montre :
Code
SauveBDG 0
Lbl 0
EffEcr
PleinEcr
EffVar {L1}
Menu(">>>> PENDU <<<<<","JOUER",1,"QUITTER",5
Lbl 1
Horiz
EffDessin
AxesNAff
FonctNAff
0{->}Xmin
94{->}Xmax
0{->}Ymin
31{->}Ymax
0{->}A
0{->}B
1{->}C
AffGraph
Disp "16 lettres max /
Input "MOT: ",Chaîne0
"CHAISEBATEAUCAHIERTENNISBOUTONREVEILLEZARDCHIMIEDOMINOBANANE
If Chaîne0="6 //: 6 pour un mot a 6lettres
sous-Chaîne(Rép,6entAléat(0,9)+1,6{->}Chaîne0 //: 10 mot ="entAléat(0,9)+1" ,11 mots = "entAléat(0,10)+1" etc, et le nombre 6 c'est le nbr de lettre
"LEXIQUEUTILISEPRESENT /
If Chaine0="7 /
Sous-Chaine(Rep,7entAléat(0,2)+1,7->Chaine0 /
"FONCTIONNAVIGUERAILLEURS
If Chaine0="8 /
Sous-Chaine(Rep,8entAléat(0,2)+1,8->Chaine0 /
longueur(Chaîne0{->}D
D{->}dim({L1}
Lbl 2
EffEcr
1{->}E
For(F,1,D
If {L1}(F
Then
Texte(0,E,sous-Chaîne(Chaîne0,F,1
Else
Texte(0,E,"-
End
E+4{->}E
End
If A=9
Goto 3
Input "LETTRE: ",Chaîne1
0{->}A
For(F,1,D
If sous-Chaîne(Chaîne1,1,1)=sous-Chaîne(Chaîne0,F,1
Then
1{->}{L1}(F
1{->}A
End
End
If A
Then
0{->}G
For(F,1,D
If {L1}(F
G+1{->}G
End
If D=G
9{->}A
Else
Texte(24,C,sous-Chaîne(Chaîne1,1,1
C+4{->}C
B+1{->}B
If B=1
Ligne(73,1,93,1
If B=2
Ligne(75,1,75,30
If B=3
Ligne(75,30,85,30
If B=4
Ligne(75,25,80,30
If B=5
Ligne(85,30,85,25
If B=6
Cercle(85,22,2
If B=7
Ligne(85,20,85,12
If B=8
Ligne(85,12,81,5
If B=9
Ligne(85,12,89,5
If B=10
Ligne(85,19,82,12
If B=11
Then
Ligne(85,19,88,12
Goto 4
End
End
Goto 2
Lbl 3
EffEcr
Output(2,6,"GAGNE!
Pause
Goto 0
Lbl 4
Texte(0,0,Chaîne0
EffEcr
Output(2,6,"PERDU!
Pause
Goto 0
Lbl 5
Output(4,6,"ALEXIS
RappelBDG 0
EffVar AEffVar BEffVar CEffVar DEffVar EEffVar FEffVar GEffVar YEffVar BDG0EffVar Chaîne0EffVar Chaîne1
Output(1,1,"
Voila
---------------------- "Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."
"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"
![](../images/char/<img src="./images/smileys/cupsmiley.gif" border="0" alt="cupsmiley.gif" title="cupsmiley.gif" />.png)
