Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 1712
Réponses : 10
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Vrai copter

toto le 16/06/2012 à 16:24
Je vous présente un "petit" programme que j' ai créé. Il s'agit d'un copter (encore!), mais cette fois le programme se rapproche plus du jeu sur Blackberry, ou l'hélico tombe si vous ne faites rien. (# = espace)


Code
:Lbl 2:Output(4,6,"#
:EffEcr:3->Y:5->X:0->M:15->I:0->(S,T,U,V):22->a
:Lbl 1
:Repeat X=I et Y>3 et M=1 ou X=I et Y>4 et M=2 ou X=I et Y<6 et M=3 ou X=I et Y<5 et M=4 ou Y=8 (ça signifie des que vous touchez le sol ou un obstacle)
:If Z<100:Then
:For(W,1,A):1->B  (pour perdre du temps; l'helico ira de plus en plus vite)
:End:End
:If I=1:15->I    (I est l'absisse de l'obstacle)
:If I=15 entAleat(1,4)->M
:I-2->I   (l'obstacle se rapproche)
:If Y=/8: 1+Y->Y: 1+Z->Z: If A*5>Z: (100-Z)/5->A
:EffEcr
:If K=103 et Y>2:Y-2->Y      (l helico monte)
:Output(8,14,"(petit T)-O    (ca ressemble un peu a un helico  (-) )
:If M=1: Then
:For(S,4,8
:Output(S,I,"I
:End:End
:If M=2:Then
:For(T,5,8
:Output(T,I,"I
:End:End
:If M=3:Then
:For(U,5,1,-1
:Output(V,I,"I
:End:End
:If M=4: Then
:For(V,4,1,-1
:Output(v,I,"I
:End:End
:Codetouche->K
:If K=105: Goto P
:If K=45:Goto Q
:End
:
:LbQ:Output(4,7,"PERDU
:Output(Y,X,"*
:Output(Y,X-2,"#
:Output(y,X-1,"#
:5->dim(L1
:Z->L2(5
:triDecroi (L2
:Output(1,6,"RECORD:
:Output(1,13,L2(1
:While 1
:Codetouche->I
:If I=105: Goto 2
:If I =45: Stop
:End
:Lbl P: Pause: Goto 1



Ouf c est fini crazy.gif

Edit de Sango: Pense à utiliser la balise code pour que ton programme soit lisible.
etienne le 13/09/2012 à 17:25
il y a pas une erreur au programme à cette ligne
:Output(8,14,"(petit T)-O
pourquoi l’hélico reste toujours au même position 8,14 ?
Cytropus le 13/09/2012 à 20:16
Hou, ça donne mal aux yeux.

à première vue pas d'optimisation apparente sauf peut-être les Effvar à la place des 0->

J'ai pas vu de bug mais j'ai pas encore testé le prgm
Persalteas le 15/09/2012 à 00:12
C'est un B.

Output(B,14,"T-O
Rickie le 22/09/2012 à 17:40
J'ai une erreur de syntaxe à la deuxième ligne à cause des parenthèses :/
Je vous remercie d'avance pour votre aide happy.gif
eArnoow le 22/09/2012 à 17:42
Vérifies bien que les deux points sont mis comme écrit ici winkle.gif, et ta syntaxe.
Souvent c'est une faute de frappe.
Rickie le 22/09/2012 à 18:45
Après vérification, je ne vois pas d'erreur... Peut-être parce, ne le trouvant pas, que j'ai mis un point à la place du "#"
Cytropus le 22/09/2012 à 18:52
T'es sure que ta mis la virgule et pas le point entre les variables ?
valentin le 26/11/2012 à 20:33
Bonjours,
J'ai donc commencé à recopier ce programme,mais je rencontre un problème à la ligne 13 : :If Y=/8...
Auriez vous une suggestion ?
merci d'avance.
blg_flg le 26/11/2012 à 21:07
C'est peut-être le signe "pas égal" ou alors c'est "inférieur ou égal", ou encore "supérieur ou égal"... Je ne l'ai jamais vu comme ça.
Sangohan38 le 27/11/2012 à 08:18
A mon avis il s'agit du signe "différent de".

Sangohan38
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.