merci
tizeur

je vias faire 2 message
ya rien dans mon manuel ( je suis aller sur le site de TI et j'ai pas le meme qu'eux ) donc pour lire le cour je vais peiner
ça veut rien diredéstresse lol, je suis le roi des jeux de mots qui veulent rien dire !
le split je voulais savoir a quoi il servais car il n'y est pas sur la 82 stat et que je voullais entrer un prog ou il y ete
pour ma suite aleatoire je vois pas vraiment se que je peut mettre en condition ( et si je veut une suite de 4 chiffre il me foudrai 4 condition je sais pas faire )
pendant que je suis la je comprend pas comment marche se prog on peut m'aider il et censer cacher les prog :ClrHome
:Output(4,6,"HIDE
:Output(8,8,"Çy
:Output(8,8,"B
:Output(8,11,"Cea
:Output(8,14,"sin
:Output(8,15,"ar
:Pause
:ClrDraw
:Pt-Off(1,1
:CoordOff
:AxesOff
:GridOff
:Lbl Á
:ClrDraw
:getKeyüB
:If B=43
:Then
:Goto C
:End
:Goto Á
:End
:Lbl C
:ClrDraw
:RecallPic Pic6
:Lbl D
:getKeyüE
:If E=26
:Then
:Goto F
:End
:If E=24
:Then
:Goto I
:End
:If E=45
:Then
:Goto Á
:End
:Goto D
:End
:Lbl F
:ClrDraw
:RecallPic Pic5
:Lbl G
:getKeyüH
:If H=26
:Then
:Goto I
:End
:If H=24
:Then
:Goto C
:End
:If H=45
:Then
:Goto Á
:End
:Goto G
:End
:Lbl I
:ClrDraw
:RecallPic Pic4
:Lbl J
:getKeyüK
:If K=26
:Then
( si la sources marche pas c'est qu'il y a un probleme )
j'y crois pasà sa ! Il y était sur la 82 etr ils se seraient amusés à l'enlever sur la stat ?????????????,
oui mais il faut bien que je m'occupe en cours c'est pour ça que je veut sa voir mais je vais mettre une source donc si quelqu'un peut me dire le prob ClrHome
For(A,1,4)
For(Á,1,25)
End
Output(A,2,"C"):End
ClrHome
Output(4,2,"R"):8üA
Repeat A=4
For(Á,1,25)
End
Output(A,3,"A"):A-1üA
End
ClrHome
Output(4,2,"CR")
For(A,1,4)
For(Á,1,15)
End
Output(A,4,"S"):End
ClrHome
Output(4,2,"CRA")
8üA
Repeat A=4
For(Á,1,25)
End
Output(A,5,"H"):A-1üA
End
ClrHome
Output(4,2,"CRASH")
For(A,1,7)
For(Á,1,40)
End
Output(5,A," SOFTWARE")
End
Output(1,1,"****************"
Output(8,1,"****PRESENTS****"
For(A,1,8)
Output(A,1,"*"):Output(A,16,"*")
End
Pause
3582üO
0üÁ
PlotsOff
CoordOff
AxesOff
FnOff
ú47üXmin
47üXmax
1üXscl
ú31üYmin
31üYmax
1üYscl
ClrDraw
ClrHome
Goto W
Lbl 8
31üA
47üB
0üF
0üZ
ClrDraw
ClrHome
Lbl V
Menu("MAIN MENU","PLAY SNAKE",5,"PRACTICE ARENA",N,"CHOOSE LEVEL",Y,"RESET HIGH",P,"QUIT",9)
Lbl P
Disp "HIGH IS",O
Pause
ClrHome
Menu("CLEAR HIGH SCORE","NO",8,"YES",Q)
Lbl Q
0üO
Goto 8
Lbl Y
ClrHome
Output(1,1,"LEVEL? (1-10)"
Disp ""
Input "",C
If iPart(CøC or C>10 or C<1
Goto Y
(C*4)-4üZ
If C=10
37üZ
If C=1
Goto 5
Goto R
Lbl 5
0üF
9üA
0üE
Line(ú35,19,ú35,5)
Line(ú35,ú5,ú35,ú19)
Line(34,19,34,5)
Line(34,ú5,34,ú19)
Line(34,19,5,19)
Line(ú5,19,ú35,19)
Line(34,ú19,5,ú19)
Line(ú5,ú19,ú35,ú19)
Line(0,10,0,ú10)
Line(20,0,ú20,0)
Lbl A
Line(ú47,31,ú47,ú30)
Line(ú47,ú30,46,ú30)
Line(46,ú30,46,31)
Line(46,31,ú47,31)
Lbl Z
(iPart((rand*92)+1)üQ
(iPart((rand*60)+1)üR
If pxl-Test(R+1,Q)=1 or pxl-Test(R-1,Q)=1 or pxl-Test(R,Q+1)=1 or pxl-Test(R,Q-1)=1 or pxl-Test(R,Q)=1
Goto Z
31-RüS
Q-47üT
Line(T,S-1,T,S+1)
Line(T-1,S,T+1,S)
Pxl-On(A,B)
If E=0
Goto 0
If E=1
Goto 1
If E=2
Goto 2
If E=3
Goto 3
Lbl 0
For(A,A+1,61)
F+1üF
0üE
If pxl-Test(A,B)=1
Goto 4
Pxl-On(A,B)
getKeyüD
If D=15
Pause
If D=24
Goto 3
If D=26
Goto 1
If D=31
Pause
End
Lbl 1
For(B,B+1,93)
F+1üF
1üE
If pxl-Test(A,B)=1
Goto 4
Pxl-On(A,B)
getKeyüD
If D=15
Pause
If D=34
Goto 0
If D=25
Goto 2
If D=31
Pause
End
Lbl 2
For(A,A-1,1,ú1)
F+1üF
2üE
If pxl-Test(A,B)=1
Goto 4
Pxl-On(A,B)
getKeyüD
If D=15
Pause
If D=26
Goto 1
If D=24
Goto 3
If D=31
Pause
End
Lbl 3
For(B,B-1,1,ú1):F+1üF
3üE
If pxl-Test(A,B)=1
Goto 4
Pxl-On(A,B)
getKeyüD
If D=15
Pause
If D=25
Goto 2
If D=34
Goto 0
If D=31
Pause
End
Goto 0
Lbl 4
If (A=(R-1) and B=Q) or (A=(R+1) and B=Q) or (A=R and B=(Q+1)) or (A=R and B=(Q-1))
Then
Z+1üZ
Lbl R
If Z=4
Then
ClrHome
Output(4,5,"LEVEL 2")
Pause
ClrDraw
2üA
2üB
0üE
Line(ú10,ú15,ú33,ú15)
Line(ú20,ú15,ú20,5)
Line(ú20,5,20,5)
Line(20,5,20,ú15)
Line(33,ú15,10,ú15)
Line(ú21,31,ú1,11)
Line(0,25,20,5)
Line(ú33,5,ú47,5
Line(46,5,33,5)
Goto A
End
If Z=8
Then
ClrHome
Output(4,5,"LEVEL 3")
Pause
ClrDraw
2üA
2üB
0üE
Line(21,ú30,21,8)
Line(10,8,35,8)
Line(0,30,0,ú8)
Line(ú13,ú8,10,ú8)
Line(ú24,ú30,ú24,8)
Line(ú12,8,ú36,8)
Goto A
End
If Z=12
Then
ClrHome
Output(4,5,"LEVEL 4")
Pause
ClrDraw
3üA
5üB
0üE
Line(ú33,20,ú33,ú20)
Line(ú15,30,ú15,ú10)
Line(ú15,ú10,5,ú10)
Line(ú5,10,15,10)
Line(15,10,15,ú30)
Line(33,ú20,33,20)
Goto A
End
If Z=16
Then
ClrHome
Output(5,3,"(GET READY)")
Output(3,5,"LEVEL 5"
Pause
ClrDraw
5üA
7üB
0üE
Line(0,31,0,10)
Line(0,10,25,10)
Line(25,10,25,ú15)
Line(0,ú31,0,ú10)
Line(0,ú10,ú25,ú10)
Line(ú25,ú10,ú25,15)
Line(35,20,25,10)
Line(ú35,ú20,ú25,ú10)
Line(ú13,20,ú13,0
Line(13,0,13,ú20)
Goto A
End
If Z=28
Then
ClrHome
ClrDraw
Output(3,3,"LEVEL 8")
Output(5,3,"GET READY!")
Pause
60üA
85üB
3üE
Line(0,20,0,ú20)
Line(ú10,20,10,20)
Line(ú10,ú20,10,ú20)
Line(ú31,0,30,0)
Line(ú31,0,ú38,8)
Line(ú31,0,ú38,ú7)
Line(30,0,38,8)
Line(30,0,37,ú7)
Line(20,10,47,31)
Line(20,ú10,47,ú31)
Line(ú20,ú10,ú47,ú31)
Line(ú20,10,ú47,30)
Goto A
End
If Z=32
Then
ClrHome
Output(4,3,"(GET READY)")
Output(2,5,"LEVEL 9")
Output(5,1,"(YOU MUST HIT THE TARGET 4 TIMES TO PASS)")
Pause
ClrDraw
5üA
2üB
0üE
Line(0,10,0,ú10)
Line(ú10,0,10,0)
Line(ú14,15,ú29,0)
Line(ú29,0,ú7,ú22)
Line(ú7,ú22,7,ú22)
Line(7,ú22,29,0)
Line(29,0,14,15)
Line(14,31,35,10)
Line(47,0,25,ú22)
Line(ú25,ú22,ú47,0)
Line(ú37,8,ú14,31)
Goto A
End
If Z=37
Then
ClrHome
Output(2,4,"LEVEL 10")
Output(4,6,"GET READY!")
Output(5,1,"HIT THE TARGET FIVE TIMES TO WIN!")
Pause
ClrDraw
55üA
5üB
1üE
Circle(ú17,0,6)
Circle(ú17,0,12)
Circle(ú17,0,21)
Line(ú23,21,ú9,21,0)
Line(ú21,12,ú13,12,0)
Line(ú5,5,ú5,ú5,0)
Line(ú21,ú12,ú13,ú12,0)
Line(ú29,5,ú29,ú5,0)
Line(ú23,4,ú23,ú4,0)
Line(ú11,4,ú11,ú4,0)
Line(ú25,ú21,ú10,ú21,0)
Line(ú1,ú26,20,ú26)
Line(10,4,10,ú26)
Line(10,23,26,ú6)
Line(23,ú9,47,16)
Line(24,10,37,22)
Line(24,22,24,31)
Line(23,ú20,39,ú4)
Line(31,ú12,39,ú23)
Line(39,8,35,4,0)
Line(35,3,32,0,0)
Goto A
End
If Z=24
Then
ClrHome
Output(3,5,"LEVEL 7")
ClrDraw
Pause
31üA
47üB
0üE
Circle(0,0,10)
Circle(0,0,25)
Line(ú36,20,ú30,0)
Line(ú36,ú20,ú30,0)
Line(ú42,20,ú36,0)
Line(ú36,0,ú42,ú20)
Line(36,20,30,0)
Line(36,ú20,30,0)
Line(42,20,36,0)
Line(42,ú20,36,0)
Line(ú5,10,5,10,0)
Line(ú7,9,6,9,0)
Line(ú7,ú9,7,9,0)
Line(ú7,ú10,7,ú10,0)
Line(ú24,10,ú24,ú10,0)
Line(ú25,5,ú25,ú5,0)
Line(24,10,24,ú10,0)
Line(25,10,25,ú10,0)
Goto A
End
If Z=20
Then
ClrHome
ClrDraw
Output(4,1," LEVEL 6")
Pause
21üA
47üB
3üE
Line(ú29,5,ú29,18)
Line(ú47,5,ú29,5)
Line(ú15,15,14,15)
Line(24,22,24,31)
Line(32,15,38,15)
Line(32,ú31,32,15)
Line(14,5,14,ú5)
Line(ú15,5,14,5)
Line(ú15,ú13,4,ú13)
Line(ú26,ú23,ú15,ú5)
Line(ú24,5,ú37,ú16)
Line(ú15,ú13,ú15,5)
Line(6,ú24,26,0)
Line(ú15,5,ú15,ú5,0)
Goto A
End
If Z=43
Then
ClrHome
ClrDraw
Output(1,1,"YOU WON! ")
For(C,1,300):End
ClrHome
Output(1,1,"ALL HAIL THE NEWKING OF SNAKEDOM!!")
Pause
ClrHome
Output(1,1,"YOUR HIGHNESS' SCORE:")
Output(2,8,F)
If F>O
Output(4,1,"NEW HIGH SCORE! LONG LIVE THE KING!")
If F<O
Output(4,1,"TRULY A REGAL ATTEMPT, BUT THEOLD HIGH SCORE REMAINS UNBEATEN"
Pause
Output(8,1," GAME OVER"
Stop
End
Line(T,S+1,T,S-1,0)
Line(T+1,S,T-1,S,0)
Goto Z
End
For(C,1,200)
End
ClrHome
Output(1,1,"YOU ARE RATTLED"
0üÁ
Output(2,4,"SCORE:")
Output(2,11,F)
Output(4,3,"HIGH SCORE IS")
Output(5,7,O)
If F>O
Then
Pause
ClrHome
Output(3,3,"YOU BEAT THE")
Output(4,4,"HIGH SCORE")
Output(6,3,"OLD HIGH WAS")
Output(7,7,O)
FüO
End
Pause
Goto 8
Lbl 9
Return
Lbl W
Output(1,4,"SNAKE V6.7")
Output(3,1,"BY Bennett WILLs")
For(C,1,300):End
Output(5,3,"C")
For(C,1,90):End
Output(5,6,"R")
For(C,1,90):End
D'un autre coté, sa ne servait à rien, et sa n'était jamais utilisé, sauf dans de rares programmes. (je pens à badboy )
il faut que je fasse une sourse ou vous avez compris
merci
ya pas moyen de le faire finir meme si il grandi pas quand tu mange de truc