ref: dfde0077ffe7670c8119fe03bd33b7ea09c5a791
dir: /src/rt_map.c/
/*
Copyright (C) 1994-1995 Apogee Software, Ltd.
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/
#include "rt_def.h"
#include <string.h>
#include "sprites.h"
#include "rt_map.h"
#include "rt_dr_a.h"
#include "_rt_map.h"
#include "isr.h"
#include "rt_util.h"
#include "modexlib.h"
#include "rt_draw.h"
#include "rt_stat.h"
#include "z_zone.h"
#include "w_wad.h"
#include "rt_main.h"
#include "rt_playr.h"
#include "lumpy.h"
#include "rt_door.h"
#include "rt_scale.h"
#include "rt_vid.h"
#include "rt_in.h"
#include "rt_ted.h"
#include "rt_game.h"
#include "rt_rand.h"
#include "rt_view.h"
#include "rt_floor.h"
#include "engine.h"
#include "develop.h"
#include "rt_menu.h"
#include "rt_net.h"
#include "rt_str.h"
#include "watcom.h"
//MED
#include "memcheck.h"
//===========================================================================
static int tilesize;
static fixed xscale;
static fixed yscale;
static int mapscale=2;
static int oldw,oldh;
static byte * skytile;
static int mapcolor=8;
typedef struct PType {
int x;
int y;
} Ptype;
static Ptype arrows[8][7]=
{
{ {4,2}, {2,4}, {2,3}, {0,3}, {0,1}, {2,1}, {2,0} },
{ {4,0}, {4,3}, {3,2}, {1,4}, {0,3}, {2,1}, {1,0} },
{ {2,0}, {4,2}, {3,2}, {3,4}, {1,4}, {1,2}, {0,2} },
{ {0,0}, {3,0}, {2,1}, {4,3}, {3,4}, {1,2}, {0,3} },
{ {0,2}, {2,0}, {2,1}, {4,1}, {4,3}, {2,3}, {2,4} },
{ {0,4}, {0,1}, {1,2}, {3,0}, {4,1}, {2,3}, {3,4} },
{ {2,4}, {0,2}, {1,2}, {1,0}, {3,0}, {3,2}, {4,2} },
{ {4,4}, {1,4}, {2,3}, {0,1}, {1,0}, {3,2}, {4,1} },
};
void DrawMap_MaskedShape (int x, int y, int lump, int type);
void CheatMap( void )
{
int i;
int j;
statobj_t * temp;
objtype * a;
for(temp=FIRSTSTAT; temp; temp=temp->statnext)
temp->flags|=FL_SEEN;
for(a=FIRSTACTOR; a; a=a->next)
a->flags|=FL_SEEN;
for (j=0; j<MAPSIZE; j++)
for (i=0; i<MAPSIZE; i++)
mapseen[i][j]=1;
}
void FixMapSeen( void )
{
int i;
int j;
for (j=0; j<MAPSIZE; j++)
for (i=0; i<MAPSIZE; i++)
if (!mapseen[i][j])
{
if (i==0 && ((mapseen[i][j+1] && j<MAPSIZE-1) || (mapseen[i][j-1] && j>0)) && mapseen[i+1][j])
mapseen[i][j]=1;
else if (i==MAPSIZE-1 && mapseen[i-1][j] && ((mapseen[i][j+1] && j<MAPSIZE-1) || (mapseen[i][j-1] && j>0)))
mapseen[i][j]=1;
else if (j==0 && ((mapseen[i+1][j] && i<MAPSIZE-1) || (mapseen[i-1][j] && i>0)) && mapseen[i][j+1])
mapseen[i][j]=1;
else if (j==MAPSIZE-1 && mapseen[i][j-1] && ((mapseen[i+1][j] && i<MAPSIZE-1) || (mapseen[i-1][j] && i>0)))
mapseen[i][j]=1;
else if (
( ((mapseen[i-1][j]) && (mapseen[i][j+1]) && (!(tilemap[i-1][j+1])))
||
((mapseen[i-1][j]) && (mapseen[i][j-1]) && (!(tilemap[i-1][j-1])))
||
((mapseen[i+1][j]) && (mapseen[i][j+1]) && (!(tilemap[i+1][j+1])))
||
((mapseen[i+1][j]) && (mapseen[i][j-1]) && (!(tilemap[i+1][j-1])))
) &&
tilemap[i][j])
mapseen[i][j]=1;
}
}
/*
=======================
=
= DrawMap_Wall
=
=======================
*/
void DrawMap_Wall (int x, int y, int tile)
{
byte * buf;
byte * b;
byte * source;
byte * s;
int i;
x*=tilesize;
y*=tilesize;
buf=(byte *)bufferofs+ylookup[y]+x;
source=W_CacheLumpNum(tile,PU_CACHE, CvtNull, 1);
{
s=source;
b=buf;
for (i=0; i<tilesize; i++,b++)
{
DrawMapPost(tilesize,s,b);
s+=(hp_srcstep>>10);
}
}
}
/*
=======================
=
= DrawMap_AnimatedWall
=
=======================
*/
void DrawMap_AnimatedWall (int x, int y, int tile)
{
DrawMap_Wall(x,y,animwalls[tile].texture);
}
/*
=======================
=
= DrawMap_SkyTile
=
=======================
*/
void DrawMap_SkyTile (int x, int y)
{
byte * buf;
byte * b;
byte * s;
int i;
x*=tilesize;
y*=tilesize;
buf=(byte *)bufferofs+ylookup[y]+x;
{
s=skytile;
b=buf;
for (i=0; i<tilesize; i++,b++)
{
DrawMapPost(tilesize,s,b);
s+=(hp_srcstep>>10);
}
}
}
/*
=======================
=
= DrawMap_MaskedWall
=
=======================
*/
void DrawMap_MaskedWall (int x, int y, int tile)
{
if (IsPlatform(maskobjlist[tile]->tilex,maskobjlist[tile]->tiley))
{
if (!(maskobjlist[tile]->flags&MW_ABOVEPASSABLE))
DrawMap_MaskedShape(x,y,maskobjlist[tile]->toptexture,0);
else if (!(maskobjlist[tile]->flags&MW_BOTTOMPASSABLE))
DrawMap_MaskedShape(x,y,maskobjlist[tile]->bottomtexture,1);
else
DrawMap_MaskedShape(x,y,maskobjlist[tile]->midtexture,0);
}
else
{
DrawMap_MaskedShape(x,y,maskobjlist[tile]->bottomtexture,1);
}
}
/*
=======================
=
= DrawMap_Door
=
=======================
*/
void DrawMap_Door (int x, int y, int tile)
{
if (
(doorobjlist[tile]->lock > 0) &&
(doorobjlist[tile]->lock <= 4)
)
DrawMap_Wall(x,y,W_GetNumForName("lock1")+doorobjlist[tile]->lock-1);
else if (doorobjlist[tile]->texture==doorobjlist[tile]->basetexture)
DrawMap_Wall(x,y,doorobjlist[tile]->texture);
else
DrawMap_MaskedShape(x,y,doorobjlist[tile]->texture,0);
}
/*
=======================
=
= DrawMap_PushWall
=
=======================
*/
void DrawMap_PushWall (int x, int y, pwallobj_t * pw)
{
if (pw->texture&0x1000)
DrawMap_AnimatedWall(x,y,pw->texture&0x3ff);
else
DrawMap_Wall(x,y,pw->texture&0x3ff);
}
/*
=======================
=
= DrawMap_Actor
=
=======================
*/
void DrawMap_Actor (int x, int y, objtype * a)
{
int translucent;
if (!(a->flags&FL_SEEN))
return;
translucent=0;
if (a->flags&FL_TRANSLUCENT)
translucent=1;
DrawMap_MaskedShape(x,y,a->shapenum+shapestart,translucent);
}
/*
=======================
=
= DrawMap_Sprite
=
=======================
*/
void DrawMap_Sprite (int x, int y, statobj_t * s)
{
int translucent;
if (!(s->flags&FL_SEEN))
return;
translucent=0;
if (s->flags&FL_TRANSLUCENT)
translucent=1;
DrawMap_MaskedShape(x,y,s->shapenum+shapestart,translucent);
}
/*
=======================
=
= DrawMap_MaskedShape
=
=======================
*/
void DrawMap_MaskedShape (int x, int y, int lump, int type)
{
// Calculate center coordinates for sprites
x*=tilesize;
y*=tilesize;
x+=tilesize>>1;
y+=tilesize>>1;
DrawPositionedScaledSprite(x,y,lump,tilesize,type);
}
/*
=======================
=
= DrawMap_PlayerArrow
=
=======================
*/
/* Indices: mapscale, reduced coordinate */
static const int arrowscale[4][5] =
{ { 1,17,32,47,63}, /* Mapscale 0: 64 pixels/sprite */
{ 1, 9,16,23,31}, /* Mapscale 1: 32 pixels/sprite */
{ 1, 5, 8,11,15}, /* Mapscale 2: 16 pixels/sprite */
{ 1, 3, 4, 5, 7}
}; /* Mapscale 3: 8 pixels/sprite */
void DrawMap_PlayerArrow (int x, int y, int dir)
{
int i;
x*=tilesize;
y*=tilesize;
/* You can't draw a 4x4 arrow */
if(mapscale == 4)
{
VL_Bar(x+1,y+1,2,2,244);
return;
}
for (i=0; i<6; i++)
{
VL_DrawLine (arrowscale[mapscale][arrows[dir][i].x]+x,
arrowscale[mapscale][arrows[dir][i].y]+y,
arrowscale[mapscale][arrows[dir][i+1].x]+x,
arrowscale[mapscale][arrows[dir][i+1].y]+y,
244
);
}
VL_DrawLine ( arrowscale[mapscale][arrows[dir][6].x]+x,
arrowscale[mapscale][arrows[dir][6].y]+y,
arrowscale[mapscale][arrows[dir][0].x]+x,
arrowscale[mapscale][arrows[dir][0].y]+y,
244
);
}
/*
=======================
=
= DrawMap_Player
=
=======================
*/
void DrawMap_Player (int x, int y)
{
if (player->flags&FL_SHROOMS)
DrawMap_PlayerArrow(x,y,( RandomNumber("DrawMap_PLAYER",0)>>5) );
else
DrawMap_PlayerArrow(x,y,( ( (player->angle+(FINEANGLES/16)) & (FINEANGLES-1) ) >>8) );
DrawMap_MaskedShape(x,y,player->shapenum+shapestart,0);
}
/*
=======================
=
= DrawMap
=
=======================
*/
void DrawMap( int cx, int cy )
{
fixed x,y;
statobj_t * s;
objtype * a;
int i,j;
int mapx,mapy;
int wall;
// Clear buffer
VL_ClearBuffer (bufferofs, egacolor[mapcolor]);
x=cx>>16;
y=cy>>16;
// Draw Walls,Doors,maskedwalls,animatingwalls
for (j=0; j<yscale; j++)
{
// Don't go off the bottom of the map
mapy=j+y;
if (mapy<0)
continue;
if (mapy>127)
break;
for (i=0; i<xscale; i++)
{
// Don't go off the right side of the map
mapx=i+x;
if (mapx<0)
continue;
if (mapx>127)
break;
if ((mapx==player->tilex ) && (mapy==player->tiley))
{
DrawMap_Player(i,j);
continue;
}
wall=tilemap[mapx][mapy];
// Check for absence of wall
if (wall)
{
if (!mapseen[mapx][mapy])
continue;
// Check to see if it is a door or masked wall
if (wall&0x8000)
{
if (wall&0x4000)
{
// Must be a masked wall
DrawMap_MaskedWall(i,j,wall&0x3ff);
}
else
{
// Must be a door
DrawMap_Door(i,j,wall&0x3ff);
}
}
// Check to see if it is an animating wall
else if (wall&0x1000)
{
DrawMap_AnimatedWall(i,j,wall&0x3ff);
}
else if (IsWindow(mapx,mapy))
{
if (sky!=0)
DrawMap_SkyTile(i,j);
else
Error("Trying to draw a sky on a level without sky\n");
}
else
{
// Must be a normal wall or a wall with something above
DrawMap_Wall(i,j,wall&0x3ff);
}
}
else
{
a=actorat[mapx][mapy];
// Check for absence of actor
if (a)
{
switch(a->which)
{
case PWALL:
if (!mapseen[mapx][mapy])
continue;
DrawMap_PushWall(i,j,(pwallobj_t *)a);
break;
case ACTOR:
DrawMap_Actor(i,j,a);
break;
case SPRITE:
DrawMap_Actor(i,j,a);
break;
default:
SoftError("Unable to resolve actorat at x=%d y=%d which=%d\n",mapx,mapy,a->which);
break;
}
}
else
{
s=sprites[mapx][mapy];
// Check for absence of sprite
if (s)
{
DrawMap_Sprite(i,j,s);
}
}
}
}
}
}
/*
=======================
=
= SetupFullMap
=
=======================
*/
void SetupFullMap( void )
{
int ty;
pic_t *pic;
// Fill in backgrounds
pic = (pic_t *) W_CacheLumpNum (W_GetNumForName ("mmbk"), PU_CACHE, Cvt_pic_t, 1);
VWB_DrawPic (0, 0, pic);
CheckHolidays();
// Clear area for map
for (ty=37; ty<37+127; ty++)
memset((byte *)bufferofs+ylookup[ty]+96,0,128);
}
/*
=======================
=
= DrawFullMap
=
=======================
*/
void DrawFullMap( void )
{
statobj_t * s;
objtype * a;
int mapx,mapy;
int wall;
byte * buf;
SetupFullMap();
// Draw Walls,Doors,maskedwalls,animatingwalls
for (mapx=0; mapx<mapwidth; mapx++)
{
buf=(byte *)bufferofs+ylookup[37]+((96+mapx));
for (mapy=0; mapy<mapheight; mapy++,buf+=iGLOBAL_SCREENWIDTH)
{
if ((mapx==player->tilex ) && (mapy==player->tiley))
{
*buf=egacolor[MAP_PLAYERCOLOR];
continue;
}
wall=tilemap[mapx][mapy];
// Check for absence of wall
if (wall)
{
if (!mapseen[mapx][mapy])
continue;
// Check to see if it is a door or masked wall
if (wall&0x8000)
{
if (wall&0x4000)
{
// Must be a maskedwall
*(buf)=egacolor[MAP_MWALLCOLOR];
}
else
{
// Must be a door
*(buf)=egacolor[MAP_DOORCOLOR];
}
}
// Check to see if it is an animating wall
else if (wall&0x1000)
{
*(buf)=egacolor[MAP_AWALLCOLOR];
}
else if (IsWindow(mapx,mapy))
{
if (sky!=0)
*(buf)=egacolor[MAP_SKYCOLOR];
else
Error("Trying to draw a sky on a level without sky\n");
}
else
{
// Must be a normal wall or a wall with something above
*(buf)=egacolor[MAP_WALLCOLOR];
}
}
else
{
a=actorat[mapx][mapy];
// Check for absence of actor
if (a)
{
switch(a->which)
{
case PWALL:
if (!mapseen[mapx][mapy])
continue;
*(buf)=egacolor[MAP_PWALLCOLOR];
break;
case ACTOR:
if (a->flags&FL_SEEN)
{
if (a->obclass==inertobj)
*(buf)=egacolor[MAP_SPRITECOLOR];
else
*(buf)=egacolor[MAP_ACTORCOLOR];
}
break;
case SPRITE:
if (a->flags&FL_SEEN)
*(buf)=egacolor[MAP_SPRITECOLOR];
break;
default:
SoftError("Unable to resolve actorat at x=%d y=%d which=%d\n",mapx,mapy,a->which);
break;
}
}
else
{
s=sprites[mapx][mapy];
// Check for absence of sprite
if (s && (s->flags&FL_SEEN))
{
*(buf)=egacolor[MAP_SPRITECOLOR];
}
}
}
}
}
FlipPage();
}
/*
=======================
=
= DrawMapInfo
=
=======================
*/
void DrawMapInfo ( void )
{
char temp[80];
int width,height;
CurrentFont=tinyfont;
PrintX = 2;
PrintY = 2;
strcpy (&temp[0], &(LevelName[0]));
US_MeasureStr (&width, &height, "%s", &temp[0]);
VWB_TBar (0, 0, 320, height+4);
US_BufPrint (&temp[0]);
strcpy (&temp[0], "TAB=EXIT");
US_MeasureStr (&width, &height, "%s", &temp[0]);
PrintX = 316-width;
PrintY = 2;
US_BufPrint (&temp[0]);
strcpy (&temp[0], "< > CHANGE BACKGROUND COLOR");
US_MeasureStr (&width, &height, "%s", &temp[0]);
PrintX = (320-width)>>1;
PrintY = 2;
US_BufPrint (&temp[0]);
}
/*
=======================
=
= SetupMapScale
=
=======================
*/
void SetupMapScale( int s )
{
mapscale=s;
tilesize=64>>mapscale;
xscale=320/tilesize;
yscale=200/tilesize;
hp_srcstep=0x10000<<mapscale;
}
/*
=======================
=
= ChangeMapScale
=
=======================
*/
void ChangeMapScale( int * newx, int * newy, int newmapscale )
{
if (newmapscale<0)
return;
if (newmapscale>FULLMAP_SCALE)
return;
if (newmapscale==FULLMAP_SCALE)
DrawFullMap();
*newx=*newx+(xscale<<15);
*newy=*newy+(yscale<<15);
SetupMapScale(newmapscale);
*newx=*newx-(xscale<<15);
*newy=*newy-(yscale<<15);
}
/*
=======================
=
= SetupMapper
=
=======================
*/
void SetupMapper ( void )
{
FixMapSeen();
tics=0;
oldw=viewwidth;
oldh=viewheight;
viewwidth=320;
viewheight=200;
if (sky!=0)
{
skytile=SafeMalloc(64*64);
MakeSkyTile(skytile);
}
}
/*
=======================
=
= ShutdownMapper
=
=======================
*/
void ShutdownMapper ( void )
{
VL_ClearVideo (0);
viewwidth=oldw;
viewheight=oldh;
SetupScreen (true);
if (sky!=0)
SafeFree(skytile);
if (mouseenabled && MousePresent)
PollMouseMove();
}
/*
=======================
=
= DoMap
=
=======================
*/
void DoMap (int cx, int cy)
{
int x,y;
int dx;
int dy;
boolean done;
int quitkey;
ControlInfo control;
EnableScreenStretch();//bna++
ShutdownClientControls();
done=false;
while (Keyboard[sc_Tab])
IN_UpdateKeyboard ();
x=(cx-(xscale>>1))<<16;
y=(cy-(yscale>>1))<<16;
SetupMapper();
transparentlevel=25;
ChangeMapScale(&x, &y, mapscale);
while (done==false)
{
IN_UpdateKeyboard ();
if ((Keyboard[sc_Tab]) || (Keyboard[sc_Escape]))
{
if (Keyboard[sc_Tab])
quitkey=sc_Tab;
else
quitkey=sc_Escape;
done=true;
}
if ( Keyboard[ sc_Home ] )
{
x=(cx-(xscale>>1))<<16;
y=(cy-(yscale>>1))<<16;
}
dx=0;
dy=0;
if (mapscale==FULLMAP_SCALE)
CalcTics();
else
{
DrawMap(x,y);
DrawMapInfo ();
FlipPage();
CalcTics();
DoSprites();
AnimateWalls();
}
ReadAnyControl (&control);
if ((Keyboard[sc_PgUp]) ||
(Keyboard[sc_Plus]) ||
(control.button1))
{
ChangeMapScale(&x, &y, mapscale+1);
while(Keyboard[sc_PgUp])
IN_UpdateKeyboard ();
while(Keyboard[sc_Plus])
IN_UpdateKeyboard ();
while(control.button1)
ReadAnyControl (&control);
}
if ((Keyboard[sc_PgDn]) ||
(Keyboard[sc_Minus]) ||
(control.button0))
{
ChangeMapScale(&x, &y, mapscale-1);
while(Keyboard[sc_PgDn])
IN_UpdateKeyboard ();
while(Keyboard[sc_Minus])
IN_UpdateKeyboard ();
while(control.button0)
ReadAnyControl (&control);
}
if (Keyboard[sc_CapsLock] && Keyboard[sc_C])
{
inhmenu=true;
SaveScreen (true);
inhmenu=false;
}
if (Keyboard[sc_CapsLock] && Keyboard[sc_X])
{
inhmenu=true;
SaveScreen (false);
inhmenu=false;
}
if (Keyboard[sc_Comma])
{
if (mapcolor>0)
mapcolor--;
while(Keyboard[sc_Comma])
IN_UpdateKeyboard ();
}
if (Keyboard[sc_Period])
{
if (mapcolor<15)
mapcolor++;
while(Keyboard[sc_Period])
IN_UpdateKeyboard ();
}
if (mapscale!=FULLMAP_SCALE)
{
if (control.dir==dir_East)
dx=(tics<<17)/(5-mapscale);
if (control.dir==dir_West)
dx=-(tics<<17)/(5-mapscale);
if (control.dir==dir_South)
dy=(tics<<17)/(5-mapscale);
if (control.dir==dir_North)
dy=-(tics<<17)/(5-mapscale);
}
x+=dx;
y+=dy;
if (x>0x7effff)
x=0x7effff;
else if (x<-(xscale<<15))
x=-(xscale<<15);
if (y>0x7effff)
y=0x7effff;
else if (y<-(yscale<<15))
y=-(yscale<<15);
}
if ( playstate == ex_stillplaying ) {//bna++
pic_t *shape;
shape = ( pic_t * )W_CacheLumpName( "backtile", PU_CACHE, Cvt_pic_t, 1 );
DrawTiledRegion( 0, 16, iGLOBAL_SCREENWIDTH, iGLOBAL_SCREENHEIGHT - 32, 0, 16, shape );//bna++
DisableScreenStretch();//dont strech when we go BACK TO GAME
VW_UpdateScreen ();
DrawPlayScreen(true);//repaint ammo and life stat
}
while (Keyboard[quitkey])
IN_UpdateKeyboard ();
LastScan=0;
Keyboard[sc_Escape]=0;
Keyboard[sc_Tab]=0;
ShutdownMapper();
StartupClientControls();
}