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
tierce
Auteur Message
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Dim 17 Jui 2007, 13:59   Citer 

voila il y a 2 mois pm dej a demande un jeu de tierce je l'ai fait et posté il a été supprimé la je me rattrape je le poste vite fait voila le lien badongo.
http://www.badongo.com/file/3457544 le code arrive.

 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Lun 02 Juil 2007, 11:29   Citer 

voila le code
Code
ClrHome
Output(4,4,"MADIAN CORP
Output(5,4,"PRESENTE
For(T,0,800
End
ClrHome
Output(4,4,"TIERCE"
For(T,0,800
End
ClrHome
Lbl 0
Menu("TIERCE","NEW GAME",1,"LOAD GAME",2,"INSTRUCTIONS",10,"QUITTER",11
Lbl 10
Disp "LA COTE DES","CHEVAUX EST","DONNE CHOISI EN","UN PARIE UNE","SOMME VOIT LA","COURSE ET SI","TON CHEVAL"
Pause
ClrHome
Disp "GAGNE PLUS","SA COTE EST","ELEVEE PLUS TU","GAGNE D'ARGENT"
Pause
ClrHome
Goto 0
Lbl 11
Stop
Lbl 1
50->X
Goto 2
Lbl 2
Disp "TU AS",X,"EUROS"
For(T,0,800
End
ClrHome
If X=0:Stop
randInt(2,10)->C
randInt(2,10)->F
randInt(2,10)->I
randInt(2,10)->L
randInt(2,10)->O
Output(1,1,"COTE DES CHEVAUX"
Output(2,1,"CHEVAL 1:
Output(2,10,12-C
Output(3,1,"CHEVAL 2:
Output(3,10,12-F
Output(4,1,"CHEVAL 3:
Output(4,10,12-I
Output(5,1,"CHEVAL 4:
Output(5,10,12-L
Output(6,1,"CHEVAL 5:
Output(6,10,12-O
Pause
ClrHome
Menu("PARIER SUR","CHEVAL 1",3,"CHEVAL 2",4,"CHEVAL 3",5,"CHEVAL 4",6,"CHEVAL 5",7)
Lbl 3
1->P
Goto 8
Lbl 4
2->P
Goto 8
Lbl 5
3->P
Goto 8
Lbl 6
4->P
Goto 8
Lbl 7
5->P
Goto 8
Lbl 8
ClrHome
Input "PARIER COMBIEN:",Q
If Q÷0 or Q>X
Goto 8
X-Q->X
ClrHome
20->A
0->B
25->D
0->E
30->G
0->H
35->J
0->K
40->M
0->N
ClrDraw
Lbl 9
Pxl-On(A,B)
Pxl-On(D,E)
Pxl-On(G,H)
Pxl-On(J,K)
Pxl-On(M,N)
randInt(1,C)->Á
If Áø1:B+1->B
randInt(1,F)->Á
If Áø1:E+1->E
randInt(1,I)->Á
If Áø1:H+1->H
randInt(1,L)->Á
If Áø1:K+1->K
randInt(1,O)->Á
If Áø1:N+1->N
If Bø95 and Eø95 and Hø95 and Kø95 and Nø95
Goto 9
Text(0,0,"EGALITE
If B>E and B>H and B>K and B>N
Text(0,0,"CHEVAL 1 GAGNE"
If E>B and E>H and E>K and E>N
Text(0,0,"CHEVAL 2 GAGNE
If H>B and H>E and H>K and H>N
Text(0,0,"CHEVAL 3 GAGNE
If K>B and K>E and K>H and K>N
Text(0,0,"CHEVAL 4 GAGNE
If N>B and N>E and N>H and N>K
Text(0,0,"CHEVAL 5 GAGNE
Pause
ClrDraw
If B>E and B>H and B>K and B>N and P=1
X+Q(12-C)->X
If E>B and E>H and E>K and E>N and P=2
X+Q(12-F)->X
If H>B and H>E and H>K and H>N and P=3
X+Q(12-I)->X
If K>B and K>E and K>H and K>N and P=4
X+Q(12-L)->X
If N>B and N>E and N>H and N>K and P=5
X+Q(12-O)->X
Goto 2




 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Lun 02 Juil 2007, 12:09   Citer 

est ce que je peux avoir des avis?

 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Lun 02 Juil 2007, 12:37   Citer 

oui : tu peux faire plus court :p

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Mar 03 Juil 2007, 8:48   Citer 

ah bon je voi pas moi ou sa?

 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Mar 03 Juil 2007, 11:18   Citer 

partout ou il y a 5 fois la même chose...

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Mer 04 Juil 2007, 8:47   Citer 

oui mais ou je vois pas moi.

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Mer 04 Juil 2007, 10:14   Citer 

=> bah tu remplaces les variables par un grande liste ce qui te permet d'utiliser des for et de réduire considerablement la taille du prog :p ( glasses.gif glasses.gif glasses.gif )

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Mer 04 Juil 2007, 10:16   Citer 

j'ai rien compris.

 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Mer 04 Juil 2007, 10:21   Citer 

bah en gros à la place de A tu mets L1(1)
à la place de B tu mets L1(2)
à la place de D tu mets L1(3)
à la place de E tu mets L1(4)
...


et ensuite :


Code
Pxl-On(A,B)
Pxl-On(D,E)
Pxl-On(G,H)
Pxl-On(J,K)
Pxl-On(M,N)




Code
for (Z,1,10,2
Pxl-On(L1(Z),L1(Z+1))
end



et tu fais ca pour tout... :p

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Mer 04 Juil 2007, 10:31   Citer 

oui mais sa va il est pas trop long donc je vois pas d'utilité extreme a le faire

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
unknow
Avatar

Autorisation : Membre
Nb de messages : 232
Inscrit le : Jeu 12 Oct 2006, 19:30
Posté le : Mer 04 Juil 2007, 15:43   Citer 

il est tout ton sukoban parce que jle voit pas

----------------------
Ta le look coco

Tout nouveau design venait jeter un coup d'oeil ca en vaut la peine, ca a totalement changé
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Jeu 05 Juil 2007, 8:39   Citer 

bien sur vu kil y a un concours je risque de me faire copier.

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
unknow
Avatar

Autorisation : Membre
Nb de messages : 232
Inscrit le : Jeu 12 Oct 2006, 19:30
Posté le : Jeu 05 Juil 2007, 12:00   Citer 

ah c'est le prog du concour? ok...

----------------------
Ta le look coco

Tout nouveau design venait jeter un coup d'oeil ca en vaut la peine, ca a totalement changé
 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Jeu 05 Juil 2007, 13:29   Citer 

apres le concours je le poste a moins qu'avec 1 chance sur 1000 je gagne.

 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