ce prog n'est pas de moi, mais celui qui l'a fait l'a fait beaucoup trop lourd.
lBOW signifie liste "BOW" donc le l se trouve en faisant [2nde] [stats] [>] [^] [enter]
Code
:2->dim(lBOW
:2->M:0->C
:EffListe L1,L3
:12->dim(L1
:Remplir(99,L1
:23->dim(L3
:10->L3(21
:10->L3(23
:11->L3(22
:Lbl N
:Menu("----BOWLING-----","JEU",1,"QUIT",H
:Lbl 1
:Input "VITESSE? (1a5) ",N
:If 1>N ou N>5:Goto 1
:N->I
:If N=1:22->N
:If N=2:17->N
:If N=3:12->N
:If N=4:7->N
:If N=5:1->N
:9->L
:Lbl D
:EffEcr
:EffListe L2
:10->dim(L2
:1->H
:1->R
:For(A,1,8
:Output(A,3,"!"
:Output(A,13,"!"
:End
:If non(L2(1:Output(4,8,"O"
:If non(L2(2:Output(3,7,"O"
:If non(L2(3:Output(3,9,"O"
:If non(L2(4:Output(2,6,"O"
:If non(L2(5:Output(2,8,"O"
:If non(L2(6:Output(2,10,"O"
:If non(L2(7:Output(1,5,"O"
:If non(L2(8:Output(1,7,"O"
:If non(L2(9:Output(1,9,"O"
:If non(L2(10:Output(1,11,"O"
:Lbl A
:For(D,12,4,-1
:Output(8,D,"O"
:Output(8,D+1," "
:Output(8,13,"!"
:Output(8,4," "
:For(E,1,N):End
:If codetouche=105:Goto B
:End
:Goto A
:Lbl B
:C+1->C
:Output(8,D," "
:For(E,7,1,-1
:Output(E,D,"O"
:Output(E+1,D," "
:Output(E,D-1," "
:Output(E,D+1," "
:If D=8:Then
:Output(E,D+2," "
:Output(E,D-2," "
:Output(E,D+3," "
:Output(E,D-3," "
:Remplir(1,L2
:End
:If D=7:Then
:Output(4,8,"O"
:1->L2(2:1->L2(4:1->L2(5
:1->L2(7:1->L2(8:1->L2(9
:End
:If D=9:Then
:Output(4,8,"O"
:1->L2(3:1->L2(6:1->L2(5
:1->L2(8:1->L2(10:1->L2(9
:End
:If D6:Then
:Output(3,7,"O"
:1->L2(7:1->L2(8:1->L2(4
:End
:If D=10:Then
:Output(3,9,"O"
:1->L2(6:1->L2(10:1->L2(9
:End
:If D=5:Then
:Output(2,6,"O"
:1->L2(7
:End
:If D=11:Then
:Output(2,10,"O"
:1->L2(10)
:End
:If D=4:Then
:Output(G,3,"!"
:Output(1,5,"O"
:End
:If D=12:Then
:Output(G,13,"!"
:Output(1,11,"O"
:End
:End
:Output(1,D," "
:If D=7 ou D=9:Then
:Output(1,D-2," "
:Output(1,D+2," "
:End
:0->O
:For(E,1,10
:L2(E)+O->O
:End
:Goto P
:Lbl Q
:If H=2:C-1->C
:If H=2:Goto G
:If D=8:Then
:EffEcr
:Output(4,5,"STRIKE!"
:Pause:EffEcr
:11->O
:Goto J
:End
:H+1->H
:Goto A
:Lbl G
:If O=10:Then
:EffEcr
:Output(4,6,"SPARE!"
:Pause:EffEcr
:End
:Lbl J
:O->L1(C)
:
:Disp " -SCORES- ","----------------"," 1! 2! 3! 4! 5!"," ! ! ! ! !"," 6! 7! 8! 9! 10!"," ! ! ! ! !"
:Output(8,1,"----------------"
:4->B
:Lbl J2
:0->K
:For(F,2,15,3
:If R=10:F+1->F
:If L1(R)=11:Output(B,F,"X"
:If L1(R)=10:Output(B,F,"/"
:If L1(R)<10:Output(B,F,L1(R)
:R+1->R
:If R=11:Goto Z
:End
:If C>5 et B=4:Then
:7->B:2->K
:End
:If K=2:Goto J2
:Lbl Z
:Pause
:If C=10:Goto R
:Goto D
:Lbl P
:If H=1:Then
:O->L3(2C-1)
:11->L3(2C)
:End
:If H=2
:O-L3(2C-1)->L3(2C)
:Goto Q
:Lbl R
:EffEcr
:For(E,1,19,2
:Output(4,4,"PROCESSING"
:Output(5,6,"SCORE"
:If L3(E)=10 et L3(E+2)=10
:10+L3(E+4)+P->P
:If L3(E)=10 et L3(E+2)=/=10
:L3(E+2)+P+L3(E+3)->P
:If L3(E)+L3(E+1)=10
:L3(E+2)+P->P
:If L3(E)=/=10:Then
:L3(E)+L3(E+1)+P->P
:Else
:10+P->P
:End
:End
:EffEcr
:Output(4,4,"TOTAL "
:Output(4,10,P
:Pause:EffEcr
:Lbl S
:EffEcr
:Disp "YOU SCORED...","ON SPEED..."
:Output(1,14,P
:Output(2,12,I
:Pause:EffEcr
:Disp "THE OLD RECORD","IS...","ON SPEED..."
:Output(2,6,lBOW(1
:Output(4,12,lBOW(2
:Pause:EffEcr
:If PI>lBOW(1)*lBOW(2):Then
:P->lBOW(1
:I->lBOW(2
:Disp "YOU BROKE THE","RECORD AND","YOUR NEW RECORD","IS...","",ON SPEED..."
:Output(5,6,P
:Output(7,12,I
:Pause:EffEcr
:Goto N
:End
:EffEcr
:Output(4,4,"TRY AGAIN"
:Pause:EffEcr
:Menu("PLAY AGAIN ?","YES",N,"NO",H
:Lbl H
:EffListe L1,L2,L3
:EffVar AEffVar BEffVar CEffVar DEffVar EEffVar FEffVar HEffVar IEffVar J
:EffVar KEffVar LEffVar NEffVar PEffVar REffVar MEffVar O
