J'aimerai vous proposer un petit jeu dont le but est d'appuyer sur les bonnes touches le plus vite possible et ainsi faire les plus grand score.
Code
:EffDessin
:0->Xmin
:94->Xmax
:62->Ymax
:0->Ymin
:Lbl 1
:Menu("REFLEX","JOUER",J,"SCORE",S,"QUITTER",Q
:Lbl Q
:Stop
:Lbl J
:0->S
:0->E
:94->A
:EffDessin
:Horizontale 1
:Horizontale 2
:Horizontale 3
:While 1
:codetouche(->K
:If E=0
:Then
:entAleat(1,4->I
:1->E
:End
:If I=1
:Then
:Texte(20,25,"HAUTE"
:End
:If I=2
:Then
:Texte(20,25,"BASSE"
:End
:If I=3
:Then
:Texte(20,25,"GAUCHE"
:End
:If I=4
:Then
:Texte(20,25,"DROITE"
:End
:If K=24 et I=3
:Then
:S+1->S
:0->E
:A+3->A
:For(X,1,3
:For(Y,A-3,A-1
:Pt -Aff(Y,X
:End
:End
:Texte(20,25," "
:End
:If K=25 et I=1
:Then
:S+1->S
:0->E
:A+3->A
:For(X,1,3
:For(Y,A-3,A-1
:Pt -Aff(Y,X
:End
:End
:Texte(20,25," "
:End
:If K=26 et I=4
:Then
:S+1->S
:0->E
:A+3->A
:For(X,1,3
:For(Y,A-3,A-1
:Pt -Aff(Y,X
:End
:End
:Texte(20,25," "
:End
:If K=34 et I=2
:Then
:S+1->S
:0->E
:A+3->A
:For(X,1,3
:For(Y,A-3,A-1
:Pt -Aff(Y,X
:End
:End
:Texte(20,25," "
:End
:A-1->A
:For(B,1,3
:Pt -NAff(A,B
:End
:If A=0
:Then
:EffDessin
:EffEcr
:Disp "PERDU !","","SCORE :",S
:End
:If S>H
:Then
:L1->H
:{H}->L1
:End
:Pause
:Goto 1
:End
:Lbl S
:EffEcr
:{H}->L1
:L1->H
:Disp "RECORD :",H
:Pause
:EffEcr
:Goto 1
Comme vous avez pu le constater il est très long et c'est pourquoi je vous propose un lien pour les possesseurs de câbles. Sinon bonne chance.
