Autorisation : Membre
Nb de messages : 81
Inscrit le : Lun 15 Sep 2008, 17:13
Posté le : Dim 09 Nov 2008, 14:54
salut tout le monde, voila maintenant 2 ou 3 mois que je programme et je viens de finir mon premier jeu.
Il est tout simple :
-le but du jeu est de toucher le "o" qui se déplace a intervalle régulier d'environs 10 secondes.
-Pour toucher le "o" il faut se déplacer verticalement à l'aide des touches 25 et 34 puis tiré à l'aide de la touche 105.
-La partie dure de 1 à 3 mn.
Voici le code :
Code
clrdraw
fnoff
axesoff
0->Xmin:100->Xmax
0->Ymin:100->Ymax
30->J:0->I
0->G
Menu("Jeu","Durée partie",0,"Quit",B
lbl 0
Menu("durée parti","1 minute",1,"2 minutes",2,"3 minutes",3,"quit",B
Lbl 1
1->M:60->S
goto A
lbl 2
2->M:60->S
goto A
lbl 3
3->M:60->S
goto A
lbl A
Repeat K=22 or M[inferieur ou égal à]0 and S[inferieur ou égal à]0
getkey->K
If S[inferieur ou égal à]0
then
60->S
end
S-0.2->S
M-(0.2/60)->M
Text(2,38,ipart M
text(2,45,"''"
text(2,50,ipart S
text(2,60,"''"
text(55,60,"Score :"
text(55,84,G
J-(K=25)+(K=34)->J
text(J,I,"---"
text(J,I," "
ipart 80rand->X
ipart 50rand->Y
If X[inferieur à]20:X+20->X
If Y[inferieur à]5:Y+7->Y
If X[inferieur à]20 and Y[inferieur à]5
then
x+20->X
Y+7->Y
end
text(Y,X,"o"
0->D
repeat D=0 or M=0 or K=22
getkey->K
D+0.2->D
S-0.2->S
M-(0.2/60)->M
text(2,38,ipart M
text(2,50,ipart S
J-(K=25)+(K=34)->J
text(J,I,"---"
text(J+5,I," "
If K=105
then
8->T
repeat T=88 or K=22 or T+5[inferieur ou égal à]X and T+6[superieur ou égal à]X and J[inferieur ou égal à]Y+2 and J[superieur ou égal à]Y-2 or D=10
Getkey->K
D+0.2->D
S-0.2->S
M-(0.2/60)->M
t+2->T
text(2,38,ipart M
text(2,50,ipart S
Text(J+1,T," -"
If T+5[inferieur ou égal à]X and T+6[superieur ou égal à]X and J[inferieur ou égal à]Y+2 and J[superieur ou égal à]Y-2
then
if D[inferieur ou égal à]3:G+5->G
if D[superieur à]3 and D[inferieur ou égal à]5:G+4->G
if D[superieur à]5 and D[inferieur ou égal à]8:G+3->G
if D[superieur à]8:G+5->G
10->D
End
End
Clrdraw
End
End
Clrdraw
End
clrdraw
If G[superieur à]W:G->W
output(1,1,"fin de la partie"
output(3,1,"Ton scrore:"
output(3,12,G
output(5,1,"Meillieur score:"
output(6,8,W
output(8,2,"By denis10"
stop
lbl B
clrdraw
stop
(-> = sto)
Ce petit jeu a surement quelques défauts, et doit certainement pouvoir être amélioré alors n'ésité pas, donner moi des conseils pour l'améliorer
Si le jeu vous intéresse bonne chances pour recopier le code !!
