@tukinem, post #450

• Odpowiedz

@selur, post #451

• Odpowiedz

@tukinem, post #450

Amal 1,  "Move 0,-10,5 ; Anim 6,(11,5)(12,5)"

• Odpowiedz

@tukinem, post #453

• Odpowiedz

@selur, post #454

No właśnie kapłem się już Czemu tak jest, że animacja musi być przed przesunięciem? W książce nic o tym nie pisze. Aha jeszcze jedno. Wpisałem to tak:

Amal 1,"Petla: Anim 6,(11,5)(12,5) ; Move 0,-10,15 ; Jump Petla"

Dzięki temu zapętliłem cały program Amal nr 1. Dziwne, że gdy zamienię kolejnością właśnie Anim i Move, to wtedy tylko się przesuwa, nie animując się.

TUTAJ jest już wersja z animacją

Ostatnia aktualizacja: 15.07.2022 18:52:05 przez tukinem

• Odpowiedz

@tukinem, post #455

• Odpowiedz

@tukinem, post #456

"już mi się tablice znudziły" Przecież tablice to podstawowe narzędzie w programowaniu.

Ostatnia aktualizacja: 17.07.2022 11:08:09 przez mastaszek

• Odpowiedz

@mastaszek, post #457

• Odpowiedz

@tukinem, post #458

No w teorii to tablica to nic innego jak zaalokowany kawałek pamięci. A Peek.i Poke to są kultowe komendy Basica

• Odpowiedz

@tukinem, post #458

Nie stworzysz na przykład tablicy dwuwymiarowej 100x100.

Dim TABLICA(100,100)

• Odpowiedz

@selur, post #460

• Odpowiedz

@tukinem, post #461

Kazda komorka tablicy w Amosie, ma 4 bajty. Tablica o wymiarach 100*100 to 10000 elementow czyli 10000*4=40000 bajtow. Musisz zarezerwowac AMOS'owi ponad 40 kb pamieci RAM dla wszystkich zmiennych i tablic. Robi sie to na poczatku programu instrukcja

Set Buffer 50

Jak znowu zabraknie pamieci, to powiekszasz ten bufor o nastepne kilobajty zmieniajac ta linie na wieksza wartosc liczona w kilobajtach.

• Odpowiedz

@selur, post #462

Już calutki kod przerobiłem na Poke i Peek nie chce mi się teraz przepisywać na tablice, chociaż kusząca propozycja. 3 dni myślałem, jak rozgryźć taki algorytm, który będzie z pliku wczytywać:
1. towar na sprzedaż
2. ilość potrzebna
3. ilość w magazynie

chciałem użyć nie skomplikowanej pętli, która będzie sprawdzać odpowiednią liczbę (ze zmiennymi to odpada, bo nie da się wczytać nazwy zmiennej i później jej użyć).

Przykład:
If Peek(Start(6)+'nr konkretnego towaru'>=WYMAGANA_ILOSC Then 'zlecenie zaakceptowane'

Wiem, że to bardzo duże utrudnienie, bo numerkami z banku nie zapamięta się konkretnego towaru. Powiedz mi jeszcze jedną rzecz. Tu napiszę dwa kody. Czy faktycznie ten drugi będzie działać szybciej?

1.

Poke Start(6)+1,1
If Peek(Start(6)+1=1 Then Poke Start(6)+1),Peek(Start(6)+1)+2

2.

PSZENICA=1
If PSZENICA=1 THEN Add PSZENICA,2

Pytam, bo odnoszę wrażenie że teraz gra wolniej działa.

• Odpowiedz

@pisklak, post #459

• Odpowiedz

@mastaszek, post #464

Jak narazie daję radę. Spisałem wszystkie adresy, co jest czym. Kod z Peek/Poke działa mi chyba trochę wolniej niż ten ze zmiennymi. A niby bank mam zarezerwowany jako Data (dla fast ram). W takim razie spowalnia wyczytywanie z banku pamięci? Szybciej byłoby na zmiennych i tablicach?

Więszych wartości nie będę potrzebować, także Loke i Doke nie będę używać. W magazynie można mieć max 100 rzeczy, więc każda wartość w banku jest mniejsza niż 255 i wystarczy mi Poke/Loke

Ostatnia aktualizacja: 17.07.2022 18:17:09 przez tukinem

• Odpowiedz

@tukinem, post #465

• Odpowiedz

@mastaszek, post #466

Tak myślałem. Jednak odczytywanie ze zmiennej jest szybsze niż z banku pamięci. Wiemy, że to minimalna różnica, ale kod tej gry jest już bardzo długi i naprawdę mnóstwo odczytów/zapisów w nim jest.

W takim razie jeszcze raz ten kod przerobię.

Nie no teraz sprawdzałem jeszcze raz i jednak obie wersje działają tak samo po skompilowaniu

Ostatnia aktualizacja: 17.07.2022 18:53:46 przez tukinem

• Odpowiedz

@tukinem, post #463

• Odpowiedz

@selur, post #468

• Odpowiedz

@tukinem, post #469

• Odpowiedz

@selur, post #470

SB6=Start(6)
PSZENICA=Peek(SB6+1)
KUKURYDZA=Peek(SB6+2)
         ...

• Odpowiedz

@tukinem, post #471

• Odpowiedz

@mastaszek, post #472

• Odpowiedz

@tukinem, post #473

• Odpowiedz

@mastaszek, post #474

• Odpowiedz

@mastaszek, post #474

Skoro masz tak niewiele pozycji w banku, to w ogóle trzymaj wartości w zmiennych, bez zapisywania ich w banku.

Po to chciałem użyć banku i jego adresów, aby usprawnić zlecenia na sprzedaż towaru. Przykładowo ciężko wczytać z pliku z danymi nazwę zmiennej i jej użyć. Np. w jednym zleceniu potrzeba ziemniaków a w innym bimbru. Wczytując dane zlecenia nie wyczytam jaką zmienną użyć. Łatwiej wyczytać numer konkretnego adresu w banku pamięci i z niego skorzystać.

Nie wiem czy dobrze rozumiem, ale jeśli robisz np. tak:

kot=peek(adres)
if kot=cośtam then kot=cośtam
poke adres,kot

Chciałem zrobić mniej więcej tak:

Do
MLEKO=Peek(Start(6)+7) : 'wczytanie z banku pamięci do zmiennej
'                   ...długi kod 
If KROWA=1 and KLIK=1 Then Poke Start(6)+7,MLEKO+1 : zapis do banku pamięci

Jak tylko to możliwe używam zmiennych, a nie odwołań do banku pamięci. Jedynie podczas początku pętli przy wczytywaniu z banku do zmiennych i przy zapisie, które później i tak są aktualizowane.

< jeśli wiele razy w pętli głównej używasz Start(), to użycie zmiennej w zamian może być zauważalne.

Jak zauważalne? Patrząc na kod będzie estetyczniej? Bo w szybkości działania to chyba nic nie da. Ta gra i tak szybciej nie będzie działać. Nie ma szans

• Odpowiedz

@tukinem, post #476

• Odpowiedz

@mastaszek, post #477

• Odpowiedz

@tukinem, post #478

• Odpowiedz

@mastaszek, post #479

• Odpowiedz