11.01 17:49
[#211]
Re: Dewelopment gry Sołtys
@Don_Adan, post #210
Póki co na tym pliku działa. W 8 bajcie jest wartość $00 00 00 05. W 16 bajcie druga wartość jest identyczna. Później przetestuję na innym pliku. Jeśli masz rację to zmienię kod. Odczyt bajt po bajcie i zmiana endiana to nie problem pod BB bo użyję wstawki asm. Tak będzie najkrócej i najprościej.
11.01 18:13
[#214]
Re: Dewelopment gry Sołtys
@Don_Adan, post #212
Masz rację. To był zbieg okoliczności, że takie wartości wyszły.
Później to poprawię na spokojnie.
Ostatnia aktualizacja: 11.01.2025 18:30:46 przez tukinem
Później to poprawię na spokojnie.
; tryb testowy
#TEST = 0
Function .l ReadSize{adres.l}
MOVE.l D0,A0 ;-----odczyt
SUBA.l #1,A0 ; z
MOVE.b (A0),D0 ; nieparzystego
ROL.l #8,D0 ; bajtu
MOVE.b 1(A0),D0 ; /
ROL.l #8,D0 ; /
MOVE.b 2(A0),D0 ; /
ROL.l #8,D0 ; /
MOVE.b 3(A0),D0 ;/
ROL.w #8,D0 ; zamiana
SWAP.w D0 ;
ROL.w #8,D0 ; endiana
AsmExit
End Function
NEWTYPE .fileOnDisk
_size.l ; rozmiar
_data.l ; wskaznik
_name.s ; nazwa pliku
End NEWTYPE
DEFTYPE .fileOnDisk src,fts
DEFTYPE .l offset
; ZMIENNE:
; src zmienna pliku odczytanego
; fts zmienna pliku do zapisu
; offset pozycja odczytu w pamieci
;--------------------------------------------------------------
; nalezy uruchomic z dwoma parametrami
; BBSplit <PLIK> <KATALOG_WYJSCIOWY>
CNIF #TEST=0
If NumPars<>2 Then End
CEND
;--------------------------------------------------------------
; wczytanie pliku
CNIF #TEST=0
src\_name = Par$(1)
DEST$=Par$(2)
CELSE
src\_name = "DH1:Unpacked/arc.lha"
DEST$="RAM:"
CEND
src\_size = FileSize(src\_name)
src\_data= AllocMem_(src\_size,0)
BLoad src\_name,src\_data
;--------------------------------------------------------------
offset = 8
; PETLA ZAPISU
While offset<src\_size
fts\_size = ReadSize{src\_data+offset}
; NAZWA PLIKU DO ZAPISU
offset+14
a$ = ""
While Peek.b(src\_data+offset)<>0
a$=a$+Chr$(Peek.b(src\_data+offset))
offset+1
Wend
a$ = UnLeft$(a$,3) ; usuwam 3 ostatnie znaki
fts\_name = a$
; KOPIOWANIE DANYCH
fts\_data = AllocMem_(fts\_size,0)
offset+2
CopyMem_ src\_data+offset , fts\_data , fts\_size
offset+fts\_size+8
BSave DEST$+fts\_name , fts\_data , fts\_size
FreeMem_ fts\_data,fts\_size
Wend
FreeMem_ src\_data,src\_size
EndOstatnia aktualizacja: 11.01.2025 18:30:46 przez tukinem
11.01 18:42
[#215]
Re: Dewelopment gry Sołtys
@tukinem, post #214
Jak patrze na ta funkcje to ona bardzo zle wyglada.
Albo nie rozumiem jak dziala BB2, albo to jest do czegos innego.
Jesli to robota Hexa to powinien sie poprawic, to jest duzo wolniejsze niz to co podalem.
Po co to?
Jakbys przyjal, ze dzialasz wszedzie na bajtach i tylko na bajtach to mialbys prosto.
Takie formaty jak lha obsluguje sie bajt po bajcie.
Uzywajac move.b (A0)+
Ale moze BB2 tego nie potrafi.
Albo nie rozumiem jak dziala BB2, albo to jest do czegos innego.
Jesli to robota Hexa to powinien sie poprawic, to jest duzo wolniejsze niz to co podalem.
Po co to?
SUBA.l #1,A0
Jakbys przyjal, ze dzialasz wszedzie na bajtach i tylko na bajtach to mialbys prosto.
Takie formaty jak lha obsluguje sie bajt po bajcie.
Uzywajac move.b (A0)+
Ale moze BB2 tego nie potrafi.
11.01 18:49
[#217]
Re: Dewelopment gry Sołtys
@Don_Adan, post #215
Nie. Hex mi tylko dał sposób na zmianę endianów, czyli 3 ostatnie linijki funkcji.
Oczywiście BB obsługuje move.b (A0)+.
SUBA jest po to, że wcześniejszy kod, który podałem odczytywał long z 8 bajtu. Teraz trzeba odczytać z siódmego, dlatego do tamtego kodu dodałem tylko adres z offsetem aktualnym jako adres, a w funkcji obniżam go o 1, bo tutaj long odczytujemy z 7 bajtu.
W tej funkcji dobrze wiesz, że odczytuję sobie ręcznie kolejno 4 bajty przesuwając bity w D0. Następnie zmieniam endian w D0 i funkcja zwraca podaną wartość.
Przetestowałem i działa.
EDIT:
Przetestowałem z CLI i jest ok. Plik exe to 10 kB.
Ostatnia aktualizacja: 11.01.2025 18:58:31 przez tukinem
Oczywiście BB obsługuje move.b (A0)+.
SUBA jest po to, że wcześniejszy kod, który podałem odczytywał long z 8 bajtu. Teraz trzeba odczytać z siódmego, dlatego do tamtego kodu dodałem tylko adres z offsetem aktualnym jako adres, a w funkcji obniżam go o 1, bo tutaj long odczytujemy z 7 bajtu.
W tej funkcji dobrze wiesz, że odczytuję sobie ręcznie kolejno 4 bajty przesuwając bity w D0. Następnie zmieniam endian w D0 i funkcja zwraca podaną wartość.
Przetestowałem i działa.
EDIT:
Przetestowałem z CLI i jest ok. Plik exe to 10 kB.
Ostatnia aktualizacja: 11.01.2025 18:58:31 przez tukinem
11.01 19:44
[#221]
Re: Dewelopment gry Sołtys
@Don_Adan, post #210
Plik z Sołtysa się wywala, tylko nie wiem czemu.
To o czym mówisz, to masz rację, bo jeszcze odczytuję cały long poprzez Peek.l w kodzie. Tylko, że ja to testuję na 020, więc nie powinno się wywalić. Podejrzewam, że nazwy podkatalogów psują działanie.
Oto plik spakowanego Sołtysa bez kompresji:
Jest katalog "DAT" lecz nie ma już nazwy pierwszego pliku. Moim zdaniem powinno być "DAT/plik", tu mamy natomiast "1.DAT" następnie jakiś "m.A..." i dopiero katalog "DAT".
To chyba zły pomysł aby babrać się z tym w basicu.
To o czym mówisz, to masz rację, bo jeszcze odczytuję cały long poprzez Peek.l w kodzie. Tylko, że ja to testuję na 020, więc nie powinno się wywalić. Podejrzewam, że nazwy podkatalogów psują działanie.
Oto plik spakowanego Sołtysa bez kompresji:
Jest katalog "DAT" lecz nie ma już nazwy pierwszego pliku. Moim zdaniem powinno być "DAT/plik", tu mamy natomiast "1.DAT" następnie jakiś "m.A..." i dopiero katalog "DAT".
To chyba zły pomysł aby babrać się z tym w basicu.
11.01 20:11
[#222]
Re: Dewelopment gry Sołtys
@tukinem, post #221
Bo musisz stworzyc wersje archiwum bez podkatalogow.
Chyba, ze poprawisz swoj program.
Czym innym jest sama nazwa pliku a czym innym jest sciezka z nazwa pliku.
Byc moze wystarczy, ze zalozysz te podkatalogi to zadziala.
No i pisalem, ze dlugosc stringu jest w lha podana, a Ty tam zerujesz jakies bajty w archiwum.
Zadnych zmian we wczytanym archiwum nie powinno sie robic.
Czyscisz bajty, ktore sa uzywane przez nastepny plik.
Ewentualnie czyscisz bajty za wczytanym archiwum.
Jak rozwiazales problem konca pliku/archiwum?
Skad program wie, ze to juz jest ostatni plik w archiwum?
Chyba, ze poprawisz swoj program.
Czym innym jest sama nazwa pliku a czym innym jest sciezka z nazwa pliku.
Byc moze wystarczy, ze zalozysz te podkatalogi to zadziala.
No i pisalem, ze dlugosc stringu jest w lha podana, a Ty tam zerujesz jakies bajty w archiwum.
Zadnych zmian we wczytanym archiwum nie powinno sie robic.
Czyscisz bajty, ktore sa uzywane przez nastepny plik.
Ewentualnie czyscisz bajty za wczytanym archiwum.
Jak rozwiazales problem konca pliku/archiwum?
Skad program wie, ze to juz jest ostatni plik w archiwum?
11.01 20:27
[#224]
Re: Dewelopment gry Sołtys
@Don_Adan, post #223
W danych archiwum nic nie zmieniam. Jeśli przyjrzysz się mojemu kodowi, to zmienna src to źródło czy lha. Zmienna fts to dane docelowe. Nazwałem fts jako skrót od File To Save. Usuwam 3 bajty w zmiennej A$ która służy do odczytu nazwy pliku do zapisu. To taka podręczna zmienna do której ładuję kolejne bajty ze źródła aż do bajtu 0. Potem usuwam 3 ostatnie bajty z tej podręcznej zmiennej, bo one są zbędne.
Myślałem że tam pliki w podkatalogach to będą zapisane jako: "DAT/1.DAT". Pytałem wcześniej czy nazwa pliku ma gdzieś podaną długość w bajtach.
Faktycznie rozmiar wziąłem z 7 bajtu a nie 11.
Myślałem że tam pliki w podkatalogach to będą zapisane jako: "DAT/1.DAT". Pytałem wcześniej czy nazwa pliku ma gdzieś podaną długość w bajtach.
Faktycznie rozmiar wziąłem z 7 bajtu a nie 11.
11.01 21:29
[#227]
Re: Dewelopment gry Sołtys
@Don_Adan, post #226
No i niby skad bierzesz nazwe 1.DAT a nie 1.DATm ? Musisz inaczej do tego podejsc.
No właśnie skąd? :) Jest gdzieś podana długość nazwy pliku? Długość samych danych jest. Właśnie problem stanowią katalogi, ale i na to jest rozwiązanie. Wszystkie pliki w sołtysie mają swoje rozszerzenia, więc musiałbym stworzyć LHA niekompresowane bez struktury katalogów. Po wczytaniu nazwy pliku sprawdzałbym 4 ostatnie znaki i kolejno sprawdzał:
".EXE" - katalog główny
"INFO" - katalog główny
".MOD" - katalog MUS
".IFF" - katalog SFX
".LNG" - katalog LNG
reszta - katalog DAT
Co do Twojego pytania odnośnie size czy odczytuję 7 bajt czy 11, to nie ma znaczenia bo on nie jest kompresowany.
Pytałem, czy gdzieś można odczytać z pliku długość w bajtach nazwy pliku/katalogu?
11.01 21:36
[#228]
Re: Dewelopment gry Sołtys
@Don_Adan, post #226
Odczytując nazwę odczytuję bajt po bajcie aż do napotkania bajtu =$0. W moim przypadku to:
1.DATm.A
Następnie usuwam 3 ostatnie pobrane bajty o czym pisałem i otrzymuję 1.DAT :)
a usuwam dlatego 3 bajty, bo odczytuję z endiana PC-towego więc końcowy bajt 0 mam 3 bajty za daleko.
Tylko zastanówmy się czy to ma sens. Plik exe z Blitz Basic to 10 kB teraz. LHA to 75 kB więc różnica nieznaczna.
Ostatnia aktualizacja: 11.01.2025 21:44:31 przez tukinem
1.DATm.A
Następnie usuwam 3 ostatnie pobrane bajty o czym pisałem i otrzymuję 1.DAT :)
a usuwam dlatego 3 bajty, bo odczytuję z endiana PC-towego więc końcowy bajt 0 mam 3 bajty za daleko.
Tylko zastanówmy się czy to ma sens. Plik exe z Blitz Basic to 10 kB teraz. LHA to 75 kB więc różnica nieznaczna.
Ostatnia aktualizacja: 11.01.2025 21:44:31 przez tukinem
11.01 23:41
[#231]
Re: Dewelopment gry Sołtys
@Don_Adan, post #230
Użytkownik wybierze w installerze katalog gdzie ma być gra.
Installer stworzy podkatalog "SOLTYS" i w nim podkatalogi "DAT", "MUS", "LNG" i "SFX", więc będą stworzone.
Z kombinowaniem masz rację. Więc powoli na spokojnie chyba od nowa napiszę ten program rozpakowujący. Chociaż strukturę sobie fajną stworzyłem. Tylko sposób odczytywania danych musiałbym zmienić.
No to w takim razie tu jest jakiś rodzaj kompresji?
Installer stworzy podkatalog "SOLTYS" i w nim podkatalogi "DAT", "MUS", "LNG" i "SFX", więc będą stworzone.
Z kombinowaniem masz rację. Więc powoli na spokojnie chyba od nowa napiszę ten program rozpakowujący. Chociaż strukturę sobie fajną stworzyłem. Tylko sposób odczytywania danych musiałbym zmienić.
No to w takim razie tu jest jakiś rodzaj kompresji?
12.01 00:30
[#233]
Re: Dewelopment gry Sołtys
@Don_Adan, post #232
Kurcze to nie na moją głowę.
Spakowałem teraz te same pliki ale w podkatalogu KATALOG1 i oto wynik:
Każdy plik ma teraz nazwę pliku, po niej jest katalog, w którym się znajduje, a następnie dopiero jest jego treść. Nie mogę tu odczytać długości nazwy podkatalogu. To mnie przerasta takie parsowanie kodu.
Jak z plikami .tmx od Tileda (edytora map) sobie poradziłem, tak tutaj ręce mi opadają same. No i jeszcze endian dochodzi do tego.
Spakowałem teraz te same pliki ale w podkatalogu KATALOG1 i oto wynik:
Każdy plik ma teraz nazwę pliku, po niej jest katalog, w którym się znajduje, a następnie dopiero jest jego treść. Nie mogę tu odczytać długości nazwy podkatalogu. To mnie przerasta takie parsowanie kodu.
Jak z plikami .tmx od Tileda (edytora map) sobie poradziłem, tak tutaj ręce mi opadają same. No i jeszcze endian dochodzi do tego.
12.01 01:02
[#234]
Re: Dewelopment gry Sołtys
@tukinem, post #233
Pierwszy bajt jest wazny:
Bytes: $0000: 24 - Length of header (known as "LEN", not including this
and the next byte). If it is zero, we are at the end
of the file.
$23 czyli (wtym przypadku) na 35+2 bajcie (offset) czyli na 37 bajcie jest dlugosc nazwy pliku (bajt).
Jutro wiecej info, o ile sam nie rozkminisz.
Bytes: $0000: 24 - Length of header (known as "LEN", not including this
and the next byte). If it is zero, we are at the end
of the file.
$23 czyli (wtym przypadku) na 35+2 bajcie (offset) czyli na 37 bajcie jest dlugosc nazwy pliku (bajt).
Jutro wiecej info, o ile sam nie rozkminisz.
12.01 01:25
[#235]
Re: Dewelopment gry Sołtys
@Don_Adan, post #234
Długość nazwy pliku umiem odczytać. Chodzi o to, że jeśli plik jest w podkatalogu, to po jego nazwie, a przed jego danymi jest nazwa podkatalogu. U mnie to "KATALOG1" czyli 8 znaków. Skoro dane LHA informują nas o długości nazwy pliku, to powinny też informować o długości nazwy podkatalogu. Nigdzie tu nie ma bajtu $08.
12.01 07:09
[#236]
Re: Dewelopment gry Sołtys
@tukinem, post #235
Zrob tak.
Zaloz katalogi DAT, DATA, DATA1.
Skopiuj do nich 1 plik, byle taki sam.
Zrob 3 archiwa niespakowane.
Porownaj je i zobacz, gdzie i jak jest zapisana dlugosc katalogu.
Edycja, mozesz jeszcze spakowac ten sam plik, ale bez zadnego katalogu.
Bedzie wtedy wiadomo, gdzie jest zapisywane czy dany gry jest w katalogu czy tez nie.
Ostatnia aktualizacja: 12.01.2025 07:12:29 przez Don_Adan
Zaloz katalogi DAT, DATA, DATA1.
Skopiuj do nich 1 plik, byle taki sam.
Zrob 3 archiwa niespakowane.
Porownaj je i zobacz, gdzie i jak jest zapisana dlugosc katalogu.
Edycja, mozesz jeszcze spakowac ten sam plik, ale bez zadnego katalogu.
Bedzie wtedy wiadomo, gdzie jest zapisywane czy dany gry jest w katalogu czy tez nie.
Ostatnia aktualizacja: 12.01.2025 07:12:29 przez Don_Adan
