Autorisation : Membre
Nb de messages : 80
Inscrit le : Jeu 24 Fév 2011, 19:12
Posté le : Lun 28 Mar 2011, 10:06
Et voici la version ultime du jeu plus/moins sur calto, qui est pour moi la meilleure qu'on puisse faire en BASIC.
Merci à Persalteas et au Webmaster pour leurs idées de présentation que j'ai repris dans mon prog.
Code
ClrDraw
ClrHome
FnOff
AxesOff
CoordOff
0üXmin
94üXmax
0üYmin
62üYmax
Horizontal 0
Horizontal 62
Vertical 0
Vertical 94
Line(0,45,20,45
Line(74,15,94,15
For(A,0,94
Pt-Off(A,45
Pt-Off(94-A,15
Pt-On(A+20,45
Pt-On(74-A,15
End
For(A,1,7
Text(8,A,"MADE2KILL
End
For(A,1,13
Text(A,53,"24/03/2011
End
For(A,1,10
For(B,0,2
Text(-1,30,8A+B,sub("PRESENTE :",A,1
End
End
Pt-On(5,24,3
Pt-On(7,21,3
Pt-On(14,24,3
Pause
ClrDraw
Horizontal 0
Horizontal 62
Vertical 0
Vertical 94
For(A,1,10
For(B,0,2
Text(-1,30,8A+B,sub("PLUS/MOINS",A,1
End
End
Pause
ClrDraw
3üdim(lPLUS
Lbl [THETA]
1üZ
Menu("PLUS/MOINS","JOUER",J,"SCORES",S,"OPTIONS",R,"CREDITS",C,"QUITTER",Q
Lbl R
Menu("OPTIONS","BUT DU JEU",B,"NIVEAU BLOQUE",N,"REINITIALISER",8,"RETOUR",[THETA]
Lbl B
ClrHome
Disp "CHOISISSEZ UN","MODE:"," ","-FACILE","-MOYEN","-DIFFICILE."
Pause
ClrHome
Disp "IL FAUT ENSUITE","ENTRER UN","NOMBRE, COMPRIS","ENTRE :
Pause
ClrHome
Disp "-FACILE:","1 ET 500","-MOYEN","1 ET 1000","-DIFFICILE:","1 ET 5000
Pause
ClrHome
Disp "LE PROGRAMME","VOUS DIRA SI","C'EST PLUS,","C'EST MOINS OU","C'EST CA".
Pause
ClrHome
Disp "LE NOMBRE DE","COUPS EST","COMPTE A",'CHAQUE PARTIE,","ET LE SCORE LE","MOINS ELEVE EST","CONSERVE.
Pause
ClrHome
Goto [THETA]
Lbl N
ClrHome
Disp "IL Y A 3 MODES","DE JEU, MAIS","UN NIVEAU EST","BLOQUE, ET SERA","DEBLOQUE DES","QUE VOUS AUREZ
Pause
ClrHome
Disp "FAIT MOINS DE","10 COUPS DANS","CHAQUE MODE.
Pause
ClrHome
Disp "DANS LE MOSE","IMPOSSIBLE","(MODE BLOQUE)","LE NOMBRE A","TROUVER EST","COMPRIS ENTRE","1 ET 10000.
Pause
ClrHome
Goto [THETA]
Lbl C
ClrHome
Disp "JEU CREE PAR","MADE2KILL,","LE 24/03/2011."," ","CONTACT:","LUC.ALLIO,"[AROBASE]","LAPOSTE.NET
Pause
ClrHome
Goto [THETA]
Lbl J
Menu("DIFFICULTE","FACILE",1,"MOYEN",2,"DIFFICILE",3,"IMPOSSIBLE",4
Lbl 1
randInt(1,500)üA
1üK
Goto 5
Lbl 2
randInt(1,1000)üA
2üK
Goto 5
Lbl 3
randInt(1,5000)üA
3üK
Goto 5
Lbl 4
If sum(lPLUS)[INFERIEUR OU EGAL] 30 and lPLUS(1)[INFERIEUR OU EGAL]10 and lPLUS(1)[DIFFERENT DE]0 and lPLUS(2)[INFERIEUR OU EGAL]10 and lPLUS(2)[DIFFERENT DE]0 and lPLUS(3)[INFERIEUR OU EGAL]10 and lPLUS(3)[DIFFERENT DE]0
Then
randInt(1,10000)üA
4üK
Goto 5
ElseClrHome
Disp "REVE PAS COCO","IL FAUT LE","DEBLOQUER CE","MODE
Pause
ClrHome
Goto [THETA]
Lbl 5
Disp "COMBIEN?",""," "," "," "," ","
Output(3,11,Z
Input G
If G[SUPERIEUR A]A
Goto 10
If G[INFERIEUR A]A
Goto 11
If G=A
Goto 12
Lbl 10
Output(4,1,"C'EST MOINS
Z+1üZ
Pause
Goto 5
Lbl 11
Output(4,11,"C'EST MOINS
Z+1üZ
Pause
Goto 5
Lbl 12
Output(4,1,"C'EST CA !
Pause
ClrHome
For(A,1,10
For(B,0,2
Text(-1,30,8A+B," BRAVO! "," ","
End
End
ClrHome
If Z[INFERIEUR A]10 and K=4
Then
ClrHome
For(A,1,8
Output(A,1,"FELICITATIONS!!
End
Pause
ClrHome
Disp "TU AS REUSSI LE","MODE","IMPOSSIBLE !!!!
Pause
ClrHome
For(A,1,1500:End
Goto C
Else
If Z[INFERIEUR A]10 and K[DIFFERENT DE]4
Then
ZülPLUS(K
Goto [THETA]
Else
Goto [THETA]
Lbl S
ClrHome
Disp "LE PLUS BAS","SCORE DANS","CHAQUE","CATEGORIE :
Pause
ClrHome
Disp "-FACILE:"
Output(2,1,lPLUS(1
Output(3,1,"-MOYEN:
Output(4,1,lPLUS(2
Output(5,1,"-DIFFICILE:
Output(6,1,lPLUS(3
Pause
ClrHome
Goto [THETA]
Lbl 8
Menu("ETES-VOUS SUR ?","OUI",9,"NON",[THETA]
Lbl 9
ClrList lPLUS
3üdim(lPLUS
ClrDraw
-10üXmin
10üXmax
-10üYmin
10üYmax
Horizontal -1
Horizontal 1
Text(40,30,"DELETING
Shade(-1,1
ClrHome
Disp "SCORES EFFACES
Pause
Goto [THETA]
Lbl Q
ClrHome
Output(1,1,"
Voili voilou!
PS: le programme marche
PS 2: il fait 2242 octets
Bon recopiage !
---------------------- Aussi connu sous le nom de f/x=x².
Autorisation : Membre
Nb de messages : 149
Inscrit le : Sam 28 Nov 2009, 16:09
Posté le : Lun 28 Mar 2011, 19:49
Faire quelque chose d'aussi élaboré pour un plus ou moins, fut-ce réellement nécessaire ?
En tout cas le jeu est attrayant par son aspect graphique (une fois sur la calculette), mais un peu moins quand on se dit qu'il va falloir recopier tout ça...
J'avais fait un morpion sur calculatrice avec écran graphique et IA fonctionnelle (imbattable en difficile) et je crois qu'il prenait moins d'octets que ce plus ou moins ^^
Autorisation : Membre
Nb de messages : 713
Inscrit le : Mar 22 Jui 2010, 21:03
Posté le : Dim 10 Avr 2011, 18:51
Sinon tu a oublié un " a la ligne "CONTACT"...
mais je comprens pas pourquoi faire un prog aussi lourd pour un jeu aussi simple et pas vraiment addictf...
a part ca c'est tres joli :-)
---------------------- retrouvez moi sur twitter!!!
Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Ven 22 Avr 2011, 16:51
Pas mal ce jeux ! je connaissais pas xD
Les animations sont bien !! y en a-t-il d'autre comme celles la ?
---------------------- "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 : Ven 22 Avr 2011, 17:06
Je vous montre mon animation : ( inspiré, moi aussi de persalteas ! en cherchant un peux, j'ai su comment faire des verticales etc..)
Et j'aimerais bcp avoir 'autre animations comme celle ci ! :
---------------------- "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 ...
"
Merci mec 
