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 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink