Map Maker Using 5x5 Text Sprites

Solcamino 29 Aug 2018 01:22

10→A //A and B are also the dimensions of [A]

8→B

For(X,1,A

For(Y,1,B

For(θ,1,5

Text(55,7,X

Text(55,1,Y

If Y=0

1→Y

If [A](Y,X)≠0

Then

If [A](Y1,X1)=1

"[)))["→Str1

If [A](Y1,X1)=2

" '! "→Str1

If [A](Y1,X1)=3

"°²1²°"→Str1

If [A](Y1,X1)=4

"X:X"→Str1

End

If [A](Y1,X1)>0

Text(6(Y-1),θ+6(X-1),sub(Str1,θ,1

End

Text(6(Y-1),θ+6(X-1)," "

End

End