Welcome, Guest. Please login or register.


Author Topic: Entersnake - gracha kígyós játék (Read 6783 times)

Offline szipucsu

  • EP addict
  • *
  • Posts: 7960
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Chrome 75.0.3770.100 Chrome 75.0.3770.100
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Entersnake - gracha kígyós játék
« Reply #45 on: 2019.July.06. 10:53:00 »
es43.bas.zip
Ezt kicsit továbbfejlesztettem, most a személyi igazolványtól is megfordul a képernyő, ha 16-nál kevesebb bogyót szedtünk még csak össze.
* es432.zip (20.8 kB - downloaded 10 times.)
Snaphot nincs, mert úgyse tölti le senki. (Az előzőt is én töltöttem le egyszer.)
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos

Offline szipucsu

  • EP addict
  • *
  • Posts: 7960
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Entersnake - gracha kígyós játék
« Reply #46 on: 2019.July.09. 14:09:24 »
Ebben van már pontszámtábla töltés és mentés:
* es433.zip (21.28 kB - downloaded 8 times.)
Töltésnél ilyen a WHEN blokk, hogy a töltéshibát kiküszöbölje:

És így kezeli:

Ez így jó? Amikor nem találta a fájlt, akkor a beépített toplista jelent meg, szóval látszólag működik. Nem tudom, az egyéb betöltéssel kapcsolatos hibákat mennyire kezeli.

Névbeírás után menti a toplistát mindig, de azt nem tettem hibakezelő eljárásba.

Lehetne ezt ennél szakszerűbben megcsinálni?
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos

Offline Ferro73

  • EP lover
  • *
  • Posts: 734
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
Re: Entersnake - gracha kígyós játék
« Reply #47 on: 2019.July.09. 14:55:50 »
Ha jól látom ez csak a pont számokat olvassa be.
Mi van  a nevekkel?

Offline szipucsu

  • EP addict
  • *
  • Posts: 7960
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Entersnake - gracha kígyós játék
« Reply #48 on: 2019.July.09. 15:07:46 »
Ha jól látom ez csak a pont számokat olvassa be.
Mi van  a nevekkel?
Egy stringbe van összefűzve a pontszám és a nevek. Csak kiírásnál szétszedve írja ki. Nézd meg az entsnak.hi fájlt, jegyzettömbbel is simán megnyitható, mint egy txt fájl. Benne van a pontszám és a nevek. Az első 5 karakter a pontszám, elején nullákkal. A többi karakter a név, a végén pontokkal. Minden ilyen stringnek 15 karakter hosszúnak kell lennie. Ez a sorbarendezés miatt fontos, mert ha nem egyforma hosszúak, akkor a rövidebbek kerülnek előre.
Azt meg bonyolultabb lett volna megcsinálni, hogy külön tárolja a pontszámot és külön a nevet, mert ha a pontszámot sorba rendezi, hogy a jó eredmények legyenek elől, akkor a hozzájuk tartozó neveknek is mellettük kell maradnia, azt meg macerás lett volna megcsinálni, egyszerűbb így.
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos

Offline Ferro73

  • EP lover
  • *
  • Posts: 734
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
Re: Entersnake - gracha kígyós játék
« Reply #49 on: 2019.July.09. 15:30:23 »
Ha maradt volna a név elöl az sem gond.
490 LET MYN=VAL(TOP$(10)(16:20)):...

Így maradhatott volna név elől szám utána.
És már csak PRINT TOP$(X) nem kell újra bontogatni újra összetenni.

Offline szipucsu

  • EP addict
  • *
  • Posts: 7960
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Entersnake - gracha kígyós játék
« Reply #50 on: 2019.July.09. 15:41:58 »
Ha maradt volna a név elöl az sem gond.
490 LET MYN=VAL(TOP$(10)(16:20)):...
Ez igaz. Eredetileg sima karakteres képernyőre (TEXT 40) íródott az egész. Ott azért is volt jó szétszedni, mert külön a pontszámot más színnel lehetett kiírni.
Ahogy most van, így is működik, ennyiből nem variálnám már. Kivéve, ha helyet lehet megspórolni vele. Ahogy emlékszem fejből, nem kell több sorszám hozzá most sem, mert egy sorba van összezsúfolva több PRINT utasítás. Vagy lehet ennek jelentősége, pl. múlhat ezen nagyobb programnál, hogy emiatt nem fordítja le a Zzzip, mert túl nagy a program? Amennyire tudom, a Zzzipnek a túl sok változónév és a túl sok sorszám az, ami betehet. Ezért is igyekeztem az átmeneti változóknak ugyanazt a nevet adni, pl. van az I és van a MITYI, amik ilyen változók.
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos

Offline Ferro73

  • EP lover
  • *
  • Posts: 734
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
Re: Entersnake - gracha kígyós játék
« Reply #51 on: 2019.July.09. 18:20:19 »
Akár hogyan nézem a név és a szám is azonos színű.
Bár nekem a es433.bas rögtön meghal direkt?

A DEF FOCIM ben 4860-4820 hiányzik esetleg 2 db SET INK x utasítás
Code: [Select]
FOR MITYI=1 TO 9
     PRINT #MITYI+4:TAB(8);MITYI;TAB (11);TOP$(MITYI)(6:20);TAB(26);TOP$(MITYI)(1:5)
NEXT
PRINT #MITYI+4:TAB(7);MITYI;TAB (11);TOP$(MITYI)(6:20);TAB(26);TOP$(MITYI)(1:5)
Ö a mostani javaslat


Amúgy meg
Code: [Select]
FOR MITYI=1 TO 9
     PRINT #MITYI+4:TAB(8);MITYI;TAB (11);TOP$(MITYI)
NEXT
PRINT #MITYI+4:TAB(7);MITYI;TAB (11);TOP$(MITYI)
« Last Edit: 2019.July.09. 20:09:30 by szipucsu, Reason: Kód szépítése »

Offline szipucsu

  • EP addict
  • *
  • Posts: 7960
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Chrome 75.0.3770.100 Chrome 75.0.3770.100
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Entersnake - gracha kígyós játék
« Reply #52 on: 2019.July.09. 19:09:38 »
Akár hogyan nézem a név és a szám is azonos színű.
Igen, azonos színű. Régen a sima karakteres TEXT 40-es módban írtam játékot (lásd Hungry Creature, vagy akár a Dot collector turbo edition), ott külön színe volt a névnek és a pontszámnak. Ahhoz a videomódhoz írtam ezt a toplistás megoldást, nem írtam újra a gracha módhoz, csak felhasználtam ezt a régi programrészt.

Quote
Bár nekem a es433.bas rögtön meghal direkt?
Nekem nem hal meg, rendesen működik a basic és a zzzippelt változat is. Milyen konfigurációt használsz? Nálam exos 2.1, basic 2.1 és epfileio.rom van bent.

A többit, amit írtál, majd megnézem.
« Last Edit: 2019.July.09. 19:13:49 by szipucsu »
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos

Offline Ferro73

  • EP lover
  • *
  • Posts: 734
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
Re: Entersnake - gracha kígyós játék
« Reply #53 on: 2019.July.09. 19:26:31 »
Újra indítottam az emut leellenőriztem az es42.bas működik.
Lás csodát most ez is.

A "Dot collector turbo edition"-ná is szerintem írtam, hogy át kellene írkálni jó pár dolgot.

Ezek szerint a sorba rendezőt is kellene.

Offline szipucsu

  • EP addict
  • *
  • Posts: 7960
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Entersnake - gracha kígyós játék
« Reply #54 on: 2019.July.09. 20:08:20 »
Ezek szerint a sorba rendezőt is kellene.
Baj nem lehet belőle, ha normálisabban van megcsinálva. :D
Át akarod írni a sorba rendezőt? Átírhatod.
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos

Offline Ferro73

  • EP lover
  • *
  • Posts: 734
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
Re: Entersnake - gracha kígyós játék
« Reply #55 on: 2019.July.09. 22:36:05 »
A jelenlegi rendező 329 bájt és 12 sor (9 sor)

ezt 186 bájt és 7 sorra (5 sor) redukáltam

Bár nem tudom a zzzip elfogadja-e lehet felkuszhat 200 bájtra is.

demó progi:


Offline szipucsu

  • EP addict
  • *
  • Posts: 7960
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Entersnake - gracha kígyós játék
« Reply #56 on: 2019.July.09. 23:54:49 »
ezt 186 bájt és 7 sorra (5 sor) redukáltam
Hm, ez jóval rövidebb, mint az eredeti. Mindenféle pontszámokkal működik, helyesen rendez sorba? A 290-350 sorok meg is oldják a rendezést? Ügyes!
Akkor nincs is szükség a korábbi VALT, SZAM, MYX változókra?
Megpróbálom kicserélni a régit erre, de lehet, csak holnap. (6 perc nem elég rá. :D )
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos

Offline Ferro73

  • EP lover
  • *
  • Posts: 734
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
Re: Entersnake - gracha kígyós játék
« Reply #57 on: 2019.July.10. 08:52:56 »
Szerintem felesleges még további memória szabadul fel plusz a NUMERIC bejegyzés is kevesebb.

Offline Ferro73

  • EP lover
  • *
  • Posts: 734
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
Re: Entersnake - gracha kígyós játék
« Reply #58 on: 2019.July.10. 18:18:02 »
A 290-350 sorok meg is oldják a rendezést?
Azt nem.
De a lista rendezett.
Program szerint ha 10. helyezett pontszámánál nagyobb akkor kerül be a listába.

Offline szipucsu

  • EP addict
  • *
  • Posts: 7960
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Chrome 75.0.3770.100 Chrome 75.0.3770.100
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Entersnake - gracha kígyós játék
« Reply #59 on: 2019.July.10. 19:57:25 »
Program szerint ha 10. helyezett pontszámánál nagyobb akkor kerül be a listába.
Tényleg, ez jó ötlet! Felesleges sorba rendezni az egészet, mert úgyis rendezett. Elég csak az új pontszámot belőni az utolsó helyére, ha annál nagyobb, és csak azt rendezni a megfelelő helyre.
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos