  |
|
| 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
|
|
 |
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
|
|
 |
  |
| |
unknow
Autorisation : Membre
Nb de messages : 229
Inscrit le : Jeu 12 Oct 2006, 19:30
|
Posté le : Sam 25 Nov 2006, 17:45
|
|
|
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 |
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Sam 25 Nov 2006, 19:36
|
|
|
Non, ça marchera parceque c'est la fin du prog.
Sangohan38
|
| |
|
| |
flobla
Autorisation : Membre
Nb de messages : 6
Inscrit le : Mar 07 Nov 2006, 8:30
|
Posté le : Sam 25 Nov 2006, 20:45
|
|
|
ca marche je l'ai testé avant de le mettre en ligne
|
| |
|
| |
| |
|
|
|
