www.pudn.com > Mir2Delphi.rar > MapUnit.pas
unit MapUnit;
//地图单元
{ MAP文件结构
文件头：52字节
第一行第一列定义
第二行第一列定义
第三行第一列定义
。
。
。
第Width行第一列定义
第一行第二列定义
。
。
。
}
interface
uses
Windows, Classes, SysUtils, Grobal2, HUtil32, DXDraws, CliUtil;
const
MAPDIR = 'Map\';
MAXX = 40;
MAXY = 40;
type
// -------------------------------------------------------------------------------
// Map
// -------------------------------------------------------------------------------
TMapPrjInfo = record
Ident: string[16];
ColCount: integer;
RowCount: integer;
end;
{
TMapHeader = packed record
Width : word;
Height : word;
Title: string[16];
UpdateDate: TDateTime;
Reserved : array[0..19] of char;
end;
}
//.MAP文件头 52bytes
TMapHeader = packed record
Width : word; //宽度 2
Height : word; //高度 2
Title: array [1..16] of char; //标题 16
UpdateDate: TDateTime; //更新日期 8
Reserved : array[0..23] of char; //保留 20
end;
TMapInfo = record
BkImg: word;
MidImg: word;
FrImg: word;
DoorIndex: byte; //$80 (巩娄), 巩狼 侥喊 牢郸胶
DoorOffset: byte; //摧腮 巩狼 弊覆狼 惑措 困摹, $80 (凯覆/摧塞(扁夯))
AniFrame: byte; //$80(Draw Alpha) + 橇贰烙 荐
AniTick: byte;
Area: byte; //瘤开 沥焊
light: byte; //0..1..4 堡盔 瓤苞
end;
PTMapInfo = ^TMapInfo;
TMapInfoArr = array[0..MaxListSize] of TMapInfo;
PTMapInfoArr = ^TMapInfoArr;
TMap = class
private
function loadmapinfo (mapfile: string; var width, height: integer): Boolean;
procedure updatemapseg (cx, cy: integer); //, maxsegx, maxsegy: integer);
procedure updatemap (cx, cy: integer);
public
MapBase: string;
MArr: array[0..MAXX*3, 0..MAXY*3] of TMapInfo;
ClientRect: TRect;
OldClientRect: TRect;
BlockLeft, BlockTop: integer; //鸥老 谅钎肺 哭率, 怖措扁 谅钎
oldleft, oldtop: integer;
oldmap: string;
CurUnitX, CurUnitY: integer;
CurrentMap: string;
Segmented: Boolean;
SegXCount, SegYCount: integer;
constructor Create;
destructor Destroy;
procedure UpdateMapSquare (cx, cy: integer);
procedure UpdateMapPos (mx, my: integer);
procedure ReadyReload;
procedure LoadMap (mapname: string; mx, my: integer);
procedure MarkCanWalk (mx, my: integer; bowalk: Boolean);
function CanMove (mx, my: integer): Boolean;
function CanFly (mx, my: integer): Boolean;
function GetDoor (mx, my: integer): Integer;
function IsDoorOpen (mx, my: integer): Boolean;
function OpenDoor (mx, my: integer): Boolean;
function CloseDoor (mx, my: integer): Boolean;
end;
procedure DrawMiniMap;
implementation
uses
ClMain;
constructor TMap.Create;
begin
inherited Create;
//GetMem (MInfoArr, sizeof(TMapInfo) * LOGICALMAPUNIT * 3 * LOGICALMAPUNIT * 3);
ClientRect := Rect (0,0,0,0);
MapBase := '.\Map\';
CurrentMap := '';
Segmented := FALSE;
SegXCount := 0;
SegYCount := 0;
CurUnitX := -1;
CurUnitY := -1;
BlockLeft := -1;
BlockTop := -1;
oldmap := '';
end;
destructor TMap.Destroy;
begin
inherited Destroy;
end;
function TMap.loadmapinfo (mapfile: string; var width, height: integer): Boolean;
var
flname: string;
fhandle: integer;
header: TMapHeader;
begin
Result := FALSE;
flname := MapBase + mapfile;
if FileExists (flname) then begin
fhandle := FileOpen (flname, fmOpenRead or fmShareDenyNone);
if fhandle > 0 then begin
FileRead (fhandle, header, sizeof(TMapHeader));
width := header.Width;
height := header.Height;
end;
FileClose (fhandle);
end;
end;
//segmented map 牢 版快
procedure TMap.updatemapseg (cx, cy: integer); //, maxsegx, maxsegy: integer);
begin
end;
//single map牢 版快
procedure TMap.updatemap (cx, cy: integer);
var
fhandle, i, k, aline, lx, rx, ty, by: integer;
header: TMapHeader;
flname: string;
begin
FillChar (MArr, sizeof(MArr), 0);
flname := MapBase + CurrentMap + '.map';
if FileExists (flname) then begin
fhandle := FileOpen (flname, fmOpenRead or fmShareDenyNone);
if fhandle > 0 then begin
FileRead (fhandle, header, sizeof(TMapHeader));
lx := (cx - 1) * LOGICALMAPUNIT;
rx := (cx + 2) * LOGICALMAPUNIT; //rx
ty := (cy - 1) * LOGICALMAPUNIT;
by := (cy + 2) * LOGICALMAPUNIT;
if lx < 0 then lx := 0;
if ty < 0 then ty := 0;
if by >= header.Height then by := header.Height;
aline := sizeof(TMapInfo) * header.Height; //一个列的大小（字节数）
for i:=lx to rx-1 do begin //i最多有 3*LOGICALMAPUNIT 值,这就是要更新的地图的行数
if (i >= 0) and (i < header.Width) then begin
//当前行列为X,Y，则应从X*每行字节数+Y*每项字节数开始读第一行数据
FileSeek (fhandle, sizeof(TMapHeader) + (aline * i) + (sizeof(TMapInfo) * ty), 0);
FileRead (fhandle, MArr[i-lx, 0], sizeof(TMapInfo) * (by-ty));
end;
end;
FileClose (fhandle);
end;
end;
end;
procedure TMap.ReadyReload;
begin
CurUnitX := -1;
CurUnitY := -1;
end;
//cx, cy: 位置, 以LOGICALMAPUNIT为单位
//cx, cy: 吝居, Counted by unit..
procedure TMap.UpdateMapSquare (cx, cy: integer);
begin
if (cx <> CurUnitX) or (cy <> CurUnitY) then begin
if Segmented then
updatemapseg (cx, cy)
else
updatemap (cx, cy);
CurUnitX := cx;
CurUnitY := cy;
end;
end;
//林某腐捞 捞悼矫 后锅捞 龋免..
procedure TMap.UpdateMapPos (mx, my: integer); //mx,my象素坐标
var
cx, cy: integer; //地图的逻辑坐标
procedure Unmark (xx, yy: integer);//xx,yy是象素点坐标
var
ax, ay: integer;
begin
if (cx = xx div LOGICALMAPUNIT) and (cy = yy div LOGICALMAPUNIT) then begin
ax := xx - BlockLeft;
ay := yy - BlockTop;
MArr[ax,ay].FrImg := MArr[ax,ay].FrImg and $7FFF;
MArr[ax,ay].BkImg := MArr[ax,ay].BkImg and $7FFF;
end;
end;
begin
cx := mx div LOGICALMAPUNIT; //折算成逻辑坐标
cy := my div LOGICALMAPUNIT;
BlockLeft := _MAX (0, (cx - 1) * LOGICALMAPUNIT); //象素坐标
BlockTop := _MAX (0, (cy - 1) * LOGICALMAPUNIT);
UpdateMapSquare (cx, cy);
if (oldleft <> BlockLeft) or (oldtop <> BlockTop) or (oldmap <> CurrentMap) then begin
//3锅甘 己寒磊府 滚弊 焊沥 (2001-7-3)
if CurrentMap = '3' then begin
Unmark (624, 278);
Unmark (627, 278);
Unmark (634, 271);
Unmark (564, 287);
Unmark (564, 286);
Unmark (661, 277);
Unmark (578, 296);
end;
end;
oldleft := BlockLeft;
oldtop := BlockTop;
end;
//甘函版矫 贸澜 茄锅 龋免..
procedure TMap.LoadMap (mapname: string; mx, my: integer);
begin
CurUnitX := -1;
CurUnitY := -1;
CurrentMap := mapname;
Segmented := FALSE; //Segmented 登绢 乐绰瘤 八荤茄促.
UpdateMapPos (mx, my);
oldmap := CurrentMap;
end;
//置前景是否可以行走
procedure TMap.MarkCanWalk (mx, my: integer; bowalk: Boolean);
var
cx, cy: integer;
begin
cx := mx - BlockLeft;
cy := my - BlockTop;
if (cx < 0) or (cy < 0) then exit;
if bowalk then //该坐标可以行走，则MArr[cx,cy]的值最高位为0
Map.MArr[cx, cy].FrImg := Map.MArr[cx, cy].FrImg and $7FFF
else //不可以行走的，最高位为1
Map.MArr[cx, cy].FrImg := Map.MArr[cx, cy].FrImg or $8000; //给框流捞霸 茄促.
end;
//若前景和背景都可以走，则返回真
function TMap.CanMove (mx, my: integer): Boolean;
var
cx, cy: integer;
begin
cx := mx - BlockLeft;
cy := my - BlockTop;
//前景和背景都可以走（最高位为0）
if (cx < 0) or (cy < 0) then exit;
Result := ((Map.MArr[cx, cy].BkImg and $8000) + (Map.MArr[cx, cy].FrImg and $8000)) = 0;
if Result then begin //巩八荤
if Map.MArr[cx, cy].DoorIndex and $80 > 0 then begin //巩娄捞 乐澜
if (Map.MArr[cx, cy].DoorOffset and $80) = 0 then
Result := FALSE; //巩捞 救 凯啡澜.
end;
end;
end;
//若前景可以走，则返回真。
function TMap.CanFly (mx, my: integer): Boolean;
var
cx, cy: integer;
begin
cx := mx - BlockLeft;
cy := my - BlockTop;
if (cx < 0) or (cy < 0) then exit;
Result := (Map.MArr[cx, cy].FrImg and $8000) = 0;
if Result then begin //巩八荤
if Map.MArr[cx, cy].DoorIndex and $80 > 0 then begin //巩娄捞 乐澜
if (Map.MArr[cx, cy].DoorOffset and $80) = 0 then
Result := FALSE; //巩捞 救 凯啡澜.
end;
end;
end;
//获得指定坐标的门的索引号
function TMap.GetDoor (mx, my: integer): Integer;
var
cx, cy: integer;
begin
Result := 0;
cx := mx - BlockLeft;
cy := my - BlockTop;
if Map.MArr[cx, cy].DoorIndex and $80 > 0 then begin //是门
Result := Map.MArr[cx, cy].DoorIndex and $7F; //门的索引在低7位
end;
end;
//判断门是否打开
function TMap.IsDoorOpen (mx, my: integer): Boolean;
var
cx, cy: integer;
begin
Result := FALSE;
cx := mx - BlockLeft;
cy := my - BlockTop;
if Map.MArr[cx, cy].DoorIndex and $80 > 0 then begin //是门
Result := (Map.MArr[cx, cy].DoorOffset and $80 <> 0);
end;
end;
//打开门
function TMap.OpenDoor (mx, my: integer): Boolean;
var
i, j, cx, cy, idx: integer;
begin
Result := FALSE;
cx := mx - BlockLeft;
cy := my - BlockTop;
if (cx < 0) or (cy < 0) then exit;
if Map.MArr[cx, cy].DoorIndex and $80 > 0 then begin
idx := Map.MArr[cx, cy].DoorIndex and $7F;
for i:=cx-10 to cx+10 do
for j:=cy-10 to cy+10 do begin
if (i > 0) and (j > 0) then
if (Map.MArr[i, j].DoorIndex and $7F) = idx then
Map.MArr[i, j].DoorOffset := Map.MArr[i, j].DoorOffset or $80;
end;
end;
end;
function TMap.CloseDoor (mx, my: integer): Boolean;
var
i, j, cx, cy, idx: integer;
begin
Result := FALSE;
cx := mx - BlockLeft;
cy := my - BlockTop;
if (cx < 0) or (cy < 0) then exit;
if Map.MArr[cx, cy].DoorIndex and $80 > 0 then begin
idx := Map.MArr[cx, cy].DoorIndex and $7F;
for i:=cx-8 to cx+10 do
for j:=cy-8 to cy+10 do begin
if (Map.MArr[i, j].DoorIndex and $7F) = idx then
Map.MArr[i, j].DoorOffset := Map.MArr[i, j].DoorOffset and $7F;
end;
end;
end;
const
SCALE = 4;
//画小地图
procedure DrawMiniMap;
var
sx, sy, ex, ey, i, j, imgnum, wunit, ani, ny, oheight, MX, MY: integer;
d: TDirectDrawSurface;
begin
MiniMapSurface.Fill(0);//.Erase(0);
MX := UNITX div SCALE;
MY := UNITY div SCALE;
sx := _MAX(0, (Myself.XX - Map.BlockLeft) div 2 * 2 - 22);
ex := _MIN(MAXX*3, (Myself.XX - Map.BlockLeft) div 2 * 2 + 22);
sy := _MAX(0, (Myself.YY - Map.BlockTop) div 2 * 2 - 22);
ey := _MIN(MAXY*3, (Myself.YY - Map.BlockTop) div 2 * 2 + 22);
for i:=0 to ex-sx do begin
for j:=0 to ey-sy do begin
if (i >= 0) and (j < MAXY*3) and ((i+sx) mod 2 = 0) and ((j+sy) mod 2 = 0) then begin
imgnum := (Map.MArr[sx+i, sy+j].BkImg and $7FFF);
if imgnum > 0 then begin
imgnum := imgnum - 1;
d := FrmMain.WTiles.Images[imgnum];
if d <> nil then
MiniMapSurface.StretchDraw (
Rect (i*MX, j*MY, i*MX + d.Width div SCALE, j*MY + d.Height div SCALE),
d.ClientRect,
d,
FALSE);
end;
end;
end;
end;
for i:=0 to ex-sx-1 do begin
for j:=0 to ey-sy-1 do begin
imgnum := Map.MArr[sx+i, sy+j].MidImg;
if imgnum > 0 then begin
imgnum := imgnum - 1;
d := FrmMain.WSmTiles.Images[imgnum];
if d <> nil then
MiniMapSurface.StretchDraw (
Rect (i*MX, j*MY, i*MX + d.Width div SCALE, j*MY + d.Height div SCALE),
d.ClientRect,
d,
TRUE);
end;
end;
end;
for j:=0 to ey-sy-1+25 do begin
for i:=0 to ex-sx do begin
if (i >= 0) and (i < MAXX*3) and (j < MAXY*3) then begin
imgnum := (Map.MArr[sx+i, sy+j].FrImg and $7FFF);
if imgnum > 0 then begin
wunit := Map.MArr[sx+i, sy+j].Area;
ani := Map.MArr[sx+i, sy+j].AniFrame;
if (ani and $80) > 0 then begin
continue;
end;
imgnum := imgnum - 1;
d := FrmMain.GetObjs(wunit, imgnum);
if d <> nil then begin
ny := j*MY - d.Height div SCALE + MY;
if ny < 360 then
MiniMapSurface.StretchDraw (
Rect (i*MX, ny, i*MX + d.Width div SCALE, ny + d.Height div SCALE),
d.ClientRect,
d,
TRUE);
end;
end;
end;
end;
end;
//DrawEffect (0, 0, MiniMapSurface.Width, MiniMapSurface.Height, MiniMapSurface, ceGrayScale);
end;
end.