DGL • Thema anzeigen - C++->Delphi, auslesen einer Ultima-Online Mul. Hilfääää =

C++->Delphi, auslesen einer Ultima-Online Mul. Hilfääää =

Moderator: DGL-Team

Seite 1 von 1

[ 12 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

MenNoWar

Betreff des Beitrags: C++->Delphi, auslesen einer Ultima-Online Mul. Hilfääää =

Verfasst: Sa Apr 02, 2005 11:22

DGL Member

Registriert: Di Apr 27, 2004 13:38
Beiträge: 13

Hidiho.
Ich schreib grade ein Proggi das die Art.Mul von Ultima Online auslesen kann.
Die Dokus dazu sind ein wenig spärlich geraten, aber ich hab immerhin ein funnzendes Prog gefunden das alle Mul-files auslesen kann (Arachnide). Allerdings ist das ganze C++.

Nun hab ich das Problem das ich eine Procedure nicht übersetzt bekommen. Vielleicht könnt ihr mir dabei helfen?

Das Original (cpp):

Code:

Sprite *MArtReader::readStaticSprite(unsigned int32 id)
{
  index->seek(12 * (id + STATIC_OFFSET));
  unsigned int32 offset = index->read_uint32_little();
  data->seek(offset + 4); // 4 to skip some header (size?)
  unsigned int32 width = data->read_uint16_little();
  unsigned int32 height = data->read_uint16_little();
#ifdef SANE 
  if ((width == 0)  || (width >= 1024) ||
      (height == 0) || (height >= 1024)) {
    System::panic("MArtReader::readStaticSprite, invalid dimension");
  }
#endif
  Sprite *sprite = new Sprite(width, height);
  for (unsigned int32 i= 0; i< height; i++) {
    linebuf[i] = data->read_uint16_little();
  }
  unsigned int32 mask_line = (width >> 3) + 1;
  unsigned int32 mask_size = height * mask_line;
  unsigned byte *mask = (unsigned byte *) malloc(mask_size, "Sprite.mask");
  memset(mask, 0, mask_size);
  sprite->mask = mask;
  sprite->stretched = true;
  unsigned int32 dstart = offset + 8 + height * 2;
  unsigned int32 y = 0;
  unsigned int32 x = 0;
  data->seek(dstart + (linebuf[y] << 1));
  unsigned int32 runs = 0;
  while(y < height) {
    unsigned int32 offset = data->read_uint16_little();
    unsigned int32 runby  = data->read_uint16_little();
    x += offset;
    if (offset + runby == 0) {
      y++;
      data->seek(dstart + (linebuf[y] << 1));
      x = 0;
      runs = 0;
      continue;
    }
#ifdef SANE
    if (x + runby > width) {
      System::panic("MArtReader::readStaticSprite, illegal data");
    }
#endif
    runs++;
    unsigned byte *mp = mask + (x >> 3) + y * mask_line;
    unsigned int8 m  = 1 << (x & 0x7);
    byte *dst = ((byte *) sprite->data) + (y * width * 2) + x * 2;
    for (unsigned int32 r = 0; r < runby; r++) {      
      *((unsigned int16 *) dst) = (unsigned int16) data->read_uint16_little();
      *mp |= m;
      dst += 2;
      if ((m <<= 1) == 0) {
        m = 0x01;
        mp++;
      }
    }
    x += runby;
  }
  return sprite;
}

Und so sieht meine (nicht funnzende) Umsetzung aus:

Code:

Procedure TArtReader.ReadStatic(id : DWord; C: TCanvas);
const STATIC_OFFSET=16384;
      MART_MAX_HEIGHT=1025;
 
var index, data : TFilestream;
    Offset,Pixel : DWord;
    XOffset,run,dstart, w,h,x,y : Word;
    runby : Word;
    runs,i : Integer;
    mask_size, mask_line : Integer;
    linebuf : array of Word;
 
begin try
      index := TFileStream.Create(fIDXFile, fmopenRead);
      Data  := TFileStream.Create(fArtFile, fmopenRead);
 
      index.Seek(12* (id+Static_offset),0);
      index.read(Offset, SizeOf(Offset));
      data.seek(Offset+4,0);
      data.Read(w, sizeof(w));
      data.Read(H, sizeof(H));
    Application.MainForm.Caption :='ReadStatic: Width='+IntToStr(W)+' : Height='+IntTostr(H);
 
      SetLength(LineBuf, H);
 
      for i:=0 to H do
    Data.Read(linebuf[i], SizeOf(Linebuf[i]));
      mask_line := (W shr 3) +1;
      mask_size := H * mask_line;
      dstart := offset+8+h*2;
      y := 0;
      x := 0;
      data.Seek(dstart+(linebuf[y]*2),0);
      runs := 0;
      while y < H do
    begin data.Read(xoffset, SizeOf(xOffset));
          data.Read(runby, SizeOf(Runby));
          if (XOffset + Runby >= 2048) then break;
          if (XOffset + Runby <> 0 ) then
        begin x := x+XOffset;
              for i:=0 to runby do
            begin data.Read(Pixel, SizeOf(Pixel));
                  c.Pixels[x+i,y] := Pixel;
            end;
              x := x+runby;
        end else
        begin x:= 0;
              inc(y);
              Data.Seek(DStart + LineBuf[y]*2,0);
        end;
    end;
      finally
      Data.free;
      index.Free;
      end;
end;
 

Die größen (W und H) werden übrigens korrekt ausgelesen. Nur was dann kommt ist schrott (steigt meistens mit XOffset + Runby >= 2048 aus ).
Das Original gibt "Sprite" zurück, für meine Funktion reicht es allerdings als Parameter das Canvas anzugeben, auf das gemalt werden soll (geht ja nur ums anzeigen).

Zwei Links hab ich noch, die die Problematik beschreiben (vielleicht sehe ich auch nur irgendwas falsch):
http://arachnide.sourceforge.net/formats/art/index.html
http://www.wpdev.org/docs/formats/art.html

Wäre dankbar über jeden Hinweis was ich falsch mache.
Danke Euch =)

Nach oben

KidPaddle

Betreff des Beitrags:

Verfasst: Sa Apr 02, 2005 13:53

DGL Member

Registriert: Mo Jan 20, 2003 20:10
Beiträge: 424
Wohnort: nähe Starnberg

Code:

 
      for i:=0 to H do
   Data.Read(linebuf[i], SizeOf(Linebuf[i]));

Hier müßte eigentlich

Code:

 
      for i:=0 to (H - 1) do
   Data.Read(linebuf[i], SizeOf(Linebuf[i]));

stehen. Probiere dieses mal aus.

Gruß
KidPaddle

PS.: Das scheint nochmals der gleiche Fehler zu sein.

Code:

 
for i:=0 to runby do
         begin data.Read(Pixel, SizeOf(Pixel));
               c.Pixels[x+i,y] := Pixel;
         end;
 

Code:

 
for i:=0 to (runby - 1) do
         begin data.Read(Pixel, SizeOf(Pixel));
               c.Pixels[x+i,y] := Pixel;
         end;
 

_________________
http://www.seban.de

Nach oben

MenNoWar

Betreff des Beitrags:

Verfasst: Sa Apr 02, 2005 14:41

DGL Member

Registriert: Di Apr 27, 2004 13:38
Beiträge: 13

Leider keine Änderung, trotz beiden -1.
Ich hab das dumpfe gefühl, das bei

Code:

 
      y := 0;
      x := 0;
      data.Seek(dstart+(linebuf[y]*2),0);
      runs := 0;

Schon an die falsche Stelle gesprungen wird,
denn in den folgenden Stellen wird ja erst runby und xoffset eingelesen (die beide meistens über 3.000 liegen - was alleine schon ein Fehler (s.h. ff) ist)

An anderer Stelle (bei Heptazane) wird gesagt das dstart einfach die aktuelle Fileposition in Data sein soll, aber das bringt genauso Müll.

Nach oben

Skaldi

Betreff des Beitrags:

Verfasst: So Apr 03, 2005 18:47

DGL Member

Registriert: Mi Mär 09, 2005 12:26
Beiträge: 53
Wohnort: Dornbirn

Möglicherweise ist die Datei binär geschrieben und du liest sie nicht binär aus.
(Ich bin C++ Programmierer), ich hatte da nämlich das gleiche Problem. Die ersten paar bytes wurden richtig ausgelesen (reine Glückssache), dann kam nur noch Schrott, und irgendwann nur noch 0en (ende der Datei schon lnge erreicht.) Ich hab es dann einfach binär ausgelesen und voila funzte ohne Probleme, weiß aber nicht obs daran liegt, kannst aber ja mal ausprobieren.

Und die Info mit -1 ist richtig.Weil wenn da steht for (unsigned int32 i= 0; i< height; i++)
bedeutet das, dass die Schleife sagen wir wenn height 10 ist dass die Schleife dann endet wenn i = 10 ist. Weil dann das Abbruchkriterium erreicht ist, weil i dann nicht kleiner height ist sondern gleich height ist...

_________________
Good software is like sex, it's best when it's free

Nach oben

Varan

Betreff des Beitrags:

Verfasst: Di Apr 12, 2005 17:28

DGL Member

Registriert: Do Mär 31, 2005 13:29
Beiträge: 3

falls das Problem noch aktuell ist, versuchs damit:

Code:

 
type    TIndexRecord = packed record
                Offset: Integer;
                Length: Integer;
                Extra: Integer
        end;
 
var     Breite, Hoehe : Word;
        LookupList : PWordArray;
        XOffset, RunLength, RunColor: Word;
        Start, XCoord, YCoord : Integer;
        i : Integer;
        IndexRec : TIndexRecord;
begin
        idxStream.Seek( (Id+$4000)*12, soFromBeginning );
        idxStream.Read( IndexRec, sizeof( TIndexRecord ) );
 
        mulStream.Seek( IndexRec.Offset+4, soFromBeginning );
        mulStream.Read( Breite, 2 );
        mulStream.Read( Hoehe, 2 );
 
        GetMem( LookupList, Hoehe*2 );
        mulStream.Read( LookupList^, Hoehe*2 );
        Start := mulStream.Position;
 
        for YCoord := 0 to Hoehe-1 do begin
                mulStream.Seek( Start + LookupList^[YCoord]*2, soFromBeginning );
                XCoord := 0;
 
                mulStream.Read( XOffset, 2 );
                mulStream.Read( RunLength, 2 );
 
                while ( RunLength <> 0 ) do begin
                        XCoord := XCoord + XOffset;
 
                        for i := 0 to RunLength-1 do begin
                                mulStream.Read( RunColor, 2 );
                                if ( XCoord+X+i < Bitmap.Width ) and ( YCoord+Y < Bitmap.Height ) and ( XCoord+X >= 0 ) and ( YCoord+Y >= 0 ) and ( RunColor <> 32767 ) then
                                        Bitmap.Pixel[ XCoord+i+X, YCoord+Y ] := Color15to32( RunColor );
                        end;
 
                        XCoord := XCoord + RunLength;
                        mulStream.Read( XOffset, 2 );
                        mulStream.Read( RunLength, 2 );
                end;
        end;
end;
 
 

Nach oben

MenNoWar

Betreff des Beitrags:

Verfasst: Di Okt 03, 2006 15:17

DGL Member

Registriert: Di Apr 27, 2004 13:38
Beiträge: 13

Wowi - nu habbich für die nächste tng-Version schonmal wenigstens das Art-Geraffel auf eine Zeile säubern können dank Varan =)

Aaaber ... eins hätte ich da noch ... *duck*
Ich kriege die Anim.mul nicht ordentlich ausgelesen.
Habe schon versucht die Teile von InsideUO zu übernehmen, aber das Problem dabei ist jede Menge asm-Code, den ich nicht zurückübersetzt bekomme (Palettenzeuges).
Im UOCharacterViewer ist zwar eine nette Lösung drin, aber wie der auf seine Offsets kam (35000 für c_man (0x190)) ist für mich nicht nachvollziehbar.
Kann mir nicht jemand eine procedure/function posten zum auslesen einer Anim posten? (ohne anim2/3/...)

Dankä nochmal VD,
Mennowar

Nach oben

Shaddow

Betreff des Beitrags:

Verfasst: Di Okt 03, 2006 15:31

DGL Member

Registriert: So Aug 20, 2006 23:19
Beiträge: 564

Erstma denke ich das Thema waere bei dsdt.info besser aufgehoben, da ja nun wirklich 0 OGL drin ist.
Noch besser wäre es in UODev aufgehoben, denn dort ist auf VD Admin, der jenige, der bereits den Mulpatcher geschrieben hat (der editor, der alle mul und idx Dateien von UO einlesen kann) und auch den Palanthir (den neuen UO Client)...

Ansonsten wozu willst du die dinger auslesen? Editoren gibs doch genug. Ansonsten poste ma bei UODev, VD ist sicher nicht geizig mit seinen Soulutions. Und wenn du OGL kannst, freut er sich sicher auch ueber ne Hilfe um Magie zu realisieren, denn das hat er im Palanthir noch nicnh drin (wobei ich nich weiss, ob der Palanthir auf DX oder OGL basiert. Wäre mal in Erfahrung zu bringen... ich frag ihn ma)

PS: 1,5 jahre später? was hast du die ganze zeit gemacht?

Nach oben

MenNoWar

Betreff des Beitrags:

Verfasst: Di Okt 03, 2006 21:54

DGL Member

Registriert: Di Apr 27, 2004 13:38
Beiträge: 13

> PS: 1,5 jahre später? was hast du die ganze zeit gemacht?

2 neue Releases von tng, nen TileDataEditor, nen AnimationEditor für den mulpatcher und noch ein paar andere Sachen (glaube das sagt vd was) rausgebracht, C# gelernt und verworfen weil zu lahm.

Was man halt so in 1 + 1 div 2 Jahren macht.

Nach oben

Shaddow

Betreff des Beitrags:

Verfasst: Di Okt 03, 2006 22:18

DGL Member

Registriert: So Aug 20, 2006 23:19
Beiträge: 564

Leider OT aber muss sein ^^:
1 + 1div2 = 1 ^^
Aber hat mich halt ittitiert, dass du da jetz wieder drauf zu sprechen kommt. aber nur zu, wer seinen Shard verschönern will, da bin ich immer dafür. bin selber staffi und habe einige editoren und patcher geschrieben. welcher shard?

Nach oben

MenNoWar

Betreff des Beitrags:

Verfasst: Mi Okt 04, 2006 16:38

DGL Member

Registriert: Di Apr 27, 2004 13:38
Beiträge: 13

Waren bis vor ein paar Monaten auf vespertales (www.vespertales.de).
Aber inzwischen basteln wir (also meine bessere Hälfte und ich) nur noch am Homeserver - und der ist inzwischen gewaltig (zumindest was neue Items (auch selbstgezeichnet/Animiert) und NPCs (teilweise auch selbst gemacht)) groß geworden ist.

.... irgendwann mache ich mal ein Backup - bestimmt ....

ps: 1+1 div 2=1 Stimmt :oops:

Nach oben

Aya

Betreff des Beitrags:

Verfasst: Mi Okt 04, 2006 18:16

DGL Member

Registriert: Di Dez 03, 2002 22:12
Beiträge: 2105
Wohnort: Vancouver, Canada
Programmiersprache: C++, Python

Shaddow hat geschrieben:

bin selber staffi

Auf welchem Shard?

Nach oben

Shaddow

Betreff des Beitrags:

Verfasst: Mi Okt 04, 2006 18:27

DGL Member

Registriert: So Aug 20, 2006 23:19
Beiträge: 564

*g* Paradise Island

Nach oben

Seite 1 von 1

[ 12 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 5 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.