Ping Pong qui fonctionne pas !

→ **MyCalcs** profile · by **zouzou** » 28 Oct 2006, 16:28

Salut à tous,
j'ai un jeu de pong et il ya des erreurs,
pouvez-vous me les corriger svp ??

Voici le code :

Code: Select all: :ClrHome :Disp "","","****************"," PINGPONG"," BY D. JacKaL","****************" :Pause :Lbl T :ClrHome :Disp "HOW MANY ROUNDS" :Disp "(0-9)" :Input Q :If Q9 or Q0:Then:Goto T:End :0üR:0üW :Lbl B :ClrHome :5üA:4üB:2üX :1üI:4üY :R+1üR :2-(int (4rand))üJ :If R=Q+1:Then:Goto C:End :ClrHome :Disp "ROUND NO." :1üN :Repeat N15 :N+.3üN :Output(2,int N,R) :End :ClrHome :1üL:1üK :Output(B,16,"I") :Output(B+1,16,"I") :Output(B-1,16,"I") :Repeat X15 or X2 :AüD:BüE:XüO:YüL :getKeyüK :If K=25 and B2 :Then:B-1üB:Output(B+2,16," "):End :If K=34 and B7 :Then:B+1üB:Output(B-2,16," "):End :If K=73:Then:Pause :End :If K=74:Then:Goto Z:End :If A2:Then :If AY:Then :A-1üA:Output(A+2,1," "):End :End :If A7:Then :If AY:Then :A+1üA:Output(A-2,1," "):End :End :int (X+I)üX :int (Y+J)üY :If X3:Then :If Y=A:Then:úIüI:End :If Y=A-1:Then:úIüI:J-1üJ:End :If Y=A+1:Then:úIüI:J+1üJ:End :End :If X14:Then :If Y=B:Then:úIüI:End :If Y=B-1:Then:J-1üJ:úIüI:End :If Y=B+1:Then:J+1üJ:úIüI:End :End :If abs J2:Then:.5*JüJ:End :If Y7:Then:úabs (J)üJ:8üY:End :If Y2:Then:abs JüJ:1üY:End :If Y÷2 or Yù7:Then :If abs J1:Then:(4-X)/abs (4-X)üJ:End :End :Output(L,O," ") :If Y6:Then // - - // :6üY // Code rajouté par un pote !! // :End // - - // :Output(Y,X,R) :If AøD:Then :Output(A-1,1,"I") :Output(A,1,"I") :Output(A+1,1,"I") :End :If BøE:Then :Output(B-1,16,"I") :Output(B,16,"I") :Output(B+1,16,"I") :End :End :ClrHome :If X5:Then:W+1üW:End :If RøQ:Then :Menu("PING PONG","CONTINUE",B,"QUIT",E) :Lbl E:ClrHome:Goto Z :End :Lbl C :ClrHome :Output(1,1,"YOU WERE" :Output(2,1,W) :Output(2,3," FOR ") :Output(2,8,Q) :Pause :Menu("PINGPONG","PLAY AGAIN",T,"QUIT",X) :Lbl X :ClrHome :Lbl Z

Merci d'avance !!!!

→ **MyCalcs** profile · by **tama** » 28 Oct 2006, 22:15

corrige les erreurs de caractère avant parce que j'ai la flemme de chercher à quoi ça correspond

→ **MyCalcs** profile · by **Lumin0u** » 29 Oct 2006, 15:55

je crois que "ü" ça veut dire "->"

→ **MyCalcs** profile · by **zouzou** » 29 Oct 2006, 17:10

Lumin0u_machin wrote:je crois que "ü" ça veut dire "-"

exactement

→ **MyCalcs** profile · by **zouzou** » 29 Oct 2006, 17:11

je corrige les erreurs demain !
je n'avais pas fait attention ^^

→ **MyCalcs** profile · by **Lumin0u** » 29 Oct 2006, 17:12

le boss ^^

mais tu peux nous dire quand apparait l'erreur?

→ **MyCalcs** profile · by **Lumin0u** » 29 Oct 2006, 17:13

??? je suis largué la dsl ^^

→ **MyCalcs** profile · by **zouzou** » 30 Oct 2006, 16:30

Voici le lien pour le télécharger:
PONG

Et voila le code avec les caractères modifiés:

Code: Select all: EffEcr Disp "","","****************"," PINGPONG"," D.JacKaL","****************" Pause Lbl T EffEcr Disp "HOW MANY ROUNDS Disp "(0-9) Input Q If Q9 ou Q0:Then:Goto T:End 0-R:0-W Lbl B EffEcr 5-A:4-B:2-X:1-I:4-Y R+1-R 2-(partEnt(4NbrAl–at))-J If R=Q+1:Then:Goto C:End EffEcr Disp "ROUND NO." 1üN Repeat N15 N+.3-N Output(2,partEnt(N),R End EffEcr 1-L:1-K Output(B,16,"I Output(B+1,16,"I Output(B-1,16,"I Repeat X15 ou X2 A-D:B-E:X-O:Y-L codeTouch(-K If K=25 et B2 Then:B-1-B:Output(B+2,16," "):End If K=34 et B7 Then:B+1üB:Output(B-2,16," "):End If K=73:Then:Pause :End If K=74:Then:Goto Z:End If A2:Then If AY:Then A-1-A:Output(A+2,1," "):End End If A7:Then If AY:Then A+1-A:Output(A+2,1," "):End End partEnt(X+I)-X partEnt(Y+J)-Y If X3:Then If Y=A:Then:√(IüI:End If Y=A-1:Then:√(I-I:J-1-J:End If Y=A+1:Then:√(I-I:J+1-J:End End If X14:Then If Y=B:Then:√(I-I:End If Y=B-1:Then:J-1-J:√(IüI:End If Y=B+1:Then:J+1-J:√(IüI:End End If abs(J2:Then:.5*J-J:End If Y7:Then:√(abs(J)-J:8-Y:End If Y2:Then:abs(J)-J:1-Y:End If Y÷2 ou Y-7:Then If abs(J)/1:Then:(4-X)/abs(4-X)-J:End End Output(L,O," " If Y6:Then 6-Y End Output(Y,X,R If A≠D:Then Output(A-1,1,"I Output(A,1,"I Output(A+1,1,"I End If B≠E:Then Output(B-1,16,"I Output(B,16,"I Output(B+1,16,"I End End EffEcr If X5:Then:W+1-W:End If R≠Q:Then Menu("PING PONG","CONTINUE",B,"QUIT",E Lbl E:EffEcr:Goto Z End Lbl C EffEcr Output(1,1,"YOU WERE Output(2,1,W Output(2,3," FOR " Output(2,8,Q Pause Menu("PING PONG","PLAY AGAIN",T,"QUIT",X Lbl X EffEcr Lbl Z

→ **MyCalcs** profile · by **Lumin0u** » 30 Oct 2006, 16:32

ah ok lol le seul problème c'était le "->" ?

→ **MyCalcs** profile · by **zouzou** » 30 Oct 2006, 16:32

Il ya 2 erreurs principales:
1-/ ERR:DIVIDE BY 0 qui survient pendant le jeu
2-/ Quand la balle touche le raquette N°2, le jeu se termine

Vous pourez vérifier cela en téléchargeant le jeu !!