Digmake (Minecraft clone)

 Author: Robert Black Download: README.txtNo Download Available Version: 0.1 Compatibility: TI-83/84/+/SE File Size: 0 Bytes Genre: Arcade Graphics Platform Puzzle RPG Strategy Sports Casino Board Utility Misc Rating: I've finished!
2-dimensional Minecraft on a calculator!
Press arrow keys to move, press 4,2,6, and 8 to move your selector thing around (the thing you use to place and destroy blocks), Mode to switch between place and destroy modes.
There is gravity, but you have infinite blocks. This program is not slow like most of my other ones.
This program doesn't include blocks that have any function, but I will add it as soon as I remove the letter graphics.
Can someone show me how to convert this program from the Home Screen to the graph? I know a way, but it takes over 5 minutes for the program to redraw the screen.
If you have played this, please comment, I want to see how many people have used this.

``````:[[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]→[A]
:5→X
:1→Y
:5→L
:1→M
:5→A
:5→B
:5→N
:5→O
:1→P
:1→H
:1→R
:While 1
:getKey→K
:X-(K=24 and [A](Y,X-1)=0)+(K=26 and [A](Y,X+1)=0)→X
:If K=25 and not([A](Y+1,X) = 0)
:Then
:For(W,1,3
:If Y>1
:Then
:If [A](Y,X)=0
:Y-1→Y
:End
:End
:End
:If Y<8 and [A](Y+1,X)=0
:Y+1→Y
:If K=22
:Then
:If P=1
:Then
:0→P
:Else
:1→P
:End
:End
:If K=83
:Then
:If P=0
:Then
:0→[A](B,A
:Output(B,A," "
:End
:If P=1
:Then
:H→[A](B,A //Sorry for the earlier mistake, fixed now
:Output(B,A,H
:End
:End
:If R=1
:Then
:0→R
:ClrHome
:For(V,1,16
:For(W,1,8
:If not([A](W,V)=0)
:Output(W,V,[A](W,V
:End
:End
:End
:If [A](M,L)=0
:Then
:Output(M,L," "
:Else
:Output(M,L,[A](M,L
:End
:X→L
:Y→M
:If [A](O,N)=0
:Then
:Output(O,N," "
:Else
:Output(O,N,[A](M,L
:End
:X→N
:Y→O
:If (K=82 and A>1) or (K=84 and A<16) or (K=73 and B>1) or (K=93 and B<8)
:Then
:If [A](B,A)=0
:Then
:Output(B,A," "
:Else
:Output(B,A,[A](B,A
:End
:If K=82
:A-1→A
:If K=84
:A+1→A
:If K=73
:B-1→B
:If K=93
:B+1→B
:Output(B,A,"O
:End
:Output(Y,X,"*
:End```
```

# What the community thinks:

Add a New Comment