BASIC soft-coded map
Moderator: MaxCoderz Staff
-
- New Member
- Posts: 13
- Joined: Tue 29 Nov, 2005 8:10 pm
BASIC soft-coded map
Does anyone have a reliable and fast way to create a soft-coded (doesn't use any BASIC variables) map for an RPG? It can easily be done with matricies and such, but I have no idea how to do it otherwise .
Welcome to Jamdung, poor people are dead at random, political violence caan done.
-Damian Marley
-Damian Marley
Is this for HomeScreen or GraphScreen?
Matrices work really well for HomeScreen, just use a 8x16 matrix that stores a number for each square. Then run a for loop that has if statements that tell the calc which ASCII character to draw for the number in matrix.
I heard you could use strings as well, but I don't remember how you do that.
Matrices work really well for HomeScreen, just use a 8x16 matrix that stores a number for each square. Then run a for loop that has if statements that tell the calc which ASCII character to draw for the number in matrix.
I heard you could use strings as well, but I don't remember how you do that.
For matrics:
For strings that are scrollable:BASIC Code wrote::ClrHome
:[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1][1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1][1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1][1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1][1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1][1,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,1[A]
:For(A,1,8
:For(B,1,16
:Output(A,B,sub(" O",[A](A,B)+1,1
:End
:End
:2A:2B
:[A](A,B
:Repeat Ans=1
:Repeat Ans
:getKey
:End
:AC:BD
:B+(=26)-(=24B
:A+(=34)-(=25A
:If [A](A,B:Then
:CA:DB:End
:Output(C,D,"
:Output(A,B,"O
BASIC Code wrote:::"MAZES
:DelVar W:prgmLEVEL
:Lbl 1:Repeat X-874:Output(1,1,sub(Str1,X-87,128:Output(6,8,"*
:XY:Repeat Ans:getKey:End:X+(=26)-(=24X:X+16((=34)-(=25X:If sub(Str1,X,1)="O
:YX:End:W+1W:prgmLEVEL:
This isn't optimized so w/e.BASIC Code wrote::If W=4:Then:For(W,1,8:For(X,1,16:Output(W,X,"
:End:End:For(W,1,8:For(X,1,16:Output(W,X,"O
:End:End:For(W,1,8:For(X,1,16:Output(W,X,"
:End:End:Output(4,1,"THE-------------
:Output(5,1,"-------------End
:Output(8,1,"By Kalan
:Stop:End
:If W=3
:"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOEOOOOOOO OOOOOOO O O OOOOO OOOO O OOOOO O O OOO O-O OO O O O-OO OOOOOOO O O-O O O O O-O OO OOOO O O O-O O O OO-OOOOOO OOOOO OO-O O O-O O O OOOOOO O-OO O O OO O-O OOOOO O O O-O OO O O O O-O O O O-O OOOOOOOOO OOO-OOO OO O OOO O OOO O OO OO OOO OO OOO O O OO OO OOOO OO O O O OOOOO OO OO O O OO O O OO O OO OOOO O O O OO OO OO O OOOOO OO O OOO OO O OOO OOO O OOOO OOO O OOO OOOOOOOO OOOOOO O O OOOO OOOO O O O O O OOO O O OOO OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOStr1
:If W=2
:"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO4OOOOOO O O O OOOO O OOOO O O O O OO OO O O O OO OOO O O O OOO O O O OOOOOO O O O OO OOO OOOOOO O O OOOOOO O OOO O O O OO OOOOO OO OOOO O OO O OOOOOO OOO O O OOOOOO OOOOOOOO OOO OOO O O OO OO OO O O O OOOOOOO O O O O O O O O O O OOO O O O O O O O O OO OO O O O O O OO O O OO OOOOOOO O O O OOO OO OOO OOOO OOO OO OO O O O O O O OOOOOOOO O O O O O OOOOOO O O O O O OOO OO OO OO O O O O OO OOOOOOOO OO OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOStr1
:If W=1
:"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO3OOOOO O O O OO OOOO O O OO O OO O OO OO OO O O O OO O OOOO O O O OO OO OO O OOO OO OOO OO OO OOO O OOOO OOOO O OOOOO O OOO O O OO OO O O OO O O O OO OO O OOO O O O OOOO OOOOOO OO OO OOO OOO O O OOO OO OO OO O O OOOOOOO O O OOOO OO O OOOOO O OOOOO OOO OO O O O O O O O OO OO OOO OOOO O O O OOOO O O OOOO O O O OOOOO O O OOO OOO O OO O O OO OOOOOOOO O O O OOOOOOO O O OOOO OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOStr1
:If W=0
:"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO2OOOOOOOOO OO OO O OOO O OOO OOOO O O O O OO O O O OOOO O O OO OO OO OO O O OOO O OO O OOOO O OO OOO O O O O OO O OOOOOO O OOO OOOOOOOOOO OO O O O OOOOO O OO O O O O OOO O OOOO OOO O O OO O O OOOO O OOO O O O O OO OOO OOO OOOOOOOOOO O OOOOOOOOO O OOO O O O O O O O O O O OOOOOO OOO O O OOO OOOOOO OO O O O O O OO O OOO OOOO O OOO OO O OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOStr1
:length(Str1)-47
- KermMartian
- Calc Wizard
- Posts: 549
- Joined: Tue 05 Jul, 2005 11:28 pm
- Contact:
-
- New Member
- Posts: 13
- Joined: Tue 29 Nov, 2005 8:10 pm
-
- Calc King
- Posts: 2195
- Joined: Sun 27 Mar, 2005 4:06 am
- Location: sleeping
- Contact: