08.08.2021 11:32
[#212]
Re: Tworzenie gier
@tukinem, post #210
Przed instrukcją Dual Playfield daj "Wait 10" i napisz czy zadziałało
Te ekrany masz na odwrót. Zrób tak:
Wait 10
Dual Playfield 1,0
Dual Priority 0,1
Teraz ekran z obrazkiem jest na drugim planie. A po otwarciu pierwszego planu, musisz go wyczyścić kolorem nr 0, czyli przezroczystym. Generalnie spróbuj tak:
Screen Open 0,320,200,4,Lowres <ekran do wycięcia boba
Paper 0: Print "bobek jakis"
Get Bob 0,1,0,0 to 40,8
Screen Open 1,320,256,8,Lowres < ekran "tło"
Hide: Curs Off: Flash Off
Load Iff "level1"
Screen Open 0,320,256,4,Lowres < ekran pierwszoplanowy
Curs Off: Flash Off
Cls 0 < musi być wyczyszczony kolorem 0, żeby ekran pod nim był widoczny
Wait 10 < zaczekaj chwilę przed Dual Playfield
Dual Playfield 1,0
Dual Priority 0,1
Paste Bob 50,50,1
Screen Swap
Repeat
Until KeyState(69)
Screen Close 1
Erase All
Ostatnia aktualizacja: 08.08.2021 11:51:42 przez mastaszek
Te ekrany masz na odwrót. Zrób tak:
Wait 10
Dual Playfield 1,0
Dual Priority 0,1
Teraz ekran z obrazkiem jest na drugim planie. A po otwarciu pierwszego planu, musisz go wyczyścić kolorem nr 0, czyli przezroczystym. Generalnie spróbuj tak:
Screen Open 0,320,200,4,Lowres <ekran do wycięcia boba
Paper 0: Print "bobek jakis"
Get Bob 0,1,0,0 to 40,8
Screen Open 1,320,256,8,Lowres < ekran "tło"
Hide: Curs Off: Flash Off
Load Iff "level1"
Screen Open 0,320,256,4,Lowres < ekran pierwszoplanowy
Curs Off: Flash Off
Cls 0 < musi być wyczyszczony kolorem 0, żeby ekran pod nim był widoczny
Wait 10 < zaczekaj chwilę przed Dual Playfield
Dual Playfield 1,0
Dual Priority 0,1
Paste Bob 50,50,1
Screen Swap
Repeat
Until KeyState(69)
Screen Close 1
Erase All
Ostatnia aktualizacja: 08.08.2021 11:51:42 przez mastaszek
08.08.2021 14:38
[#215]
Re: Tworzenie gier
@mastaszek, post #214
Nie no miałem jak mi napisałeś. Drugoplanowy ekran Screen1 miałem 8 kolorowy z tapetą. Potem pierwszoplanowy Screen0 4 kolorowy. Teraz wczytuję boba na pierwszoplanowym ale kolory mam zmienione. Chyba zrobię to sprajtem żeby użyć osobnej palety kolorów abym mógł mu nadać oryginalne kolory. Próbowałem zwykłą tabelą dwuwymiarową ale faktycznie tabeli TAB(320,256) nie da się stworzyć :D za duże parametry. Jak zrobię tego sprajta do porządku to zacznę zabawę z tymi komendami które mi podałeś wczoraj. Jestem ciekaw jak to wyjdzie.
08.08.2021 14:49
[#216]
Re: Tworzenie gier
@tukinem, post #215
Na sprajcie zrób głównego bohatera, a resztę na PASTE BOBach.
Paleta w Dual Playfield to
ekran (kolory 0-7)
ekran (kolory 8-15)
Kolory ustawiasz za pomocą Colour (nrKol)=$rgb
Paletę (całą, czyli kol 0-15) ustawiasz na głównym ekranie już po włączeniu Dual Playfield.
Ostatnia aktualizacja: 08.08.2021 14:49:45 przez mastaszek
Paleta w Dual Playfield to
ekran (kolory 0-7)
ekran (kolory 8-15)
Kolory ustawiasz za pomocą Colour (nrKol)=$rgb
Paletę (całą, czyli kol 0-15) ustawiasz na głównym ekranie już po włączeniu Dual Playfield.
Ostatnia aktualizacja: 08.08.2021 14:49:45 przez mastaszek
08.08.2021 15:53
[#220]
Re: Tworzenie gier
@tukinem, post #218
Paletę ustalasz na Screen 1 dla OBU ekranów i dla sprajta. Ustawiasz od razu wszystkie kolory (ekranów) 0-15 i dla sprajta też.
Po prostu przed pętlą główną przełącz na chwilę na ekran 1, ustaw paletę i przełącz z powrotem na ekran pierwszoplanowy.
Screen 1
Colour(0)=$rgb
Colour(1)=$rgb
Colour(...)=$rgb
Screen 0
Po prostu przed pętlą główną przełącz na chwilę na ekran 1, ustaw paletę i przełącz z powrotem na ekran pierwszoplanowy.
Screen 1
Colour(0)=$rgb
Colour(1)=$rgb
Colour(...)=$rgb
Screen 0
08.08.2021 15:53
[#221]
Re: Tworzenie gier
@mastaszek, post #207
- kopiujesz zawartość ekranu (aktualnie iff z tłem) do BANKU (POINT (x,y) po obrazku i POKE do banku)
jak to wykonać?
Zrobiłem pętlę:
FOR I=0 TO 320
FOR J=0 TO 256
POKE 8,POINT(I,J)
NEXT:NEXT
POKE to wpisywanie do rejestru, PEEK to wczytywanie, ale nie mogę jeszcze tego pojąć za bardzo. Wpisałem tak, jak mi podałeś, ale zrobiłem RESERVE AS WORK 8,81920 'czyli 320x256. Co oznacza komenda POCZATEKBANKU=START(8)? W trybie bezpośrednim wpisuję START(8) to mi wyskakuje Synax Error. Po wpisaniu PEEK(8) to samo. Nie rozumiem jak skopiować ekran do pamięci. Domyślam się, że będzie się kopiować nr koloru każdego piksela tak?
08.08.2021 16:05
[#223]
Re: Tworzenie gier
@mastaszek, post #222
Wpisałem tak i mi się emulator wiesza. Error K10 mi wyskakuje :/
Już mam. Zamiast POCZATEKBANKU to wpisywałem 8
OK. Odpalam program, wczyta wszystko do banku. Przerywam program (CTRL+C) i wchodzę w tryb bezpośredni. Wpisuję PEEK(8) np. i dalej Synax Error. Nie pokazuje mi zapisanych danych w pamięci.
Ostatnia aktualizacja: 08.08.2021 16:07:07 przez tukinem
Ostatnia aktualizacja: 08.08.2021 16:08:55 przez tukinem
Już mam. Zamiast POCZATEKBANKU to wpisywałem 8
OK. Odpalam program, wczyta wszystko do banku. Przerywam program (CTRL+C) i wchodzę w tryb bezpośredni. Wpisuję PEEK(8) np. i dalej Synax Error. Nie pokazuje mi zapisanych danych w pamięci.
Ostatnia aktualizacja: 08.08.2021 16:07:07 przez tukinem
Ostatnia aktualizacja: 08.08.2021 16:08:55 przez tukinem
08.08.2021 16:31
[#227]
Re: Tworzenie gier
@mastaszek, post #226
Screen Open 0,320,256,4,Lowres
Load Iff "bob4"
Get Sprite 1,66,0 To 80,10
Get Sprite 2,0,0 To 16,10
Get Sprite 3,0,11 To 16,21
Get Sprite 4,0,22 To 16,32
Get Sprite 5,17,0 To 32,10
Get Sprite 6,17,11 To 32,21
Get Sprite 7,17,22 To 32,32
Get Sprite 8,31,0 To 48,10
Get Sprite 9,31,11 To 48,21
Get Sprite 10,31,22 To 48,32
Screen Open 1,320,256,8,Lowres
Curs Off : Flash Off
Load Iff "level1"
Colour 48,$CCC
Colour 49,$A20
Colour 50,$FFF
Colour 51,$E88
Screen Open 0,320,256,4,Lowres
Curs Off : Flash Off
Cls 0
Double Buffer
Wait 10
Dual Playfield 1,0
Dual Priority 0,1
Autoback 0
Reserve As Work 8,81920
POCZATEK=Start(8)
For I=0 To 319
For J=0 To 255
Poke Start(8)+I+J*319,Point(I,J)
Next
Next
Repeat
Screen 0
Pen 2
Screen 1
Print At(0,0);Peek(X Screen(X Mouse)+Y Screen(Y Mouse)*319);" ";
Sprite 1,X Hard(148),Y Hard(190),1
Until Key State(69)
Screen Close 1
Nawet gdy jeżdżę myszą po pustych polach to mi pokazuje liczby np. 31, 255,192,129... A jeżdżąc po miejscach, gdzie są kolory to też raz pokazuje numer a raz nie. Poza tym te liczby to nie są numery kolorów chyba
Ostatnia aktualizacja: 08.08.2021 16:35:24 przez tukinem
Load Iff "bob4"
Get Sprite 1,66,0 To 80,10
Get Sprite 2,0,0 To 16,10
Get Sprite 3,0,11 To 16,21
Get Sprite 4,0,22 To 16,32
Get Sprite 5,17,0 To 32,10
Get Sprite 6,17,11 To 32,21
Get Sprite 7,17,22 To 32,32
Get Sprite 8,31,0 To 48,10
Get Sprite 9,31,11 To 48,21
Get Sprite 10,31,22 To 48,32
Screen Open 1,320,256,8,Lowres
Curs Off : Flash Off
Load Iff "level1"
Colour 48,$CCC
Colour 49,$A20
Colour 50,$FFF
Colour 51,$E88
Screen Open 0,320,256,4,Lowres
Curs Off : Flash Off
Cls 0
Double Buffer
Wait 10
Dual Playfield 1,0
Dual Priority 0,1
Autoback 0
Reserve As Work 8,81920
POCZATEK=Start(8)
For I=0 To 319
For J=0 To 255
Poke Start(8)+I+J*319,Point(I,J)
Next
Next
Repeat
Screen 0
Pen 2
Screen 1
Print At(0,0);Peek(X Screen(X Mouse)+Y Screen(Y Mouse)*319);" ";
Sprite 1,X Hard(148),Y Hard(190),1
Until Key State(69)
Screen Close 1
Nawet gdy jeżdżę myszą po pustych polach to mi pokazuje liczby np. 31, 255,192,129... A jeżdżąc po miejscach, gdzie są kolory to też raz pokazuje numer a raz nie. Poza tym te liczby to nie są numery kolorów chyba
Ostatnia aktualizacja: 08.08.2021 16:35:24 przez tukinem
08.08.2021 16:45
[#228]
Re: Tworzenie gier
@mastaszek, post #226
Powiem Ci, że zrobiłem identycznie, ale na jednym ekranie bez Dual Playfield itd. Działa :)
Screen Open 0,320,256,16,Lowres
Curs Off : Flash Off
Load Iff "level1"
Reserve As Work 8,81920
For I=0 To 319
For J=1 To 255
Poke Start(8)+I+J*320,Point(I,J)
Next : Next
Repeat
Print At(0,0);Peek(Start(8)+X Screen(X Mouse)+Y Screen(Y Mouse)*320);" ";
Until Key State(69)
Erase All
Screen Open 0,320,256,16,Lowres
Curs Off : Flash Off
Load Iff "level1"
Reserve As Work 8,81920
For I=0 To 319
For J=1 To 255
Poke Start(8)+I+J*320,Point(I,J)
Next : Next
Repeat
Print At(0,0);Peek(Start(8)+X Screen(X Mouse)+Y Screen(Y Mouse)*320);" ";
Until Key State(69)
Erase All
08.08.2021 16:57
[#229]
Re: Tworzenie gier
@tukinem, post #228
W tej wersji z Dual Playfield podmień końcówkę na to poniżej. Poprawiony PEEK i dodany SCREEN SWAP. Screen Swap podmienia ekran widoczny z buforowanym. Mi to poniżej działa i pokazuje kolor pod wskaźnikiem myszy. Ustaw Amigę w winUAE na 'fastes possible', bo amos długo sczytuje te kolory do banku i trzeba poczekać zanim dojdzie do głównej pętli.
Screen 0
Paper 0
Pen 2
Repeat
Print At(0,0);Peek(POCZATEK+X Screen(X Mouse)+Y Screen(Y Mouse)*320);" ";
Sprite 1,X Hard(148),Y Hard(190),1
Screen Swap
Until Key State(69)
Ostatnia aktualizacja: 08.08.2021 17:00:20 przez mastaszek
Screen 0
Paper 0
Pen 2
Repeat
Print At(0,0);Peek(POCZATEK+X Screen(X Mouse)+Y Screen(Y Mouse)*320);" ";
Sprite 1,X Hard(148),Y Hard(190),1
Screen Swap
Until Key State(69)
Ostatnia aktualizacja: 08.08.2021 17:00:20 przez mastaszek
08.08.2021 20:14
[#231]
Re: Tworzenie gier
@mastaszek, post #229
No trochę się namęczyłem przez błąd w książce. Dziwiło mnie, że wchodząc sprajtem w kolory pokazywało mi głupoty, a wchodząc myszą było dobrze. W książce pisze:
X Hard(X) - funkcja przelicza współrzędną ekranową (graficzną) x ekranu bieżącego na współrzędną sprzętową
X Screen(X) - funkcja przelicza współrzędną ekranową x ekranu bieżącego na współrzędną sprzętową.
Y Hard(Y) i Y Screen(Y) to samo.
Dziwiło mnie, że dwie różne funkcje są identyczne. Okazuje się, że jednak X Screen(X) i Y Screen(Y) przelicza współrzędną sprzętową na współrzędną ekranową. Dobrze mówię? Funkcje Hard wstawia się przy sprajtach, a funkcje X Screen przy myszy np. żeby wiedzieć współrzędną ekranową a nie sprzętową. Ale w przykładach pod opisami komendy X Screen i Y Screen już błędu nie ma :)
X Hard(X) - funkcja przelicza współrzędną ekranową (graficzną) x ekranu bieżącego na współrzędną sprzętową
X Screen(X) - funkcja przelicza współrzędną ekranową x ekranu bieżącego na współrzędną sprzętową.
Y Hard(Y) i Y Screen(Y) to samo.
Dziwiło mnie, że dwie różne funkcje są identyczne. Okazuje się, że jednak X Screen(X) i Y Screen(Y) przelicza współrzędną sprzętową na współrzędną ekranową. Dobrze mówię? Funkcje Hard wstawia się przy sprajtach, a funkcje X Screen przy myszy np. żeby wiedzieć współrzędną ekranową a nie sprzętową. Ale w przykładach pod opisami komendy X Screen i Y Screen już błędu nie ma :)
08.08.2021 20:22
[#232]
Re: Tworzenie gier
@tukinem, post #230
Jest sens Dual Playfielda, bo wtedy masz do czyszczenia tylko jeden 4 kolorowy ekran i nie musisz się martwić o nieruchome elementy tła.
Skopiuj i uruchom to. Po uruchomieniu musisz poczekać (dłuższą chwilę) aż zapiszą się dane do banku. To trwa, dlatego przyspiesz procka w winUAE ustawiając Fastest Possible i wyłącz Cycle Exact. Powinien się pojawiać numer koloru pod wskaźnikiem myszy.
*******************************
Screen Open 0,320,256,4,Lowres
Load Iff "bob4"
Get Sprite 1,66,0 To 80,10
Get Sprite 2,0,0 To 16,10
Get Sprite 3,0,11 To 16,21
Get Sprite 4,0,22 To 16,32
Get Sprite 5,17,0 To 32,10
Get Sprite 6,17,11 To 32,21
Get Sprite 7,17,22 To 32,32
Get Sprite 8,31,0 To 48,10
Get Sprite 9,31,11 To 48,21
Get Sprite 10,31,22 To 48,32
Screen Open 1,320,256,8,Lowres
Curs Off : Flash Off
Load Iff "level1"
Colour 48,$CCC
Colour 49,$A20
Colour 50,$FFF
Colour 51,$E88
Screen Open 0,320,256,4,Lowres
Curs Off : Flash Off
Cls 0
Double Buffer
Wait 10
Dual Playfield 1,0
Dual Priority 0,1
Autoback 0
Reserve As Work 8,81920
POCZATEK=Start(8)
Screen 1
For I=0 To 319
For J=0 To 255
Poke POCZATEK+I+J*320,Point(I,J)
Next
Next
Screen 0
Paper 0
Pen 2
Repeat
Print At(0,2),Peek(POCZATEK+X Screen(X Mouse)+Y Screen(Y Mouse)*320);" ";
Sprite 1,X Hard(148),Y Hard(190),1
Screen Swap
Until Key State(69)
Screen Close 1
Erase All
Ostatnia aktualizacja: 08.08.2021 20:23:58 przez mastaszek
Skopiuj i uruchom to. Po uruchomieniu musisz poczekać (dłuższą chwilę) aż zapiszą się dane do banku. To trwa, dlatego przyspiesz procka w winUAE ustawiając Fastest Possible i wyłącz Cycle Exact. Powinien się pojawiać numer koloru pod wskaźnikiem myszy.
*******************************
Screen Open 0,320,256,4,Lowres
Load Iff "bob4"
Get Sprite 1,66,0 To 80,10
Get Sprite 2,0,0 To 16,10
Get Sprite 3,0,11 To 16,21
Get Sprite 4,0,22 To 16,32
Get Sprite 5,17,0 To 32,10
Get Sprite 6,17,11 To 32,21
Get Sprite 7,17,22 To 32,32
Get Sprite 8,31,0 To 48,10
Get Sprite 9,31,11 To 48,21
Get Sprite 10,31,22 To 48,32
Screen Open 1,320,256,8,Lowres
Curs Off : Flash Off
Load Iff "level1"
Colour 48,$CCC
Colour 49,$A20
Colour 50,$FFF
Colour 51,$E88
Screen Open 0,320,256,4,Lowres
Curs Off : Flash Off
Cls 0
Double Buffer
Wait 10
Dual Playfield 1,0
Dual Priority 0,1
Autoback 0
Reserve As Work 8,81920
POCZATEK=Start(8)
Screen 1
For I=0 To 319
For J=0 To 255
Poke POCZATEK+I+J*320,Point(I,J)
Next
Next
Screen 0
Paper 0
Pen 2
Repeat
Print At(0,2),Peek(POCZATEK+X Screen(X Mouse)+Y Screen(Y Mouse)*320);" ";
Sprite 1,X Hard(148),Y Hard(190),1
Screen Swap
Until Key State(69)
Screen Close 1
Erase All
Ostatnia aktualizacja: 08.08.2021 20:23:58 przez mastaszek
08.08.2021 20:32
[#233]
Re: Tworzenie gier
@mastaszek, post #232
Dobra mam to. Zamiast mnożyć "J"*320 to mnożyłem *319. Miesza się trochę przez to że ostatnia liczba to 319, bo 0 jest pierwsze. Teraz działa. A co do tych komend to mam rację? Chyba mam błąd w książce odnośnie X Screen i Y Screen.
Ostatnia aktualizacja: 08.08.2021 20:37:52 przez tukinem
Ostatnia aktualizacja: 08.08.2021 20:37:52 przez tukinem
08.08.2021 22:26
[#234]
Re: Tworzenie gier
@mastaszek, post #232
link
Wrzucam skompilowaną wersję.
Z fizyki zrobiłem trzymanie się trawki, spadanie oraz wspinanie się po drabince i schodzenie z drabinki.
Faktycznie rysując poziomy w taki sposób można szybko dołożyć wszystkie naraz, lecz wczytywanie poziomu jest strasznie długie na 7MHz. Dziwne, bo komendy typu PEEK i POKE należą do Asemblera z tego, co w książce pisze, więc powinno być szybciutko.
ESC : wyjście z gry
Ostatnia aktualizacja: 08.08.2021 22:27:16 przez tukinem
Wrzucam skompilowaną wersję.
Z fizyki zrobiłem trzymanie się trawki, spadanie oraz wspinanie się po drabince i schodzenie z drabinki.
Faktycznie rysując poziomy w taki sposób można szybko dołożyć wszystkie naraz, lecz wczytywanie poziomu jest strasznie długie na 7MHz. Dziwne, bo komendy typu PEEK i POKE należą do Asemblera z tego, co w książce pisze, więc powinno być szybciutko.
ESC : wyjście z gry
Ostatnia aktualizacja: 08.08.2021 22:27:16 przez tukinem
09.08.2021 10:45
[#239]
Re: Tworzenie gier
@tukinem, post #238
Już głupie pytania zadaję :)
Teraz z pliku szybciutko wczytuje, ale za to widzę, że plik z danymi zajmuje 80kB. Patrząc przyszłościowo, to gra mająca 11 poziomów będzie zawierać ponad 880kB, a to już przekracza jedną dyskietkę. Sporo jak na gierkę z 1991 roku :D no ale to właśnie albo szybkość albo oszczędność...
Teraz z pliku szybciutko wczytuje, ale za to widzę, że plik z danymi zajmuje 80kB. Patrząc przyszłościowo, to gra mająca 11 poziomów będzie zawierać ponad 880kB, a to już przekracza jedną dyskietkę. Sporo jak na gierkę z 1991 roku :D no ale to właśnie albo szybkość albo oszczędność...
