prgm TI-Road

Code:


:StoreGDB 1
:0→Xmin:94→Xmax
:0→Ymin:62→Ymax
:{0}→ᴸTR
:ClrDraw
:16→A:51→B:33→C
:25→D:45→E:55→F
:71→G
:For(K,1,05
:   A+1→A:B+1→B:C+1→C:D+1→D:E+1→E:F+1→F:G+1→G
:   Line(A,B,C,D
:   Line(C,D,E,E
:   Line(E,E,F,D
:   Line(F,D,G,B
:   Horizontal D-5
:End:Text(42,30,"By Wistaro"
:Text(57,02,"Youtube.com/user/Wistaro"
:For(T,1,1000:End:ClrDraw:Goto PP
:Lbl PP
:For(A,1,15
:   Text(‾1,A,20,"TI":End:For(A,1,20
:   Text(‾1,A,34,"road":End
:For(A,27,35
:   Text(A,5,"Attrape les chiffres pour "
:   Text(A+7,5,"gagner du score."
:   Text(A+14,5,"Atention aux 0,ils sont"
:   Text(A+21,30,"Traitres..."
:End
:Horizontal 32
:Pause :ClrDraw
:1→E:24→F:1→G
:57→A:43→B:57→C:43→D:0→S:0→Q:1→Z
:0→W:57→M:80→L
:0→Xmin:94→Xmax
:0→Ymin:62→Ymax
:Line(63,58,63,41
:Line(63,41,90,41
:Line(63,59,90,59
:Line(83,41,83,28
:Line(80,28,86,28
:Line(38,62,94,6
:Line(65,0,53,12
:Line(35,30,44,21
:Line(29,36,23,42
:Line(17,48,11,54
:Line(8,57,5,60
:Line(0,30,30,0
:Text(50,1,"Best"
:StorePic 1
:Menu(" Ta voiture:","π",JA,"°",JB,"^",JC,"Autre...",JD
:Lbl JA:"π"→Str1:Goto JJ
:Lbl JB:"°"→Str1:Goto JJ
:Lbl JC:"^"→Str1:Goto JJ
:Lbl JD
:ClrHome
:Disp "Ta voiture:"
:Disp "(1 caractere)"
:Input "",Str1
:If length(Str1)≠1:Goto JD:Goto JJ
:Lbl JJ
:Repeat K=45
:   Line(90,41,90,58
:   Text(57,1,ᴸTR(1)
:   getKey→K
:   If W=0:Then
:      randInt(1,2)→J
:      randInt(0,1)→T
:      If T=0:Then:15→E:01→F:Else:1→E:24→F:End
:      randInt(0,1)→U
:      If U=0:Then
:         0→Θ:Else
:         randInt(1,99)→Θ
:      End:1→W:End
:   A-1→A:B-1→B
:   E+J→E:F+J→F
:   Text(E-J,F-J,"          "
:   Text(A,B,Str1
:   Text(E,F,Θ
:   Text(4,66,"Score"
:   Text(14,72,S
:   If K=24 and Z≠1 and B>38 and G≠0:Then:Text(A,B,"    ":B-37→B:57→C:43→D:1→Z:End
:   If S>ᴸTR(1):S→ᴸTR(1)
:   If K=26 and Z≠0 and G≠0:Then:Text(A,B,"    ":B+37→B:57→C:0→Z:80→D:End
:   If B≤1 or A≤1 or Q=1:Then:Text(A,B,"    ":C→A:D→B
:      Line(65,0,5,60,0
:      randInt(0,1)→G
:      If G=0:Then:Line(65,0,5,60)
:      Else:RecallPic 1:End:0→Q:End
:   If E=57 or F=81:Then:Text(E,F,"        ":0→W:End:
:   If E=A and F=B or E-1=A and F-1=B or E+1=A and F+1=B:Then:Text(E,F,"            ":
:      If Θ=0:Then
:         If S>ᴸTR(1):Then:S→ᴸTR(1):End
:         0→S:1→Q:Else:S+Θ→S:End:0→W:Text(14,72,"                          ":End:End
:ClrDraw:ClrHome
:DelVar Str1
:StoreGDB 1
:DelVar GDB1
:DelVar ᴸTR

m@thieu41 a écrit:C'est vraiment bien

Juste un petit truc: quand on est sur la route de droite, il arrive un moment ou on ne peut plus aller à gauche... Donc si un "0" arrive (après qu'on ait ramassé un autre nombre par ex), on ne peut pas l'éviter  .

Code:

If S>ᴸTR(1):Then:S→ᴸTR(1):End

Code:

If S>ᴸTR(1
S→ᴸTR(1 //Pas besoin de fermer les parenthèses

Code:

:      If Θ=0:Then
:        If S>ᴸTR(1):Then:S→ᴸTR(1):End
:        0→S:1→Q:Else:S+Θ→S:End:0→W:Text(14,72,"                          ":End:End //Cette ligne est juste énorme

Code:

:      If Θ=0
:      Then
:        If S>ᴸTR(1
:            S→ᴸTR(1
:        0→S
:        1→Q
:      Else
:        S+Θ→S
:      End
:      0→W
:      Text(14,72,"                          "
:    End
:End

Code:

If Θ=0

Code:

If not(Θ

m@thieu41 a écrit:

Code:

:      If Θ=0:Then
:         If S>ᴸTR(1):Then:S→ᴸTR(1):End
:         0→S:1→Q:Else:S+Θ→S:End:0→W:Text(14,72,"                          ":End:End //Cette ligne est juste énorme