Battlespire - Запуск игры и технические вопросы, под Windows 2000/XP/Vista

[Мартин]

Запуск The Elder Scrolls Legend: Battlespire на современных компьютерах.

The Elder Scrolls Legend: Battlespire - эта игра серии The Elder Scrolls, запускается только под Dos или семейства Windows 9X. И категорически отказывается запускатся под Win2000/XP/2003/Vista/Seven, из-за того, что они блокирует прямой доступ к видеокарте через VESA. Естественно можно запустить ее на современном компьютере с загрузочной дискеты, или даже установить Windows 98, но эти способы способы в данной статье не будут расматриватся, так как они не особо практичные. Самые удобные способы запуска - это DOSBox и Virtual PC 2007 (или другая виртуальная машина). Рассмотрим их.

Запуск в DOSBox.

Этот способ довольно удобный, можно играть в мультиплеер, но есть один недостаток, DOSBox для эмуляции использует только процессор, и вам для более-менее комфортной игры потребуется не хуже 2.5 ггц. Если у вас имеется оригинальный диск, то вставте в дисковод, запустите DOSBox и следуйте следующим шагам:
1. печатаем "mount d d:\ -t cdrom", этой командой мы подключаем реальный дисковод к DOSBox, буква d может отличатся у вашего компьютера
2. печатаем "mount c c:\games\ -freesize 500", этой командой мы подключаем содержимое папки Games, в качестве виртуального винчестера в DOSBox с размером 500 мб. путь может отличатся, но не рекомендуется монтировать корень реального диска C:\
3. печатаем "d:", затем "install", запустится программа установки Battlespire, следуйте ее инструкциям. когда спросят про VESA, выберите Normal.
4. итак, вы успешно установили Battlespire. печатаем "c:", затем "spire" и наслаждаемся игрой.
5. дабы автоматизировать процесс запуска, вставте в конце файла C:\Program Files\DOSBox-0.72\dosbox.conf с секции [autoexec] следующие строки:
mount c c:\games\batspire\
c:
spire.bat

Запуск в Virtual PC 2007.

Этот способ наиболее производительный, даже на слабых компьютерах, но придется ставить сначало WIndows в виртуальную машину. К сожалению, пока мультиплеер я в ней не тестировал, поэтому он там только теоретически пока возможен. Итак, приступим:
1. скачиваем или находим диск\образ Windows 9X. я лично ставил с диска Windows 98.
2. создаем виртуальную машину с 64 мб оперативной памяти, ее с избытком хватит.
3. вставляем диск с Windows в дисковод, или подключаем его образ к виртуальной машине.
4. запускаем виртуальную машину, грузимся с диска и устанавливаем ОС.
5. когда вы установите WIndows, можно установить и дополнения для гостевой ОС, но имейте ввиду, что Battlespire запускается ТОЛЬКО на стандартном драйвере.
6. вставляем или монтируем образ диска Battlespire. откроется автозапуск, где нажимаем Install и следуем инструкциям установщика.
7. когда вас спросят о VESA, выберите Normal
8. когда Battlespire установится, пропатчте до v1.5 этим патчем.
9. запускаем Battlespire с иконки на рабочем столе, или C:\BATSPIRE\spire.bat и наслаждайтесь ею на максимальных графических настройках.

Как отлучить от диска.

Дабы вам не вставлять каждый раз диск с Battlespire в привод, выполняем следующие инсткуции, они не зависят от способа запуска:
1. в файле spire.cfg прописываем pathcd такой-же, как и path.
2. копируем папку Video  с диска в папку с Battlespire.
3. копируем файл WAWES.bsa с диска \BSPIRE\ в папку с Battlespire \BSPIRE\
Примечание: папку с видео можно и не копировать, если вам видео-ролике не обязательны. так-же вы можете скачать файл WAWES.bsa, из которого удалена вся озвучка, и оставлены только звуки.

Приятной игры!

Автор статьи: Мартин

Если вы заинтерисованы сетевой игрой в TESL Battlespire, то стучитесь ко мне в ICQ или ко мне на сайт.

Сообщение отредактировал Wind0fChange - 30.11.11 - 01:51

[[FG]]

Закреплю тему, кому-то пригодится.

Сообщение отредактировал [FG] - 29.03.09 - 12:20

[Zhy]

Запустил под досом, обрадовался, поиграл... а еще раз запускаться не желает
ошибку выдает, unable to install or detect  VBE 2.0
не подскажете ничего?

[Мартин]

>> Zhy:
там с параметрами шаманить надо. на мтесе темку глянь "баттлеспайр по сети", там конфиг имеется . в крайнем в асю стучись ко мне

добавлено Мартин - 15.05.09 - 19:43
>> Zhy:
там с параметрами шаманить надо. на мтесе темку глянь "баттлеспайр по сети", там конфиг имеется . в крайнем в асю стучись ко мне

[Zhy]

>> Мартин:
Спасибо огромное! все пошло, наконец-то поиграю!

[Mechanical Lover]

Запускал я игру через досбокс, там весь прикол в верных настройках звука, иначе просто отказывается запускаться. других проблем с запуском не замечал.

[Мартин]

>> Mechanical Lover:
кроме звука там еще есть траблы с Bypass и Normal, в сетапнике. из-за этого иногда отказывается запускатся. еще есть проблемы в неверности пути в конфиге спира. версия 1.2 не запускается в МС Виртуал ПК 2007, так как она 15 битная. только патч 1.5 прикручивает 16 битный цвет, и позволяет ей там запустится. в досбокс 1.2 спокойно запускается (в нее обычно по сетке и играем). еще в виртуал пк она запускается только на стандартном видео-драйвере. на том что идет в дополнениях к гостевой ОС, там вместо картинки мазьня непонятная. впринципи, это и есть основные проблемы)

[Mechanical Lover]

А можешь привести пример настроек досбокса, потому что с немерянными тормозами игры мне не удалось справиться, хотя комп совсем не из самых старых.

[NixRooT]

@ Mechanical Lover:

Battlespire отлично работает на дефолтных настройках DOSBox'а (core=auto, cycles=auto, etc.).

[Mechanical Lover]

Ну вот у меня почему-то с большими тормозами. Эксперименты с настройками эффекта почти не дали, играть стало возможно, но противно.

[Мартин]

на стандартных не всегда. Mechanical Lover, скажи мне свою систему и главное, какой процессор, число ядер и их частота.
1.) Использование неофициальных билдов ДосБокса
2.) Выставляем core=dynamic (в динамичном режиме эмуляция протекает быстрее, чем в статичном. а при автоопределении может и статично выставится)
3.) cycles=auto или поэксперементировать. это уже от системы. можно попробыть 10000 40000 70000 100000 130000 150000 и т. д. больше 200000 нет смысла
4.) Можно с типами эмуляции машин пошаманить. чем слабее эмулируемая система, тем быстрее проходит эмуляция
5.) В игре выставить низкое разрешение (Menu -> Screen -> Screen size -> Low)
6.) Играть версию 1.2, а не патчить до 1.5
Если для однопользовательской игры, то мне кажется лучше в MS Virtual PC 2007 или другой виртуальной машине играть, там все отлично идет. Я лично только по сети в ДосБоксе. Еще можно попробывать разогнать процессор, так как ДосБокс им все эмулирует и обрабатывает графику.

я лично в досбоксе играю в низком разрешении, так как притормажывает бывает на высоком. а 1.5 у меня раньше вообще менюшки по кусочкам появлялись, сейчас там нормально, но идет гораздо медленее 1.5.

[Mechanical Lover]

Настройки мои и система: досбокс 0.72, мама ASUS P4C800 камень 3ГГц, 512 видео ASUS GF 5600 гиг памяти

[Мартин]

Mechanical Lover, процессор как я понимаю одноядерный? ставь низкое разрешение в спире, еще можно использовать досбокс 0.73 или сборки Глюкоза и Янгвок. а так отличной производительности на одноядерном 3 ггц процессоре в досбоксе, к сожалению, нельзя добится. тут уже нужен двухядерный. но в минимальном разрешении должно идти в 15-20 фпс.

[Mechanical Lover]

>> Мартин:
Спасибо за совет, поэкспериментирую. Если что-то получится, расскажу тут. Многопользовательская игра мне не нужна.

[Morendil]

У меня вот какой вопрос. Скорее технического плана. Сижу ковыряю ресурсы игры и хотел бы узнать устройство игровых файлов *.BSI . Если я правильно понял, то это графические файлы, но вот в устройстве этого формата я разобраться не смог и нигде не нашел информации о нем, даже на uesp.net

Может кто что знает, поделитесь пожалуйста

Нашел библиотеку для работы с форматом BSI (Battlespire, Redguard), может пригодится.

http://galfar.vevb.net/imaging/doc/html/elderimagery.html
http://code.ohloh.net/file?fid=dNvGSNZW9kN...elected=true#L0

Код:

{
 Vampyre Imaging Library
 by Marek Mauder
 http://imaginglib.sourceforge.net

 The contents of this file are used with permission, subject to the Mozilla
 Public License Version 1.1 (the "License"); you may not use this file except
 in compliance with the License. You may obtain a copy of the License at
 http://www.mozilla.org/MPL/MPL-1.1.html

 Software distributed under the License is distributed on an "AS IS" basis,
 WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
 the specific language governing rights and limitations under the License.

 Alternatively, the contents of this file may be used under the terms of the
 GNU Lesser General Public License (the  "LGPL License"), in which case the
 provisions of the LGPL License are applicable instead of those above.
 If you wish to allow use of your version of this file only under the terms
 of the LGPL License and not to allow others to use your version of this file
 under the MPL, indicate your decision by deleting  the provisions above and
 replace  them with the notice and other provisions required by the LGPL
 License.  If you do not delete the provisions above, a recipient may use
 your version of this file under either the MPL or the LGPL License.

 For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
}

{ This unit contains image format loader for textures and images
 from Redguard and BattleSpire.}
unit ElderImageryBsi;

{$I ImagingOptions.inc}

interface

uses
 ImagingTypes, Imaging, ElderImagery, ImagingUtility;

type
 { Class for loading of BSI format textures and images found
   in Redguard and BattleSpire (maybe in other games too, Skynet?). This format
   uses chunk structure similar to PNG (HDR/DAT/END). Redguard stores
   multiple images in one file (usually related like textures for various
   parts of single 3d object). Image data is stored as 8bit. Each image
   can have its own embedded palette or it can use external default palette.
   BattleSpire BSI use *.bsi file extension whilst Redguard uses
   texbsi.* mask with number extension (just like Daggerfall).
   Only loading is supported for this format.
   BattleSpire images also contain some sort of 8bit->16bit color mapping data
   which I've not yet figured out (only blue channel known).}
 TBSIFileFormat = class(TElderFileFormat)
 private
   function IsMultiBSI(Handle: TImagingHandle): Boolean;
 protected
   procedure Define; override;
   function LoadData(Handle: TImagingHandle; var Images: TDynImageDataArray;
     OnlyFirstLevel: Boolean): Boolean; override;
 public
   function TestFormat(Handle: TImagingHandle): Boolean; override;
 end;

implementation

const
 SBSIFormatName = 'Bethesda Image';
 SBSIMasks      = '*.bsi,texbsi.*';

resourcestring
 SErrorLoadingChunk = 'Error when reading %s chunk data.';

type
 { BSI chunk header.}
 TChunk = packed record
   ChunkID: TChar4;
   DataSize: LongWord; // In Big Endian!
 end;

 { Additional header of BSI textures.}
 TTextureBSIHeader = packed record
   Name: array[0..8] of AnsiChar;
   ImageSize: LongInt;
 end;

 { Main image info header located in BHDR chunk's data.}
 TBHDRChunk = packed record
   OffsetX: Word;
   OffsetY: Word;
   Width: SmallInt;
   Height: SmallInt;
   Unk1, Unk2: Byte;
   Unk3, Unk4: Word;
   Frames: Word;
   Unk6, Unk7, Unk8: Word;
   Unk9, Unk10: Byte;
   Unk11: Word;
 end;

const
 IFHDSignature: TChar4 = 'IFHD';
 BSIFSignature: TChar4 = 'BSIF';
 BHDRSignature: TChar4 = 'BHDR';
 CMAPSignature: TChar4 = 'CMAP';
 HICLSignature: TChar4 = 'HICL';
 HTBLSignature: TChar4 = 'HTBL';
 DATASignature: TChar4 = 'DATA';
 ENDSignature:  TChar4 = 'END ';


{ TBSIFileFormat class implementation }

procedure TBSIFileFormat.Define;
begin
 inherited;
 FName := SBSIFormatName;
 FFeatures := [ffLoad, ffMultiImage];

 AddMasks(SBSIMasks);
 SetPalette(RedguardPalette);
end;

function TBSIFileFormat.IsMultiBSI(Handle: TImagingHandle): Boolean;
var
 ReadCount, StartPos: LongInt;
 Sig: TChar4;
begin
 Result := False;
 if Handle <> nil then
 with GetIO do
 begin
   StartPos := Tell(Handle);
   // Redguard textures have 13 byte tex header and then IFHD or BSIF
   Seek(Handle, SizeOf(TTextureBSIHeader), smFromCurrent);
   ReadCount := Read(Handle, @Sig, SizeOf(Sig));
   Seek(Handle, StartPos, smFromBeginning);
   Result := Result or ((ReadCount = SizeOf(Sig)) and
     ((Sig = IFHDSignature) or (Sig = BSIFSignature)));
 end;
end;

function TBSIFileFormat.LoadData(Handle: TImagingHandle;
 var Images: TDynImageDataArray; OnlyFirstLevel: Boolean): Boolean;
var
 Chunk: TChunk;
 ChunkData: Pointer;
 DATASize: LongInt;
 BHDR: TBHDRChunk;
 PalLoaded: TPalette24Size256;
 HICL: PByteArray;
 HTBL: PWordArray;
 IsMulti: Boolean;
 TextureHdr: TTextureBSIHeader;
 PaletteFound: Boolean;

 procedure ReadChunk;
 begin
   GetIO.Read(Handle, @Chunk, SizeOf(Chunk));
   Chunk.DataSize := SwapEndianLongWord(Chunk.DataSize);
 end;

 procedure ReadChunkData;
 var
   ReadBytes: LongWord;
 begin
   FreeMemNil(ChunkData);
   GetMem(ChunkData, Chunk.DataSize);
   ReadBytes := GetIO.Read(Handle, ChunkData, Chunk.DataSize);
   if ReadBytes <> Chunk.DataSize then
     RaiseImaging(SErrorLoadingChunk, [Chunk.ChunkID]);
 end;

 procedure SkipChunkData;
 begin
   GetIO.Seek(Handle, Chunk.DataSize, smFromCurrent);
 end;

 procedure GetBHDR;
 begin
   ReadChunkData;
   BHDR := TBHDRChunk(ChunkData^);
 end;

 procedure GetHICL;
 begin
   ReadChunkData;
   GetMem(HICL, Chunk.DataSize);
   Move(ChunkData^, HICL[0], Chunk.DataSize);
 end;

 procedure GetHTBL;
 begin
   ReadChunkData;
   GetMem(HTBL, Chunk.DataSize);
   Move(ChunkData^, HTBL[0], Chunk.DataSize);
 end;

 procedure GetCMAP;
 begin
   ReadChunkData;
   Move(ChunkData^, PalLoaded, Chunk.DataSize);
   PaletteFound := True;
 end;

 procedure GetDATA;
 begin
   ReadChunkData;
   DATASize := Chunk.DataSize;
 end;

 function AddImage(Width, Height: LongInt): LongInt;
 begin
   Result := Length(Images);
   SetLength(Images, Length(Images) + 1);
   NewImage(Width, Height, ifIndex8, Images[Result]);
   if not PaletteFound then
     Move(FARGBPalette[0], Images[Result].Palette[0], Length(FPalette) * SizeOf(TColor32Rec))
   else
     ConvertPalette(PalLoaded, Images[Result].Palette);
 end;

 function AddImageHiColor(Width, Height: LongInt): LongInt;
 begin
   Result := Length(Images);
   SetLength(Images, Length(Images) + 1);
   NewImage(Width, Height, ifA8R8G8B8, Images[Result]);
 end;

 procedure Reconstruct;
 var
   Index, I, J, K: LongInt;
   RowOffsets: PLongIntArray;
   Idx: Byte;
   W: Word;
 begin
   if HICL = nil then
   begin
     if BHDR.Frames = 1 then
     begin
       // Load simple image
       Index := AddImage(BHDR.Width, BHDR.Height);
       Move(ChunkData^, Images[Index].Bits^, Images[Index].Size);
     end
     else
     begin
       // Load animated image:
       // At the beggining of the chunk data there is BHDR.Height * BHDR.Frames
       // 32bit offsets. Each BHDR.Height offsets point to rows of the current frame
       RowOffsets := PLongIntArray(ChunkData);

       for I := 0 to BHDR.Frames - 1 do
       begin
         Index := AddImage(BHDR.Width, BHDR.Height);
         with Images[Index] do
         for J := 0 to BHDR.Height - 1 do
           Move(PByteArray(ChunkData)[RowOffsets[I * BHDR.Height + J]],
             PByteArray(Bits)[J * Width], Width);
       end;
     end;
   end
   else
   begin
     if BHDR.Frames = 1 then
     begin
       // Experimental BattleSpire 16bit image support!
       Index := AddImageHiColor(BHDR.Width, BHDR.Height);
       with Images[Index] do
       for I := 0 to DATASize - 1 do
       with PColor32RecArray(Bits)[I] do
       begin
         // It looks like "HICL[PByteArray(ChunkData)[I]] and 63" gives
         // value of 6bit Blue channel, not other channels are sure yet.
         // So now it looks grayscalish.
         // You can also get interesting results using HTBL as look up table
         // 8->16bit. There are 16 tables for shading (table 0 - darkest colors,
         // table 15 - lightest) each with 256 16bit Words. But their data format
         // is weird (555 is closest). There are some pixels that look
         // as they should (proper color) but some does not.
         // PWordArray(Bits)[I] := HTBL[256 * 15 + PByteArray(ChunkData)[I]]
         Idx := PByteArray(ChunkData)[I];
         A := Iff(Idx <> 0, 255, 0);
         R := MulDiv(HICL[Idx] and 63, 255, 63);
         G := MulDiv(HICL[Idx] and 63, 255, 63);
         B := MulDiv(HICL[Idx] and 63, 255, 63);
       end;
     end
     else
     begin
       // Load animated BattleSpire image, uses offset list just like Redguard
       // animated textures (but high word must be zeroed first to get valid offset)
       RowOffsets := PLongIntArray(ChunkData);

       for I := 0 to BHDR.Frames - 1 do
       begin
         Index := AddImageHiColor(BHDR.Width, BHDR.Height);
         with Images[Index] do
         for J := 0 to BHDR.Height - 1 do
           for K := 0 to BHDR.Width - 1 do
           with PColor32RecArray(Bits)[J * BHDR.Width + K] do
           begin
             Idx := PByteArray(ChunkData)[RowOffsets[I * BHDR.Height + J] and $FFFF + K];
             W := HTBL[256 * 15 + Idx];
             A := Iff(Idx <> 0, 255, 0);
             R := MulDiv(W shr 10 and 31, 255, 31);
             G := MulDiv(W shr 5 and 31, 255, 31);
             B := MulDiv(W and 31, 255, 31);
         {    A := Iff(Idx <> 0, 255, 0);
         R := MulDiv(HICL[Idx] and 63, 255, 63);
         G := MulDiv(HICL[Idx] and 63, 255, 63);
         B := MulDiv(HICL[Idx] and 63, 255, 63);}
           end;
       end;
     end;
   end;
 end;

 procedure ReadTextureHeader;
 begin
   FillChar(TextureHdr, SizeOf(TextureHdr), 0);
   if IsMulti then
     GetIO.Read(Handle, @TextureHdr, SizeOf(TextureHdr))
   else if Length(Images) = 0 then
     // Ensure that while loop that reads chunks is executed for
     // single-image files
     TextureHdr.ImageSize := 1;
 end;

begin
 ChunkData := nil;
 HICL := nil;
 HTBL := nil;
 SetLength(Images, 0);
 IsMulti := IsMultiBSI(Handle);
 with GetIO do
 begin
   // Redguard textures can contain more than one image. Try to read texture
   // header and if ImageSize is >0 there is another image.
   ReadTextureHeader;
   while TextureHdr.ImageSize > 0 do
   try
     PaletteFound := False;
     ReadChunk;
     SkipChunkData;
     // Read data chunks. If they are recognized their data is stored for
     // later image reconstruction
     repeat
       ReadChunk;
       if Chunk.ChunkID = BHDRSignature then
         GetBHDR
       else if Chunk.ChunkID = HICLSignature then
         GetHICL
       else if Chunk.ChunkID = HTBLSignature then
         GetHTBL
       else if Chunk.ChunkID = CMAPSignature then
         GetCMAP
       else if Chunk.ChunkID = DATASignature then
         GetDATA
       else
         SkipChunkData;
     until Eof(Handle) or (Chunk.ChunkID = ENDSignature);
     // Recontruct current image according to data read from chunks
     Reconstruct;
     // Read header for next image
     ReadTextureHeader;
   finally
     FreeMemNil(ChunkData);
     FreeMemNil(HICL);
     FreeMemNil(HTBL);
   end;
   Result := True;
 end;
end;

function TBSIFileFormat.TestFormat(Handle: TImagingHandle): Boolean;
var
 ReadCount: LongInt;
 Sig: TChar4;
begin
 // First check if have multi-image BSI file (Redguard textures)
 Result := IsMultiBSI(Handle);
 if not Result and (Handle <> nil) then
 with GetIO do
 begin
   // Check standard Bettlespire images with IFHD chunk at
   // the beginning of the file
   ReadCount := Read(Handle, @Sig, SizeOf(Sig));
   Seek(Handle, -ReadCount, smFromCurrent);
   Result := (ReadCount = SizeOf(Sig)) and (Sig = IFHDSignature);
 end;
end;


{
 Changes/Bug Fixes:

 -- TODOS ----------------------------------------------------
   - crack the BattleSpire format completely

 -- 0.21 -----------------------------------------------------
   - Blue channel of BattleSpire images cracked but others arer still unknown.
   - Added support for animated BattleSpire images.
   - Added support for animated Redguard textures.
   - Added support for Redguard textures (Battlespire images still don't figured out).
   - Updated to current Imaging version.

 -- 0.13 -----------------------------------------------------
   - TBSIFileFormat class added

}

end.