Initial commit
This commit is contained in:
parent
ae30afb16b
commit
0566ecfdd7
|
|
@ -0,0 +1,169 @@
|
||||||
|
object AboutDialog: TAboutDialog
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
BorderIcons = [biSystemMenu, biMinimize]
|
||||||
|
BorderStyle = bsSingle
|
||||||
|
Caption = 'About'
|
||||||
|
ClientHeight = 255
|
||||||
|
ClientWidth = 417
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object Shape1: TShape
|
||||||
|
Left = 64
|
||||||
|
Top = 0
|
||||||
|
Width = 353
|
||||||
|
Height = 216
|
||||||
|
Pen.Color = clWhite
|
||||||
|
end
|
||||||
|
object Bevel1: TBevel
|
||||||
|
Left = 0
|
||||||
|
Top = 216
|
||||||
|
Width = 417
|
||||||
|
Height = 2
|
||||||
|
end
|
||||||
|
object Shape2: TShape
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 65
|
||||||
|
Height = 217
|
||||||
|
Brush.Color = clRed
|
||||||
|
Pen.Color = clSkyBlue
|
||||||
|
Pen.Style = psClear
|
||||||
|
Pen.Width = 0
|
||||||
|
end
|
||||||
|
object AppNameLabel: TLabel
|
||||||
|
Left = 72
|
||||||
|
Top = 8
|
||||||
|
Width = 46
|
||||||
|
Height = 13
|
||||||
|
Caption = 'RedMap'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = ANSI_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 72
|
||||||
|
Top = 192
|
||||||
|
Width = 271
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Joint effort by Xeon, Koolboyman, and BlueSonic'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object VersionLabel: TLabel
|
||||||
|
Left = 72
|
||||||
|
Top = 24
|
||||||
|
Width = 79
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Version 2.0 Beta'
|
||||||
|
Color = clWhite
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Image1: TImage
|
||||||
|
Left = 16
|
||||||
|
Top = 16
|
||||||
|
Width = 32
|
||||||
|
Height = 32
|
||||||
|
Picture.Data = {
|
||||||
|
055449636F6E0000010002001010100000000000280100002600000020201000
|
||||||
|
00000000E80200004E0100002800000010000000200000000100040000000000
|
||||||
|
C000000000000000000000001000000000000000000000000000800000800000
|
||||||
|
00808000800000008000800080800000C0C0C000808080000000FF0000FF0000
|
||||||
|
00FFFF00FF000000FF00FF00FFFF0000FFFFFF000000000000000000000F7000
|
||||||
|
000F7000880F7088880F7088880F7088880F70880000000000000000FFFFFFFF
|
||||||
|
FFFFFFFFF888888FF888888FFFFFFFFFFFFFFFFF0FFF00FF0F0FF00F00FF0F0F
|
||||||
|
0F0F00FF0F0F0F0F00FF0F0F0F0F0F0F0F0F000F00FFF00F0F0FF0FF77777777
|
||||||
|
7777770700000000000000007777777777777777E7E7FFFF0000FFFF0000FFFF
|
||||||
|
0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF
|
||||||
|
0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF280000002000000040000000
|
||||||
|
0100040000000000800200000000000000000000100000000000000000000000
|
||||||
|
000080000080000000808000800000008000800080800000C0C0C00080808000
|
||||||
|
0000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000
|
||||||
|
000000000000000000000000000F7000000F70000000000000000000880F7088
|
||||||
|
880F70888888888887000000880F7088880F7088888888888700000000000000
|
||||||
|
000000007777777777000000FFFFFFFFFFFFFFFFFFFFFFFFFF000000F888888F
|
||||||
|
F888888F77777777FF000000FFFFFFFFFFFFFFFF77777777770000000FFF00FF
|
||||||
|
0F0FF00FF777778FFF00000000FF0F0F0F0F00FFFFFFFFFFFF0000000F0F0F0F
|
||||||
|
00FF0F0F778F7777FF0000000F0F0F0F0F0F000F778F7777FF00000000FFF00F
|
||||||
|
0F0FF0FFFFFFFFFFFF00000077777777777777077777778FFF00000000000000
|
||||||
|
000000007777778FFF0000007777777777777777FFFFFFFFFF000000F777778F
|
||||||
|
F777778FF777778FFF000000FFFFFFFFFFFFFFFFFFFFFFFFFF000000778F7777
|
||||||
|
778F7777778F7777FF000000778F7777778F7777778F7777FF000000FFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFF0000007777778F7777778F7777778FFF0000007777778F
|
||||||
|
7777778F7777778FFF000000FFFFFFFFFFFFFFFFFFFFFFFFFF00000080000008
|
||||||
|
8000000880000008FF00000007F8F88007F8F88007F8F880FF0000000F7F8780
|
||||||
|
0F7F87800F7F8780FF0000000FF7F8F00FF7F8F00FF7F8F0FF0000000FFF7F80
|
||||||
|
0FFF7F800FFF7F80FF0000000FFFF7F00FFFF7F00FFFF7F0FF00000080000008
|
||||||
|
8000000880000008FF000000777777777777777777777777FF000000E7E7FFFF
|
||||||
|
0000003F0000001F0000001F0000001F0000001F0000001F0000001F0000001F
|
||||||
|
0000001F0000001F0000001F0000001F0000001F0000001F0000001F0000001F
|
||||||
|
0000001F0000001F0000001F0000001F0000001F0000001F0000001F0000001F
|
||||||
|
0000001F0000001F0000001F0000001F0000001F0000001F0000001F0D0A}
|
||||||
|
end
|
||||||
|
object Button1: TButton
|
||||||
|
Left = 336
|
||||||
|
Top = 224
|
||||||
|
Width = 75
|
||||||
|
Height = 23
|
||||||
|
Cancel = True
|
||||||
|
Caption = 'OK'
|
||||||
|
Default = True
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object Memo1: TMemo
|
||||||
|
Left = 72
|
||||||
|
Top = 48
|
||||||
|
Width = 337
|
||||||
|
Height = 137
|
||||||
|
BorderStyle = bsNone
|
||||||
|
Lines.Strings = (
|
||||||
|
'Special thanks to BlueSonic (aka Jigglypuff) for letting me use '
|
||||||
|
'some of GoldMap to forge this frankenstein of a program. And '
|
||||||
|
'for putting up with all my questions regarding Delphi.'
|
||||||
|
''
|
||||||
|
'Koolboyman for the immense amount of data and information you '
|
||||||
|
'provided me. '
|
||||||
|
''
|
||||||
|
'Tauwasser for showing me how the warp-to points, connection '
|
||||||
|
'data, and ram addresses where calculated. '
|
||||||
|
''
|
||||||
|
'And also, tons of respect to the author of ZeroMap, you where '
|
||||||
|
'my inspiration for how to go about displaying the connected '
|
||||||
|
'maps.'
|
||||||
|
''
|
||||||
|
'This program is not endorsed or supported by Nintendo, and the '
|
||||||
|
'author is not affiliated with any other corporate entity.'
|
||||||
|
''
|
||||||
|
'This program is Freeware and provided "as is". The author '
|
||||||
|
|
||||||
|
'cannot be held liable for damages any kind arising from it'#39's use' +
|
||||||
|
' or '
|
||||||
|
'presence.'
|
||||||
|
''
|
||||||
|
'Pok'#233'mon is copyright of '#169'1995-2005 '
|
||||||
|
'Nintendo/Creatures Inc./GAME FREAK Inc.')
|
||||||
|
ReadOnly = True
|
||||||
|
ScrollBars = ssVertical
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
@ -0,0 +1,33 @@
|
||||||
|
unit About;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, StdCtrls, pngimage, ExtCtrls;
|
||||||
|
|
||||||
|
type
|
||||||
|
TAboutDialog = class(TForm)
|
||||||
|
Shape1: TShape;
|
||||||
|
Bevel1: TBevel;
|
||||||
|
Shape2: TShape;
|
||||||
|
AppNameLabel: TLabel;
|
||||||
|
Label1: TLabel;
|
||||||
|
VersionLabel: TLabel;
|
||||||
|
Image1: TImage;
|
||||||
|
Button1: TButton;
|
||||||
|
Memo1: TMemo;
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
AboutDialog: TAboutDialog;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
end.
|
||||||
Binary file not shown.
|
|
@ -0,0 +1,160 @@
|
||||||
|
//******************************************************************************
|
||||||
|
//GoldMap
|
||||||
|
//by BlueSonic (aka Jigglypuff)
|
||||||
|
//******************************************************************************
|
||||||
|
unit BlockEditor;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Controls, Classes, Forms, StdCtrls, ExtCtrls, Graphics;
|
||||||
|
|
||||||
|
type
|
||||||
|
TBlockEditorForm = class(TForm)
|
||||||
|
ScrollBox1: TScrollBox;
|
||||||
|
TileLabel: TLabel;
|
||||||
|
BlockLabel: TLabel;
|
||||||
|
UpdateButton: TButton;
|
||||||
|
AddressLabel: TLabel;
|
||||||
|
BlockEditBox: TImage;
|
||||||
|
BlockBox: TPaintBox;
|
||||||
|
TilePalette: TImage;
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure BlockBoxMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
|
||||||
|
procedure BlockBoxMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
|
||||||
|
procedure LoadTile;
|
||||||
|
procedure SaveTile;
|
||||||
|
procedure UpdateTile;
|
||||||
|
procedure TilePaletteMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
|
||||||
|
procedure TilePaletteMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||||
|
procedure BlockEditBoxMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||||
|
procedure UpdateButtonClick(Sender: TObject);
|
||||||
|
procedure BlockBoxPaint(Sender: TObject);
|
||||||
|
procedure BlockEditBoxMouseMove(Sender: TObject; Shift: TShiftState; X,
|
||||||
|
Y: Integer);
|
||||||
|
public
|
||||||
|
BlockStart,SelTile,TileNumber : Integer;
|
||||||
|
BlockData: array [0..15] of Byte;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses MapEditor;
|
||||||
|
|
||||||
|
{$R *.DFM}
|
||||||
|
|
||||||
|
procedure TBlockeditorForm.LoadTile;
|
||||||
|
begin
|
||||||
|
Rom.Position := BlockStart;
|
||||||
|
//loads block
|
||||||
|
Rom.Read(BlockData, SizeOf(BlockData));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBlockeditorForm.SaveTile;
|
||||||
|
begin
|
||||||
|
Rom.Position := BlockStart;
|
||||||
|
//Saves block
|
||||||
|
Rom.Write(BlockData, SizeOf(BlockData));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBlockeditorForm.UpdateTile;
|
||||||
|
var
|
||||||
|
X,Y,I: Integer;
|
||||||
|
TileX, TileY, TileNumber: Byte;
|
||||||
|
begin
|
||||||
|
I := 0;
|
||||||
|
//draws tiles into block
|
||||||
|
for Y := 0 to 3 do
|
||||||
|
for X := 0 to 3 do
|
||||||
|
begin
|
||||||
|
TileNumber := BlockData[I];
|
||||||
|
//calculate x and y coordinate where to copy tile from, the tileset picture has 16 tiles per line
|
||||||
|
TileY := TileNumber div 16;
|
||||||
|
TileX := TileNumber mod 16;
|
||||||
|
//draw tile to block picture
|
||||||
|
BlockEditBox.Picture.Bitmap.Canvas.CopyRect(Rect(X*8,Y*8,X*8+8,Y*8+8),Tiles.Canvas,Rect(TileX*8,TileY*8,TileX*8+8,TileY*8+8));
|
||||||
|
Inc(I);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBlockEditorForm.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
//create block bitmap
|
||||||
|
BlockEditBox.Picture.Bitmap := TBitmap.Create;
|
||||||
|
BlockEditBox.Picture.Bitmap.Height := 32;
|
||||||
|
BlockEditBox.Picture.Bitmap.Width := 32;
|
||||||
|
BlockEditBox.Picture.Bitmap.PixelFormat := pf24bit;
|
||||||
|
//initalize other stuff
|
||||||
|
//BlockBox.Picture.Bitmap := MainForm.BlockPalette.Picture.Bitmap;
|
||||||
|
BlockBox.Height := MapEditorForm.BlockPalette.Height;
|
||||||
|
TilePalette.Picture.Graphic := Tiles;
|
||||||
|
//TilePalette.Height := Tiles.Height;
|
||||||
|
Caption := 'Block Editor - Tileset ' + IntToStr(LoadedTileset);
|
||||||
|
BlockStart := TilesetStart;
|
||||||
|
LoadTile;
|
||||||
|
UpdateTile;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBlockEditorForm.BlockBoxMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
|
||||||
|
begin
|
||||||
|
BlockLabel.Caption := 'Block: $' + IntToHex(Y div 32, 2);
|
||||||
|
AddressLabel.Caption := 'Offset: $' + IntToHex(TilesetStart + ((Y div 32) * 16), 2);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBlockEditorForm.BlockBoxMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||||
|
begin
|
||||||
|
BlockStart := TilesetStart + ((Y div 32) * 16);
|
||||||
|
TileNumber := Y div 32;
|
||||||
|
LoadTile;
|
||||||
|
UpdateTile;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBlockEditorForm.TilePaletteMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
|
||||||
|
begin
|
||||||
|
TileLabel.Caption := 'Tile: $' + IntToHex((X div 8) + ((Y div 8) * 8), 2);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBlockEditorForm.TilePaletteMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||||
|
begin
|
||||||
|
//gets tile where cursor is
|
||||||
|
SelPic := (X div 8) + ((Y div 8) * 8);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBlockEditorForm.BlockEditBoxMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||||
|
begin
|
||||||
|
if Button = mbLeft then
|
||||||
|
begin
|
||||||
|
//puts selected tile into block
|
||||||
|
BlockData[(X div 8) + ((Y div 8) * 4)] := SelPic;
|
||||||
|
UpdateTile;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
SelPic := BlockData[(X div 8) + ((Y div 8) * 4)];
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBlockEditorForm.UpdateButtonClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SaveTile;
|
||||||
|
//draws edited tile into tileset
|
||||||
|
BlockPics[TileNumber].Canvas.Draw(0, 0, BlockEditBox.Picture.Bitmap);
|
||||||
|
//update block palette
|
||||||
|
MapEditorForm.DrawBlocks(MapEditorForm.BlockPalette.Canvas);
|
||||||
|
MapEditorForm.DrawBlocks(BlockBox.Canvas);
|
||||||
|
MapEditorForm.DrawMap(MapEditorForm.MapBox.Canvas);
|
||||||
|
RomModified := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBlockEditorForm.BlockBoxPaint(Sender: TObject);
|
||||||
|
begin
|
||||||
|
MapEditorForm.DrawBlocks(BlockBox.Canvas);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBlockEditorForm.BlockEditBoxMouseMove(Sender: TObject;
|
||||||
|
Shift: TShiftState; X, Y: Integer);
|
||||||
|
begin
|
||||||
|
TileLabel.Caption := 'Tile: $' + IntToHex(BlockData[(X div 8) + ((Y div 8) * 4)], 2);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
@ -0,0 +1,128 @@
|
||||||
|
unit Map;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses ComCtrls,SysUtils,Dialogs,Classes;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
TConnectionData = packed record
|
||||||
|
MapNumber: Byte;
|
||||||
|
MapDataPointer: Word;
|
||||||
|
MapLocationRamPointer: Word;
|
||||||
|
WidthHeightVisiblePart: Byte;
|
||||||
|
YChangePoint: Byte;
|
||||||
|
XChangePoint: Byte;
|
||||||
|
Unknown: Byte;
|
||||||
|
UnknownPointer: Word;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//Header 1
|
||||||
|
TMapHeader = packed record
|
||||||
|
TilesetNumber: Byte;
|
||||||
|
Height: Byte;
|
||||||
|
Width: Byte;
|
||||||
|
DataPointer: Word;
|
||||||
|
ObjectScriptPointers: Word;
|
||||||
|
LevelScriptPointer: Word;
|
||||||
|
ConnectionDataControl: Byte;
|
||||||
|
ConnectionData: array [$00..$03] of TConnectionData;
|
||||||
|
ObjectDataPointer: Word;
|
||||||
|
BorderBlock: Byte;
|
||||||
|
end;
|
||||||
|
|
||||||
|
const
|
||||||
|
Ln = #13#10;
|
||||||
|
|
||||||
|
//table needed for encoding area names
|
||||||
|
Table: array [$00..$FF] of string[4] = (
|
||||||
|
{ 0 1 2 3 4 5 6 7 8 9 A B C D E F }
|
||||||
|
{0}'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,
|
||||||
|
{1}'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,' ' ,
|
||||||
|
{2}'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,
|
||||||
|
{3}'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,
|
||||||
|
{4}'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,Ln ,
|
||||||
|
{5}'#' ,Ln+Ln ,'HIRO','GARY','POKé',Ln ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,
|
||||||
|
{6}'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,
|
||||||
|
{7}'#' ,'#' ,'#' ,'#' ,'#' ,'…' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,' ' ,
|
||||||
|
{8}'A' ,'B' ,'C' ,'D' ,'E' ,'F' ,'G' ,'H' ,'I' ,'J' ,'K' ,'L' ,'M' ,'N' ,'O' ,'P' ,
|
||||||
|
{9}'Q' ,'R' ,'S' ,'T' ,'U' ,'V' ,'W' ,'X' ,'Y' ,'Z' ,'#' ,'#' ,':' ,'#' ,'#' ,'#' ,
|
||||||
|
{A}'a' ,'b' ,'c' ,'d' ,'e' ,'f' ,'g' ,'h' ,'i' ,'j' ,'k' ,'l' ,'m' ,'n' ,'o' ,'p' ,
|
||||||
|
{B}'q' ,'r' ,'s' ,'t' ,'u' ,'v' ,'w' ,'x' ,'y' ,'z' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,
|
||||||
|
{C}'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,
|
||||||
|
{D}'#' ,'''l' ,'''m' ,'''r' ,'''s' ,'''t' ,'''v' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,
|
||||||
|
{E}'''' ,'#' ,'#' ,'-' ,'#' ,'#' ,'?' ,'!' ,'.' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,'#' ,
|
||||||
|
{F}'#' ,' ' ,'#' ,'#' ,',' ,'#' ,'0' ,'1' ,'2' ,'3' ,'4' ,'5' ,'6' ,'7' ,'8' ,'9'
|
||||||
|
);
|
||||||
|
|
||||||
|
function GBPtrToFilePos(Bank: Byte; Addr: Word): Integer; overload;
|
||||||
|
function GBBank(Position: Integer): Byte;
|
||||||
|
procedure ReadMapHeaderLocations;
|
||||||
|
function GetMapHeader(MapIndex: Byte): TMapHeader;
|
||||||
|
|
||||||
|
var
|
||||||
|
AreaNames: TStringList;
|
||||||
|
BankLocations: array [$00..$F9] of Byte;
|
||||||
|
MapHeaderOffsets: array [$00..$F9] of Word;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses MapEditor;
|
||||||
|
|
||||||
|
//converts rombank and, address in that bank, into romfile offset
|
||||||
|
function GBPtrToFilePos(Bank: Byte; Addr: Word): Integer; overload;
|
||||||
|
begin
|
||||||
|
Result := (Bank * $4000) + (Addr xor $4000);
|
||||||
|
end;
|
||||||
|
|
||||||
|
//gives gameboy rombank number ar specified file offset
|
||||||
|
function GBBank(Position: Integer): Byte;
|
||||||
|
begin
|
||||||
|
Result := (Position div $4000);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure ReadMapHeaderLocations;
|
||||||
|
begin
|
||||||
|
Rom.Position := $C23D;
|
||||||
|
Rom.Read(BankLocations, $F9);
|
||||||
|
Rom.Position := $01AE;
|
||||||
|
Rom.Read(MapHeaderOffsets, $F9 * sizeof(Word));
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetMapHeader(MapIndex: Byte): TMapHeader;
|
||||||
|
var
|
||||||
|
TempHeader: TMapHeader;
|
||||||
|
begin
|
||||||
|
Rom.Position := GBPtrToFilePos(BankLocations[MapIndex], MapHeaderOffsets[MapIndex]);
|
||||||
|
|
||||||
|
Rom.Read(TempHeader.TilesetNumber, 1);
|
||||||
|
Rom.Read(TempHeader.Height, 1);
|
||||||
|
Rom.Read(TempHeader.Width, 1);
|
||||||
|
Rom.Read(TempHeader.DataPointer, 2);
|
||||||
|
Rom.Read(TempHeader.ObjectScriptPointers, 2);
|
||||||
|
Rom.Read(TempHeader.LevelScriptPointer, 2);
|
||||||
|
Rom.Read(TempHeader.ConnectionDataControl, 1);
|
||||||
|
|
||||||
|
if (TempHeader.ConnectionDataControl and $08) = $08 then
|
||||||
|
Rom.Read(TempHeader.ConnectionData[0], SizeOf(TConnectionData));
|
||||||
|
|
||||||
|
if (TempHeader.ConnectionDataControl and $04) = $04 then
|
||||||
|
Rom.Read(TempHeader.ConnectionData[1], SizeOf(TConnectionData));
|
||||||
|
|
||||||
|
if (TempHeader.ConnectionDataControl and $02) = $02 then
|
||||||
|
Rom.Read(TempHeader.ConnectionData[2], SizeOf(TConnectionData));
|
||||||
|
|
||||||
|
if (TempHeader.ConnectionDataControl and $01) = $01 then
|
||||||
|
Rom.Read(TempHeader.ConnectionData[3], SizeOf(TConnectionData));
|
||||||
|
|
||||||
|
Rom.Read(TempHeader.ObjectDataPointer, 2);
|
||||||
|
|
||||||
|
Rom.Position := GBPtrToFilePos(BankLocations[MapIndex],
|
||||||
|
TempHeader.ObjectDataPointer);
|
||||||
|
|
||||||
|
Rom.Read(TempHeader.BorderBlock, 1);
|
||||||
|
|
||||||
|
Result := TempHeader;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
Binary file not shown.
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,30 @@
|
||||||
|
unit Misc;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses Windows, Sysutils;
|
||||||
|
|
||||||
|
procedure DebugString(aCaption, aText: string);
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
// GetFormatDT - Output = formated DateTime String
|
||||||
|
function GetFormatDT(aDateTime: TDateTime): string;
|
||||||
|
begin
|
||||||
|
Result := FormatDateTime('dd.mm.yy hh:nn:ss zzz', aDateTime);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// GetFormatT - Output = formated Time String
|
||||||
|
function GetFormatT(aDateTime: TDateTime): string;
|
||||||
|
begin
|
||||||
|
Result := FormatDateTime('hh:nn:ss zzz', aDateTime)
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure DebugString(aCaption, aText: string);
|
||||||
|
begin
|
||||||
|
OutputDebugString(PChar(Format('[%s][%s] %s',
|
||||||
|
[aCaption, GetFormatDT(Now()),
|
||||||
|
aText])));
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
|
|
@ -0,0 +1,170 @@
|
||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<BorlandProject>
|
||||||
|
<PersonalityInfo>
|
||||||
|
<Option>
|
||||||
|
<Option Name="Personality">Delphi.Personality</Option>
|
||||||
|
<Option Name="ProjectType"></Option>
|
||||||
|
<Option Name="Version">1.0</Option>
|
||||||
|
<Option Name="GUID">{4AE37C7A-D69B-4E9A-8BBD-0A473BE787FC}</Option>
|
||||||
|
</Option>
|
||||||
|
</PersonalityInfo>
|
||||||
|
<Delphi.Personality>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">RedMap.dpr</Source>
|
||||||
|
</Source>
|
||||||
|
<FileVersion>
|
||||||
|
<FileVersion Name="Version">7.0</FileVersion>
|
||||||
|
</FileVersion>
|
||||||
|
<Compiler>
|
||||||
|
<Compiler Name="A">8</Compiler>
|
||||||
|
<Compiler Name="B">0</Compiler>
|
||||||
|
<Compiler Name="C">1</Compiler>
|
||||||
|
<Compiler Name="D">1</Compiler>
|
||||||
|
<Compiler Name="E">0</Compiler>
|
||||||
|
<Compiler Name="F">0</Compiler>
|
||||||
|
<Compiler Name="G">1</Compiler>
|
||||||
|
<Compiler Name="H">1</Compiler>
|
||||||
|
<Compiler Name="I">1</Compiler>
|
||||||
|
<Compiler Name="J">0</Compiler>
|
||||||
|
<Compiler Name="K">0</Compiler>
|
||||||
|
<Compiler Name="L">1</Compiler>
|
||||||
|
<Compiler Name="M">0</Compiler>
|
||||||
|
<Compiler Name="N">1</Compiler>
|
||||||
|
<Compiler Name="O">1</Compiler>
|
||||||
|
<Compiler Name="P">1</Compiler>
|
||||||
|
<Compiler Name="Q">0</Compiler>
|
||||||
|
<Compiler Name="R">0</Compiler>
|
||||||
|
<Compiler Name="S">0</Compiler>
|
||||||
|
<Compiler Name="T">0</Compiler>
|
||||||
|
<Compiler Name="U">0</Compiler>
|
||||||
|
<Compiler Name="V">1</Compiler>
|
||||||
|
<Compiler Name="W">0</Compiler>
|
||||||
|
<Compiler Name="X">1</Compiler>
|
||||||
|
<Compiler Name="Y">1</Compiler>
|
||||||
|
<Compiler Name="Z">1</Compiler>
|
||||||
|
<Compiler Name="ShowHints">True</Compiler>
|
||||||
|
<Compiler Name="ShowWarnings">True</Compiler>
|
||||||
|
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||||
|
<Compiler Name="NamespacePrefix"></Compiler>
|
||||||
|
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||||
|
<Compiler Name="DefaultNamespace"></Compiler>
|
||||||
|
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||||
|
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||||
|
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||||
|
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||||
|
<Compiler Name="UnitLibrary">True</Compiler>
|
||||||
|
<Compiler Name="UnitPlatform">True</Compiler>
|
||||||
|
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||||
|
<Compiler Name="UnitExperimental">True</Compiler>
|
||||||
|
<Compiler Name="HResultCompat">True</Compiler>
|
||||||
|
<Compiler Name="HidingMember">True</Compiler>
|
||||||
|
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||||
|
<Compiler Name="Garbage">True</Compiler>
|
||||||
|
<Compiler Name="BoundsError">True</Compiler>
|
||||||
|
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||||
|
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||||
|
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||||
|
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||||
|
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||||
|
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||||
|
<Compiler Name="ForVariable">True</Compiler>
|
||||||
|
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||||
|
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||||
|
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||||
|
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||||
|
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||||
|
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||||
|
<Compiler Name="FileOpen">True</Compiler>
|
||||||
|
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||||
|
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||||
|
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||||
|
<Compiler Name="InvalidDirective">True</Compiler>
|
||||||
|
<Compiler Name="PackageNoLink">True</Compiler>
|
||||||
|
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||||
|
<Compiler Name="ImplicitImport">True</Compiler>
|
||||||
|
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||||
|
<Compiler Name="NoRetVal">True</Compiler>
|
||||||
|
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||||
|
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||||
|
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||||
|
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||||
|
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||||
|
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||||
|
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||||
|
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||||
|
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||||
|
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||||
|
<Compiler Name="UnsafeType">False</Compiler>
|
||||||
|
<Compiler Name="UnsafeCode">False</Compiler>
|
||||||
|
<Compiler Name="UnsafeCast">False</Compiler>
|
||||||
|
<Compiler Name="OptionTruncated">True</Compiler>
|
||||||
|
<Compiler Name="WideCharReduced">True</Compiler>
|
||||||
|
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||||
|
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||||
|
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||||
|
<Compiler Name="MessageDirective">True</Compiler>
|
||||||
|
<Compiler Name="CodePage"></Compiler>
|
||||||
|
</Compiler>
|
||||||
|
<Linker>
|
||||||
|
<Linker Name="MapFile">0</Linker>
|
||||||
|
<Linker Name="OutputObjs">0</Linker>
|
||||||
|
<Linker Name="GenerateHpps">False</Linker>
|
||||||
|
<Linker Name="ConsoleApp">1</Linker>
|
||||||
|
<Linker Name="DebugInfo">False</Linker>
|
||||||
|
<Linker Name="RemoteSymbols">False</Linker>
|
||||||
|
<Linker Name="GenerateDRC">False</Linker>
|
||||||
|
<Linker Name="MinStackSize">16384</Linker>
|
||||||
|
<Linker Name="MaxStackSize">1048576</Linker>
|
||||||
|
<Linker Name="ImageBase">4194304</Linker>
|
||||||
|
<Linker Name="ExeDescription"></Linker>
|
||||||
|
</Linker>
|
||||||
|
<Directories>
|
||||||
|
<Directories Name="OutputDir"></Directories>
|
||||||
|
<Directories Name="UnitOutputDir"></Directories>
|
||||||
|
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||||
|
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||||
|
<Directories Name="SearchPath"></Directories>
|
||||||
|
<Directories Name="Packages">vcl;rtl;vclx;dbrtl;vcldb;VclSmp;xmlrtl;vclie;inet;inetdbbde;inetdbxpress;PNGLib;madBasic_;madDisAsm_;madExcept_</Directories>
|
||||||
|
<Directories Name="Conditionals"></Directories>
|
||||||
|
<Directories Name="DebugSourceDirs"></Directories>
|
||||||
|
<Directories Name="UsePackages">False</Directories>
|
||||||
|
</Directories>
|
||||||
|
<Parameters>
|
||||||
|
<Parameters Name="RunParams"></Parameters>
|
||||||
|
<Parameters Name="HostApplication"></Parameters>
|
||||||
|
<Parameters Name="Launcher"></Parameters>
|
||||||
|
<Parameters Name="UseLauncher">False</Parameters>
|
||||||
|
<Parameters Name="DebugCWD"></Parameters>
|
||||||
|
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||||
|
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||||
|
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||||
|
</Parameters>
|
||||||
|
<VersionInfo>
|
||||||
|
<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
|
||||||
|
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||||
|
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||||
|
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||||
|
<VersionInfo Name="Release">0</VersionInfo>
|
||||||
|
<VersionInfo Name="Build">0</VersionInfo>
|
||||||
|
<VersionInfo Name="Debug">False</VersionInfo>
|
||||||
|
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||||
|
<VersionInfo Name="Special">False</VersionInfo>
|
||||||
|
<VersionInfo Name="Private">False</VersionInfo>
|
||||||
|
<VersionInfo Name="DLL">False</VersionInfo>
|
||||||
|
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||||
|
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||||
|
</VersionInfo>
|
||||||
|
<VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||||
|
</VersionInfoKeys>
|
||||||
|
</Delphi.Personality>
|
||||||
|
</BorlandProject>
|
||||||
|
|
@ -0,0 +1,132 @@
|
||||||
|
[FileVersion]
|
||||||
|
Version=7.0
|
||||||
|
[Compiler]
|
||||||
|
A=8
|
||||||
|
B=0
|
||||||
|
C=1
|
||||||
|
D=1
|
||||||
|
E=0
|
||||||
|
F=0
|
||||||
|
G=1
|
||||||
|
H=1
|
||||||
|
I=1
|
||||||
|
J=0
|
||||||
|
K=0
|
||||||
|
L=1
|
||||||
|
M=0
|
||||||
|
N=1
|
||||||
|
O=1
|
||||||
|
P=1
|
||||||
|
Q=0
|
||||||
|
R=0
|
||||||
|
S=0
|
||||||
|
T=0
|
||||||
|
U=0
|
||||||
|
V=1
|
||||||
|
W=0
|
||||||
|
X=1
|
||||||
|
Y=1
|
||||||
|
Z=1
|
||||||
|
ShowHints=1
|
||||||
|
ShowWarnings=1
|
||||||
|
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||||
|
NamespacePrefix=
|
||||||
|
SymbolDeprecated=1
|
||||||
|
SymbolLibrary=1
|
||||||
|
SymbolPlatform=1
|
||||||
|
UnitLibrary=1
|
||||||
|
UnitPlatform=1
|
||||||
|
UnitDeprecated=1
|
||||||
|
HResultCompat=1
|
||||||
|
HidingMember=1
|
||||||
|
HiddenVirtual=1
|
||||||
|
Garbage=1
|
||||||
|
BoundsError=1
|
||||||
|
ZeroNilCompat=1
|
||||||
|
StringConstTruncated=1
|
||||||
|
ForLoopVarVarPar=1
|
||||||
|
TypedConstVarPar=1
|
||||||
|
AsgToTypedConst=1
|
||||||
|
CaseLabelRange=1
|
||||||
|
ForVariable=1
|
||||||
|
ConstructingAbstract=1
|
||||||
|
ComparisonFalse=1
|
||||||
|
ComparisonTrue=1
|
||||||
|
ComparingSignedUnsigned=1
|
||||||
|
CombiningSignedUnsigned=1
|
||||||
|
UnsupportedConstruct=1
|
||||||
|
FileOpen=1
|
||||||
|
FileOpenUnitSrc=1
|
||||||
|
BadGlobalSymbol=1
|
||||||
|
DuplicateConstructorDestructor=1
|
||||||
|
InvalidDirective=1
|
||||||
|
PackageNoLink=1
|
||||||
|
PackageThreadVar=1
|
||||||
|
ImplicitImport=1
|
||||||
|
HPPEMITIgnored=1
|
||||||
|
NoRetVal=1
|
||||||
|
UseBeforeDef=1
|
||||||
|
ForLoopVarUndef=1
|
||||||
|
UnitNameMismatch=1
|
||||||
|
NoCFGFileFound=1
|
||||||
|
MessageDirective=1
|
||||||
|
ImplicitVariants=1
|
||||||
|
UnicodeToLocale=1
|
||||||
|
LocaleToUnicode=1
|
||||||
|
ImagebaseMultiple=1
|
||||||
|
SuspiciousTypecast=1
|
||||||
|
PrivatePropAccessor=1
|
||||||
|
UnsafeType=0
|
||||||
|
UnsafeCode=0
|
||||||
|
UnsafeCast=0
|
||||||
|
[Linker]
|
||||||
|
MapFile=0
|
||||||
|
OutputObjs=0
|
||||||
|
ConsoleApp=1
|
||||||
|
DebugInfo=0
|
||||||
|
RemoteSymbols=0
|
||||||
|
MinStackSize=16384
|
||||||
|
MaxStackSize=1048576
|
||||||
|
ImageBase=4194304
|
||||||
|
ExeDescription=
|
||||||
|
[Directories]
|
||||||
|
OutputDir=
|
||||||
|
UnitOutputDir=
|
||||||
|
PackageDLLOutputDir=
|
||||||
|
PackageDCPOutputDir=
|
||||||
|
SearchPath=
|
||||||
|
Packages=
|
||||||
|
Conditionals=
|
||||||
|
DebugSourceDirs=
|
||||||
|
UsePackages=0
|
||||||
|
[Parameters]
|
||||||
|
RunParams=
|
||||||
|
HostApplication=
|
||||||
|
Launcher=
|
||||||
|
UseLauncher=0
|
||||||
|
DebugCWD=
|
||||||
|
[Version Info]
|
||||||
|
IncludeVerInfo=0
|
||||||
|
AutoIncBuild=0
|
||||||
|
MajorVer=1
|
||||||
|
MinorVer=0
|
||||||
|
Release=0
|
||||||
|
Build=0
|
||||||
|
Debug=0
|
||||||
|
PreRelease=0
|
||||||
|
Special=0
|
||||||
|
Private=0
|
||||||
|
DLL=0
|
||||||
|
Locale=1033
|
||||||
|
CodePage=1252
|
||||||
|
[Version Info Keys]
|
||||||
|
CompanyName=
|
||||||
|
FileDescription=
|
||||||
|
FileVersion=1.0.0.0
|
||||||
|
InternalName=
|
||||||
|
LegalCopyright=
|
||||||
|
LegalTrademarks=
|
||||||
|
OriginalFilename=
|
||||||
|
ProductName=
|
||||||
|
ProductVersion=1.0.0.0
|
||||||
|
Comments=
|
||||||
|
|
@ -0,0 +1,20 @@
|
||||||
|
program RedMap;
|
||||||
|
|
||||||
|
uses
|
||||||
|
Forms,
|
||||||
|
MapEditor in 'MapEditor.pas' {MapEditorForm},
|
||||||
|
Tileset in 'Tileset.pas',
|
||||||
|
Map in 'Map.pas',
|
||||||
|
About in 'About.pas' {AboutDialog},
|
||||||
|
Misc in 'Misc.pas',
|
||||||
|
BlockEditor in 'BlockEditor.pas' {BlockEditorForm};
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.Initialize;
|
||||||
|
Application.Title := 'RedMap';
|
||||||
|
Application.CreateForm(TMapEditorForm, MapEditorForm);
|
||||||
|
Application.CreateForm(TAboutDialog, AboutDialog);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
Binary file not shown.
|
|
@ -0,0 +1,93 @@
|
||||||
|
unit Tileset;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses Map, Classes, Dialogs, SysUtils, Graphics;
|
||||||
|
|
||||||
|
type
|
||||||
|
TTilesetHeader = packed record
|
||||||
|
BankNumber: Byte;
|
||||||
|
TilesetArrangementPointer: Word;
|
||||||
|
TilesetGraphicsPointer: Word;
|
||||||
|
UnknownData: array [0..6] of Byte;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
//Palette: array [0..3] of TColor = (clWhite,clLtGray,clDkGray,clBlack);
|
||||||
|
//Palette: array [0..3] of TColor = ($F8E8F8, $A8E058, $A0D0F8, $181010);
|
||||||
|
Palette: array [0..3] of TColor = ($F8E8F8, $58E0A8, $F8D0A0, $101018);
|
||||||
|
RawMapPalettes: array [0..12, 0..3] of Word;
|
||||||
|
|
||||||
|
const Zero: Byte = 0;
|
||||||
|
|
||||||
|
function GetTilesetHeader(TilesetNumber: Byte): TTilesetHeader;
|
||||||
|
function WordToColor(Value: Word): TColor;
|
||||||
|
procedure ReadTilesetGraphics(TilesetHeader: TTilesetHeader; Bmp: TBitmap);
|
||||||
|
procedure ReadMapPallets;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses MapEditor;
|
||||||
|
|
||||||
|
function GetTilesetHeader(TilesetNumber: Byte): TTilesetHeader;
|
||||||
|
begin
|
||||||
|
Rom.Position := $C7BE + ((TilesetNumber) * SizeOf(TTilesetHeader));
|
||||||
|
Rom.Read(Result, SizeOf(TTilesetHeader));
|
||||||
|
end;
|
||||||
|
|
||||||
|
function WordToColor(Value: Word): TColor;
|
||||||
|
var
|
||||||
|
R,G,B: Byte;
|
||||||
|
begin
|
||||||
|
R := Round((((Value shr 00) and 31) / 31) * 255);
|
||||||
|
G := Round((((Value shr 05) and 31) / 31) * 255);
|
||||||
|
B := Round((((Value shr 10) and 31) / 31) * 255);
|
||||||
|
Result := R or (G shl 8) or (B shl 16);
|
||||||
|
end;
|
||||||
|
|
||||||
|
//reads tile from Stream into Bmp and uses colors from Pal
|
||||||
|
procedure ReadTile(Stream: TStream; Bmp: TBitmap);
|
||||||
|
var
|
||||||
|
X,Y: Integer;
|
||||||
|
Data1,Data2: Byte;
|
||||||
|
begin
|
||||||
|
for Y := 0 to 7 do
|
||||||
|
begin
|
||||||
|
Stream.Read(Data1,1);
|
||||||
|
Stream.Read(Data2,1);
|
||||||
|
for X := 0 to 7 do
|
||||||
|
Bmp.Canvas.Pixels[X,Y] := Palette[((Data1 shr (7-X)) and 1) or (((Data2 shr (7-X)) and 1) shl 1)];
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//reads tileset at specific address into Bmp
|
||||||
|
procedure ReadTilesetGraphics(TilesetHeader: TTilesetHeader; Bmp: TBitmap);
|
||||||
|
var
|
||||||
|
Tile: TBitmap;
|
||||||
|
TileCnt: Byte;
|
||||||
|
I: Integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
|
||||||
|
Tile := TBitmap.Create;
|
||||||
|
Tile.PixelFormat := pf24bit;
|
||||||
|
Tile.Width := 8;
|
||||||
|
Tile.Height := 8;
|
||||||
|
Rom.Position := GBPtrToFilePos(TilesetHeader.BankNumber, TilesetHeader.TilesetGraphicsPointer);
|
||||||
|
TileCnt := 0;
|
||||||
|
for I := 1 to 16 * 6 do
|
||||||
|
begin
|
||||||
|
ReadTile(Rom,Tile);
|
||||||
|
Bmp.Canvas.Draw((TileCnt mod 16) * 8, (TileCnt div 16) * 8, Tile);
|
||||||
|
Inc(TileCnt);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure ReadMapPallets;
|
||||||
|
begin
|
||||||
|
Rom.Position := $72660;
|
||||||
|
Rom.Read(RawMapPalettes, 8*12);
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
Binary file not shown.
|
After Width: | Height: | Size: 1.3 KiB |
Loading…
Reference in New Issue