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
machine a sous
Auteur Message
flobla



Autorisation : Membre
Nb de messages : 6
Inscrit le : Mar 07 Nov 2006, 8:30
Posté le : Sam 25 Nov 2006, 17:35   Citer 

je sai qu'il existait deja une autre machine a sous mais voila une nouvelle version:

Code

:0üXmin:94üXmax:1üXscl
:0üYmin:62üYmax:1üYscl
:ClrHome
:ClrTable
:RectGC
:CoordOff
:GridOff
:AxesOff
:LabelOff
:FnOff
:ClrHome
:Horizontal 0
:Horizontal 62
:Vertical 0
:Vertical 94
:For(1,5,5
:Text(A,2,"FLOBLA"
:F+1üF
:B-1üB
:End
:For(1,1,20
:Text(A,30,"PRESENTE"
:F+1üF
:B-1üB
:End
:For(1,1,42
:Text(38,A,"MACHINE A SOUS"
:F+1üF
:B-1üB
:End
:For(A,1,48
:Text(50,A,"VERSION 1.1"
:Pause
:10üT
:Lbl 2
:Menu("MACHINE A SOUS","JEU",J,"INSTRUCTIONS",I,"QUITTER",Q
:Lbl 1
:ClrHome
:Goto J
:Lbl J
:ClrHome
:Goto 11
:Lbl 11
:ClrHome
:Output(1,1,"JETONS :"
:Output(1,9,T
:If T÷0
:Then:Goto 3
:End
:Pause
:Lbl 4
:Menu("COMBIEN TU PARI","1",A,"2",B,"3",C,"4",D,"5",E,"SUI:TE",Y
:Lbl Y
:Menu("SUITE","6",F,"7",G,"8",H,"9",K,"10",L
:Lbl A
:ClrHome
:T-1üT
:Goto 5
:Lbl B
:ClrHome
:T-2üT
:Goto 5
:Lbl 3
:ClrHome
:T-3üT
:Goto 5
:Lbl D
:ClrHome
:T-4üT
:Goto 5
:Lbl E
:ClrHome
:T-5üT
:Goto 5
:Lbl F
:ClrHome
:T-6üT
:Goto 5
:Lbl G
:ClrHome
:T-7üT
:Goto 5
:Lbl H
:ClrHome
:T-8üT
:Goto 5
:Lbl K
:ClrHome
:T-9üT
:Goto 5
:Lbl L
:ClrHome
:T-10üT
:Goto 5
:Lbl 5
:If T<0
:Goto 3
:Output(4,4,"["
:Output(4,6,"]"
:Output(4,7,"["
:Output(4,9,"]"
:Output(4,10,"["
:Output(4,12,"["
:Pause
:randInt(0,9)üF
:Pause
:randInt(0,9)üW
:Pause
:randInt(0,9)üV
:Pause
:Output(5,5,F
:Output(5,8,W
:Output(5,11,V
:If F=W and F=V and V=W
:Then:Output(7,1,"GAGNER !"
:Pause
:Input "COMBIEN TU AVAIS PARIE?",Á
:If Á=1
:Goto M
:If Á=2
:Goto N
:If Á=3
:Goto O
:If Á=4
:Goto P
:If Á=5
:Goto 9
:If Á=6
:Goto R
:If Á=7
:Goto S
:If Á=8
:Goto U
:If Á=9
:Goto V
:If Á=10
:Goto W
:Lbl M
:T+2üT
:Goto 1
:Lbl N
:T+4üT
:Goto 1
:Lbl O
:T+6üT
:Goto 1
:Lbl P
:T+8üT
:Goto 1
:Lbl 9
:T+10üT
:Goto 1
:Lbl R
:T+12üT
:Goto 1
:Lbl S
:T+14üT
:Goto 1
:Lbl U
:T+16üT
:Goto 1
:Lbl V
:T+18üT
:Goto 1
:Lbl W
:T+20üT
:Goto 1
:End
:If FøW and FøV and VøW
:Then:Output(7,1,"PERDU"
:Pause
:Menu(VEUX TU CONTINUER","OUI",8,"NON',Q
:Lbl 8
:End
:Goto 1
:Lbl 3
:ClrHome
:Output(1,1,"TU N AS PLUS DE"
:Output(2,1,"SOUS !"
:10üT
:Pause :Goto J
:Lbl I
:ClrHome
:ClrTable
:Text(4,2,"LE BUT EST "
:Text(10,2,"D AVOIR 3 COMBINAISONS "
:Text(16,2,"IDENTIQUES ET VOUS "
:Text(22,2,"GAGNER 2* VOTRE MISE "
:Text(28,2,"ET VOUS POUVEZ MISER "
:Text(34,2,"JUSQU A 10 JETONS. "
:Pause :Goto 2
:End
:Lbl Q
:ClrHome
:10üT
:Return



 Adresse email Haut de page Bas de page 
 
unknow
Avatar

Autorisation : Membre
Nb de messages : 232
Inscrit le : Jeu 12 Oct 2006, 19:30
Posté le : Sam 25 Nov 2006, 17:45   Citer 

ta pas mis de stop a la fin de ton prog donc apres le label q pour la reponse non, ton prog se s'eteindra 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 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Sam 25 Nov 2006, 19:36   Citer 

Non, ça marchera parceque c'est la fin du prog.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
flobla



Autorisation : Membre
Nb de messages : 6
Inscrit le : Mar 07 Nov 2006, 8:30
Posté le : Sam 25 Nov 2006, 20:45   Citer 

ca marche je l'ai testé avant de le mettre en ligne

 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