Bonjour à tous !

J’inaugure le forum avec ce programme.
Il est simple, facile, et a l'avantage d'occuper longtemps (un peu comme snake )

Code:

:1->dim(lEXAM
:EffEcr
:1->A
:1->B
:EffVar E EffVar F 30->G
:While G
:G-1->G
:EffEcr
:If non(E
:Then
:entAléat(1,7->C
:entAléat(1,16->D
:F+1->F
:1->E
:If F>100
:Then
:F+1->F
:25->G
:End
:If F=<100
:30->G
:End
:Output(8,15,G
:Output(8,8,lEXAM(1
:Output(8,1,F
:Output(C,D,"?
:Output(A,B,"O
:If A=C et B=D
:EffVar E
:codeTouche->T
:(T=34 et A=/=7)-(T=25 et A=/=1)+A->A
:(T=26 et B=/=16)-(T=24 et B=/=1)+B->B
:End
:EffEcr
:Disp "PERDU
:Pause
:EffEcr
:If F>lEXAM(1
:Then
:F->lEXAM(1
:Disp "NEW HIGH SCORE:",F
:Input "PSEUDO:",Chaîne3
:Else
:Disp "SCORE:",F,"HIGH SCORE:",lEXAM(1),"DETENU PAR",Chaîne3
:Output(8,9,"CYTROPUS

Voilà !

Déplacement : croix directionnelles
Objectif : ramasser le ? dans les temps
poids du programme dans la description évidemment. 

Bon jeu à tous !
Cytropus

Ah oui, ça pourrait sans doute être bien d'imposer screenshots et liens de download systématiques...

Peut-être pas imposer, mais au moins permettre. Genre des champs exprès pour ça.

Pas mal sinon, comme petit programme

Hors de question d'imposer, tu vas faire fuir les gens

Les programmes testés, approuvés, fournis avec screen et l'accord de l'auteur pouront être ajoutés à la catégorie "Programmes du Site". Au moins dans les débuts du site.

Merci de ton inauguration pucy ;P 

Deux petites optimisations:

Code:

:Disp "PERDU
:Pause

peut s'écrire:

Code:

:Pause "PERDU

et aussi, en utilisant:

Code:

:A+(T=34 et A=/=7)-(T=25 et A=/=1->A
:B+(T=26 et B=/=16)-(T=24 et B=/=1->B

Tu sauvegardes 2 octets

De rien persou ! 

Mais je ne suis pas à 2 octets près .

@blg_flg (ou keb pour les intimes !) : imposer des screenshots et liens de download systématiques serait stupide.
Personnellement, cela me gonflerais de devoir en faire à chaque fois et le nombre de programme du site diminuerait vu le nombre de gens qui nous demande où ils peuvent trouver un câble.

Non, pas imposer, c'est sûr... Mais c'est surtout les gens que tu fais fuir parce qu'ils ont la flemme de recopier.

Bof. Pendant des années on avait pas de screens et on survivait

Ben justement, je trouvais ça pénible. C'est juste que je me foutais des programmes Basic...