prob murs

[tama]

.

[tama]

euh y a vraiment un problème avec les codes pour moi...
je disais qu'il faut enlever les parenthèses inutiles

[Syfo]

oui je l'ai pas fait, mais univscien fais le pour moi

[univscien]

ClrDraw
:RecallPic 1
:4-A
:1-B
:0-P
:0-F

:Repeat K=105
:ClrHome:ClrDraw
:Repeat K
:getKey-K
:End
xl-Off(B,A)
xl-Off(B,A+1)
xl-Off(B+1,A)
xl-Off(B+1,A+1)
:A+(K=26and not(pxl-Test(B,A+2)) and not(pxl-Test(B+1,A+2)))-(K=24and not(pxl-Test(B,A-1)) and not(pxl-Test(B+1,A-1-A
:B+(K=25and not(pxl-Test(B-1,A)) and not(pxl-Test(B-1,A+1)))-(K=34 and not(pxl-Test(B+2,A)) and not(pxl-Test(B+2,A+1-B

:If (K=21) and (B=34) and (A=88)
:Then
isp "VIEU CERCEUIL,","AUCUN OBJETS."
ause
:RecallPic 1
:End

:If (K=21) and (A=84) and (B=58)
:Then
isp "COFRE OUVER,","VOUS OBTENEZ:","UNE POTION."
:1-P
ause
:RecallPic 1
:End

:If (K=21) and (A=78) and (B=23)
:Then
isp "ARMOIRE VIDE."
ause
:RecallPic 1
:End

:If (K=21) and (A=16) and (B=17)
:Then
isp "UN CACHOT,","IL N'Y A","PERSONNE."
ause
:RecallPic 1
:End


:If (K=21) and (A=54) and (B=45)
:Then
isp "VOUS ETES","MAINTENANT FACE","AU BOSS.","LE PREMIER A LA",
"LIGNE D'ARRIVE,","A GAGNE."
ause
isp "UTILISER POTION?","NON,TAPE 1,"
:Input "OUI,TAPE2:",C
isp "TAPE LE + VITE","POSSIBLE SUR","[CLEAR],","APRES LE","CHRONOMETRE."
ause
:ClrHome
:For(X,1,10
:For(Y,1,80
:Output(4,8,10-X
:End
:End
:ClrHome
:Repeat F=70
:Output(1,1,"MONSTRE:"
:Output(2,1,"--------/"
:For(Z,1,130
:End
:Output(2,1,"--------/"
:For(Z,1,130
:End
:Output(2,1,"--------/"
:For(Z,1,130
:End
:Output(2,1,"--------/"
:For(Z,1,130
:End
:Output(2,1,"--------/"
:For(Z,1,130
:End
:Output(2,1,"--------/"
:For(Z,1,130
:End
:Output(2,1,"--------/"
:For(Z,1,130
:End
:Output(2,1,"--------/"
:For(Z,1,130
:End
:Output(2,1,"--------/"
:Output(4,1,"TOI:
:Output(5,1,"--------/
:If (K=45) and (C=1)
:F+2-F

:If (K=45) and (C=2)
:Then
:F+4-F
:0-P
:End

:Output(5,1,"--------/
:If fpart(F/10=0
:Output(5,fpart(F/10)+1,"
:End
:End

:If (K=21) and (A=49) and (B=34)
:Then
isp "VOUS ALLEZ","ENTRER DANS LA","ZONE DE COMBAT","DU BOSS 1."
ause
:RecallPic 1
:End


:If (K=21) and (A=60) and (B=57)
:Then
xl-Off(B,A)
xl-Off(B,A+1)
xl-Off(B+1,A)
xl-Off(B+1,A+1)
:A-19-A:B-11-B
:End
xl-On(B,A)
xl-On(B,A+1)
xl-On(B+1,A)
xl-On(B+1,A+1)
:End

Voilà, le code que j'ai tapé, a par les "fpart" psk je ne sais pas ou trouver cette fonction, vous pouvez me le dire svp? comme çà je vous dis si çà marche.

Shyfoquant tu parle de parenthèses inutiles, c'est lequels? , psk moi je sais pas trop..

[Syfo]

les parenthese inutiles sont celles qui terminent une fonction du style:
xl-On(B,A)
xl-On(B,A+1)
xl-On(B+1,A)
xl-On(B+1,A+1)

donnera
xl-On(B,A
xl-On(B,A+1
xl-On(B+1,A
xl-On(B+1,A+1

les fpart(servent a compiler les output mais c'est vrai que c'est difficilement comprehensible donc ne les utilise pas pour commencer mais il se trouve dans maths - 2

[tama]

à compiler les output ? en fait c'est juste pour prendre la partie décimale d'un nombre...

[Syfo]

oui je parlais de l'utilistaion que j'en faisais

[crash_conan]

ça va devenir un bon prgm apres votre aide !

[tama]

hé oui c'est la récompense d'être venu ici ^^

[tama]

y a un problème dans son code

Repeat F=70
:Output(1,1,"MONSTRE:"
:Output(2,1,"--------/"
:For(Z,1,130
:End
:Output(2,1,"--------/"
:For(Z,1,130
:End
:Output(2,1,"--------/"
:For(Z,1,130
:End
:Output(2,1,"--------/"
:For(Z,1,130
:End
:Output(2,1,"--------/"
:For(Z,1,130
:End
:Output(2,1,"--------/"
:For(Z,1,130
:End
:Output(2,1,"--------/"
:For(Z,1,130
:End
:Output(2,1,"--------/"
:For(Z,1,130
:End
:Output(2,1,"--------/"
:Output(4,1,"TOI:
:Output(5,1,"--------/
:If (K=45) and (C=1)
:F+2-F

:If (K=45) and (C=2)
:Then
:F+4-F
:0-P
:End
...

là si j'ai bien compris le monstre avance petit à petit avec des petites boucles d'attente mais le joueur il peut pas avancer avec clear donc le boss va forcément gagner non ?