for( k=0;k<model->nNumMaterials;++k ){
      msMaterial *m=model->pMaterials+k;
      string t=m->szDiffuseTexture;
      if( !t.size() ) continue;
      if( tex_map.find( t )!=tex_map.end() ) continue;

      //write out the texture info
      writeString( t );               //file
      writeInt( 1 );                  //flags (rgb)
      writeInt( 2 );                  //blend (multiply)
      writeFloatArray( pos0,2 );         //position
      writeFloatArray( scl1,2 );         //scale
      writeFloat( 0 );               //rotation

      tex_map.insert( make_pair( t,n_texs ) );
      ++n_texs;
   }
   endChunk();

   //write BRUS chunk...
   beginChunk( 'BRUS' );
   writeInt( 1 );                     //one tex per brush
   for( k=0;k<model->nNumMaterials;++k ){
      msMaterial *m=model->pMaterials+k;
      writeString( m->szName );         //name
      writeFloatArray( m->Diffuse,4 );   //color
      writeFloat( 0 );               //shininess
      writeInt( 1 );writeInt( 0 );      //blend/FX
      string t=m->szDiffuseTexture;
      if( t.size() ) writeInt( tex_map.find( t )->second );
      else writeInt( -1 );
   }
   endChunk();

Function ms3dCreateTriangles(BnkTriangles,BnkGroup)
    Local TriangleCount,I,GI,V0,V1,V2,Surface

    TriangleCount = PeekShort(BnkTriangles,0)
    For I = 1 To TriangleCount
        GI = PeekByte(BnkTriangles,(I - 1) * 67 + 68)
        V0 = PeekShort(BnkTriangles,(I - 1) * 67 + 02)
        V1 = PeekShort(BnkTriangles,(I - 1) * 67 + 04)
        V2 = PeekShort(BnkTriangles,(I - 1) * 67 + 06)
        Surface = PeekInt(BnkGroup,GI * 4)                  ; <--- hier bleibt er hängen
        AddTriangle Surface,V0,V1,V2
    Next
End Function