Bonjour,
Je veux installer run jeu sur ma calculatrice mais n'ayant pas de fil je doit tout recopier. Je recopie bien mais on maffiche toujours cette erreur de syntaxe peut import le jeu.
| Code | :StoreGDB GDB1
:ClrDraw
:AxesOff
:FnOff
:PlotsOff
:FullScreen
:0ü P
:Goto 0
:Lbl O
:ClrDraw
:Shade(Ymin,Ymax
:getKey
:55üQ
:0üR
:While Q>15 and getKey=0
:Text(Q-10,R+3,"MINESWEEPER"
:Text(Q,R,"DOUG
:Text(Q,R+20,"TORRANCE
:Q-1üQ
:R+1üR
:End
:While Q<200 and getKey=0
:Q+1üQ
:End
:Lbl 0
:If P=1
:Menu(" MINESWEEPER ","CONTINUE",M,"NEW GAME",1,"CURRENT STATS",N,"HOW TO PLAY",2,"VIEW SCORES",3,"TITLE",O,"QUIT",Q)
:If P=2 or P=3
:Menu(" MINESWEEPER ","CONTINUE",M,"NEW GAME",1,"HOW TO PLAY",2,"VIEW SCORES",3,"TITLE",O,"QUIT",Q)
:Menu(" MINESWEEPER ","PLAY",1,"HOW TO PLAY",2,"VIEW SCORES",3,"TITLE",O,"QUIT",Q)
:Lbl M
:ClrDraw
:RecallPic Pic1
:If P=1
:Goto A
:If P=2
:Goto S
:If P=3
:Goto T
:Lbl 8
:ClrDraw
:Text(0,0,"MINESWEEPER VERSION 5.3"
:Text(8,10,"MANTICORE SOFTWARE"
:Text(16,15,"FOR TI-82 and TI-83
:Text(24,22,"DOUG TORRANCE"
:Text(32,28,"04 DEC 1996")
:Pause
:ClrDraw
:Text(0,10,"VISIT MY WEB SITE AT"
:Text(8,0,"HTTP://WWW.GEOCITIES.COM
:Text(16,19,"/PARIS/3624/
:Pause
:Goto 2
:Lbl Q
:0üP
:[[0]]ü[A]
:[A]ü[B]
:[B]ü[C]
:[C]ü[D]
:RecallGDB GDB1
:Disp
:Stop
:Lbl 2
:Menu(" HOW TO PLAY ","OBJECT",6,"KEYS",7,"ABOUT",8,"BACK",0,"QUIT",Q)
:Lbl 6
:ClrDraw
:Text(0,0,"OBJECT:"
:Text(7,2,"SUCCESSFULLY UNCOVER
:Text(14,2,"EVERY SPACE ON THE")
:Text(21,2,"SCREEN WITHOUT LANDING
:Text(28,2,"ON A MINE.")
:Pause
:Goto 2
:Lbl 7
:ClrDraw
:Text(0,0,"KEYS:")
:Text(6,2,"-ARROWS"
:Text(12,4,"MOVE.
:Text(18,2,"-[1],[3],[7],[9]")
:Text(24,4,"MOVE TO CORRESPONDING
:Text(30,4,"CORNER.")
:Text(36,2,"-[TRACE]
:Text(42,4,"UNCOVER A SPOT. IF IT IS
:Text(48,4,"NOT A MINE, THE NO. OF
:Text(54,4,"MINES ADJACENT TO THAT")
:Pause
:ClrDraw
:Text(0,4,"SPACE IS REVEALED. IF IT
:Text(6,4,"IS A MINE, THE GAME IS")
:Text(12,4,"OVER.
:Text(18,2,"-[GRAPH]")
:Text(24,4,"MARK A SPACE AS A MINE")
:Text(30,4,"WITH A Ð, MARK A
:Text(36,4,"QUESTIONABLE SPACE WITH
:Text(42,4,"A ?, OR CLEAR A MISTAKE.
:Text(48,2,"-[MODE/QUIT]")
:Text(54,4,"NIFTY OPTIONS!")
:Pause
:ClrDraw
:Text(0,2,"-[2nd]")
:Text(6,4,"PAUSE.")
:Pause
:ClrDraw
:Goto 2
:Lbl 3
:ClrDraw
:Text(0,0,"BEST SCORE-",U
:Pause
:Menu(" RESET SCORE? ","NO",0,"YES",Y,"QUIT",Q)
:Lbl Y
:999üU
:Goto 3
:Lbl 1
:3üP
:ClrDraw
:Text(0,0,"PROCESSING...")
:Text(6,0,"PRESS [MODE] FOR OPTIONS.")
:Text(12,0,"[")
:Text(12,56,"]")
:StorePic Pic1
:{10,16}üdim [A] [couleur=#FF0000]----------------erreur[/couleur]
:Fill(0,[A])
:[A]ü[B]
:0üC
:For(D,1,32)
:If getKey=22
:Goto 0
:Lbl T
:iPart 10rand+1üA
:iPart 16rand+1üB
:C+([A](A,B)ø9)üC
:9ü[A](A,B)
:1ü[B](A,B)
:End
:0ü[A](1,1)
:0ü[B](1,1)
:2üP
:For(D,1,10)
:For(E,1,16)
:Pxl-On(15,int ((10D+E)/2)-3)
:StorePic Pic1
:getKeyüK
:If K=22
:Goto 0
:Lbl S
:If [A](D,E)ø9
:Then
:0
:If Dø1
:Ans+([A](D-1,E)=9)
:If Eø1
:Ans+([A](D,E-1)=9)
:If Dø10
:Ans+([A](D+1,E)=9)
:If Eø16
:Ans+([A](D,E+1)=9)
:If (Dø1)(Eø1)
:Ans+([A](D-1,E-1)=9)
:If (Dø1)(Eø16
:Ans+([A](D-1,E+1)=9)
:If (Dø10)(Eø1
:Ans+([A](D+1,E-1)=9)
:If (Dø10)(Eø16
:Ans+([A](D+1,E+1)=9)
:Ansü[A](D,E)
:End
:End
:End
:Text(18,0,"READY!")
:{10,16}üdim [C]
:Fill(1,[C])
:[C]ü[D]
:Fill(0,[D])
:AxesOff
:ClrDraw
:FnOff
:PlotsOff
:getKeyüK
:0üK
:1üA
:1üB
:1üD
:1üE
:0üT
:0üO
:1üP
:Repeat T=999
:Pxl-On(A,B)
:Pxl-On(A+2,B+2)
:Pxl-On(A+3,B+3)
:Pxl-On(A+4,B+4)
:Pxl-On(A,B+1)
:Pxl-On(A,B+2)
:Pxl-On(A+1,B)
:Pxl-On(A+2,B)
:StorePic Pic1
:getKeyüK
:If K
:1üO
:If K=21
:Pause
:If (K=24)+(K=26)+(K=25)+(K=34)+(K=72)+(K=74)+(K=92)+(K=94)
:Then
:If [D](D,E)=1
:Text(A,B,"Ð ")
:If ([D](D,E)=2)+(not [D](D,E))
:Then
:Text(A,B," ")
:If [D](D,E)=2
:Text(A,B,[A](D,E)
:End
:If [D](D,E)=3
:Text(A,B,"? ")
:End
:If (K=24)(Bø1)
:Then
:E-1üE
:B-5üB
:End
:If (K=25)(Aø1)
:Then
:D-1üD
:A-6üA
:End
:If (K=26)(Bø76)
:Then
:E+1üE
:B+5üB
:End
:If (K=34)(Aø55
:Then
:D+1üD
:A+6üA
:End
:If K=72
:Then
:1üA
:1üB
:1üD
:1üE
:End
:If K=74
:Then
:1üA
:76üB
:1üD
:16üE
:End
:If K=92
:Then
:55üA
:1üB
:10üD
:1üE
:End
:If K=94
:Then
:55üA
:76üB
:10üD
:16üE
:End
:If (K=15)([D](D,E)ø2)
:Then
:If [D](D,E)=3
:Then
:Text(A,B," ")
:1ü[C](D,E)
:0üQ
:End
:If not [D](D,E)
:Then
:Text(A,B,"Ð ")
:1ü[C](D,E)
:1üQ
:C-1üC
:End
:If [D](D,E)=1
:Then
:Text(A,B,"? ")
:1ü[C](D,E)
:3üQ
:C+1üC
:End
:Qü[D](D,E)
:End
:If (K=14)((not [D](D,E))+([D](D,E)=2)
:Then
:If [A](D,E)=9
:Goto L
:Text(A,B," ")
:Text(A,B,[A](D,E)
:2ü[D](D,E)
:0ü[C](D,E)
:If [A](D,E)=0
:Goto 4
:Lbl 5
:End
:If K=22
:Goto 0
:If [C]=[B]
:Goto W
:T+(O=1)üT
:End
:Goto L
:Lbl N
:ClrDraw
:Text(0,0,"SCORE-",T)
:Text(6,0,"MINES REMAINING-",C)
:Pause
:Goto 0
:Lbl L
:For(A,1,10)
:For(B,1,16)
:If not [D](A,B)
:Then
:If [A](A,B)=9
:Then
:Text(6A-5,5B-4,"Ð")
:Else
:Text(6A-5,5B-4,[A](A,B)
:End
:End
:End
:End
:Text(28,28,"GAME OVER")
:Pause
:ClrDraw
:Text(0,0,"YOUR SCORE-",T
:Pause
:0üP
:Goto 0
:Lbl W
:ClrDraw
:Text(0,0,"YOU WON!"
:Text(6,0,"SCORE-",T
:If T<U
:TüU
:Text(12,0,"BEST SCORE-",U
:Pause
:0üP
:Goto 0
:Lbl 4
:If Aø1
:Then
:Text(A-6,B,[A](D-1,E)
:0ü[C](D-1,E)
:2ü[D](D-1,E)
:End
:If Bø1
:Then
:Text(A,B-5,[A](D,E-1)
:0ü[C](D,E-1)
:2ü[D](D,E-1)
:End
:If Aø55
:Then
:Text(A+6,B,[A](D+1,E)
:0ü[C](D+1,E)
:2ü[D](D+1,E)
:End
:If Bø76
:Then
:Text(A,B+5,[A](D,E+1)
:0ü[C](D,E+1)
:2ü[D](D,E+1)
:End
:If (Aø1)(Bø1
:Then
:Text(A-6,B-5,[A](D-1,E-1)
:0ü[C](D-1,E-1)
:2ü[D](D-1,E-1)
:End
:If (Aø1)(Bø76
:Then
:Text(A-6,B+5,[A](D-1,E+1)
:0ü[C](D-1,E+1)
:2ü[D](D-1,E+1)
:End
:If (Aø55)(Bø1
:Then
:Text(A+6,B-5,[A](D+1,E-1)
:0ü[C](D+1,E-1)
:2ü[D](D+1,E-1)
:End
:If (Aø55)(Bø76
:Then
:Text(A+6,B+5,[A](D+1,E+1)
:0ü[C](D+1,E+1)
:2ü[D](D+1,E+1)
:End
:Goto 5
|
On m'affiche cette erreur dans tous les programmes que jai essayé jusqu'a maintenant et je me demande si ce que je fais est bon. Je fait la touche ST0->, puis je fais MATRX et dans la catégorie MATH je prend 3:dim. Après j'écris tout simplement [A]. Est-ce que je m'y prend mal?Merci
|
