prob murs

[univscien]

lol oui j'avais pas fait attention, mais je bidouille ce code pour modifier çà, sinon çà serviré a rien..

[tama]

poste ton nouveau code après
et puis si tu veux de l'aide en direct je peux te passer mon adresse MSN

[univscien]

:ClrDraw
:RecallPic 1
:4-A
:1-B
:0-P
:0-T " j'ais changé le F en T."
:1-M
:Repeat K=105
:Repeat K
:getKey-K
:End
:Pxl-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
:ClrDraw:ClrHome
isp "VIEU CERCEUIL,","AUCUN OBJETS."
ause
:RecallPic 1
:End

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

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

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

:If (K=21) and (A=54) and (B=45)
:Then
:ClrDraw:ClrHome
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 (T=70) or (T=72) or (M=9)
:Output(1,1,"MONSTRE:"
:Output(2,1,"---------/"
:Output(2,M,""
:M+1-M
:Output(4,1,"TOI:"
:Output(5,1,"--------/
:If (K=45) and (C=1)
:T+2-T

:If (K=45) and (C=2)
:Then
:T+4-T
:0-P
:End
:If (T=10) or (T=12)
:Output(5,1,"-------/"
:If T=20
:Output(5,1,"-------/"
:If (T=30) or (T=32)
:Output(5,1,"-------/"
:If T=40
:Output(5,1,"-------/"
:If (T=50) or (T=52)
:Output(5,1,"-------/"
:If T=60
:Output(5,1,"-------/"
:If (T=70) or (T=72)
:Output(5,1,"-------/"
:End
:If (T=70) or (T=72)
:Then
:ClrHome
isp "GAGNE.","NIVEAU SUIVANT."
ause
:Else
:ClrHome
isp "PERDU."
ause
:End
:End

:If (K=21) and (A=49) and (B=34)
:Then
:ClrDraw:ClrHome
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


Bon voilà, 2 problémes:

1:Le plus important a mon avis, c'est les directions.
Quant je vais vers la droite et la gauche, c'est bon.
Mais quant jappuis sur la touche directionel du haut, les pxl vont vers le
bas; et inverssement.
Je pence que çà vien du code rouge (enfin, presque certain ), mais
je ne trouve pas le prob.

2: Là çà ne regarde que moi, mais si vous avez des idées, elles seront
bienvenue.
En fet, je n'arrive pas a trouver un systéme qui puisse faire avancer la
fléche du boss, indépendamant de la fléche de l'utilisateur quant
il appuit sur [CLEAR].

Voilà...

[tama]

mais ton truc ça va non à part que le boss avance très vite (il a 99% de chances de gagner) mais T c'est la variable pour le joueur et M la variable pour le boss donc ils avancent indépendamment

ralentis un peu M et c'est bon

[tama]

au passage si tu perds à la course ça continue comme même ?

[tama]

après quelques modifications ça donne ça :

ClrDraw
RecallPic 1
4-A
1-B
DelVar PDelVar T
1-M
Repeat K=105
Repeat K
getKey-K
End
Pxl-Off(B,A
Pxl-Off(B,A+1
Pxl-Off(B+1,A
Pxl-Off(B+1,A+1
A+(K=26 and not(pxl-Test(B,A+2)) and not(pxl-Test(B+1,A+2)))-(K=24 and not(pxl-Test(B,A-1)) and not(pxl-Test(B+1,A-1-A
B-(K=25 and 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)(B=34)(A=88
Then
ClrHome
Disp "VIEU CERCEUIL,
Pause "AUCUN OBJETS.
Trace
End

If (K=21)(A=84)(B=58
Then
ClrHome
Disp "COFRE OUVER,","VOUS OBTENEZ:
Pause "UNE POTION.
1-P
Trace
End

If (K=21)(A=78)(B=23
Then
ClrHome
Pause "ARMOIRE VIDE.
Trace
End

If (K=21)(A=16)(B=17
Then
ClrHome
Disp "UN CACHOT,","IL N'Y A
Pause "PERSONNE.
Trace
End

If (K=21)(A=54)(B=45
Then
ClrHome
Disp "VOUS ETES","MAINTENANT FACE","AU BOSS.","LE PREMIER A LA",
"LIGNE D'ARRIVEE
Pause "A GAGNE.
Disp "UTILISER POTION?","NON,TAPE 1,
Input "OUI,TAPE2:",C
Disp "TAPE LE + VITE","POSSIBLE SUR","[CLEAR],","APRES LE
Pause "CHRONOMETRE.
ClrHome
For(X,1,10
Output(4,8,10-X
For(Y,1,80
End
End
ClrHome

Repeat (Tž70)+(M=9
Output(1,1,"MONSTRE:
Output(2,1,"---------/
Output(2,int(M)+1,"
M+.5-M
Output(4,1,"TOI:
Output(5,1,"---------/
If (K=45)(C=1
T+2-T
If (K=45)(C=2
Then
T+4-T
0-P
End
Output(5,int(.1T)+1,"
End
End

ClrHome
If (Tž70
Then
Disp "GAGNE.
Pause "NIVEAU SUIVANT.
Else
Pause "PERDU.
End

If (K=21)(A=49)(B=34
Then
ClrHome
Disp "VOUS ALLEZ","ENTRER DANS LA","ZONE DE COMBAT
Pause "DU BOSS 1.
Trace
End

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

[univscien]

Merci, mais je comprend pas, pk ma dirrection haut, bas est inverssé.

Tu m'en veus pas, mais dans tes modif, ya des fonctions que je comprend pas (que je connais pas) , lol, je n'est que 2,5 semaine d'éxpérience en TI Basic moi...
Donc si çà te fait rien de m'éxpliquer..
Et en ce qui sagit du jeux, quant je le lance, il n'y a que la fléche du monstre qui avance, et moi, méme en appuiyant sur [CLEAR], çà ne fait rien avancer.

[tama]

ah oui l'espèce de Z trop bizarre c'est le signe supérieur ou égal ^^

Oui pas de problème tu veux savoir quelle fonction ? ^^

[tama]

haut et bas c'est inversé parce que pour les pixels tout en haut c'est (0,0) et tout en bas c'est (94,62) contrairement aux points où tout en haut c'est (0,62) et tout en bas (94,62) c'est pour ça que c'est inversé

[univscien]

Merci, mais comment on fait pour que çà ne soit plus inversé?