Jcotnys le 09/07/2006 à 17:08
alor voila mon jeu en code
:
il y a 3 levels + la présentation:
Code
1er level :
:ClrDraw
:ClrHome
:Lbl I
:Text(27,34,"LEVEL 1 !"
:Pause :ClrDraw
:24->N:46->Q:68->M
:28->J:1->V
:47->T:46->U:60->W
:Text(56,15,"VIES",V)
:Horizontal 7
:Horizontal 55
:Vertical 10
:Vertical 84
:Circle(25,31,4.90)
:Circle(47,31,4.90)
:Circle(69,31,4.90)
:round(rand,zéro)->E
:round(rand,zéro)->F
:round(rand,zéro)->G
:For(A,1,1000)
:Text(56,40,"TPS:",int W,"''","4espaces")
:W-1->W
:If W[inférieur ou égal à]:Goto têta
:Text(J,N,"1
:Text(J,Q,"2
:Text(J,M,"3
:Text(T,U," . ")
:getkey->D
:If D=24:U-1->U
:If D=26:U+1->U
:If D=34:T+1->T
:If D=25:T-1->T
:Text(T+1,U,"3espaces")
:If T>51:51->T
:If T<7:7->T8
:If U>78:78->U
:If U<12:12->U
:Text(T,U," . ")
:If (T=J and U=N and E=1) or (T=J and U=Q and F=1) or (T=J and U=M and G=1)
:Then
:Text(15,15,"GAGNE !")
:V+1->V
:Pause :ClrDraw
:Text(1,1,"BRAVO ! TU PEUT CONTINUER")
:Text(7,1,"LE JEU AVEC LE LEVEL 2 !"
:Text(14,1,"TU AS:",V,"VIES")
:Pause :ClrDraw
:prgmLVL2
:End
:If (T=J and U=N and E=zéro)
or (T=J and U=Q and F=zéro) or (T=J and U=M and G=zéro)
:Then
:Text(15,15,"PERDU !"
:Pause :ClrDraw
:Goto têta
:Lbl têta
:Menu("REJOUER","OUI",I,"NON",S)
:Lbl S
:Stop
:End
:End
2ème level:
Code
:ClrDraw
:ClrHome
:Lbl 4
:Text(27,34,"LEVEL 2 !"
:Pause :ClrDraw
:24->N:46->Q:68->M
:28->J:2->V
:47->T:46->U:45->W
:Text(56,15,"VIES",V)
:Horizontal 7
:Horizontal 55
:Vertical 10
:Vertical 84
:Circle(25,31,4.90)
:Circle(47,31,4.90)
:Circle(69,31,4.90)
:round(rand,zéro)->O
:round(rand,zéro)->P
:round(rand,zéro)->R
:For(A,1,1000)
:Text(56,40,"TPS:",int W,"''","4espaces")
:W-1->W
:If W[inférieur ou égal à]:prgmLVL1
:Text(J,N,"1
:Text(J,Q,"2
:Text(J,M,"3
:Text(T,U," . ")
:getkey->D
:If D=24:U-1->U
:If D=26:U+1->U
:If D=34:T+1->T
:If D=25:T-1->T
:Text(T+1,U,"3espaces")
:If T>51:51->T
:If T<7:7->T
:If U>78:78->U
:If U<12:12->U
:Text(T,U," . ")
:If (T=J and U=N and O=1) or (T=J and U=Q and P=1) or (T=J and U=M and R=1)
:Then
:Text(15,15,"GAGNE !")
:V+1->V
:Pause :ClrDraw
:Text(1,1,"BRAVO ! TU PEUT CONTINUER")
:Text(7,1,"LE JEU"
:Text(14,1,"AVEC LE LEVEL SUPREME !"
:Text(21,1,"TU AS:",V,"VIES")
:Pause :ClrDraw
:prgmLVL3
:End
:If (T=J and U=N and O=zéro)
or (T=J and U=Q and P=zéro) or (T=J and U=M and R=zéro)
:Then
:Text(15,15,"PERDU !"
:Pause :ClrDraw
:V-1->V
:Text(1,1,"DOMMAGE ! TU REVIENS")
:Text(7,1,"AU LEVEL 1")
:Text(14,1,"TU AS:",V,"VIE")
:Pause :ClrDraw
:Goto têta
:Lbl têta
:prgmLVL1
:End
:End
3ème level:
Code
:ClrDraw
:ClrHome
:Lbl 5
:Text(27,21,"LEVEL SUPREME !"
:Pause :ClrDraw
:24->N:46->Q:68->M
:28->J:3->V
:47->T:46->U:30->W
:Text(56,15,"VIES",V)
:Horizontal 7
:Horizontal 55
:Vertical 10
:Vertical 84
:Circle(25,31,4.90)
:Circle(47,31,4.90)
:Circle(69,31,4.90)
:round(rand,zéro)->K
:round(rand,zéro)->L
:round(rand,zéro)->B
:For(A,1,1000)
:Text(56,40,"TPS:",int W,"''","4espaces")
:W-.73->W
:If W[inférieur ou égal à]:prgmLVL1
:Text(J,N,"1
:Text(J,Q,"2
:Text(J,M,"3
:Text(T,U," . ")
:getkey->D
:If D=24:U-1->U
:If D=26:U+1->U
:If D=34:T+1->T
:If D=25:T-1->T
:Text(T+1,U,"3espaces")
:If T>51:51->T
:If T<7:7->T
:If U>78:78->U
:If U<12:12->U
:Text(T,U," . ")
:If (T=J and U=N and K=1) or (T=J and U=Q and L=1) or (T=J and U=M and B=1)
:Then
:Text(14,14,"GAGNE !")
:Pause :ClrDraw
:Text(1,1,"EXTRAORDINAIRE !")
:Text(7,1,"TU AS FINI LE JEU !"
:Text(21,1,"JCOTNYS")
:Stop
:End
:If (T=J and U=N and K=zéro)
or (T=J and U=Q and L=zéro) or (T=J and U=M and B=zéro)
:Then
:Text(14,14,"PERDU !"
:Pause :ClrDraw
:V-1->V
:Text(1,1,"DOMMAGE ! TU REVIENS")
:Text(7,1,"AU LEVEL 2")
:Text(14,1,"TU AS:",V,"VIES")
:Pause :ClrDraw
:Goto têta
:Lbl têta
:prgmLVL2
:End
:End
la présentation :
Code
:ClrDraw
:ClrHome
:Text(1,1,"POUR TOUS LES HUMAiNS")
:For(Z,zéro,100)
:End
:Text(1,77,".")
:For(Z,zéro,150)
:End
:Text(1,80,".")
:For(Z,zéro,150)
:End
:Text(1,83,".")
:For(Z,zéro,150)
:End
:Text(7,1,"IL EXISTE DEUX VALEURS")
:For(Z,zéro,100)
:End
:Text(7,76,".")
:For(Z,zéro,150)
:End
:Text(7,79,".")
:For(Z,zéro,150)
:End
:Text(7,82,".")
:For(Z,zéro,150)
:End
:Text(14,1,"DONT L'UNE DIRIGE L'AUTRE")
:For(Z,zéro,100)
:End
:Text(14,87,".")
:For(Z,zéro,150)
:End
:Text(14,90,".")
:For(Z,zéro,150)
:End
:Text(14,93,".")
:For(Z,zéro,150)
:End
:Text(21,1,"LE DESTIN OBEIT AUX CHOIX ! ! !")
:For(Z,zéro,100)
:End
:For(Z,1,30)
:Text(35,Z," BIENVENUE")
:Text(42,94-(Z+23),"DANS")
:End
:Text(49,37," CHOICE !")
:Pause :ClrDraw
:Lbl 2
:Menu("CHOICE","JOUER",7,"AIDE",9,"QUITTER",zéro)
:Lbl 7
:prgmLVL1
:Lbl 9
:CLrDraw
:Text(1,1,"BOUGER:HAUT,BAS")
:Text(7,28,"GAUCHE,DROITE"
:Text(14,1,"MISSION:")
:Text(21,1,"IL Y A 3 PASSAGES.")
:Text(28,1,"CHOISI EN UN ET A TOI"
:Text(35,1,"LA LIBERTE !")
:Text(42,1,"ATTENTION AU TEMPS !")
:Text(56,1,"BONNE CHANCE !")
:Pause :ClrDraw
:Goto 2
:Lbl zéro
:Stop
voila
(jvé mettre le lien biento !
)
)
