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
(7) Machine à sous
Auteur Message
Belvar



Autorisation : Membre
Nb de messages : 57
Inscrit le : Lun 09 Fév 2009, 15:46
Posté le : Lun 09 Fév 2009, 19:03   Citer 

Bon voilà, je pense que vous connaissez tous le principe de la machine à sous.
J'ai quand même fait un petit gif pour illustrer :


le code :


Code
0→S
0→A
0→I
ClrHome
Output(1,5,"MACHINE")
Output(2,8,"a")
Output(3,6,"SOUS
Output(4,3,"Par BELVAR
Output(5,3,"PRESS ENTER")
Pause
Menu("MACHINE A SOUS","COMMENCER",1,"QUITTER",2)
Lbl 1
0→A
Menu("PARTIE","LIBRE",C,"ARGENT",4
Lbl 4
1→A
ClrHome
Menu("SOLDE","100",7,"300",8,"500",9,"PERSO",0)
Lbl 0
ClrHome
Input "SOLDE : ",S
Goto C
Lbl 7
100→S
Goto C
Lbl 8
300→S
Goto C
Lbl 9
500→S
Lbl C
ClrHome
Disp S
Output(1,1,"SOLDE:")
Input "MISE :",M
If M≤0
Then
Output(3,1,"ESPECE DE TRICHEUR DE MERDE
Pause
Goto 2
End
If M>S and A=1
Then
Output(3,1,"PAS ASSEZ D:ARGENT
Pause
Goto C
End
iPart(S-M)→S
0→I
Repeat I=10
Output(5,3,randInt(0,9)
Output(5,8,randInt(0,9)
Output(5,13,randInt(0,9)
I+1→I
End
randInt(0,9)→X
randInt(0,9)→Y
randInt(0,9)→Z
Output(5,3,X)
Output(5,8,Y)
Output(5,13,Z)
Pause
If X=Y and Y=Z:Goto W
If X=Y:Goto U
If Y=Z:Goto U
If X=Z:Goto U
If X≠Y and Y≠Z
Disp "DOMMAGE...
Goto F
Lbl W
Disp "JACKPOOOOT
(M*50)+S→S
Goto F
Lbl U
Disp "PAS MAL
iPart((M*1.5))+S→S
Lbl F
Pause
If A=1 and S≤0
Then
ClrHome
Output(5,5,"PERDU...")
Pause
Menu("REJOUER ?","OUI",1,"NON",2)
End
Goto C
Lbl 2
ClrHome
Output(1,1,"



Et le fichier .83p :

http://www.megaupload.com/?d=Y3X5KQOO

 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