Beta Version of Flappy Bird

[parzival1747]

TI BASIC

Code: Tout sélectionner

ClrHome
ClrDraw
AxesOff
0->Xmin
0->Ymin
62->Ymax
94->Xmax
0->Z
Horizontal 0
Horizontal 62
For(X,20,25
   Vertical X
End
For(X,46,51)
   Vertical X
End
For(X,78,83
   Vertical X
End
StorePic 0
Lbl 9
ClrDraw
RecallPic 0
randInt(1,42)->C
For(A,20,25,2
   For(B,C,C+20)
      Pt-Off(A,B,2
   End
End
randInt(1,42)->C
For(A,46,51,2
   For(B,C,C+20)
      Pt-Off(A,B,2
   End
End
randInt(1,42)->C
For(A,78,83,2
   For(B,C,C+20)
      Pt-Off(A,B,2
   End
End
For(F,1,200)
End
31->Y
2->X
{3,3,3,2,2,1}->L1
{1,2,2,3,3,3,44,4,4,4,4,4,4,4,4,4}->L2
Lbl 8
Goto D
Lbl U
Text(0,0,Z
For(A,1,6
   If getKey
   Goto U
   Pt-Off(X,Y,2
   X+1->X
   Y+L1(A)->Y
   Pt-On(X,Y,2)
   If pxl-Test(64-Y,X) or pxl-Test(60-Y,X) or pxl-Test(62-Y,X+2)
   Goto L
   If X=92
   Goto 9
   If X=20 or X=46 or X=78
   Z+1->Z
End
Lbl D
Text(0,0,Z
For(A,1,17
   If getKey
   Goto U
   Pt-Off(X,Y,2
   X+1->X
   Y-L2(A)->Y
   Pt-On(X,Y,2)
   If pxl-Test(64-Y,X) or pxl-Test(60-Y,X) or pxl-Test(62-Y,X+2)
   Goto L
   If X=92
   Goto 9
   If X=20 or X=46 or X=78
   Z+1->Z
End
Lbl L
Circle(X,Y,9
For(A,1,200
End
Line(30,52,64,52
For(A,51,9,-1
   Line(28,A,66,A,0
   Pt-On(30,A
   Pt-On(64,A
End
Line(30,9,64,9
Text(-1,13,36,"GAME
Text(-1,21,36,"OVER
ClrDraw
ClrHome
"