Autorisation : Membre
Nb de messages : 630
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Dim 17 Jui 2007, 13:59
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.
Autorisation : Membre
Nb de messages : 630
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Lun 02 Juil 2007, 11:29
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