Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
Plus/moins : la version ultime !
Auteur Message
made2kill
Avatar

Autorisation : Membre
Nb de messages : 80
Inscrit le : Jeu 24 Fév 2011, 19:12
Posté le : Lun 28 Mar 2011, 10:06   Citer 

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 sarcatisk.gif cupsmiley.gif

PS 2: il fait 2242 octets beer.gif

Bon recopiage !

----------------------
Aussi connu sous le nom de f/x=x².
 Adresse email Haut de page Bas de page 
 
-Coco-



Autorisation : Membre
Nb de messages : 149
Inscrit le : Sam 28 Nov 2009, 16:09
Posté le : Lun 28 Mar 2011, 19:49   Citer 

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 ^^

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Persalteas



Autorisation : Membre
Nb de messages : 2176
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Lun 28 Mar 2011, 21:35   Citer 

Bravo made2kill.

Tu as su distinguer ton plus ou moins des miriades de plus ou moins programmés tous les ans par chaque débutant.

Au moins le tien restera une référence, mais c'est vrai que la présentation et les infos sur le jeu font lourd.

 Adresse email Haut de page Bas de page 
 
made2kill
Invité
Posté le : Lun 04 Avr 2011, 16:51   Citer 

@-Coco- : tu pourrais poster ton morpion? Ca m'intéresse happy.gif

  Haut de page Bas de page 
 
Akmdad
Avatar

Autorisation : Membre
Nb de messages : 726
Inscrit le : Mar 22 Jui 2010, 21:03
Posté le : Dim 10 Avr 2011, 18:51   Citer 

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!!!


j'ai une ti 82 stats fr et une ti89 titanium happy.gif
 Adresse email Haut de page Bas de page 
 
made2kill
Avatar

Autorisation : Membre
Nb de messages : 80
Inscrit le : Jeu 24 Fév 2011, 19:12
Posté le : Lun 11 Avr 2011, 9:19   Citer 


Citer : Secret Warfare
Sinon tu a oublié un " a la ligne "CONTACT"...



? Où ça? A la fin? C'est normal, c'est pour économiser un octet clown.gif
EDIT: Ah oui, je vois!
Code
"LUC.ALLIO[couleur=#FF0000]"[/couleur],"[AROBASE]","LAPOSTE.NET

ahh.gif Merci mec glasses.gif


Mais sinon c'est vrai que la présentation fait lourd, quelqu'un aurait une idée pour la réduire?

----------------------
Aussi connu sous le nom de f/x=x².
 Adresse email Haut de page Bas de page 
 
Akmdad
Avatar

Autorisation : Membre
Nb de messages : 726
Inscrit le : Mar 22 Jui 2010, 21:03
Posté le : Lun 11 Avr 2011, 12:04   Citer 

de rien winkle.gif

----------------------
retrouvez moi sur twitter!!!


j'ai une ti 82 stats fr et une ti89 titanium happy.gif
 Adresse email Haut de page Bas de page 
 
Programaths



Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Ven 22 Avr 2011, 16:51   Citer 

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 ...
"
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Programaths



Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Ven 22 Avr 2011, 17:06   Citer 

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 ! happy.gif :


Code

::Crldraw
:FnOff
:AxesOff
:0->Xmin
:0->Ymin
:94->Xmax
:62->Ymax
:Horizontal 0,62,1,61
:Vertical 0,1,93,94
:Circle(47,31,18,(i
:For(A,1,10
:For(B,0,2
:Text(-&30,8A+B,sub("PROGRAMMES",A,1
:End:end
:Text(37,60,"2nD
:Pt-On(5,24,3
:Pt-On(7,21,3
:Pt-On(14,24,3
:Text(45,24,"-- PRESENTE --
:Line(0,45,20,45
:Line(74,45,94,45
:For(A,0,66
Pt-Off(A,45
Pt-On(A+20,45
Pt-Off(94-A,45
Pt-On(74-A,45
End
:For(A,1,10
:For(B,0,2
:Text(-&30,8A+B,sub("  MATHS   ",A,1
End:End
Line(8,45,27,45
Line(67?45,86,45
For(A,0,94
Pt-Off(A,45
Pt-On(A+20,45
Pt-Off(94-A,45
Pt-On(74-A,45
End
Text(45,25,"--(BY-UGO)--
Circle(0,62,13,(i
Circle(94,62,13,(i
Circle(94,0,13,(i
Circle(0,0,13,(i
Lbl 0
[PROGRAMMES]




Voila happy.gif

----------------------
"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 ...
"
 Adresse email Haut de page Bas de page 
 
godzlove
Avatar

Autorisation : Membre
Nb de messages : 44
Inscrit le : Sam 16 Oct 2010, 10:29
Posté le : Mar 26 Avr 2011, 21:56   Citer 

tiens voila je t'ai économisé qq octets, après le problème du graphique c'est que sa prend beaucoup de place et qu'on ne peut rien y faire.


Code
ClrDraw
ClrHome
SaveBDG1
FnOff
AxesOff
CoordOff
0üXmin
94üXmax
0üYmin
62üYmax
Horizontal 0
Horizontal 62
Vertical 0
Vertical 94
SaveImg1
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
RecallImg1
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
Zstandart
RecallBDG1
Horizontal -1
Horizontal 1
Text(40,30,"DELETING
Shade(-1,1
ClrHome
Disp "SCORES EFFACES
Pause
Goto [THETA]
Lbl Q
ClrHome
Output(1,1,"



 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa