Digmake (Minecraft clone)

You have not uploaded your program! Please edit the page to upload your program.

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:
TI|BD

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
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-NonCommercial-ShareAlike 3.0 License