src/sheditor/MAPWRITER.pas

   1 unit MAPWRITER;
   2
   3 {
   4 -----------------------------------
   5 MAPWRITER.PAS ÂÅÐÑÈß ÎÒ 24.09.06
   6
   7 Ïîääåðæêà êàðò âåðñèè 1
   8 -----------------------------------
   9 }
  10
  11 interface
  12
  13 uses
  14   MAPSTRUCT;
  15
  16 type
  17   TDataBlock = packed record
  18    Block: TBlock;
  19    Data:  Pointer;
  20   end;
  21
  22   TDataBlocksArray = packed array of TDataBlock;
  23
  24   TMapWriter = class(TObject)
  25    private
  26     FDataBlocks: TDataBlocksArray;
  27    public
  28     constructor Create();
  29     destructor Destroy(); override;
  30     procedure FreeMap();
  31     function SaveMap(var Data: Pointer): LongWord;
  32     function HandledVersion(): Byte; virtual;
  33   end;
  34
  35   TMapWriter_1 = class(TMapWriter)
  36    public
  37     function AddTextures(Textures: TTexturesRec1Array): Boolean;
  38     function AddPanels(Panels: TPanelsRec1Array): Boolean;
  39     function AddItems(Items: TItemsRec1Array): Boolean;
  40     function AddMonsters(Monsters: TMonsterRec1Array): Boolean;
  41     function AddAreas(Areas: TAreasRec1Array): Boolean;
  42     function AddTriggers(Triggers: TTriggersRec1Array): Boolean;
  43     function AddHeader(MapHeader: TMapHeaderRec_1): Boolean;
  44     function HandledVersion(): Byte; override;
  45   end;
  46
  47
  48 implementation
  49
  50 uses
  51   BinEditor, SysUtils;
  52
  53 { TMapWriter }
  54
  55 constructor TMapWriter.Create();
  56 begin
  57  FDataBlocks := nil;
  58 end;
  59
  60 destructor TMapWriter.Destroy();
  61 begin
  62  FreeMap();
  63
  64  inherited;
  65 end;
  66
  67 procedure TMapWriter.FreeMap();
  68 var
  69   a: Integer;
  70 begin
  71  if FDataBlocks <> nil then
  72   for a := 0 to High(FDataBlocks) do
  73    if FDataBlocks[a].Data <> nil then FreeMem(FDataBlocks[a].Data);
  74
  75  FDataBlocks := nil;
  76 end;
  77
  78 function TMapWriter.SaveMap(var Data: Pointer): LongWord;
  79 var
  80   a: Integer;
  81   b, c: LongWord;
  82   Sign: array[0..2] of Char;
  83   Ver: Byte;
  84 begin
  85  b := 3+1+SizeOf(TBlock)*(Length(FDataBlocks)+1);
  86
  87  if FDataBlocks <> nil then
  88   for a := 0 to High(FDataBlocks) do
  89    b := b+FDataBlocks[a].Block.BlockSize;
  90
  91  Result := b;
  92
  93  GetMem(Data, b);
  94
  95  Sign := MAP_SIGNATURE;
  96  CopyMemory(Data, @Sign[0], 3);
  97  c := 3;
  98
  99  Ver := HandledVersion();
 100  CopyMemory(Pointer(LongWord(Data)+c), @Ver, 1);
 101  c := c+1;
 102
 103  if FDataBlocks <> nil then
 104   for a := 0 to High(FDataBlocks) do
 105   begin
 106    CopyMemory(Pointer(LongWord(Data)+c), @FDataBlocks[a].Block, SizeOf(TBlock));
 107    c := c+SizeOf(TBlock);
 108    CopyMemory(Pointer(LongWord(Data)+c), FDataBlocks[a].Data, FDataBlocks[a].Block.BlockSize);
 109    c := c+FDataBlocks[a].Block.BlockSize;
 110   end;
 111
 112  ZeroMemory(Pointer(LongWord(Data)+c), SizeOf(TBlock));
 113 end;
 114
 115 function TMapWriter.HandledVersion(): Byte;
 116 begin
 117  Result := $00;
 118 end;
 119
 120 { TMapWriter_1 }
 121
 122 function TMapWriter_1.AddAreas(Areas: TAreasRec1Array): Boolean;
 123 var
 124   a, size: LongWord;
 125 begin
 126  if Areas = nil then
 127  begin
 128   Result := True;
 129   Exit;
 130  end;
 131
 132  SetLength(FDataBlocks, Length(FDataBlocks)+1);
 133
 134  size := SizeOf(TAreaRec_1);
 135
 136  with FDataBlocks[High(FDataBlocks)] do
 137  begin
 138   Block.BlockType := BLOCK_AREAS;
 139   Block.Reserved := $00000000;
 140   Block.BlockSize := LongWord(Length(Areas))*size;
 141
 142   Data := GetMemory(Block.BlockSize);
 143
 144   for a := 0 to High(Areas) do
 145    CopyMemory(Pointer(LongWord(Data)+a*Size), @Areas[a], size);
 146  end;
 147
 148  Result := True;
 149 end;
 150
 151 function TMapWriter_1.AddItems(Items: TItemsRec1Array): Boolean;
 152 var
 153   a, size: LongWord;
 154 begin
 155  if Items = nil then
 156  begin
 157   Result := True;
 158   Exit;
 159  end;
 160
 161  SetLength(FDataBlocks, Length(FDataBlocks)+1);
 162
 163  size := SizeOf(TItemRec_1);
 164
 165  with FDataBlocks[High(FDataBlocks)] do
 166  begin
 167   Block.BlockType := BLOCK_ITEMS;
 168   Block.Reserved := $00000000;
 169   Block.BlockSize := LongWord(Length(Items))*size;
 170
 171   Data := GetMemory(Block.BlockSize);
 172
 173   for a := 0 to High(Items) do
 174    CopyMemory(Pointer(LongWord(Data)+a*size), @Items[a], size);
 175  end;
 176
 177  Result := True;
 178 end;
 179
 180 function TMapWriter_1.AddMonsters(Monsters: TMonsterRec1Array): Boolean;
 181 var
 182   a, size: LongWord;
 183 begin
 184  if Monsters = nil then
 185  begin
 186   Result := True;
 187   Exit;
 188  end;
 189
 190  SetLength(FDataBlocks, Length(FDataBlocks)+1);
 191
 192  size := SizeOf(TMonsterRec_1);
 193
 194  with FDataBlocks[High(FDataBlocks)] do
 195  begin
 196   Block.BlockType := BLOCK_MONSTERS;
 197   Block.Reserved := $00000000;
 198   Block.BlockSize := LongWord(Length(Monsters))*size;
 199
 200   Data := GetMemory(Block.BlockSize);
 201
 202   for a := 0 to High(Monsters) do
 203    CopyMemory(Pointer(LongWord(Data)+a*Size), @Monsters[a], size);
 204  end;
 205
 206  Result := True;
 207 end;
 208
 209 function TMapWriter_1.AddPanels(Panels: TPanelsRec1Array): Boolean;
 210 var
 211   a, size: LongWord;
 212 begin
 213  if Panels = nil then
 214  begin
 215   Result := True;
 216   Exit;
 217  end;
 218
 219  SetLength(FDataBlocks, Length(FDataBlocks)+1);
 220
 221  size := SizeOf(TPanelRec_1);
 222
 223  with FDataBlocks[High(FDataBlocks)] do
 224  begin
 225   Block.BlockType := BLOCK_PANELS;
 226   Block.Reserved := $00000000;
 227   Block.BlockSize := LongWord(Length(Panels))*size;
 228
 229   Data := GetMemory(Block.BlockSize);
 230
 231   for a := 0 to High(Panels) do
 232    CopyMemory(Pointer(LongWord(Data)+a*size), @Panels[a], size);
 233  end;
 234
 235  Result := True;
 236 end;
 237
 238 function TMapWriter_1.AddTextures(Textures: TTexturesRec1Array): Boolean;
 239 var
 240   a, size: LongWord;
 241 begin
 242  if Textures = nil then
 243  begin
 244   Result := True;
 245   Exit;
 246  end;
 247
 248  SetLength(FDataBlocks, Length(FDataBlocks)+1);
 249
 250  size := SizeOf(TTextureRec_1);
 251
 252  with FDataBlocks[High(FDataBlocks)] do
 253  begin
 254   Block.BlockType := BLOCK_TEXTURES;
 255   Block.Reserved := $00000000;
 256   Block.BlockSize := LongWord(Length(Textures))*size;
 257
 258   Data := GetMemory(Block.BlockSize);
 259
 260   for a := 0 to High(Textures) do
 261    CopyMemory(Pointer(LongWord(Data)+a*size), @Textures[a], size);
 262  end;
 263
 264  Result := True;
 265 end;
 266
 267 function TMapWriter_1.AddTriggers(Triggers: TTriggersRec1Array): Boolean;
 268 var
 269   a, size: LongWord;
 270 begin
 271  if Triggers = nil then
 272  begin
 273   Result := True;
 274   Exit;
 275  end;
 276
 277  SetLength(FDataBlocks, Length(FDataBlocks)+1);
 278
 279  size := SizeOf(TTriggerRec_1);
 280
 281  with FDataBlocks[High(FDataBlocks)] do
 282  begin
 283   Block.BlockType := BLOCK_TRIGGERS;
 284   Block.Reserved := $00000000;
 285   Block.BlockSize := LongWord(Length(Triggers))*size;
 286
 287   Data := GetMemory(Block.BlockSize);
 288
 289   for a := 0 to High(Triggers) do
 290    CopyMemory(Pointer(LongWord(Data)+a*size), @Triggers[a], size);
 291  end;
 292
 293  Result := True;
 294 end;
 295
 296 function TMapWriter_1.AddHeader(MapHeader: TMapHeaderRec_1): Boolean;
 297 var
 298   size: LongWord;
 299 begin
 300  SetLength(FDataBlocks, Length(FDataBlocks)+1);
 301
 302  size := SizeOf(TMapHeaderRec_1);
 303
 304  with FDataBlocks[High(FDataBlocks)] do
 305  begin
 306   Block.BlockType := BLOCK_HEADER;
 307   Block.Reserved := $00000000;
 308   Block.BlockSize := size;
 309
 310   Data := GetMemory(Block.BlockSize);
 311
 312   CopyMemory(Pointer(LongWord(Data)), @MapHeader, size);
 313  end;
 314
 315  Result := True;
 316 end;
 317
 318 function TMapWriter_1.HandledVersion(): Byte;
 319 begin
 320  Result := $01;
 321 end;
 322
 323 end.