[BASIC] astuce menu de levels.

un menu pour choisir le level au début d'un jeu:

Code:


:0
:Menu("LEVEL ?      ","",1,"",2,"",3,"",4,"",5,"",6
:Lbl 6
:Rep+1
:Lbl 5
:Rep+1
:Lbl 4
:Rep+1
:Lbl 3
:Rep+1
:Lbl 2
:Rep+1
:Lbl 1
:Rep+1→L


et hop! la variable L contient votre numéro de level!

qu'est-ce que vous en pensez?

Je te fais mieux:

Code:

:EffEcr
:Output(1,5,"LEVEL:
:For(A,2,7)
:Output(A,2,A-1
:End
:2->Y
:Repeat K=105
:codetouche->K
:Y-(K=25 et Y!=2)+(K=34 et Y!=7->Y
:Output(Y,1,">
:End
:Y-1->L

!= -> different de

Bien.

Merci.

et questions octets ça donne quoi?

je peux pas vérifier, j'ai pas de calto sur moi là.

99 octets pour le tien et 97 pour le mien.

C'est méchant.

bon, admettons.
enlève les espaces après le mot "level?".

xD

Oui mais c'est vrai.

c'est vrai quoi?

edit:
eeeh! y'a erreur, là!! ça devait être mon 400e message, c'est devenu mon 300e !!
ou sont passés mes 100 messages de plus?

Que mon programme fait 2 octets de moins que le tien.

tu avais déjà enlevé les espaces quand tu as compté?

et cette histoire de messages est bizzarre:

j'ai recompté: la somme du nombre de messages de tous les membres est inférieure au nombre de messages du forum.
vous pouvez le faire!
il me maque 100 messages.

non j'ai écrit le même nombre d'espace que tu en as écrit. Mais je peux encore optimiser mon code:

Code:

:EffEcr
:Disp"LEVEL 1
:For(L,6,2,-1
:Output(L,7,L
:End
:Repeat K=21
:codetouche->K
:If K
:Output(L,6,"
:L-(K=25 et L!=1)+(K=34 et L!=6->L
:Output(L,6,">
:End

et j'arrive à 95 (Il y avait un problème dans mon premier programme en plus)

je me rends

Ah j'ai gagné!
Sinon il y avait plus court:

Code:

:EffEcr
:Repeat L≥1 et L≤6
:Input"LEVEL:",L
:End

Mais c'est moins jolie.

bbbouhououhhou. :'(

Pour ton histoire de messages, j'ai recompter et il n'y a pas d'erreur. (tu as dus oublier les quelques messages postés par des visiteurs.)

autant pour moi effectivement.

mais n'empèche que je comprends pas cette histoire.
j'ai tout de même perdu 100 messages.

chuck norris m'a puni.

De toute façon tu ne peux rien faire contre Chuck Norris.

Moi non plus je ne comprend pas très bien, je n'ai pas supprimé de topic dans lequel tu as posté 100 messages tu peux en être sûr.

Mais si on compte tout les messages des membres, on trouve quasiment le même nombre que les messages du forum à 3-4 près (il y en a plus dans le forum en plus)

c'est pas grave tant pis je vais pas mourrir.

(et pan pour chuck norris).