Alors voila deux petits programmes à tester !
Ce sont mes premiers VRAIS jeux et je voudrais avoir des avis 
OptiFlex est un jeu de mémoire visuelle, et TourneCase est un jeu de dextérité et de rapidité d'analyse.
Par contre... mes programmes sont lourds : 1094 pour OptiFlex et 1417 pour TourneCase ! Je voudrais savoir aussi si quelqu'un a des idées pour les optimiser ( sachant que les interfaces sont nickels, on ne lésine pas là-dessus ! Elle me prennent au moins 400 octets sur chaque programme...)
Et désolé pour ceux qui n'ont pas de câble, les programmes sont un peu longs... J'espère que vous en avez ! 
Merci d'avance pour les tests ! A +
TourneCase :
ClrHome
Lbl θ
Menu("TOURNECASE :","JOUER",2,"INSTRUCTIONS",4,"QUITTER",3
Lbl 3
ClrHome
Stop
Lbl 4
ClrHome
Disp "SI TU VOIS ECRIT
Disp " CASE
Pause
Disp "APPUIE SUR LA
Disp "CASE OU LE CHIF-
Disp "FRE EST AFFICHE.
Pause
ClrHome
Disp "SI TU VOIS ECRIT
Disp " CHIFFRE
Pause
Disp "APPUIE SUR LE
Disp "CHIFFRE QUI EST
Disp "AFFICHE.
Pause
Disp "
Disp "TU AS DU TEMPS !
Pause
Lbl 2
3→V
0→S
1→L
500→F
Lbl 8
ClrHome
Output(5,3,"ATTENTION...
For(T,0,400
End
ClrHome
Output(5,1,"VIE:
Output(5,5,V
Output(6,1,"SCORE:
Output(6,7,S
Output(1,10,"+-+-+-+
Output(3,10,"+-+-+-+
Output(5,10,"+-+-+-+
Output(7,10,"+-+-+-+
Output(2,10,"! ! ! !"
Output(4,10,"! ! ! !"
Output(6,10,"! ! ! !"
Lbl 1
If S=10 or S=20 or S=30 or S=40 or S=50 or S=60 or S=70 or S=80:F-50→F
randInt(1,2→M
randInt(1,9→A
randInt(1,9→X
If A=7:Output(2,11,X
If A=8:Output(2,13,X
If A=9:Output(2,15,X
If A=4:Output(4,11,X
If A=5:Output(4,13,X
If A=6:Output(4,15,X
If A=1:Output(6,11,X
If A=2:Output(6,13,X
If A=3:Output(6,15,X
If M=1:Goto U
If M=2:Goto N
Lbl U
Output(2,1,"CASE ! "
For(T,0,F
End
getKey→K
If (K=72 and A=7) or (K=73 and A= or (K=74 and A=9) or (K=82 and A=4) or (K=83 and A=5) or (K=84 and A=6) or (K=92 and A=1) or (K=93 and A=2) or (K=94 and A=3)
Then
S+1→S
Output(2,11,"
Output(2,13,"
Output(2,15,"
Output(4,11,"
Output(4,13,"
Output(4,15,"
Output(6,11,"
Output(6,13,"
Output(6,15,"
Output(6,7,S
Goto 1
Else
V-1→V
Goto 5
Lbl N
Output(2,1,"CHIFFRE !
For(T,0,F
End
getKey→K
If (K=72 and X=7) or (K=73 and X= or (K=74 and X=9) or (K=82 and X=4) or (K=83 and X=5) or (K=84 and X=6) or (K=92 and X=1) or (K=93 and X=2) or (K=94 and X=3)
Then
S+1→S
Output(2,11,"
Output(2,13,"
Output(2,15,"
Output(4,11,"
Output(4,13,"
Output(4,15,"
Output(6,11,"
Output(6,13,"
Output(6,15,"
Output(6,7,S
Goto 1
Else
V-1→V
Goto 5
End
Lbl 5
If V=–1:Goto 9
If V=1
Then
ClrHome
Output(5,1,"PLUS QUE 1 VIE !"
Pause
Goto 8
Else
If V=2
Then
ClrHome
Output(5,2,"ENCORE 2 VIES !
Pause
Goto 8
Else
If V=0
Then
ClrHome
Output(5,1,"DERNIERE CHANCE
Output(6,14,"...
Pause
Goto 8
End
Lbl 9
ClrHome
Output(6,4,"TROP LENT !
Output(2,4,"JUSTE
Output(2,10,S
Output(2,13,"?
Output(8,6,"HA HA !
Pause
ClrHome
Output(7,3,"BY PINGOUIN
Pause
Goto θ
OptiFlex :
Menu("NIVEAU DE JEU:","FACILE",8,"MOYEN",8,"DIFFICILE",7,"QUITTER",4
Lbl 4
ClrHome
Stop
Lbl 0
ClrHome
Disp "OPTIFLEX :
Disp "
Disp "RECOPIE X QUI
Disp "EST AFFICHE.
Pause
Output(7,1,"ATTENTION !
Output(8,1,"CA VA VITE...
Pause
15→P
99→E
10→N
1→L
0→S
Lbl 1
ClrHome
If S=10 or S=20 or S=30 or S=40 or S=50 or S=60 or S=70
Then
Goto 2
Else
Lbl 3
ClrHome
Output(8,9,"SCORE:
Output(8,15,S
Output(8,1,"LEVEL:
Output(8,7,L
randInt(N,E→X
randInt(3,6→J
randInt(1,P→I
Output(J,I,X
For(A,0,T
If A=T
ClrHome
End
Output(8,1,"LEVEL:
Output(8,7,L
Output(8,9,"SCORE:
Output(8,15,S
Disp "LE NOMBRE EST...
Input "",Y
If Y=X
Then
S+1→S
Goto 1
Else
Goto θ
End
Goto 1
Lbl 2
L+1→L
If L=2
Then
P-1→P
100→N:999→E
Output(3,1,"BIEN JOUE !
Output(6,3,"LEVEL 2
Pause
Goto 3
Else
If L=3
Then
P-1→P
1000→N:9999→E
Output(3,1,"COOL...
Output(6,3,"LEVEL 3
Pause
Goto 3
Else
If L=4
Then
P-1→P
10000→N:99999→E
Output(3,1,"PAS MAL !
Output(6,3,"LEVEL 4
Pause
Goto 3
Else
If L=5
Then
P-1→P
100000→N:999999→E
Output(3,1,"OULA FORTICHE !
Output(6,3,"LEVEL 5
Pause
Goto 3
Else
If L=6
Then
P-1→P
1000000→N:9999999→E
Output(3,1,"AH QUAND MEME...
Output(6,3,"LEVEL 6 !
Pause
Goto 3
Else
If L=7
Then
P-1→P
10000000→N:99999999→E
Output(3,1,"TU NE VERRAS
Output(4,1,"JAMAIS LE 8 !
Output(6,3,"LEVEL 7
Pause
Goto 3
Else
If L=8
Then
P-1→P
100000000→N:999999999→E
Output(3,4,"AH BEN SI.
Output(6,3,"LEVEL 8
Pause
Goto 3
End
Lbl θ
ClrHome
Output(3,6,"PERDU...
Output(5,1,"X VALAIT
Output(5,10,X
Output(8,9,"SCORE:"
Output(8,15,S
Pause
ClrHome
Output(7,3,"BY PINGOUIN
Pause
prgmOPTI82
Lbl 9
26→T
Goto 0
Lbl 8
20→T
Goto 0
Lbl 7
13→T
Goto 0
Ouais carrément long... 
Remplacer les " → " par le flèche STO. Et si les labels et gotos ont des noms louches, arrangez vous pour que les noms louches pareils se retrouvent avec le même label et goto !
|
