Omnimaga
Calculator Community => TI Calculators => Axe => Topic started by: thydowulays on January 08, 2012, 12:44:06 am
-
Okay, so I have a simple problem. I am making an RPG, and I have a tilemap. pxl-Test(ing doesn't work for tilemaps, so I just want to know how to find tiles on the map and if they are "solid" then don't let the player move. Here is my code:
.LOLZ
prgmLOLZDATA <-- My tilemap and sprites are stored in here
0->X->Y
Repeat getKey(15)
For(B,0,7
For(A,0,11
{B*12+A+GDB1}->T
If T
T--
Pt-On(A*8,B*8,T*8+Pic1
End
End
End
DispGraph
ClrDraw
If getKey(4)
Y-1->Y
End
If getKey(1)
Y+1->Y
End
If getKey(2)
X-1->X
End
If getKey(3)
X+1->X
End
End
Return
-
Alrighty, so what you want to do is make a subroutine like this:
Lbl GT
{r2/8*12+(r1/8)+GDB1}
Return
Then input the coordinates on the screen whenever you want to check if it's solid, e.x.
If sub(GT,X,Y)
DelVar "System32"
End
and you should be good to go!
A breakdown of that code:
When you call the subroutine, X gets stored to r1 and Y gets stored to r2. What you're doing is dividing both by 8 (because your tiles are 8x8), then multiplying the Y value by 12 to get the right row, then adding the X value to get the right column (and thus the tile you want.)
Note: This works if tile 0 is empty and tiles 1 and onwards are solid. There are more complicated things you can do (check out BuilderBoy's tile-masking tutorial)
-
Thanks so much for this! Is there a way to assign a sprite to 00?
-
When you draw the tiles, you can have it check for a tile with 0 as a value and if so draw a sprite there.
-
Oh good idea, I'll do that later when I need it. Thanks! :)
-
DelVar "System32"
what does that mean?
-
you dont want to try
-
you dont want to try
umm, I don't get it ???
-
I think he is talking to thydowulays
-
parser padwan, I assume you aren't trolling, so I'll tell you. He is replacing the boring .Insert code here with something of interest. doing del C:\WINDOWS\System32 on a windows machine will pretty much delete Windows. So he is referring to formatting your calculator I guess. Anyways, It's just a witty way of saying .Insert code here
-
parser padwan, I assume you aren't trolling, so I'll tell you. He is replacing the boring .Insert code here with something of interest. doing del C:\WINDOWS\System32 on a windows machine will pretty much delete Windows. So he is referring to formatting your calculator I guess. Anyways, It's just a witty way of saying .Insert code here
ah, that makes sense now. thanks. :)
and btw, I wasn't trolling :P
-
I think he is talking to thydowulays
no and @ parser
-
ah ok.
hmmm, how would you check for a collision, say, at the bottom right of the player?
cause when I do this:
:If sub(GET,X+7,Y+7)=2
:stuff
:End
it has the same reaction as this:
:If sub(GET,X,Y)=2
:stuff
:End...and when I delete the latter code and replace it with the first, the collision still only works for (X,Y), but not for (X+7,Y+7)
also, I don't know if it will help, but here is the sub(GET) code.
:{r2/256/6*16+(r1/256/6)+L1}
:Return
also note that I am using 256 inflation, with 6*6 tiles in a 16*8 tilemap. my tilemap data is also in L1
-
Okay, a simple way to do collision detection in a top-down sort of game, like what I used in Base 671, is to assign the current position variables and offsets for the tilemap into other variables, so you have a copy of how everything is displayed. Then, check to see if the character is inside a tile. If they are, restore the copy of the position variables so everything is back to normal! Note that this works best if your character is represented by a single point.
@parser - you said you were using *256 inflation? Make sure you do If sub(GET,X+(7*256),Y+(7*256))=2. Otherwise, I think your code is fine.
-
ah yes, that was the problem. thanks butts! :D
(it turns out I really was being a noob :P)
-
haha that's totally fine. Everyone forgets these things, most especially me.
-
Wait, I have a question. If I had the routine GT, with {r2/8*12+(r1/8)+GBD1}=r3, and I did this:
If sub(GT,X,Y-8,2)
End
Would that test to see if the tile had a number 02? Like I could do this:
If sub(GT,X,Y-8,2)
Y-8->Y
Pause 500
End
ElseIf sub(GT,X,Y-8,3)
Pause 500
End
Nevermind, I got it. However, does anyone know a routine to say, move a tile up or down, or left or right? Like, edit the little [01000000000000001]->GBD1 sorta thing via a routine in game?
That would make it so I could move through tile 02, but not tile 03. Would that work?
-
yes, but you'll want to make a copy of your map data and modify that, so you don't screw up your map for permanent.
To acces the Yth element down and the Xth element across, go like this:
{Y*WIDTH_OF_MAP + X + START_OF_MAP_DATA}
So, to move a tile to the left, say:
{Y*WIDTH_OF_MAP + X + START_OF_MAP_DATA}->{Y*WIDTH_OF_MAP + X-1 + START_OF_MAP_DATA}
And so on
-
In my programs where I want to edit my maps, I first copy the maps to L1 or some other free ram area during level loading. I usually have three map functions:
DrawMap(mapPtr, tilePics)
GetTile(mapPtr, x, y) .x and y are actual screen coords. Function just divides each by 8 to get the tile that contains the point specified.
SetTile(mapPtr, row, col, value)
Then you can access and modify your map very easily.
-
hmmm, I can't think of a good way to erase a tile from the map. Is there a fast way to draw it every frame?
Every way that I've tried it, it is too slow. :-\
-
Parser, to erase an individual tile from the map, you basically take leafy's routine:
Lbl GT
{r2/8*12+(r1/8)+GDB1}
Return
And turn it into this:
Lbl ST
{r2/8*12+(r1/8)+GDB1}->r3
Return
Then, you would just have to do ST(X,Y,0 and the tile at position X,Y will be converted into 00.
What do you mean by fast drawing?
EDIT: Leveled up! W00t!
-
Did you mean:
Lbl ST
r3->{r2*12+r1+GDB1}
Return
Also I think he meant actually erasing the tile from the screen. Parser you can do that by drawing a Rect( and a RectI( at the coordinates of the tile.
-
Also I think he meant actually erasing the tile from the screen. Parser you can do that by drawing a Rect( and a RectI( at the coordinates of the tile.
...or a single Pt-Off() if the tile is 8x8. If its smaller than 8x8 you can use Pt-Mask()r to erase and redraw the new tile just like Pt-Off().
-
actually yes, I was referring to physically erasing a tile from the buffer. I'll try trying using 'Rect' and 'Pt-Mask'. Thanks guys! :D
-
Just a little optimisation:
x+1->x
Becomes:
x++
Same with x--
;)
But is faster
getKey(4)?Y--
End
than?
If getKey(4)
Y-1->Y
End
i think there should be many bytes and cycles won, but not much
-
But is faster
getKey(4)?Y--
End
than?
If getKey(4)
Y-1->Y
End
Nope, that's the same. ;)
-
Really? I thought that would be faster, or lighter...
-
This has been alot of help! :D
-
You'r welcome! ;)