source code
hey can you post the source code on here so i can manually put this in my calculator?
BCBetaTetris / Discussion
Forum
» Forum 101 / Wiki Page Discussions
» BCBetaTetris
This is the discussion related to the wiki page BCBetaTetris.
I extracted the .8xp file and opened it with SourceCoder3. I cannot confirm that it works, and it is also over 200 lines, so typing it in by hand will take a while. Here is the code anyway:
"Square
{~4,0,~4,4,0,4->L1
"Straight
{~8,0,~4,0,4,0->L2
"Diag-UpLeft
{4,0,0,4,~4,4->L3
"Diag-UpRight
{0,4,~4,0,4,4->L4
"CenterUp
{~4,0,4,0,0,4->L5
0->Xmin:94->Xmax
0->Ymin:62->Ymax
PlotsOff
FnOff
AxesOff
ClrDraw
For(I,0,62
Pt-On(36,I,2
Pt-On(84,I,2
End
Line(35,47,0,47
Line(35,6,0,6
Text(0,3,"BC's Beta
Text(7,7,"Tetris
Text(31,1,"Next Piece
0->L
Line(8,22,27,22
Line(27,22,27,14
Line(27,14,8,14
Line(8,22,8,14
Line(29,32,3,32
Line(3,43,29,43
Line(29,32,29,43
Line(29,43,29,32
Line(3,32,3,43
Line(35,24,0,24
Text(49,10,"Lines
randInt(1,5->B
B->Y
0->W
0->I
Lbl 1
If I=52:Goto EN
Text(57,1,"Score:",W
W+10->W
1->P
B->Y
randInt(1,5->B
17->S
35->T
Text(41,10,L
Text(~1,21,5,"
If B=1:L1->L6
If B=2:L2->L6
If B=3:L3->L6
If B=4:L4->L6
If B=5:L5->L6
Pt-On(S,T,2
Pt-On(S+L6(1),T+L6(2),2
Pt-On(S+L6(3),T+L6(4),2
Pt-On(S+L6(5),T+L6(6),2
If Y=1:Then
L1->L6
80->Q
44->R
End
If Y=2:Then
L2->L6
76->Q
48->R
End
If Y=3:Then
L3->L6
76->Q
44->R
End
If Y=4:Then
L4->L6
44->R
76->Q
End
If Y=5:Then
L5->L6
44->R
76->Q
End
randInt(13,19->X
4X->X
For(I,52,4,~4
getKey->K
Pt-Off(X,I+4,2
Pt-Off(X+L6(1),I+L6(2)+4,2
Pt-Off(X+L6(3),I+L6(4)+4,2
Pt-Off(X+L6(5),I+L6(6)+4,2
X+4(K=26)(X<Q)-4(K=24)(X>R)->X
If K=25:Then
P+1->P
If P=5:1->P
If Y=2:Then
If P=3:1->P
If P=1:Then
{~8,0,~4,0,4,0->L6
76->Q
48->R
End
If P=2:Then
{0,4,0,8,0,12->L6
80->Q
40->R
End
End
If Y=3:Then
If P=3:1->P
If P=1:Then
{4,0,0,4,~4,4->L6
76->Q
44->R
End
If P=2:Then
{0,4,4,4,4,8->L6
76->Q
40->R
End
End
If Y=4:Then
If P=3:1->P
If P=1:Then
{0,4,~4,0,4,4->L6
76->Q
44->R
End
If P=2:Then
{0,4,~4,4,~4,8->L6
80->Q
44->R
End
End
If Y=5:Then
If P=1:Then
{~4,0,4,0,0,4->L6
44->R
76->Q
End
If P=3:Then
{0,4,4,4,~4,4->L6
76->Q
44->R
End
If P=2:Then
{0,4,0,8,4,4->L6
40->R
76->Q
End
If P=4:Then
{0,4,0,8,~4,4->L6
44->R
80->Q
End
End
End
Pt-On(X,I,2
Pt-On(X+L6(1),I+L6(2),2
Pt-On(X+L6(3),I+L6(4),2
Pt-On(X+L6(5),I+L6(6),2
If pxl-Test(62-I+4,X) or pxl-Test(62-(L6(2)+I)+4,L6(1)+X) or pxl-Test(62-(L6(4)+I)+4,L6(3)+X) or pxl-Test(62-(L6(6)+I)+4,L6(5)+X):Then
I-4->I
Goto 2
End
End
Lbl 2
Pt-On(X,I+4
Pt-On(X+L6(1),I+L6(2)+4
Pt-On(X+L6(3),I+L6(4)+4
Pt-On(X+L6(5),I+L6(6)+4
0->V
I+4->I
0->C
13->dim(L6
Fill(0,L6
For(J,36,84,4
If pxl-Test(62-I,J:Then
C+1->C
End
If pxl-Test(62-(I+4),J:Then
J->L6((J-32)/4)
End
End
If C!=13:Then
Goto 1
End
For(J,40,80,4
Pt-Off(J,I,2
Pt-Off(J,I
End
L+1->L
W+10->W
0->L6(1):0->L6(13)
For(P,1,13
If L6(P:Then
Pt-Off(L6(P),I+4
Pt-Off(L6(P),I+4,2
Pt-On(L6(P),I,2
Pt-On(L6(P),I
End
End
For(theta,I+4,52,4
For(Z,40,80,4
If pxl-Test(62-theta,Z:Then
Pt-Off(Z,theta,2
Pt-Off(Z,theta
Pt-On(Z,theta-4,2
Pt-On(Z,theta-4
End
End
End
Goto 1
Lbl EN
For(I,35,43
Line(23,I,80,I
End
For(theta,0,8
Text(~1,20,25+6theta,sub("GAME OVER",theta+1,1
For(Z,0,50:End
End
For(I,16,34
Line(23,I,80,I,0
End
Line(23,34,80,34
Line(23,34,23,16
Line(80,16,80,34
Line(23,16,80,16
Text(~1,30,25,"Score Was
StorePic 1
FnOff
{0,1->L1
{0,W->L2
FnOff
LinReg(ax+b) {Y1}
FnOff
Equ>String({Y1},Str1
FnOff
sub(Str1,1,length(Str1)-3->Str1
RecallPic 1
Text(~1,38,52-(length(Str1)*3),W
Repeat getKey:End
For(I,0,22
Vertical I
End
Line(22,16,22,43,0
For(I,23,80
Line(I,45,I,62
Line(I,15,I,0
Pt-Off(I,44
Pt-Off(I,15
End
Vertical 81
Line(81,16,81,43,0
For(I,82,94
Vertical I
End
Repeat getKey:End
For(I,22,82
Vertical I
End
prgmCH2
/forum/t-108500/bcbetatetris#post-
