Welcome, Guest. Please login or register.


Author Topic: Ugribugri Sundibundi (Read 39907 times)

Offline Ferro73

  • EP addict
  • *
  • Posts: 1013
  • Country: hu
Re: Ugribugri Sundibundi
« Reply #30 on: 2024.March.26. 17:51:22 »
Egyébként még egyszerűbben meg lehetne csinálni, hogy az I$(szin) megadásával is működjön, és ne kelljen I$&CHR$(szin).

Nem rossz ötlet letesztelem melyik a legjobb BASICban és zzzip ben.

Offline Ferro73

  • EP addict
  • *
  • Posts: 1013
  • Country: hu
Re: Ugribugri Sundibundi
« Reply #31 on: 2024.March.26. 18:55:24 »
1. SET INK x                            BASIC 00:03:21    ZZZiP 00:01:07
2. CHR$(27)&"I"&CHR$(x)   BASIC 00:03:24    ZZZiP 00:01:03
3. I$&CHR$(x)                       BASIC 00:03:07    ZZZiP 00:01:02
4. IS$(x)                                BASIC 00:03:07    ZZZiP 00:01:02

Én EP128emu-n mértem.
Valódi gépen kilehetne próbálni.
Mellékelem a progikat /Basic és ZZZiP/

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 10085
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Ugribugri Sundibundi
« Reply #32 on: 2024.March.26. 20:21:51 »
Én EP128emu-n mértem.
Kicsit meglepő a végeredmény.
Az I$(szin)-t én így gondolnám:
Code: [Select]
   10 GRAPHICS ATTRIBUTE
   20 PRINT #101,AT 2,2:I$(1)&"TEXT "&I$(2)&"ENTER"&I$(3)&"PRISE"
   30 PRINT #101,AT 4,2:I$(4)&"128"&I$(5)&" kilobytes"
  100 DEF I$(X)
  110   LET I$=CHR$(27)&"I"&CHR$(X)
  120 END DEF
(Tehát csak megadjuk paraméterben a szín kódját, és át is váltja a színt.)
Amit te írtál, az más, ha jól értem.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Ferro73

  • EP addict
  • *
  • Posts: 1013
  • Country: hu
Re: Ugribugri Sundibundi
« Reply #33 on: 2024.March.27. 21:25:39 »
Kicsit meglepő a végeredmény.
Az I$(szin)-t én így gondolnám:
Code: [Select]
  10 GRAPHICS ATTRIBUTE
   20 PRINT #101,AT 2,2:I$(1)&"TEXT "&I$(2)&"ENTER"&I$(3)&"PRISE"
   30 PRINT #101,AT 4,2:I$(4)&"128"&I$(5)&" kilobytes"
  100 DEF I$(X)
  110   LET I$=CHR$(27)&"I"&CHR$(X)
  120 END DEF
(Tehát csak megadjuk paraméterben a szín kódját, és át is váltja a színt.)
Amit te írtál, az más, ha jól értem.
Nem, rosszul érted
DEF -et CALL al éred el.


Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 10085
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Ugribugri Sundibundi
« Reply #34 on: 2024.March.27. 21:28:53 »
DEF -et CALL al éred el.
Ezt nem tudom, hogyan érted. Nem csak CALL-lal, hanem PRINT-tel is el lehet érni a DEF-et. PRINT I$(x) kb. meghívja a DEF I$(x) részt és onnan meríti a tennivalóját, ez szerintem több idő, mint ha PRINT után adjuk meg ezt egyből.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Ferro73

  • EP addict
  • *
  • Posts: 1013
  • Country: hu
Re: Ugribugri Sundibundi
« Reply #35 on: 2024.March.27. 21:44:33 »
Részben igazad van.
Bár ha megnézted volna rendesen a programot láthattad volna a hibámat.

mindegy.
Javítottam és bele raktam az 5.-nek variációdat
1. SET INK x                            BASIC 00:03:21    ZZZiP 00:01:07
2. CHR$(27)&"I"&CHR$(x)   BASIC 00:03:24    ZZZiP 00:01:03
3. I$&CHR$(x)                       BASIC 00:03:07    ZZZiP 00:01:02
4. IS$(x)                    hibás   BASIC 00:03:07    ZZZiP 00:01:02
4. IS$(x)                                 BASIC 00:03:32
5. ISD$(x)      def                   BASIC 00:05:01

Így az elgondolásod a legrosszabb.

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 10085
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Ugribugri Sundibundi
« Reply #36 on: 2024.March.30. 13:03:35 »
Code: [Select]
3120   FOR X=1 TO 24
 3130     IF X>4 AND X<11 THEN GOTO 3170
 3140     OPEN #X:"video:"
 3150     DISPLAY #X:AT X FROM 1 TO 1
 3160     SET #X:COLOR 1,255
 3170   NEXT
Javaslat
Code: [Select]
3130     IF X=5 THEN LET X=11
Felesleges ciklusuk kihagyása.
Ez biztosan jó így? A 3130-as sor lecserélésével a 6 és 10 közötti értékekre nem ugrik a 3170-es sorba.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Ferro73

  • EP addict
  • *
  • Posts: 1013
  • Country: hu
Re: Ugribugri Sundibundi
« Reply #37 on: 2024.March.30. 14:04:56 »
Ha jól értettem a rutint akkor csatorna megjelenítés
1,2,3,4,  11,12,13,14,15,16,17,18,19,20,21,22,23,24

Mindenképp jó.
Felesleges lefuttatni  az 5,6,7,8,9,10 sorokat.

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 10085
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Ugribugri Sundibundi
« Reply #38 on: 2024.March.30. 21:26:44 »
Mindenképp jó.
Ja, hogy magát a ciklusváltozó értékét változtatod meg a cikluson belül! Akkor hiába van a FOR-nál 1 TO 24, az 5-nél átugrasztod 11-re, és akkor kimarad minden 6 és 10 között. Most már leesett.
Szerintem ezt már nem írom át a programban, mert csak induláskor a pálya kirajzolásakor van rá szükség, és csak 1-2 tizedmásodpercet (vagy annyit se) nyernénk vele. (Macerás a working directoryba visszamásolni mindent, átírni, majd Zzzippel lefordítani, majd Zipbe betömöríteni és feltölteni ide. :D ) De ettől még jó ötlet, jó az elv, nekem nem jutott volna eszembe, majd máskor ilyet is be fogok vetni, ha úgy alakul.

Amin még gondolkozom, hogy a felső pályán a lyukak helyére milyen színű iszapot lehetne tenni, amiben a pacman elsüllyed. Kicsit kísérleteztem vele, mire a mostani karakter meglett, de szerintem nem tökéletes. Ez itt 255 színű karakteres módot használ, tehát a 9 karaktersorban soronként bármilyen színű vonalak lehetnek. Ha erre sincs jobb javaslat a jelenleginél, akkor részemről kész a program. Ehhez  mondjuk a színkódokat és a hozzájuk való színeket is elő kell szedni, és a jelenlegi programban sem feltétlen egyszerű letesztelni az új karaktert, hogy hogyan néz ki, de ha valaki mégis kísérletezne, és csak ez az akadály, szóljon! Annyi a nehézség, hogy a STOP le van tiltva, azt ki kell venni a programból, és STOP után a nem látható szöveges képernyőn kell a karakterdefinícióval próbálkozni, ami rögtön megjelenik a lyukakon, ez a zzzippeletlen basic programból (source mappában van) is megtehető. Most ez az aktuális:

SET CHARACTER 140,56,56,56,112,112,48,48,32,0

Ha esetleg valaki mégis próbálkozik, akkor a megfelelő ábra megtalálása után DISPLAY TEXT (vagy SHIFT+F5), és láthatóvá válik, amit beírtunk, de snapshotot is örömmel fogadok.
« Last Edit: 2024.March.30. 21:30:08 by szipucsu »
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Ferro73

  • EP addict
  • *
  • Posts: 1013
  • Country: hu
Re: Ugribugri Sundibundi
« Reply #39 on: 2024.March.30. 21:42:33 »
Nem vagyok grafikus. Olyasmit lehetne, hogy lefelé hullámozna a szín?
Nem csak a PACMAN karakter változna hanem a mocsár karaktere is.

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 10085
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Ugribugri Sundibundi
« Reply #40 on: 2024.March.30. 21:52:42 »
Nem vagyok grafikus. Olyasmit lehetne, hogy lefelé hullámozna a szín?
Nem csak a PACMAN karakter változna hanem a mocsár karaktere is.
Érdekes ötlet, mindenképpen kipróbálom majd. Van egy set charactert gyorsító speek-es megoldásod, azzal biztos gyors lenne, bár nem szeretném, ha a sebesség rovására menne, mert így is túl könnyű a játék. Az is kérdés, a set character értékeit honnan szedje, amivel nem megy el sok idő. Lehetne véletlenszerű is, és 3-4 érték közül választhatna mindegyik sorra vonalszínt.
Egyébként nem a pacman karakter változik, hanem két különböző karaktert használ, egyszer az egyiket írja oda, egyszer a másikat. De még az is lehet, hogy a print helyett a set characteres (speek-es) megoldás gyorsabb lenne. És mondjuk ugrásnál is már ott lenne feljebb is a karakter, csak alapból 000 értékei lennének, és azt írná át.
Talán elkísérletezem ezzel még, de valószínűleg csak húsvét után.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Ferro73

  • EP addict
  • *
  • Posts: 1013
  • Country: hu
Re: Ugribugri Sundibundi
« Reply #41 on: 2024.March.30. 21:59:01 »
Akkor jó munkát örülök, hogy valamivel segíthettem.
Ha látok valamit még majd javaslok, ha lehet még.

Még, még még ennyi nem elég...

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 10085
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Ugribugri Sundibundi
« Reply #42 on: 2024.March.30. 22:07:55 »
ha lehet még.
Lehet, minden javaslat érdekel!
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Ferro73

  • EP addict
  • *
  • Posts: 1013
  • Country: hu
Re: Ugribugri Sundibundi
« Reply #43 on: 2024.March.31. 10:31:37 »
Egyébként nem a pacman karakter változik, hanem két különböző karaktert használ, egyszer az egyiket írja oda, egyszer a másikat.
Megtaláltam.
Javaslat.
Ha már nem változtatsz a progin akkor vagy a kezdet kezdetén a CHR$(x) helyett próbáld meg a "x" /értelem szerűen/ variációt használni.
Kb. "" 50 / 66 CHR$() lehet az arány.

Ha lassulás lenne a set charactert gyorsítóval kompenzálni tudod a 2610 sor VARJ ciklussal.

Valamint
Code: [Select]
CHR$(27)&"I"&CHR$(COL)helyett későbbiekben
Code: [Select]
...   I$&CHR$(COL)Ha már bele raktad a VAR_INI -be
Code: [Select]
3810   LET I$=CHR$(27)&"I"Köszönjük az ötletes progikat.

Offline Ferro73

  • EP addict
  • *
  • Posts: 1013
  • Country: hu
Re: Ugribugri Sundibundi
« Reply #44 on: 2024.March.31. 13:31:58 »
Faragtam a DEF EPI rutinból ami 771 bájt.
Most 663 bájt INFO-val.