Beta Version of Flappy Bird
Posted: 24 Aug 2025, 21:13TI BASIC
- Code: Select all
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
"