I can't find what I did wrong. Help, please?
(download)
K=getKey
R=row
C=column in relation to entire map
I=index of map being Output starting at 0
There seems to be some type of error in the Output(R,C-I,sub(Str1,128R-128+C,1 line. After scrolling the outputted character is shifted left or right, depending on the direction of the move. I can't figure it out. :(
(download)
BASIC Code wrote:
:"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XX XX XX XX XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX→Str1
:DelVar I3→C
:3→R
:Output(1,1,"XXXXXXXXXXXXXXXXX X * X X X X XXXXXXXXXXXXXXXX
:Repeat K=45
:Repeat max(Ans=21,24,25,26,34,45
:getKey→K
:End
:Output(R,C-I,sub(Str1,128R-128+C,1
:R+(K=34)-(K=25→R
:C+(K=26)-(K=24→C
:I+(C>I+15)-(C<I+2→J
:If I≠J
:Then
:Output(1,1,sub(Str1,I+1,16)+sub(Str1,129+I,16)+sub(Str1,257+I,16)+sub(Str1,385+I,16)+sub(Str1,513+I,16)+sub(Str1,641+I,16)+sub(Str1,769+I,16)+sub(Str1,897+I,16
:J→I
:End
:Output(R,C-I,"*
:If K=45
:Return
:If K=21
:Then
:128R-128+C
:sub(Str1,1,Ans-1)+"X"+sub(Str1,Ans+1,1024-Ans→Str1
:Output(R,C-I,"*
:End
:End
Generated by SourceCoder, © 2005 Cemetech
Str1=8x128 map being editted
:DelVar I3→C
:3→R
:Output(1,1,"XXXXXXXXXXXXXXXXX X * X X X X XXXXXXXXXXXXXXXX
:Repeat K=45
:Repeat max(Ans=21,24,25,26,34,45
:getKey→K
:End
:Output(R,C-I,sub(Str1,128R-128+C,1
:R+(K=34)-(K=25→R
:C+(K=26)-(K=24→C
:I+(C>I+15)-(C<I+2→J
:If I≠J
:Then
:Output(1,1,sub(Str1,I+1,16)+sub(Str1,129+I,16)+sub(Str1,257+I,16)+sub(Str1,385+I,16)+sub(Str1,513+I,16)+sub(Str1,641+I,16)+sub(Str1,769+I,16)+sub(Str1,897+I,16
:J→I
:End
:Output(R,C-I,"*
:If K=45
:Return
:If K=21
:Then
:128R-128+C
:sub(Str1,1,Ans-1)+"X"+sub(Str1,Ans+1,1024-Ans→Str1
:Output(R,C-I,"*
:End
:End
Generated by SourceCoder, © 2005 Cemetech
K=getKey
R=row
C=column in relation to entire map
I=index of map being Output starting at 0
There seems to be some type of error in the Output(R,C-I,sub(Str1,128R-128+C,1 line. After scrolling the outputted character is shifted left or right, depending on the direction of the move. I can't figure it out. :(