diablo 1

← →
Cerber © (2004-02-29 12:13) [0]

Кто занет как оттуда выдрали спрайты. И какой программой.

← →
cyborg © (2004-02-29 12:28) [1]

Кто выдрал, разработчики диабло? :)

← →
Mihey © (2004-02-29 12:40) [2]

Бачь www.extractor.ru

← →
TButton © (2004-02-29 15:04) [3]

:) cyborg прав, они не выдирались, они кромотливо вырисовывались в 3dMax"е

← →
Cerber © (2004-02-29 15:24) [4]

Да не для своей демо верси хочу взять (пока) чужие спрайты. И встречный вопрос где взять Diablo 1 со всеми спрайтами.

← →
Zeqfreed © (2004-02-29 21:18) [5]

http://user.cs.tu-berlin.de/~mickyk/cv.html

← →
jab~ (2004-03-04 17:31) [6]

Ха ха ха ха... рассмешил... "И встречный вопрос где взять Diablo 1 со всеми спрайтами" - блин, хочет выдрать спрайты при этом даже не взглянул на то от куда он хочет это сделать... :):):) А в друг и не нужно было совсем выдирать!? Для начала достал бы сам дьябло, а потом задавал вопросы подобные этому! Тебе таки нужен распаковщик MPQ формата!

З.Ы. Прожка "cv5" мне не понравилась... очень уж глючно работает! Сыровато! Хотя при особой снаровке можно выдрать, но склеивать придется. Ну для склейки конечно пришлось писать свою утилиту.

На последок кусок кода, для склейки прокатит:
(былобы ещё не плохо палитру импортировать)
procedure TForm1.Button1Click(Sender: TObject);
var
le,i,t: Integer;
FileList: TStringList;
b1,b2: TBitmap;
Fi: TSearchRec;
begin
if OpenDialog1.Execute then begin

FileList:= TStringList.create;
b1:= TBitmap.Create;
b2:= TBitmap.Create;

b2.PixelFormat:=pf8bit;

FileList.Clear;
if FindFirst(ExtractFilePath(OpenDialog1.FileName)+"*.bmp", faAnyFile, Fi)=0 then begin
if (Fi.Name <> ".") and (Fi.Name <> "..") then FileList.Add(Fi.Name);
while FindNext(Fi) = 0 do FileList.Add(Fi.Name);
end;
FindClose(Fi);
le:=FileList.Count;

for i:=0 to {StrToInt(Edit1.Text)-1}le-1 do begin
b1.LoadFromFile(FileList.Strings[i]);
t:=b2.Width;
Form1.Caption:=IntToStr(b2.Width)+"::"+IntToStr(i+1);
//b2.SaveToFile(ExtractFilePath(ParamStr(0))+"file.bmp");
b2.Width:=b2.Width+b1.Width;
if b1.Height>b2.Height then b2.Height:=b1.Height;
BitBlt(b2.Canvas.Handle,t,0,b1.Width,b1.Height,b1.Canvas.Handle,0,0,SRCCOPY);
end;

//Form1.Caption:="Всего файлов="+IntToStr(le-1);
b2.SaveToFile(ExtractFilePath(ParamStr(0))+"file.bmp");
b1.free;
b2.free;
FileList.Free;
end;
end;

2 jab~
Согласен, прога глючная, но я выдрал оттуда спрайты (и уже дал Cerber`у)... А склеивать необязательно кстати, я вот их юзаю в direct3d, и мне не нужно (склеивать)...

diablo 1 Найти похожие ветки