| vrai copter |
| Auteur |
Message |
toto
Invité
|
Posté le : Sam 16 Jui 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 
Edit de Sango: Pense à utiliser la balise code pour que ton programme soit lisible.
|
| |
  |
| |
etienne
Invité
|
Posté le : Jeu 13 Sep 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
Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09
|
Posté le : Jeu 13 Sep 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
----------------------
Le nouveau site de tout82 |
 |
|
| |
Persalteas
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Sam 15 Sep 2012, 0:12
|
|
|
C'est un B.
Output(B,14,"T-O
|
| |
|
| |
Rickie
Invité
|
Posté le : Sam 22 Sep 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 
|
| |
|
| |
eArnoow
Autorisation : Membre
Nb de messages : 88
Inscrit le : Dim 16 Sep 2012, 14:20
|
Posté le : Sam 22 Sep 2012, 17:42
|
|
|
Vérifies bien que les deux points sont mis comme écrit ici  , et ta syntaxe.
Souvent c'est une faute de frappe.
|
| |
|
| |
Rickie
Invité
|
Posté le : Sam 22 Sep 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
Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09
|
Posté le : Sam 22 Sep 2012, 18:52
|
|
|
T'es sure que ta mis la virgule et pas le point entre les variables ?
----------------------
Le nouveau site de tout82 |
| |
|
| |
valentin
Invité
|
Posté le : Lun 26 Nov 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
Autorisation : Membre
Nb de messages : 646
Inscrit le : Mer 23 Mai 2012, 17:28
|
Posté le : Lun 26 Nov 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
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Mar 27 Nov 2012, 8:18
|
|
|
A mon avis il s'agit du signe "différent de".
Sangohan38
|
| |
|
| |
