Forum Graph100

T'es sur d'avoir bien ecris (K=28 And B>1) ?

bon ben quand il y a error, va dans RUN, donne moi les valeurs de D et de C

Au fait, ca ve dore quoi
LpWhile D OR D=B
Locate 8,4,"PERDU"

Désolé Julien mais si je fonce dedans, la -> transperce le mot comme avant ert quant le mot "DANGER" touche le bord gauche, il y a une syn err à Locate 8,4,"PERDU"

Non, c'est justement celui la qui plante, tu peut remetre l'autre stp ? :?

Non, ca ne marche pas : tu peut remettre le code avec les ((D-A)())la !

Bah, t'avais mit un autre LpWhile avant un qui marchait !

0->E   
Do    
Isz E 
20->F 
ClrText 
Locate 1,1,"Round" 
Locate 7,1,E 
" "_ 
Do 
1->A 
4->B 
1+Int 7Ran#->C 
20->D 
ClrText 
Locate A,B,"->" 
Do          
Getkey->K 
If (K=27 And A<21) Or (K=38 And A>1) Or (K=37 And B<7) Or (K=28 And B>1) Or K=42 Or K=32 Or K=71
Then Locate A,B," " 
If K=27:Then Isz A:IfEnd 
If K=38:Then Dsz A:IfEnd 
If K=37:Then Isz B:IfEnd 
If K=28:Then Dsz B:IfEnd 
If K=42:Then Dsz D:IfEnd
If K=32:Then isz D:IfEnd
If K=71:Then Locate 8,4,"PAUSE":LpWhile Getkey=/=71:IfEnd:Locate 8,4,"     "
Locate A,B,"->" 
IfEnd 
Locate D,C,"DANGER " 
Dsz D 
Lpwhile D And ((D-A And D-A+1) Or C-B)
If D:Then Dsz F:IfEnd 
LpWhile F And D 
LpWhile D 
Locate 8,4,"PERDU !" 

Sinon, j'ai apporté qq modif alors c'est pe pour ca !

Oui, c'est ca Julien merci !
Je vais essayer d'integrer le missiles now !

Ca c'est de ta faute!!!

If K=71:Then Locate 8,4,"PAUSE":LpWhile Getkey=/=71:IfEnd:Locate 8,4,"     " 

T'as oublié un Do juste avant le LpWhile
Et ton IfEnd il doit etre AVANT le Locate 8,4,"    "

crevindju faut regarder les corrections que j'apporte, c'est tres précis, tu peux pas te contenter de survoler un peu!
J'ai mis des :0 derriere les Dsz, c'est pas pour rien!
relis le code a fond stp  :!:

ca sert a quoi que je me decarcasse pour te corriger un code si de toute facon tu fais a ton idée?

If (K=27 And A<21) Or (K=38 And A>1) Or (K=37 And B<7) Or (K=28 And B>1) Or K=42 Or K=32 Or K=71 

Qu'est-ce qu'il fout la ce If d'abord? faut pas s'étonner de tomber sur des erreurs si tu chipotes comme ca!

Sinon, tu veut que j'en fasse quoi du If ???
Il est indenspensable la non ?
Hey attend, que tu supp les Lbl/Goto d'accord mais la c'est ma bouycle préférée !

?????????
Je comprend pas !
Je tape

Locate8,4,"-"

et la calto me met une erreure d'argument !
Voici le petit prog :

6+8Ran# ->A
5Ran# ->B
5->C
Do
Isz A
Locate A,B,"-"ivi, erreure sur la virgule (arg error)
Isz A
LpWhile C>0

Ben t'en as de bonnes toi, vas-y, écris une lettre a la 10.26312 colonne et a la 3.23202872 ligne, tu vas voir comme c'est facile 

Bon voila ce que donne mes missiles Julien...

If (K=27 And A<21) Or (K=38 And A>1) Or (K=37 And B<7) Or (K=28 And B>1) Or K=42 Or K=32 Or K=71 Or K=72
Then Locate A,B," " 
...
If K=72:Then Do:Isz A:ClrText:Locate X,Y," -":Isz A:LpWhile A<20:IfEnd 
If X=D And Y=C:Then Locate 1,1,"CIBLE DETRUITE":ClrText:IfEnd

Et je sais pas comment faire disparaitere le mot DANGER