Úttörőáruház, ahol EP-t lehetett kapni. A második szint The Centrum Aruhaz. De vannak még ennél komolyabbak is. De nem lövöm le a poént, csak ha nagyon nem jutna tovább senki, de szerintem nem annyira nehéz.

Meg lehetne csinálni, hogy egyenletes legyen nagyjából a sebesség. Tele van SPOKE-kal a basic program is, így ha nem hívná meg mindig a lassító eljárást, eléggé gyors lenne. Egy változó értéke adja meg mindig, mennyit várakozzon, és mozgásnál kisebb a várakozás, főleg ha eszi a bogyókat vagy görgeti a képernyőt. Viszont elég nehéz belőni pontosan az értékét.

Bocs, elgépeltem, igen, arra gondoltam, hallani sokat hallottam róla, én a Miskolci rumba-rumba a Centrumba jártam programokért , a gép nem tudom honnan származik, lehet a szülők pont az Úttörőáruházban vették
Nem annyira nehéz, én nem szeretek sokat tölteni egy játékkal, ezért van az, hogy konvertálás közben is "megutálom" a programok nagy részét

Szerintem sokkal jobb így. Fel-le irányban is meg kéne csinálni, és figyelje a bigyókat is, ne csak a szóközöket, akkor tök élvezetesen lehet majd száguldozni vele.

A CALL-ok és GOTO-k helyett két jelzőváltozót (flag) lehetne alkalmazni. Például CFLAG és GFLAG. A CFLAG értéke legyen mondjuk 0, 1 vagy 2 aszerint, hogy nem kell hívni semmit, NYAMM-ot vagy BONUSPILL-t kell hívni. Hasonlóan GFLAG értéke legyen 0 ha nem kell a SELECT CASE szerkezet után ugrást végezni, vagy legyen az ugrás cél sorszáma.

Ha van egy kis szerencséd, akkor a négy irány szerint annyi lesz a különbség, hogy a koordináta változókhoz milyen értéket kell hozzáadni. (A kivonás negatív érték hozzáadása!) Ebben az esetben az irányok függvényében feltölthetsz kellő számú változót a megfelelő értékekkel egy első SELECT CASE szerkezetben, utána pedig a másodikban elvégzed a számolt koordináták alapján a pályaadatok ellenőrzését és a frissítést.

Megcsináltam, látszólag működik mindegyik irányban:
 Gems easier moving.ep128s (51.85 kB - downloaded 137 times.)
 Gems easier moving.zip (20.77 kB - downloaded 135 times.)
Jelentősen egyszerűsítettem a programon. A joy figyelésénél csak meghatározza a változók értékét, hogy milyen irányba, mit hogyan mennyit. Majd a joy figyelést követően ezeknek a változóknak az értéke alapján arrébb is löki, amit kell.
Iderakom a programrészletet. Ilyenre gondoltatok, vagy még ennél is egyszerűbbre? Még talán az a DISPLAY is elég lenne egyetlen egyszer a végén, nem többször ott belül.
A K1 azt jelöli, hogy ha van út az adott irányba, abba menjen annyit.
K2: az egyik irányba nézi az arrébb lévő kaput
K3: a másik irányba nézi az arrébb lévő kaput
P0: ennyit görgesse a képernyőt, ha van út az adott irányban
P1: ennyit görgesse a gépernyőt, ha az arrébb lévő irányban van út.
P2: ennyit görgesse a gépernyőt, ha a másik arrébb lévő irányban van út.
500 SELECT CASE JOY(ST)
 510 CASE 1
 520   SOUND SOURCE 3,ENVELOPE 10,INTERRUPT,STYLE 8,LEFT 127,RIGHT 64
 530   SOUND PITCH RND(12)+49,INTERRUPT,ENVELOPE 4,SOURCE 1,STYLE 16,LEFT 64,RIGHT 127
 540   CALL CHAR_DEF(112,96,116,228,192,128,192,224,112,96) !JOBBRA
 550   LET K1=1:LET K2=35:LET K3=-33:LET P0=0:LET P1=1:LET P2=-1
 689 CASE 2
 690   SOUND PITCH RND(12)+49,INTERRUPT,ENVELOPE 4,SOURCE 1,STYLE 16,RIGHT 64,LEFT 127
 700   SOUND SOURCE 3,ENVELOPE 9,INTERRUPT,STYLE 12,LEFT 64,RIGHT 127
 720   CALL CHAR_DEF(112,96,226,114,48,16,48,112,224,96) !BALRA
 730   LET K1=-1:LET K2=33:LET K3=-35:LET P0=0:LET P1=1:LET P2=-1
 850 CASE 4
 860   SOUND PITCH 56+RND(12),ENVELOPE 4,SOURCE 1,INTERRUPT,RIGHT 64,LEFT 127,STYLE 32
 870   SOUND SOURCE 3,ENVELOPE 4,INTERRUPT,STYLE 16,LEFT 64,RIGHT 127
 890   CALL CHAR_DEF(112,0,96,240,240,248,248,144,144,144)
 900   LET K1=34:LET K2=33:LET K3=35:LET P0=1:LET P1=1:LET P2=1
1030 CASE 8
1040   SOUND PITCH 44+RND(12),ENVELOPE 4,SOURCE 1,INTERRUPT,LEFT 64,RIGHT 127,STYLE 48
1050   SOUND SOURCE 3,ENVELOPE 4,INTERRUPT,STYLE 16,LEFT 127,RIGHT 64
1070   CALL CHAR_DEF(112,144,144,144,144,248,248,240,96,0)
1080   LET K1=-34:LET K2=-33:LET K3=-35:LET P0=-1:LET P1=-1:LET P2=-1
1090 CASE 16
1100   GOTO 1660
1212 CASE ELSE
1213   LET WWW=60:GOTO 1270
1214 END SELECT
  ! tényleges mozgatás
1215 LET K=SPEEK(255,MAN+K1)
1216 SELECT CASE K
1217 CASE 32
1218   SPOKE 255,MAN,32:LET MAN=MAN+K1:LET WWW=37:LET POSI=POSI+P0:DISPLAY #102:AT 3 FROM POSI-9 TO POSI+10
1219 CASE 120
1220   SPOKE 255,MAN,32:LET MAN=MAN+K1:LET WWW=37:LET POSI=POSI+P0:CALL BONUSPILL
1222 CASE 42
1223   SPOKE 255,MAN,32:LET MAN=MAN+K1:LET WWW=20:LET POSI=POSI+P0:CALL NYAMM
1224 CASE 37
1225   GOTO 1660
1226 CASE ELSE
1227   SP=SPEEK(255,MAN+K2)
1228   SELECT CASE SP
1229   CASE 32
1230     LET WWW=30:LET POSI=POSI+P1:SPOKE 255,MAN,32:LET MAN=MAN+K2:DISPLAY #102:AT 3 FROM POSI-9 TO POSI+10:GOTO 1251
1231   CASE 120
1232     LET WWW=30:LET POSI=POSI+P1:SPOKE 255,MAN,32:LET MAN=MAN+K2:CALL BONUSPILL:GOTO 1251
1233   CASE 42
1234     LET WWW=30:LET POSI=POSI+P1:SPOKE 255,MAN,32:LET MAN=MAN+K2:CALL NYAMM:GOTO 1251
1235   CASE 37
1236     GOTO 1660
1237   CASE ELSE
1238   END SELECT
1239   SP=SPEEK(255,MAN+K3)
1240   SELECT CASE SP
1241   CASE 32
1242     LET WWW=30:LET POSI=POSI+P2:SPOKE 255,MAN,32:LET MAN=MAN+K3:DISPLAY #102:AT 3 FROM POSI-9 TO POSI+10
1243   CASE 120
1244     LET WWW=30:LET POSI=POSI+P2:SPOKE 255,MAN,32:LET MAN=MAN+K3:CALL BONUSPILL
1245   CASE 42
1246     LET WWW=30:LET POSI=POSI+P2:SPOKE 255,MAN,32:LET MAN=MAN+K3:CALL NYAMM
1247   CASE 37
1248    GOTO 1660
1249   CASE ELSE
1250   END SELECT
1251 END SELECT
1252 SPOKE 255,MAN,112

A SOUND parancsokat is ki lehetne gyűjteni az első SELECT CASE utánra, a már alkalmazott minta szerint.

Ennek lenne valami előnye? Újabb változóneveket kellene bevetni a sok sound paraméterhez. Maga a program nem lenne rövidebb tőle.

A K és SP értékét látszólag sehol sem használod, így az értéküket közvetlenül is betehetnéd a SELECT CASE paraméterének.

 

Érdekes módon a GOTO-k kiszervezésének mégsem kezdtél neki, pedig az volt a kiindulási alap, hogy tartasz tőle bajt okoznak.

Gondoltam rá, hogy máshogy kéne megcsinálni, csak tegnap hirtelen nagyon megörültem, hogy működik a könnyebben irányítható változat, és feltettem úgy, ahogy már működik.

Egyébként a GOTO 1251-eket ki lehet váltani azzal, hogy az 1227-be teszel egy SKIP = 0-t, az 1230, 1232 és 1234-be SKIP = 1-et, és az 1239-től 1250-ig sorokat beteszed egy IF NOT SKIP ... END IF blokkba. (Ha jól rémlik a szintaxis.)

Megoldható.

A példádban az 500-as sor elé betenni egy GFLAG = 0-t, az 1100-ba a GOTO helyett GFLAG = 1-et, az 1213-ba GFLAG = 2-t, majd az 1214-es sor után egy [IF GFLAG THEN] ON GFLAG GOTO 1660, 1270-et. (Vigyázni kell, hogy az esetleg kigyűjtött SOUND utasítások az ON GOTO után kerüljenek!)

Lehet, hogy a 1100-as sorban inkább majd valami CALL-lal kéne meghívni az energialevonó rutint, azt meg DEF rutinná alakítani. Közben mindig nézné ez az eljárás után, hogy 0 lesz-e az energia, és ha igen, akkor életlevonós, kinyiffanós, pályaelölrőlkezdős vagy gameover eseményeket realizálna. Szóval csak akkor térne vissza a ciklus elejére, ha energia>0, különben továbbmenne az életlevonósdi felé.

lehet hogy eléggé különböznek egymástól, hogy ne legyen érdemes külön sorokba kihozni őket és változókban paramétert átadni.

Annyira nem különböznek. Mindegyik esetben a zajcsatorna és egy négyszögjelcsatorna szól egyszerre, csak a left, right, style, pitch paraméterek eltérnek mind a négy iránynál. Jobbra és balra alacsony torzítással szól a hangcsatorna, lefele közepes, felfele magas torzítást használ. A zajcsatornának meg fel-le ugyanaz a polinomszámláló értéke, jobbra és balra meg két különböző, ennyi a lényege. Hogy ez amúgy mennyire fontos és mennyire érezni a különbséget és mennyit dob a játékon, az más kérdés. Az alacsony torzításnak mindig más a hangszínezete véletlenszerűen, amiről István már írt itt párszor, hogy a hangmegszakítás meg a Dave állapota éppen milyen és a hangminta milyen lesz tőle, vagy valami ilyesmi. Szóval ez a változatosabb hangzás is érdekesebbé teszi talán.
Lehetne Atic Atac játékból ismert lépéshanghoz hasonló, vagyis egy magasabb, egy mélyebb hang, és ezek váltogatnák egymást. Lehet, hogy lesz egy újabb verziója a játéknak, abban talán ilyen hang lesz, ebben marad, ami van, hacsak nincs más javaslat.

Viszont nem feltétlenül kell új változókat bevezetni!

Erre én is szoktam gondolni, csak kicsit nehéz nyomon követni az egész programban, milyen változók vannak már,amik csak egy adott programrészhez kellenek, és máshol újra felhasználhatók. Mindig attól félek, hogy a továbbfejlesztett programot nem fogja a Zzzip lefordítani, mert Too many labels üzenet lesz, régebben jártam már így. A Zzzip leírása szerint spórolni kell a változónevekkel és a sorszámokkal, mert elfogyhat az ezeknek fenntartott hely. Ezért is zsúfoltam be annyi mindent egy sorba a CASE ágak után.

Nem túl hangos a bogyóevés hangja? Nekem a zenéhez képest hangosnak tűnik.

Bocs! Elfuseráltam a mondatot. Igazából ez szeretett volna lenni: lehet hogy nem különböznek eléggé egymástól, hogy érdemes legyen külön sorokba kihozni őket és változókban paramétert átadni.

Megcsinálhatom, de annak mi lenne az előnye, miért lenne jobb úgy, mint most? A változóknak az értékadás kevesebb helyet foglalna, mint a SOUND utasítás a programban? Leírva a sound utasítás a paraméterekkel tényleg hosszú, de tokenizált formában vagy Zzzippel fordítva nem tudom, kisebb lenne-e úgy a program. De attól még lehet.