Programmeren in TI-Basic/Snake: verschil tussen versies
Verwijderde inhoud Toegevoegde inhoud
Geen bewerkingssamenvatting |
Geen bewerkingssamenvatting |
||
Regel 5:
:ClrDraw
:Axesoff
:FnOff
:ZStandard
:0→Xmin
Regel 47 ⟶ 48:
:0→Y
:End
:If G=26 and Y<>0
:Then
:1→X
:0→Y
:End
:If G=25 and X<>0
:Then
:0→X
:-1→Y
:End
:If G=34 and X<>0
:Then
:0→X
:1→Y
:End
:If L1(P)=U and L2(P)=V
:Then
:L+1→L
:S+5→S
:If L=85
:Goto 1
:Lbl A
:randInt(1,16→U
:randInt(1,9→V
:If pxl-Test(5*V+10,5*U+5)=1
:Goto A
:Text(V*5+9,U*5+8,"°
:End
:P+1→P
:If P°86
:Then
:1→P
:L1(85)+X→L1(P)
:L2(85)+Y→L2(P)
:Else
:L1(P-1)+X→L1(P)
:L2(P-1)+Y→L2(P)
:End
:If L1(P)=0
:16→L1(P)
:If L1(P)=17
:1→L1(P)
:If L2(P)=0
:1→L2(P)
:End
:Lbl0
:Text(27,28," GAME OVER!
:Goto 2
:Lbl 1
:Text(27,28," YOU'VE WON!
:Lbl 2
:Text(33,30," SCORE:
:Text(33,53,S
:Pause
:ClrDrasw
:ClrHome
:ZStandard
:ClrList L1,L2
:Axeson
:FnOn
:Disp
</pre>
| |||