0 Members and 1 Guest are viewing this topic.
I like this, it's very well explainedBut to make it simpler,When you useCode: [Select]If TT--Pt-On()Endto check if the space is not a zero, you could instead delete that loop and instead define Pic1 asCode: [Select][0000000000000000]->Pic1[FFFFFFFFFFFFFFFF][F0F0F0F0F0F0F0F0]so it's justCode: [Select]Pt-On()
If TT--Pt-On()End
[0000000000000000]->Pic1[FFFFFFFFFFFFFFFF][F0F0F0F0F0F0F0F0]
Pt-On()
could you attach a source code for this so I don't have to retype it into my calc?
This works but it also changes the program slightly. The tilemap will move noticeably slower (well maybe not since you're not smoothscrolling) with this since it will be drawing a tile for every 8x8 juncture on the screen. Before, the tilemap would be drawn faster or slower depending on how many tiles are on screen. Both methods have their advantages/disadvantages- basically it's speed vs consistency.
If getKey(1) and (sub(GT,X,Y+8)=0 or sub(GT,X,Y+8)=3)Y+8->YPause 500End
Code: [Select] If getKey(1) and (sub(GT,X,Y+8)=0 or sub(GT,X,Y+8)=3)...
If getKey(1) and (sub(GT,X,Y+8)=0 or sub(GT,X,Y+8)=3)...
If getKey(1) and (sub(GT,X,Y+8)=0 or (sub(GT,X,Y+8)=3))