Salut !
Dans le but essentiel de ne pas me faire ch*** en cours de maths, j'ai tapé à la main tout le snake de Xpro à la main, mais... Ça marche pas !
Voici le code :
[size=36]J'espère que vous pouvez m'aider.
[/size]
Dans le but essentiel de ne pas me faire ch*** en cours de maths, j'ai tapé à la main tout le snake de Xpro à la main, mais... Ça marche pas !
Voici le code :
[size=32][size=32][size=32]ClrHome Output(1,3,"XSNAKE V4.7 Output(3,8,"BY Output(5,7,"XprO Output(8,2,"HIGH SCORE: Output(8,14,ZÖMin Normal PlotsOff AxesOff FnOff GridOff For(A,1,999 End 0üXmin 94üXmax 0üYmin 62üYmax 0üN 0üP 0üO 39üdim(áY 1üM ClrDraw Lbl 0 Repeat 0 Fill(99,áY áYüáX 49üB 47üA 34üD 1üE 10üL 0üH 0üI Horizontal 0 Horizontal 1 Horizontal 2 Horizontal 60 Horizontal 61 Horizontal 62 Vertical 0 Vertical 1 Vertical 2 Vertical 3 Vertical 91 Vertical 92 Vertical 93 Vertical 94 getKey While M While H While not(I)D=24 DüC Repeat Ans+I A-3üA pxl-Test(61-B,AüI Pt-On(A,B,2 AüáY(E BüáX(E 1+E(EøLüE Pt-Off(áY(E),áX(E),2 getKey End AnsüD End While not(I)(D=25 DüC Repeat Ans+I B+3üB pxl-Test(61-B,AüI Pt-On(A,B,2 AüáY(E BüáX(E 1+E(EøLüE Pt-Off(áY(E),áX(E),2 getKey End AnsüD End While not(I)(D=26 DüC Repeat Ans+I A+3üA pxl-Test(61-B,AüI Pt-On(A,B,2 AüáY(E BüáX(E 1+E(EøLüE Pt-Off(áY(E),áX(E),2 getKey End AnsüD End While not(I)(D=34 DüC Repeat Ans+I B-3üB pxl-Test(61-B,AüI Pt-On(A,B,2 AüáY(E BüáX(E 1+E(EøLüE Pt-Off(áY(E),áX(E),2 getKey End AnsüD End If D=21 Pause If D=45 Then Lbl 2 ClrHome Output(2,7,"GAME Output(3,7,"OVER Lbl 3 ClrDraw 10N+(L-10)/3+OüO If O>ZÖMin Then OüZÖMin Et là ça bug Output(5,5,"NEW HIGH End Output(6,5,"SCORE: Output(6,11,O DelVar áX DelVar áY Return End If I Then If A=J and B=K Then Pt-Off(J,K L+3üL 0üI 0üH Else For(A,3,31 Horizontal A Horizontal 62-A End P+1üP If P=3 Goto 2 (L-10)/3+OüO 0üM N-1üN Goto 0 End End If D<24 or D>26 and Dø34 CüD End While not(H 1+3randInt(1,19üK 2+3randInt(1,29üJ not(pxl-Test(62-K,J+1üH End Pt-On(J,K,3 If L=40 0üM 0üI End ClrDraw N+1üN If N=7 Then ClrHome Output(1,1,"CONGRATULATIONS! Output(3,3,"YOU'VE WON!! Goto 3 End If N {32,9,32,53,62,9,62,53üáX If N>1 augment(áX,{34,52,60,52,34,10,42,10,52,10,60,10üáX If N>2 augment(áX,{2,31,12,31,22,31,42,31,52,31,72,31,82,31,90,31üáX If N>3 augment(áX,{2,52,12,52,22,52,72,52,82,52,90,52,2,10,12,10,22,10,42,10,52,10,72,10,82,10,92,10üáX If N>4 augment(áX,{11,41,11,21,23,41,23,21,71,41,71,21,83,41,83,21üáX If N>5 augment(áX,{41,41,41,21,53,41,53,21üáX If 99-áX(1 Then For(X,1,dim(áX),4 áX(XüA áX(X+1üB áX(X+2üC áX(X+3üD If A=C Then Line(A-1,B,A-1,D Line(A+1,B,A+1,D Else Line(A,B-1,C,B-1 Line(A,B+1,C,B+1 End Line(A,B,C,D End End 1üM End[/size][/size][/size] |
[/size]