mirror of
https://github.com/TerryCavanagh/VVVVVV.git
synced 2024-11-05 10:49:41 +01:00
1120 lines
32 KiB
C++
1120 lines
32 KiB
C++
|
#include <string>
|
||
|
|
#include <sstream>
|
||
|
|
#include <fstream>
|
||
|
|
#include <allegro.h>
|
||
|
|
#include <loadpng.h>
|
||
|
|
using namespace std;
|
||
|
|
|
||
|
|
volatile int speed_counter=0;
|
||
|
|
void increment_speed_counter(){speed_counter++;}
|
||
|
|
END_OF_FUNCTION(increment_speed_counter);
|
||
|
|
|
||
|
|
string currentarea;
|
||
|
|
PALLETE dummypal;
|
||
|
|
BITMAP *buffer, *biggerbuffer, *page[3];
|
||
|
|
BITMAP *tiles[4000];
|
||
|
|
|
||
|
|
bool test;
|
||
|
|
string teststring;
|
||
|
|
|
||
|
|
|
||
|
|
int mapcontents[40][1000];
|
||
|
|
int mapcopycontents[40][1000];
|
||
|
|
|
||
|
|
int xp, yp, ctile;
|
||
|
|
int ypos, mapheight;
|
||
|
|
int reversekey;
|
||
|
|
int mapx, mapy;
|
||
|
|
int savednote;
|
||
|
|
int temp, temp2, temp3, p;
|
||
|
|
|
||
|
|
int tileselectdelay;
|
||
|
|
int paraadjustdelay;
|
||
|
|
string tempstring;
|
||
|
|
|
||
|
|
bool fullscreen;
|
||
|
|
|
||
|
|
//Some helpful functions!
|
||
|
|
string its(int t, int s=0){
|
||
|
|
string te;
|
||
|
|
ostringstream *its_temp;
|
||
|
|
its_temp = new ostringstream;
|
||
|
|
(*its_temp) << t;
|
||
|
|
te = (*its_temp).str();
|
||
|
|
delete its_temp;
|
||
|
|
if(s==0){ return te;
|
||
|
|
}else{
|
||
|
|
int d;
|
||
|
|
d=s-te.length();
|
||
|
|
if(d<0){
|
||
|
|
return te;
|
||
|
|
}else{
|
||
|
|
while(d>0){
|
||
|
|
te = "0" + te;
|
||
|
|
d--;
|
||
|
|
}
|
||
|
|
return te;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
int sti(string s){
|
||
|
|
istringstream stringbuf(s);
|
||
|
|
int t;
|
||
|
|
stringbuf >> t;
|
||
|
|
return t;
|
||
|
|
}
|
||
|
|
|
||
|
|
class entities{
|
||
|
|
public:
|
||
|
|
int x, y, t;
|
||
|
|
//parameters
|
||
|
|
int p1, p2, p3, p4, p5, p6;
|
||
|
|
};
|
||
|
|
int numentities;
|
||
|
|
|
||
|
|
entities entity[200];
|
||
|
|
void addentity(int xp, int yp, int tp, int p1=0, int p2=0, int p3=0, int p4=0, int p5=320, int p6=240){
|
||
|
|
entity[numentities].x=xp;
|
||
|
|
entity[numentities].y=yp;
|
||
|
|
entity[numentities].t=tp;
|
||
|
|
entity[numentities].p1=p1;
|
||
|
|
entity[numentities].p2=p2;
|
||
|
|
entity[numentities].p3=p3;
|
||
|
|
entity[numentities].p4=p4;
|
||
|
|
entity[numentities].p5=p5;
|
||
|
|
entity[numentities].p6=p6;
|
||
|
|
|
||
|
|
numentities++;
|
||
|
|
}
|
||
|
|
void naddentity(int xp, int yp, int tp, int p1=0, int p2=0, int p3=0, int p4=0, int p5=320, int p6=240){
|
||
|
|
entity[numentities].x=xp;
|
||
|
|
entity[numentities].y=yp;
|
||
|
|
entity[numentities].t=tp;
|
||
|
|
entity[numentities].p1=p1;
|
||
|
|
entity[numentities].p2=p2;
|
||
|
|
entity[numentities].p3=p3;
|
||
|
|
entity[numentities].p4=p4;
|
||
|
|
entity[numentities].p5=p5;
|
||
|
|
entity[numentities].p6=p6;
|
||
|
|
}
|
||
|
|
|
||
|
|
void copyentity(int a, int b){
|
||
|
|
entity[a].x=entity[b].x;
|
||
|
|
entity[a].y=entity[b].y;
|
||
|
|
entity[a].t=entity[b].t;
|
||
|
|
entity[a].p1=entity[b].p1;
|
||
|
|
entity[a].p2=entity[b].p2;
|
||
|
|
entity[a].p3=entity[b].p3;
|
||
|
|
entity[a].p4=entity[b].p4;
|
||
|
|
entity[a].p5=entity[b].p5;
|
||
|
|
entity[a].p6=entity[b].p6;
|
||
|
|
}
|
||
|
|
|
||
|
|
void removeentity(int t){
|
||
|
|
if(t==numentities-1){
|
||
|
|
numentities--;
|
||
|
|
}else{
|
||
|
|
for(int m=t;m<numentities;m++) copyentity(m,m+1);
|
||
|
|
numentities--;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
int entat(int xp, int yp){
|
||
|
|
for(int i=0; i<numentities; i++){
|
||
|
|
if(entity[i].x==xp && entity[i].y==yp) return i;
|
||
|
|
}
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
bool entclear(int xp, int yp){
|
||
|
|
for(int i=0; i<numentities; i++){
|
||
|
|
if(entity[i].x==xp && entity[i].y==yp) return false;
|
||
|
|
}
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
|
||
|
|
void savemapsimple(){
|
||
|
|
string s = "imports/tower.txt";
|
||
|
|
ofstream file;
|
||
|
|
file.open(s.c_str(), ios::trunc);
|
||
|
|
|
||
|
|
for(int j=0; j<mapheight; j++){
|
||
|
|
for(int i=0; i<40; i++){
|
||
|
|
file << mapcontents[i][j] << " ";
|
||
|
|
}
|
||
|
|
file << "\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
file << numentities << "\n";
|
||
|
|
for(int i=0; i<numentities; i++){
|
||
|
|
file << entity[i].x << " " << entity[i].y << " " << entity[i].t;
|
||
|
|
switch(entity[i].t){
|
||
|
|
case 1: case 2: //Enemy
|
||
|
|
file << " " << entity[i].p1 << " " << entity[i].p2
|
||
|
|
<< " " << entity[i].p3 << " " << entity[i].p4
|
||
|
|
<< " " << entity[i].p5 << " " << entity[i].p6;
|
||
|
|
break;
|
||
|
|
case 10: case 11: case 12: //Save point
|
||
|
|
file << " " << entity[i].p1; //p1: 0 hanging from roof
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
file << "\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
file.close();
|
||
|
|
}
|
||
|
|
|
||
|
|
void savemap(){
|
||
|
|
int ccount=0, scount=0;
|
||
|
|
savemapsimple();
|
||
|
|
string s = "maps/tower.txt";
|
||
|
|
ofstream file;
|
||
|
|
file.open(s.c_str(), ios::trunc);
|
||
|
|
|
||
|
|
//file << "case rn("<< its(mapx) << ","<< its(mapy) << "):\n";
|
||
|
|
//file << "tmap = new Array();\n";
|
||
|
|
|
||
|
|
for(int j=0; j<mapheight; j++){
|
||
|
|
file << "tmap.push(\"";
|
||
|
|
for(int i=0; i<39; i++){
|
||
|
|
file << mapcontents[i][j] << ",";
|
||
|
|
}
|
||
|
|
file << mapcontents[39][j] << "\");\n";
|
||
|
|
}
|
||
|
|
//file << "fillcontent(tmap);\n";
|
||
|
|
if(numentities>0){
|
||
|
|
file << "\n";
|
||
|
|
for(int i=0; i<numentities; i++){
|
||
|
|
if(entity[i].t==11){
|
||
|
|
if(entity[i].x==0){
|
||
|
|
file << "obj.createentity(game, " << -8 << ", " << (entity[i].y*8)+4
|
||
|
|
<< ", " << entity[i].t;
|
||
|
|
}else{
|
||
|
|
file << "obj.createentity(game, " << (entity[i].x*8) << ", " << (entity[i].y*8)+4
|
||
|
|
<< ", " << entity[i].t;
|
||
|
|
}
|
||
|
|
}else if(entity[i].t==12){
|
||
|
|
if(entity[i].y==0){
|
||
|
|
file << "obj.createentity(game, " << (entity[i].x*8)+3 << ", " << -8
|
||
|
|
<< ", " << entity[i].t;
|
||
|
|
}else{
|
||
|
|
file << "obj.createentity(game, " << (entity[i].x*8)+3 << ", " << (entity[i].y*8)
|
||
|
|
<< ", " << entity[i].t;
|
||
|
|
}
|
||
|
|
}else if(entity[i].t==2 && entity[i].p1==4){
|
||
|
|
entity[i].t=3;
|
||
|
|
}else{
|
||
|
|
file << "obj.createentity(game, " << (entity[i].x*8) << ", " << (entity[i].y*8)
|
||
|
|
<< ", " << entity[i].t;
|
||
|
|
}
|
||
|
|
switch(entity[i].t){
|
||
|
|
case 1: //Enemy
|
||
|
|
file << ", " << entity[i].p1 << ", " << entity[i].p2;
|
||
|
|
if(entity[i].p3==0 && entity[i].p4==0 && entity[i].p5==320 && entity[i].p6==240){
|
||
|
|
file << "); // Enemy";
|
||
|
|
}else{
|
||
|
|
file << ", " << entity[i].p3 << ", " << entity[i].p4
|
||
|
|
<< ", " << entity[i].p5 << ", " << entity[i].p6
|
||
|
|
<< "); // Enemy, bounded";
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case 2: //Moving platform
|
||
|
|
file << ", " << entity[i].p1 << ", " << entity[i].p2;
|
||
|
|
if(entity[i].p3==0 && entity[i].p4==0 && entity[i].p5==320 && entity[i].p6==240){
|
||
|
|
file << "); // Platform";
|
||
|
|
}else{
|
||
|
|
file << ", " << entity[i].p3 << ", " << entity[i].p4
|
||
|
|
<< ", " << entity[i].p5 << ", " << entity[i].p6
|
||
|
|
<< "); // Platform, bounded";
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case 3:
|
||
|
|
file << "obj.createentity(game, " << (entity[i].x*8)+4 << ", " << (entity[i].y*8)
|
||
|
|
<< ", 3); //Disappearing Platform";
|
||
|
|
entity[i].t=2; //So that it doesn't disapear from the editor
|
||
|
|
break;
|
||
|
|
case 8: //coin
|
||
|
|
file << ", " << entity[i].p1 << ", coin+"<<ccount<<"); // (coins)";
|
||
|
|
ccount++;
|
||
|
|
break;
|
||
|
|
case 9: //shiny
|
||
|
|
file << ", " << entity[i].p1 << ", "<<ccount<<"+coin); // (shiny trinket)";
|
||
|
|
ccount++;
|
||
|
|
break;
|
||
|
|
case 10: //Save point
|
||
|
|
if(currentarea=="otherlevel") mapy+=100;
|
||
|
|
if(currentarea=="lab") mapy+=200;
|
||
|
|
if(currentarea=="spacestation") mapy+=300;
|
||
|
|
|
||
|
|
|
||
|
|
file << ", " << entity[i].p1 << ", " << int(scount+((mapx+(mapy*100))*10)) << "); // (savepoint)";
|
||
|
|
scount++;
|
||
|
|
|
||
|
|
if(currentarea=="otherlevel") mapy-=100;
|
||
|
|
if(currentarea=="lab") mapy-=200;
|
||
|
|
if(currentarea=="spacestation") mapy-=300;
|
||
|
|
break;
|
||
|
|
case 11: //Horizontal
|
||
|
|
if(entity[i].x==0){
|
||
|
|
file << ", " << entity[i].p1+8 <<"); // (horizontal gravity line)";
|
||
|
|
}else{
|
||
|
|
file << ", " << entity[i].p1 <<"); // (horizontal gravity line)";
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case 12: //Vertical
|
||
|
|
if(entity[i].y==0){
|
||
|
|
file << ", " << entity[i].p1+8 <<"); // (vertical gravity line)";
|
||
|
|
}else{
|
||
|
|
file << ", " << entity[i].p1 <<"); // (vertical gravity line)";
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
file << ", behave, para);";
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
file << "\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
//file << "break;\n";
|
||
|
|
|
||
|
|
file.close();
|
||
|
|
}
|
||
|
|
|
||
|
|
bool loadmap(int x, int y){
|
||
|
|
int xp, yp, t, n;
|
||
|
|
int p1, p2, p3, p4, p5, p6;
|
||
|
|
string s = "imports/tower.txt";
|
||
|
|
|
||
|
|
ifstream file;
|
||
|
|
file.open(s.c_str());
|
||
|
|
if(!file){
|
||
|
|
for(int j=1; j<mapheight; j++){
|
||
|
|
for(int i=1; i<39; i++){
|
||
|
|
mapcontents[i][j]=0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
numentities=0;
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
for(int j=0; j<mapheight; j++){
|
||
|
|
for(int i=0; i<40; i++){
|
||
|
|
file >> mapcontents[i][j];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
file >> p;
|
||
|
|
numentities=0;
|
||
|
|
for(int i=0; i<p; i++){
|
||
|
|
file >> temp; file >> temp2; file >> temp3;
|
||
|
|
switch(temp3){
|
||
|
|
case 1: case 2: //Enemy, or platform
|
||
|
|
file >> p1; file >> p2; file >> p3; file >> p4; file >> p5; file >> p6;
|
||
|
|
addentity(temp,temp2,temp3,p1,p2,p3,p4,p5,p6);
|
||
|
|
break;
|
||
|
|
case 10: case 11: case 12: //Save point
|
||
|
|
file >> p1;
|
||
|
|
addentity(temp,temp2,temp3,p1);
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
addentity(temp,temp2,temp3);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
file.close();
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
|
||
|
|
void drawtile(int xp, int yp, int t){
|
||
|
|
blit(tiles[t], buffer, 0, 0, xp, yp, 16, 16);
|
||
|
|
}
|
||
|
|
|
||
|
|
void print(BITMAP* bmp, int x, int y, string t, int r, int g, int b, bool c=false){
|
||
|
|
const char* txt=t.c_str();
|
||
|
|
if(c){x=160-(t.length()*4);}
|
||
|
|
textout_ex(bmp, font, txt, x-1, y, makecol(0,0,0), -1);
|
||
|
|
textout_ex(bmp, font, txt, x+1, y, makecol(0,0,0), -1);
|
||
|
|
textout_ex(bmp, font, txt, x, y-1, makecol(0,0,0), -1);
|
||
|
|
textout_ex(bmp, font, txt, x, y+1, makecol(0,0,0), -1);
|
||
|
|
textout_ex(bmp, font, txt, x, y, makecol(r,g,b), -1);
|
||
|
|
}
|
||
|
|
|
||
|
|
void rprint(BITMAP* bmp, int x, int y, string t, int r, int g, int b, bool c=false){
|
||
|
|
const char* txt=t.c_str();
|
||
|
|
if(c){x=160-(t.length()*4);}
|
||
|
|
x=640-x-t.length()*8;
|
||
|
|
textout_ex(bmp, font, txt, x-1, y, makecol(0,0,0), -1);
|
||
|
|
textout_ex(bmp, font, txt, x+1, y, makecol(0,0,0), -1);
|
||
|
|
textout_ex(bmp, font, txt, x, y-1, makecol(0,0,0), -1);
|
||
|
|
textout_ex(bmp, font, txt, x, y+1, makecol(0,0,0), -1);
|
||
|
|
textout_ex(bmp, font, txt, x, y, makecol(r,g,b), -1);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
void copymap(){
|
||
|
|
for(int j=0; j<mapheight; j++){
|
||
|
|
for(int i=0; i<40; i++){
|
||
|
|
mapcopycontents[i][j]=mapcontents[i][j];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
void mapput(int x, int y, int t){
|
||
|
|
if(x>=0 && x<40 && y>=0 && y<mapheight){
|
||
|
|
mapcontents[x][y]=t;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
int oat(int x, int y){
|
||
|
|
if(x==-1) return oat(0,y);
|
||
|
|
if(x==40) return oat(39,y);
|
||
|
|
if(y==-1) return oat(39,0);
|
||
|
|
if(y==mapheight) return oat(x,y-1);
|
||
|
|
if(x>=0 && x<40 && y>=0 && y<mapheight){
|
||
|
|
return mapcopycontents[x][y];
|
||
|
|
}
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
int at(int x, int y){
|
||
|
|
if(x>=0 && x<40 && y>=0 && y<mapheight){
|
||
|
|
return mapcontents[x][y];
|
||
|
|
}
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*int at(int x, int y){
|
||
|
|
if(x>=0 && x<40 && y>=0 && y<29){
|
||
|
|
return mapcopycontents[x][y];
|
||
|
|
}
|
||
|
|
if(x==-1) return at(x+1,y);
|
||
|
|
if(x==40) return at(x-1,y);
|
||
|
|
if(y==-1) return at(x,y+1);
|
||
|
|
if(y==29) return at(x,y-1);
|
||
|
|
return 0;
|
||
|
|
}*/
|
||
|
|
|
||
|
|
int match(int x, int y, int t){
|
||
|
|
//Returns the first position match for a border
|
||
|
|
// 5 1 6
|
||
|
|
// 2 X 4
|
||
|
|
// 7 3 8
|
||
|
|
|
||
|
|
if(at(x-1,y)!=t && at(x,y-1)!=t) return 10;
|
||
|
|
if(at(x+1,y)!=t && at(x,y-1)!=t) return 11;
|
||
|
|
if(at(x-1,y)!=t && at(x,y+1)!=t) return 12;
|
||
|
|
if(at(x+1,y)!=t && at(x,y+1)!=t) return 13;
|
||
|
|
|
||
|
|
if(at(x,y-1)!=t) return 1;
|
||
|
|
if(at(x-1,y)!=t) return 2;
|
||
|
|
if(at(x,y+1)!=t) return 3;
|
||
|
|
if(at(x+1,y)!=t) return 4;
|
||
|
|
if(at(x-1,y-1)!=t) return 5;
|
||
|
|
if(at(x+1,y-1)!=t) return 6;
|
||
|
|
if(at(x-1,y+1)!=t) return 7;
|
||
|
|
if(at(x+1,y+1)!=t) return 8;
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
int oldmatch(int x, int y, int t){
|
||
|
|
//Returns the first position match for a border
|
||
|
|
// 5 1 6
|
||
|
|
// 2 X 4
|
||
|
|
// 7 3 8
|
||
|
|
|
||
|
|
if(oat(x-1,y)!=t && oat(x,y-1)!=t) return 10;
|
||
|
|
if(oat(x+1,y)!=t && oat(x,y-1)!=t) return 11;
|
||
|
|
if(oat(x-1,y)!=t && oat(x,y+1)!=t) return 12;
|
||
|
|
if(oat(x+1,y)!=t && oat(x,y+1)!=t) return 13;
|
||
|
|
|
||
|
|
if(oat(x,y-1)!=t) return 1;
|
||
|
|
if(oat(x-1,y)!=t) return 2;
|
||
|
|
if(oat(x,y+1)!=t) return 3;
|
||
|
|
if(oat(x+1,y)!=t) return 4;
|
||
|
|
if(oat(x-1,y-1)!=t) return 5;
|
||
|
|
if(oat(x+1,y-1)!=t) return 6;
|
||
|
|
if(oat(x-1,y+1)!=t) return 7;
|
||
|
|
if(oat(x+1,y+1)!=t) return 8;
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
bool inbox(int x1, int y1, int x2, int y2, int xt, int yt){
|
||
|
|
if(xt>=x1 && xt<x2 && yt>=y1 && yt<y2) return true;
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
int getbackground(){
|
||
|
|
//Return the background tile used on the map.
|
||
|
|
int x, y, t;
|
||
|
|
|
||
|
|
for(int j=0; j<29; j++){
|
||
|
|
for(int i=0; i<40; i++){
|
||
|
|
t=at(i,j);
|
||
|
|
x=t%40;
|
||
|
|
y=(t-x)/40;
|
||
|
|
if(inbox(0,17,40,22,x,y)){
|
||
|
|
y=x%3;
|
||
|
|
x=(x-y)/3;
|
||
|
|
return x;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
|
||
|
|
int antiedge(int x, int y, int t){
|
||
|
|
//Opposite problem to edge: if t is in the range of any tile group, simplify
|
||
|
|
//it back to its basics.
|
||
|
|
//Simplist way is to turn it into a coordinate and check inbox ranges.
|
||
|
|
/*x=t%40;
|
||
|
|
y=(t-x)/40;
|
||
|
|
for(int i=0; i<8; i++){
|
||
|
|
if(inbox(0+(i*3),2,3+(i*3),7,x,y)) return 80+(i*3);
|
||
|
|
if(inbox(0+(i*3),7,3+(i*3),12,x,y)) return 280+(i*3);
|
||
|
|
if(inbox(0+(i*3),12,3+(i*3),17,x,y)) return 480+(i*3);
|
||
|
|
if(inbox(0+(i*3),17,3+(i*3),22,x,y)) return 680+(i*3);
|
||
|
|
}
|
||
|
|
return t;*/
|
||
|
|
|
||
|
|
if(t>=12 && t<=27) return 12;
|
||
|
|
return t;
|
||
|
|
}
|
||
|
|
|
||
|
|
int edge(int x, int y, int t){
|
||
|
|
if(t==12){
|
||
|
|
//we have a candidate for edginess!
|
||
|
|
switch(oldmatch(x,y,t)){
|
||
|
|
case 10: return t+5; break;
|
||
|
|
case 11: return t+7; break;
|
||
|
|
case 12: return t+10; break;
|
||
|
|
case 13: return t+12; break;
|
||
|
|
case 1: return t+6; break;
|
||
|
|
case 2: return t+8; break;
|
||
|
|
case 3: return t+11; break;
|
||
|
|
case 4: return t+9; break;
|
||
|
|
case 5: return t+4; break;
|
||
|
|
case 6: return t+3; break;
|
||
|
|
case 7: return t+2; break;
|
||
|
|
case 8: return t+1; break;
|
||
|
|
case 0: default: return t; break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return t;
|
||
|
|
}
|
||
|
|
|
||
|
|
void change_fullscreen(){
|
||
|
|
destroy_bitmap(page[0]);
|
||
|
|
destroy_bitmap(page[1]);
|
||
|
|
destroy_bitmap(page[2]);
|
||
|
|
set_gfx_mode(GFX_AUTODETECT_FULLSCREEN, 640, 480, 0, 0);
|
||
|
|
clear_bitmap(screen);
|
||
|
|
|
||
|
|
|
||
|
|
page[0]=create_video_bitmap(640, 480);
|
||
|
|
page[1]=create_video_bitmap(640, 480);
|
||
|
|
page[2]=create_video_bitmap(640, 480);
|
||
|
|
}
|
||
|
|
|
||
|
|
void change_windowed(){
|
||
|
|
destroy_bitmap(page[0]);
|
||
|
|
destroy_bitmap(page[1]);
|
||
|
|
destroy_bitmap(page[2]);
|
||
|
|
|
||
|
|
set_gfx_mode(GFX_AUTODETECT_WINDOWED, 640, 480, 0, 0);
|
||
|
|
clear_bitmap(screen);
|
||
|
|
|
||
|
|
|
||
|
|
page[0]=create_video_bitmap(640, 480);
|
||
|
|
page[1]=create_video_bitmap(640, 480);
|
||
|
|
page[2]=create_video_bitmap(640, 480);
|
||
|
|
}
|
||
|
|
|
||
|
|
int main(){
|
||
|
|
test=false; teststring="TEST = True";
|
||
|
|
int state=0, gt=0;
|
||
|
|
int tileset=1;
|
||
|
|
mapheight=100; ypos=mapheight-22;
|
||
|
|
savednote=0; numentities=0; paraadjustdelay=0;
|
||
|
|
//currentarea="spacestation";
|
||
|
|
currentarea="tower";
|
||
|
|
//currentarea="otherlevel";
|
||
|
|
//Setup Allegro
|
||
|
|
allegro_init();
|
||
|
|
//Setup input
|
||
|
|
install_keyboard();
|
||
|
|
install_mouse();
|
||
|
|
show_os_cursor(MOUSE_CURSOR_ARROW);
|
||
|
|
|
||
|
|
//Setup timer
|
||
|
|
install_timer();
|
||
|
|
LOCK_VARIABLE(speed_counter);
|
||
|
|
LOCK_FUNCTION(increment_speed_counter);
|
||
|
|
install_int_ex(increment_speed_counter, BPS_TO_TIMER(60));
|
||
|
|
|
||
|
|
//Setup graphics8
|
||
|
|
set_color_depth(32);
|
||
|
|
set_gfx_mode(GFX_AUTODETECT_WINDOWED, 640, 480, 0, 0);
|
||
|
|
register_png_file_type();
|
||
|
|
int currentpage=0;
|
||
|
|
fullscreen=false;
|
||
|
|
|
||
|
|
if(tileset==0){
|
||
|
|
buffer=load_png("../../../engine/current/data/graphics/tiles.png", dummypal);
|
||
|
|
}else if(tileset==1){
|
||
|
|
buffer=load_png("../../../engine/current/data/graphics/tiles3.png", dummypal);
|
||
|
|
//buffer=load_png("../engine/towerhack/data/graphics/tiles3.png", dummypal);
|
||
|
|
}
|
||
|
|
for(int y=0;y<30;y++){
|
||
|
|
for(int x=0;x<30;x++){
|
||
|
|
tiles[x+(y*30)] = create_bitmap(8, 8);
|
||
|
|
rectfill(tiles[x+(y*30)], 0, 0, 8, 8, makecol(16,16,16));
|
||
|
|
blit(buffer, tiles[x+(y*30)], x*8, y*8, 0, 0, 8,8);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
destroy_bitmap(buffer);
|
||
|
|
|
||
|
|
buffer=create_bitmap(320,240);
|
||
|
|
biggerbuffer=create_bitmap(640,480);
|
||
|
|
page[0]=create_video_bitmap(640, 480);
|
||
|
|
page[1]=create_video_bitmap(640, 480);
|
||
|
|
page[2]=create_video_bitmap(640, 480);
|
||
|
|
currentpage=0;
|
||
|
|
|
||
|
|
//Setup sound
|
||
|
|
set_volume_per_voice(0);
|
||
|
|
if (install_sound(DIGI_AUTODETECT, MIDI_NONE, 0) < 0) {
|
||
|
|
set_gfx_mode(GFX_TEXT, 0, 0, 0, 0);
|
||
|
|
allegro_message("Error installing sound.\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
//Init map
|
||
|
|
//Load last?
|
||
|
|
//Blank
|
||
|
|
mapx=50; mapy=50;
|
||
|
|
if(!loadmap(mapx, mapy)){
|
||
|
|
for(int j=0; j<29; j++){
|
||
|
|
for(int i=0; i<40; i++){
|
||
|
|
mapcontents[i][j]=0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
xp=0; yp=0; ctile=0;
|
||
|
|
tileselectdelay=0;
|
||
|
|
reversekey=0;
|
||
|
|
|
||
|
|
//Starting main loop:
|
||
|
|
while(!key[KEY_ESC]){
|
||
|
|
xp=(mouse_x/16);
|
||
|
|
yp=(mouse_y/16);
|
||
|
|
//Render
|
||
|
|
if(tileset==0){
|
||
|
|
clear_to_color(buffer, makecol(0,0,0));
|
||
|
|
}else{
|
||
|
|
clear_to_color(buffer, makecol(32,32,32));
|
||
|
|
}
|
||
|
|
for(int j=0; j<29; j++){
|
||
|
|
for(int i=0; i<40; i++){
|
||
|
|
if(at(i,j+ypos)>0) drawtile(i*8, j*8, at(i,j+ypos));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
//Draw entities
|
||
|
|
temp=entat(xp,yp+ypos);
|
||
|
|
for(int i=0; i<numentities; i++){
|
||
|
|
switch(entity[i].t){
|
||
|
|
case 1: //Enemy
|
||
|
|
teststring="E";
|
||
|
|
if(entity[i].p1==0) teststring+="v";
|
||
|
|
if(entity[i].p1==1) teststring+="^";
|
||
|
|
if(entity[i].p1==2) teststring+="<";
|
||
|
|
if(entity[i].p1==3) teststring+=">";
|
||
|
|
|
||
|
|
textout_ex(buffer, font, teststring.c_str(), (entity[i].x*8),((entity[i].y-ypos)*8)+4,
|
||
|
|
makecol(255,255,255), -1);
|
||
|
|
if(i==temp){
|
||
|
|
teststring=its(entity[i].p2);
|
||
|
|
textout_ex(buffer, font, teststring.c_str(), (entity[i].x*8)+4,((entity[i].y-ypos)*8)+17,
|
||
|
|
makecol(255,255,255), -1);
|
||
|
|
|
||
|
|
rect(buffer,entity[i].x*8,(entity[i].y-ypos)*8,(entity[i].x*8)+15,((entity[i].y-ypos)*8)+15,
|
||
|
|
makecol(255,0,0));
|
||
|
|
rect(buffer,entity[i].p3,entity[i].p4,entity[i].p5-1,entity[i].p6-1,
|
||
|
|
makecol(255,128,0));
|
||
|
|
}else{
|
||
|
|
rect(buffer,entity[i].x*8,(entity[i].y-ypos)*8,(entity[i].x*8)+15,((entity[i].y-ypos)*8)+15,
|
||
|
|
makecol(255,164,164));
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case 2: //Platform
|
||
|
|
teststring="P ";
|
||
|
|
if(entity[i].p1==0) teststring+="v";
|
||
|
|
if(entity[i].p1==1) teststring+="^";
|
||
|
|
if(entity[i].p1==2) teststring+="<";
|
||
|
|
if(entity[i].p1==3) teststring+=">";
|
||
|
|
if(entity[i].p1==4) teststring+="=";
|
||
|
|
|
||
|
|
textout_ex(buffer, font, teststring.c_str(), (entity[i].x*8)+4,((entity[i].y-ypos)*8),
|
||
|
|
makecol(255,255,255), -1);
|
||
|
|
if(i==temp){
|
||
|
|
teststring=its(entity[i].p2);
|
||
|
|
textout_ex(buffer, font, teststring.c_str(), (entity[i].x*8)+4,((entity[i].y-ypos)*8)+9,
|
||
|
|
makecol(255,255,255), -1);
|
||
|
|
|
||
|
|
rect(buffer,entity[i].x*8,(entity[i].y-ypos)*8,(entity[i].x*8)+31,((entity[i].y-ypos)*8)+7,
|
||
|
|
makecol(0,0,255));
|
||
|
|
rect(buffer,entity[i].p3,entity[i].p4,entity[i].p5-1,entity[i].p6-1,
|
||
|
|
makecol(255,128,0));
|
||
|
|
}else{
|
||
|
|
rect(buffer,entity[i].x*8,(entity[i].y-ypos)*8,(entity[i].x*8)+31,((entity[i].y-ypos)*8)+7,
|
||
|
|
makecol(164,164,255));
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case 8: //Small Pickup
|
||
|
|
rect(buffer,entity[i].x*8,(entity[i].y-ypos)*8,(entity[i].x*8)+7,((entity[i].y-ypos)*8)+7,
|
||
|
|
makecol(164,164,255));
|
||
|
|
break;
|
||
|
|
case 9: //Big Pickup
|
||
|
|
rect(buffer,entity[i].x*8,(entity[i].y-ypos)*8,(entity[i].x*8)+15,((entity[i].y-ypos)*8)+15,
|
||
|
|
makecol(164,164,255));
|
||
|
|
break;
|
||
|
|
case 10: //Savepoint
|
||
|
|
if(entity[i].p1==0){
|
||
|
|
//on the roof!
|
||
|
|
teststring="r";
|
||
|
|
textout_ex(buffer, font, teststring.c_str(), (entity[i].x*8)+4,(entity[i].y-ypos)*8,
|
||
|
|
makecol(255,255,255), -1);
|
||
|
|
teststring="v";
|
||
|
|
textout_ex(buffer, font, teststring.c_str(), (entity[i].x*8)+4,((entity[i].y-ypos)*8)+8,
|
||
|
|
makecol(255,255,255), -1);
|
||
|
|
}else{
|
||
|
|
//on the floor!
|
||
|
|
teststring="^";
|
||
|
|
textout_ex(buffer, font, teststring.c_str(), (entity[i].x*8)+4,(entity[i].y-ypos)*8,
|
||
|
|
makecol(255,255,255), -1);
|
||
|
|
teststring="f";
|
||
|
|
textout_ex(buffer, font, teststring.c_str(), (entity[i].x*8)+4,((entity[i].y-ypos)*8)+8,
|
||
|
|
makecol(255,255,255), -1);
|
||
|
|
}
|
||
|
|
rect(buffer,entity[i].x*8,(entity[i].y-ypos)*8,(entity[i].x*8)+15,((entity[i].y-ypos)*8)+15,
|
||
|
|
makecol(164,255,164));
|
||
|
|
break;
|
||
|
|
case 11:
|
||
|
|
if(i==temp){
|
||
|
|
rect(buffer,entity[i].x*8,(entity[i].y-ypos)*8,(entity[i].x*8)+entity[i].p1-1,((entity[i].y-ypos)*8)+7,
|
||
|
|
makecol(0,255,0));
|
||
|
|
line(buffer,entity[i].x*8,((entity[i].y-ypos)*8)+3,(entity[i].x*8)+entity[i].p1-1,((entity[i].y-ypos)*8)+3,
|
||
|
|
makecol(0,255,0));
|
||
|
|
line(buffer,entity[i].x*8,((entity[i].y-ypos)*8)+4,(entity[i].x*8)+entity[i].p1-1,((entity[i].y-ypos)*8)+4,
|
||
|
|
makecol(0,255,0));
|
||
|
|
}else{
|
||
|
|
rect(buffer,entity[i].x*8,(entity[i].y-ypos)*8,(entity[i].x*8)+entity[i].p1-1,((entity[i].y-ypos)*8)+7,
|
||
|
|
makecol(164,255,164));
|
||
|
|
line(buffer,entity[i].x*8,((entity[i].y-ypos)*8)+3,(entity[i].x*8)+entity[i].p1-1,((entity[i].y-ypos)*8)+3,
|
||
|
|
makecol(164,255,164));
|
||
|
|
line(buffer,entity[i].x*8,((entity[i].y-ypos)*8)+4,(entity[i].x*8)+entity[i].p1-1,((entity[i].y-ypos)*8)+4,
|
||
|
|
makecol(164,255,164));
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case 12: //vertical
|
||
|
|
if(i==temp){
|
||
|
|
rect(buffer,entity[i].x*8,(entity[i].y-ypos)*8,(entity[i].x*8)+7,((entity[i].y-ypos)*8)-1+entity[i].p1,
|
||
|
|
makecol(0,255,0));
|
||
|
|
line(buffer,(entity[i].x*8)+3,((entity[i].y-ypos)*8),(entity[i].x*8)+3,((entity[i].y-ypos)*8)-1+entity[i].p1,
|
||
|
|
makecol(0,255,0));
|
||
|
|
line(buffer,(entity[i].x*8)+4,((entity[i].y-ypos)*8),(entity[i].x*8)+4,((entity[i].y-ypos)*8)-1+entity[i].p1,
|
||
|
|
makecol(0,255,0));
|
||
|
|
|
||
|
|
}else{
|
||
|
|
rect(buffer,entity[i].x*8,(entity[i].y-ypos)*8,(entity[i].x*8)+7,((entity[i].y-ypos)*8)-1+entity[i].p1,
|
||
|
|
makecol(164,255,164));
|
||
|
|
line(buffer,(entity[i].x*8)+3,((entity[i].y-ypos)*8),(entity[i].x*8)+3,((entity[i].y-ypos)*8)-1+entity[i].p1,
|
||
|
|
makecol(164,255,164));
|
||
|
|
line(buffer,(entity[i].x*8)+4,((entity[i].y-ypos)*8),(entity[i].x*8)+4,((entity[i].y-ypos)*8)-1+entity[i].p1,
|
||
|
|
makecol(164,255,164));
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
//GUI
|
||
|
|
rect(buffer, 4,230,13,239,makecol(128,128,128));
|
||
|
|
drawtile(5, 231, ctile);
|
||
|
|
print(buffer, 24, 231, "Tile " + its(ctile), 255,255,255);
|
||
|
|
tempstring="("+its(xp)+","+its(yp+ypos)+")";// ["+its(mapx)+","+its(mapy)+"]";
|
||
|
|
print(buffer, 200, 231, tempstring, 196,196,255);
|
||
|
|
|
||
|
|
if(savednote>0){
|
||
|
|
if(savednote>70){
|
||
|
|
temp=200-((90-savednote)*10);
|
||
|
|
print(buffer, 24, 115, "[Map Saved]", 255-temp,255-temp,255-temp, true);
|
||
|
|
}else if(savednote<20){
|
||
|
|
temp=(20-savednote)*10;
|
||
|
|
print(buffer, 24, 115, "[Map Saved]", 255-temp,255-temp,255-temp, true);
|
||
|
|
}else{
|
||
|
|
print(buffer, 24, 115, "[Map Saved]", 255,255,255, true);
|
||
|
|
}
|
||
|
|
|
||
|
|
savednote--;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
rect(buffer, (xp*8), (yp*8), (xp*8)+7, (yp*8)+7, makecol(255,128,128));
|
||
|
|
|
||
|
|
if(test) print(buffer, 5, 5, teststring, 255,255,255);
|
||
|
|
|
||
|
|
//Instructions
|
||
|
|
//print(buffer, 5, 5, "Simple Tool framework", 255,255,255);
|
||
|
|
|
||
|
|
stretch_blit(buffer, biggerbuffer, 0, 0, 320, 240, 0, 0, 640, 480);
|
||
|
|
rprint(biggerbuffer, 5, 5, "Current Area: [" + currentarea+"]", 128,128, 255);
|
||
|
|
rprint(biggerbuffer, 5, 20, "R[Hori] T[Vert] Y[Plat] U[Coins] I[Shiny] O[Enemy] P[Save]", 196,196,196);
|
||
|
|
rprint(biggerbuffer, 5, 30, "Q[Up] A[Down] S+[Invert] F[Fill]", 196,196,196);
|
||
|
|
|
||
|
|
rprint(biggerbuffer, 5, 20, "R T Y U I O P ", 128,128, 255);
|
||
|
|
rprint(biggerbuffer, 5, 30, "Q A S+ F ", 128,128, 255);
|
||
|
|
|
||
|
|
//print(biggerbuffer, 5, 5, its(numentities), 255,255,255);
|
||
|
|
//for(int i=0; i<numentities; i++){
|
||
|
|
// tempstring="entity["+its(i)+"]=("+its(entity[i].x)+","+its(entity[i].y)+","+its(entity[i].t)+")";
|
||
|
|
// print(biggerbuffer, 5, 15+(i*10), tempstring, 255,255,255);
|
||
|
|
// }
|
||
|
|
|
||
|
|
blit(biggerbuffer, page[currentpage], 0, 0, 0, 0, 640, 480);
|
||
|
|
//Instructions, more info
|
||
|
|
show_video_bitmap(page[currentpage]);
|
||
|
|
currentpage = (currentpage+1)%3;
|
||
|
|
//Input
|
||
|
|
if(mouse_b & 1){
|
||
|
|
if(yp<29){
|
||
|
|
//Left click
|
||
|
|
if(key[KEY_Z]){
|
||
|
|
mapput(xp-1, yp-1+ypos, ctile);
|
||
|
|
mapput(xp, yp-1+ypos, ctile);
|
||
|
|
mapput(xp+1, yp-1+ypos, ctile);
|
||
|
|
mapput(xp-1, yp+ypos, ctile);
|
||
|
|
mapput(xp, yp+ypos, ctile);
|
||
|
|
mapput(xp+1, yp+ypos, ctile);
|
||
|
|
mapput(xp-1, yp+1+ypos, ctile);
|
||
|
|
mapput(xp, yp+1+ypos, ctile);
|
||
|
|
mapput(xp+1, yp+1+ypos, ctile);
|
||
|
|
}else{
|
||
|
|
mapput(xp, yp+ypos, ctile);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if(mouse_b & 2){
|
||
|
|
//Right click
|
||
|
|
if(yp<29){
|
||
|
|
ctile=at(xp,yp+ypos);
|
||
|
|
}
|
||
|
|
for(int i=0; i<numentities; i++){
|
||
|
|
if(entity[i].x==xp && entity[i].y==yp+ypos){
|
||
|
|
removeentity(i);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if(tileselectdelay<=0){
|
||
|
|
if(key[KEY_COMMA]){
|
||
|
|
ctile--;
|
||
|
|
tileselectdelay=10;
|
||
|
|
}
|
||
|
|
if(key[KEY_STOP]){
|
||
|
|
ctile++;
|
||
|
|
tileselectdelay=10;
|
||
|
|
}
|
||
|
|
if(key[KEY_CLOSEBRACE]){
|
||
|
|
ctile+=40;
|
||
|
|
tileselectdelay=10;
|
||
|
|
}
|
||
|
|
if(key[KEY_OPENBRACE]){
|
||
|
|
ctile-=40;
|
||
|
|
tileselectdelay=10;
|
||
|
|
}
|
||
|
|
/*if(key[KEY_A]){
|
||
|
|
if(key[KEY_UP]) { mapy--; loadmap(mapx,mapy); tileselectdelay=10; }
|
||
|
|
if(key[KEY_DOWN]) { mapy++; loadmap(mapx,mapy); tileselectdelay=10; }
|
||
|
|
if(key[KEY_LEFT]) { mapx--; loadmap(mapx,mapy); tileselectdelay=10; }
|
||
|
|
if(key[KEY_RIGHT]){ mapx++; loadmap(mapx,mapy); tileselectdelay=10; }
|
||
|
|
}*/
|
||
|
|
if(key[KEY_Q]){
|
||
|
|
ypos--;
|
||
|
|
tileselectdelay=5;
|
||
|
|
}
|
||
|
|
if(key[KEY_A]){
|
||
|
|
ypos++;
|
||
|
|
tileselectdelay=5;
|
||
|
|
}
|
||
|
|
if(key[KEY_PGUP]){
|
||
|
|
ypos-=20;
|
||
|
|
tileselectdelay=5;
|
||
|
|
}
|
||
|
|
if(key[KEY_PGDN]){
|
||
|
|
ypos+=20;
|
||
|
|
tileselectdelay=5;
|
||
|
|
}
|
||
|
|
if(ypos<=0) ypos=0;
|
||
|
|
if(ypos>mapheight-29) ypos=mapheight-29;
|
||
|
|
}else{
|
||
|
|
tileselectdelay--;
|
||
|
|
}
|
||
|
|
if(ctile<0) ctile+=30;
|
||
|
|
if(ctile>=30) ctile-=30;
|
||
|
|
|
||
|
|
//Shortcuts
|
||
|
|
if(tileselectdelay<=0){
|
||
|
|
tileselectdelay=20;
|
||
|
|
if(key[KEY_B]){ctile=680;} //Backgrounds
|
||
|
|
else if(key[KEY_V]){ctile=80;} //Foregrounds
|
||
|
|
else if(key[KEY_1]){p=80;if(ctile==200+p){ctile=400+p;}else if(ctile==p){ctile=200+p;}else{ctile=p;}}
|
||
|
|
else if(key[KEY_2]){p=83;if(ctile==200+p){ctile=400+p;}else if(ctile==p){ctile=200+p;}else{ctile=p;}}
|
||
|
|
else if(key[KEY_3]){p=86;if(ctile==200+p){ctile=400+p;}else if(ctile==p){ctile=200+p;}else{ctile=p;}}
|
||
|
|
else if(key[KEY_4]){p=89;if(ctile==200+p){ctile=400+p;}else if(ctile==p){ctile=200+p;}else{ctile=p;}}
|
||
|
|
else if(key[KEY_5]){p=92;if(ctile==200+p){ctile=400+p;}else if(ctile==p){ctile=200+p;}else{ctile=p;}}
|
||
|
|
else if(key[KEY_6]){p=95;if(ctile==200+p){ctile=400+p;}else if(ctile==p){ctile=200+p;}else{ctile=p;}}
|
||
|
|
else if(key[KEY_7]){p=98;if(ctile==200+p){ctile=400+p;}else if(ctile==p){ctile=200+p;}else{ctile=p;}}
|
||
|
|
else if(key[KEY_8]){p=101;if(ctile==200+p){ctile=400+p;}else if(ctile==p){ctile=200+p;}else{ctile=p;}}
|
||
|
|
else if(key[KEY_9]){ctile=680;}
|
||
|
|
else{
|
||
|
|
tileselectdelay=0;
|
||
|
|
}
|
||
|
|
}else{
|
||
|
|
tileselectdelay--;
|
||
|
|
}
|
||
|
|
|
||
|
|
if(key[KEY_H]){
|
||
|
|
//Flip background
|
||
|
|
copymap();
|
||
|
|
temp=getbackground();
|
||
|
|
if(temp>-1){
|
||
|
|
temp2=temp+1;
|
||
|
|
if(temp2>=7) temp2=0;
|
||
|
|
temp=680+(temp*3);
|
||
|
|
temp2=680+(temp2*3);
|
||
|
|
for(int j=0; j<29; j++){
|
||
|
|
for(int i=0; i<40; i++){
|
||
|
|
if(mapcontents[i][j]==temp) mapcontents[i][j]=temp2;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
while(key[KEY_H]);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if(key[KEY_F8]){
|
||
|
|
savemap();
|
||
|
|
while(key[KEY_F8]);
|
||
|
|
savednote=90;
|
||
|
|
}
|
||
|
|
|
||
|
|
if(key[KEY_F7]){
|
||
|
|
loadmap(mapx,mapy);
|
||
|
|
while(key[KEY_F7]);
|
||
|
|
}
|
||
|
|
|
||
|
|
if(key[KEY_K]){
|
||
|
|
copymap();
|
||
|
|
for(int j=0; j<yp+ypos; j++){
|
||
|
|
for(int i=0; i<40; i++){
|
||
|
|
mapcontents[i][j]=at(i,j+1);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
for(int i=0; i<numentities; i++){
|
||
|
|
if(entity[i].y<yp+ypos) entity[i].y--;
|
||
|
|
}
|
||
|
|
while(key[KEY_K]);
|
||
|
|
}
|
||
|
|
|
||
|
|
if(key[KEY_L]){
|
||
|
|
copymap();
|
||
|
|
for(int j=yp+ypos; j>0; j--){
|
||
|
|
for(int i=0; i<40; i++){
|
||
|
|
mapcontents[i][j]=at(i,j-1);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
for(int i=0; i<numentities; i++){
|
||
|
|
if(entity[i].y<yp+ypos) entity[i].y++;
|
||
|
|
}
|
||
|
|
while(key[KEY_L]);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
if(key[KEY_F]){
|
||
|
|
copymap();
|
||
|
|
temp=at(xp,yp+ypos);
|
||
|
|
for(int j=0; j<mapheight; j++){
|
||
|
|
for(int i=0; i<40; i++){
|
||
|
|
if(mapcontents[i][j]==temp) mapcontents[i][j]=ctile;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if(key[KEY_G]){
|
||
|
|
for(int j=0; j<mapheight; j++){
|
||
|
|
for(int i=0; i<40; i++){
|
||
|
|
mapcontents[i][j]=ctile;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
if(key[KEY_W]){
|
||
|
|
//Autoedge! Experimental :O
|
||
|
|
copymap();
|
||
|
|
for(int j=0; j<mapheight; j++){
|
||
|
|
for(int i=0; i<40; i++){
|
||
|
|
temp=mapcopycontents[i][j];
|
||
|
|
mapcontents[i][j]=edge(i, j, temp);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
while(key[KEY_W]);
|
||
|
|
}
|
||
|
|
|
||
|
|
if(key[KEY_E]){
|
||
|
|
//Antiedge!
|
||
|
|
copymap();
|
||
|
|
for(int j=0; j<mapheight; j++){
|
||
|
|
for(int i=0; i<40; i++){
|
||
|
|
temp=mapcopycontents[i][j];
|
||
|
|
mapcontents[i][j]=antiedge(i, j, temp);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
while(key[KEY_E]);
|
||
|
|
}
|
||
|
|
|
||
|
|
if(reversekey<=0){
|
||
|
|
if(key[KEY_S] && (key[KEY_LEFT]||key[KEY_RIGHT])){
|
||
|
|
copymap();
|
||
|
|
for(int j=0; j<29; j++){
|
||
|
|
for(int i=0; i<40; i++){
|
||
|
|
mapcontents[i][j]=mapcopycontents[39-i][j];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
reversekey=10;
|
||
|
|
}
|
||
|
|
if(key[KEY_S] && (key[KEY_UP]||key[KEY_DOWN])){
|
||
|
|
copymap();
|
||
|
|
for(int j=0; j<29; j++){
|
||
|
|
for(int i=0; i<40; i++){
|
||
|
|
mapcontents[i][j]=mapcopycontents[i][28-j];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
reversekey=10;
|
||
|
|
}
|
||
|
|
}else{
|
||
|
|
reversekey--;
|
||
|
|
}
|
||
|
|
|
||
|
|
if(key[KEY_F4]){
|
||
|
|
if(fullscreen){
|
||
|
|
change_windowed();
|
||
|
|
fullscreen=false;
|
||
|
|
}else{
|
||
|
|
change_fullscreen();
|
||
|
|
fullscreen=true;
|
||
|
|
}
|
||
|
|
while(key[KEY_F4]);
|
||
|
|
}
|
||
|
|
|
||
|
|
if(entclear(xp,yp+ypos)){
|
||
|
|
if(key[KEY_R]){ addentity(xp,yp+ypos,11,8); while(key[KEY_R]); }
|
||
|
|
if(key[KEY_T]){ addentity(xp,yp+ypos,12,8); while(key[KEY_T]); }
|
||
|
|
|
||
|
|
if(key[KEY_Y]){ addentity(xp,yp+ypos,2); while(key[KEY_Y]); }
|
||
|
|
if(key[KEY_U]) addentity(xp,yp+ypos,8);
|
||
|
|
if(key[KEY_I]) addentity(xp,yp+ypos,9);
|
||
|
|
if(key[KEY_O]){ addentity(xp,yp+ypos,1); while(key[KEY_O]); }
|
||
|
|
if(key[KEY_P]){ addentity(xp,yp+ypos,10); while(key[KEY_P]); }
|
||
|
|
}else{
|
||
|
|
temp=entat(xp,yp+ypos);
|
||
|
|
if(temp>-1){
|
||
|
|
if(key[KEY_O]){
|
||
|
|
if(entity[temp].t==1){
|
||
|
|
entity[temp].p1++;
|
||
|
|
if(entity[temp].p1>=4) entity[temp].p1=0;
|
||
|
|
while(key[KEY_O]);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if(key[KEY_Y]){
|
||
|
|
if(entity[temp].t==2){
|
||
|
|
entity[temp].p1++;
|
||
|
|
if(entity[temp].p1>=5) entity[temp].p1=0;
|
||
|
|
while(key[KEY_Y]);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if(key[KEY_P]){
|
||
|
|
if(entity[temp].t==10){
|
||
|
|
if(entity[temp].p1==0){
|
||
|
|
entity[temp].p1=1;
|
||
|
|
}else{
|
||
|
|
entity[temp].p1=0;
|
||
|
|
}
|
||
|
|
while(key[KEY_P]);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if(entity[temp].t==11 || entity[temp].t==12){
|
||
|
|
if(paraadjustdelay<=0){
|
||
|
|
if(key[KEY_J]){
|
||
|
|
if(key[KEY_LEFT]) { entity[temp].p1-=8; paraadjustdelay=4; }
|
||
|
|
if(key[KEY_RIGHT]){ entity[temp].p1+=8; paraadjustdelay=4; }
|
||
|
|
if(key[KEY_UP]) { entity[temp].p1-=8; paraadjustdelay=4; }
|
||
|
|
if(key[KEY_DOWN]){ entity[temp].p1+=8; paraadjustdelay=4; }
|
||
|
|
if(entity[temp].p1<=0) entity[temp].p1=0;
|
||
|
|
}
|
||
|
|
}else{
|
||
|
|
paraadjustdelay--;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if(entity[temp].t==1 || entity[temp].t==2){
|
||
|
|
if(paraadjustdelay<=0){
|
||
|
|
if(key[KEY_J]){
|
||
|
|
if(key[KEY_LEFT]) { entity[temp].p2--; paraadjustdelay=4; }
|
||
|
|
if(key[KEY_RIGHT]){ entity[temp].p2++; paraadjustdelay=4; }
|
||
|
|
if(entity[temp].p2<=0) entity[temp].p2=0;
|
||
|
|
}
|
||
|
|
if(key[KEY_K]){
|
||
|
|
if(key[KEY_LEFT]) { entity[temp].p3-=8; paraadjustdelay=4; }
|
||
|
|
if(key[KEY_RIGHT]){ entity[temp].p3+=8; paraadjustdelay=4; }
|
||
|
|
if(key[KEY_UP]) { entity[temp].p4-=8; paraadjustdelay=4; }
|
||
|
|
if(key[KEY_DOWN]){ entity[temp].p4+=8; paraadjustdelay=4; }
|
||
|
|
}
|
||
|
|
if(key[KEY_L]){
|
||
|
|
if(key[KEY_LEFT]) { entity[temp].p5-=8; paraadjustdelay=4; }
|
||
|
|
if(key[KEY_RIGHT]){ entity[temp].p5+=8; paraadjustdelay=4; }
|
||
|
|
if(key[KEY_UP]) { entity[temp].p6-=8; paraadjustdelay=4; }
|
||
|
|
if(key[KEY_DOWN]){ entity[temp].p6+=8; paraadjustdelay=4; }
|
||
|
|
}
|
||
|
|
}else{
|
||
|
|
paraadjustdelay--;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if(key[KEY_BACKSPACE]){
|
||
|
|
numentities=0;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*if(key[KEY_F1]) currentarea="otherlevel";
|
||
|
|
if(key[KEY_F2]) currentarea="spacestation";
|
||
|
|
if(key[KEY_F3]) currentarea="lab";*/
|
||
|
|
|
||
|
|
//Logic
|
||
|
|
gt++;
|
||
|
|
while(speed_counter<1) rest(1); speed_counter = 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
END_OF_MAIN()
|