Code is outdated, but the ideas behind it is not
Index
Preface
This is a short guide on how to setup your program so that it is easy to handle and relatively quick.
Structure
the basic structure I find is sometimes the hardest to come up with, but a good one for platformer games is as follows:
Initialize sprites and variables store 'map' or screen to back buffer repeat getkey(15) and (other checks all drawing things here, like animations draw sprites that are constant dispGraph recallpic X axis collision check X axis movement code Y axis collision check Jump check gravity/jump action End return routines
I will go more in depth tomorrow on each section.
Initialize sprites and variables
Sprites and variables are a no brainer. Everybody will have to initialize them at some time, so why not do it right at the start? The easiest way to do it is to store all the character sprites to one location, and all the enemy sprites to another, and then all the other sprites to yet, another.
[sprite data->Pic1 [sprite data->Pic2 [sprite data->Pic3
This is the usual setup for sprites, and it works quite well. Pic1 will store all the standard sprite data for the character and can be called by:
A*8+Pic1
where A is the sprite you want to call starting at 0.
You can also just change the sprite calling to exact numbers, so:
Pic1 sprite 0 Pic1+8 sprite 1 Pic1+16 sprite 2 Pic1+24 sprite 3 ...etc...
You will then want to initialize the other variables. So there are”real” variables and then pointers. “Real” variables will be easy you just store the value to it.
0->X 0->Y 10->Z
Storing to pointers is kind of hard compared to that. You can store it in a few different ways. You can just do the standard:
10->{L1
Then there is the harder to use:
[data->GDB1 conj(GDB1,L1,size)
This is a lot harder to use due to how it is stored.
Store ‘map’ or screen to back buffer
This can be kind of hard, you can either draw it manually or you can just use a map type engine to draw using sprites.
Map data format:
The data uses run length encoding for compression. Lets say we had a simple map:
11111000001111 00000222220000
Pretty simple, each number representing a different tile. With normal storage this would take a single byte per tile. Or we could represent the data in a different way:
150514052504
Seems much smaller, but what does it mean? lets insert some imaginary commas and dashes to make it easier:
1-5,0-5,1-4,0-5,2-5,0-4
Now you may or may not be able to see how the data is represented. The first segment is 1-5, or 5 ‘1’s ina row, followed by 0-5, or five ‘0’s in a row, and so on. This is how the data in run length encoding is represented. And to further the compression (or confusion), each #-# segment is packed into a single byte.Instead of two hex digits to represent a number from 0-255, we will have 2 hex digits, each from 0-15,representing the two numbers of each #-# element.
The first Hex digit 0 to 15 is the tile number. The second hex digit is the number of tiles to add to the tilemap. The digit goes from 0-15, but 0 doesn’t make much sense, since that would mean this element doesn’t do anything , so we will add one to this after we decompress it so that it has a range of 1 to 16.
There is a small disadvantage that if you have empty spaces of 17 or more in a row, it will take more than1 byte to represent in the code.
Decompressing the Map:
[Data]->GDB1 //map data to GDB1 [tileData]->Pic1 //tile data for tilemap 0->N //element index for map data 0->I //map index for storing tile data While I>=96 //until we have stored all tiles {GBD+N}->A //Take the first element of the map data N+1->N //Increment the map index A^16->B //spit the map element into it A/16->A two separate elements For(F,0,B //fill the map from current position I to I+B A->{L1+I} //could be optimized with Fill but i couldn't get it I+1->I //working :/ End End //End while
After this code is run, the tile data will be decompressed into L1, as follows
0 1 2 3 4 5 6 7 8 9 10 11 12 13...
It will be in a straight line, but you will have to access it using your own routine. Something like this
{Y*W+X+L1}
where W is the width in tiles of your map. X and Y would be the tile coordinates starting at the top left at 0,0.
Displaying the map:
here is a rudimentary program that should be run right after the previous decompressing program:
For(X,0,11 //loop through the entire screen coordinates with tiles of 8x8 For(Y,0,7 {Y*12+X+L1}->A //retrieve the correct tile from the data in L1 Pt-On(X*8,Y*8,A*8+Pic1 //draw the sprite to the screen End End Also attached is a PEDIT program to create and compress maps into a Hex String into Str1, as well as an Axe program to decompress and display them. Just put the string data into GDB1
Repeat getkey(15) and (other checks
This is the core of the program, the<body> tag if you will. All your checks to see if the game has ended go here in this format:
getkey(15) and (check 0 and (check 1 and(check 2
The easiest way is to make a variable your game end flag, I usually use F, and do all your checks in the loop.
Animations/Sprites
All animation code should be put before the screen is updated as well as all the sprite code. The most basic one would be to just display the enemy and the character.
pt-change(X,Y,Pic1 pt-change({L1},{L1+1},Pic2
Updating the Screen
Next You want to update the screen and then prepare if for collision detection.
DispGraph RecallPic
If you store the map to the back-buffer then you will want to recall it so that you can use pixel-based collision detection.
CollisionCheck
The easiest way to do collision check in a pixel-based way is to check one pixel off of the side:
0->Z 0->V 0->S 0->T For(A,0,7 Z+pxl-test(X-1+A,Y)->Z V+pxl-test(X+8+A,Y)->V S+pxl-test(X,Y-1+A)->S T+pxl-test(X,Y+8+A)->T End
Z will return the amount of pixels on on the left of the character, V returns on the right, S above, and T below. the way to return where the pixels are would be:
0->Z 0->V 0->S 0->T For(A,0,7 Z+(8-A*(pxl-test(X-1+A,Y)))->Z V+(8-A*(pxl-test(X+8+A,Y)))->V S+(8-A*(pxl-test(X,Y-1+A)))->S T+(8-A*(pxl-test(X,Y+8+A)))->T End
This will return 1 if the first pixel tested is on, 2 if the second, 3if the third, etc. This can be good for detecting slopes.
Gravity and Jumping
Now there are many different way’s to do gravity, but the easiest way is to apply a constant force in one direction.
Y+(!collision)->Y
your character will fall until you a collision is detected, creating the effect of gravity. Jumping is harder, you have to have a jump variable which changes as your jump progresses.
!If J 10*(getkey(4) and (collision))-J Else J-1->J End Y+(2*(!collision and (J)))->Y
If the ground beneath you is solid, and J is 0 and you are pressing the up key then 10 will be stored to J. If J !=0 then it will decrements. If J !=0 then your character will move up two pixels. Two pixels compensates for the gravity so in reality you move down one pixel and up two, which balances out to 1 pixel up.