Enterprise Forever

:HUN => Programozás => BASIC => Topic started by: Kapitany on 2024.April.25. 08:45:25

Title: QUIZ motor
Post by: Kapitany on 2024.April.25. 08:45:25
Sziasztok!

Elkezdtem írni egy QUIZ motort EP-re BASIC-ben a szombati Regamexhez az EP standhoz, lehessen EP-n quizeztetni az embereket, és egy érdekes dologgal találkoztam, valamit benézek szerintem, edukáljatok meg légyszi!

A program 137. sorában beállítom a TEXT 80-at, és a 140-es sorban a palettát hozzá. (A 223-as szín az egy ilyen pasztell bézs szín.)

Ezek után amikor eljut a program a WRITE_QUESTION eljáráshoz, a képernyő letörlésre kerül a 2020. sorban, a 2022. sorban beállítom elvileg a tintát a 3-as palettaszínre (ződ), ám ennek ellenére a kiírás mégis az 1-es palettaszínnel történik! Mért?

A későbbiekben amikor váltogatom a tintaszínt, minden rendben van, a megfelelő tintaszínnel ír a program, viszont a képernyő törlése utáni INK parancsot mintha figyelmen kívül hagyná. Ötlet? :)

Mivel nem nagy az egész program, bemásolom ide szövegként, hogy érthetőbb legyen miről beszélek, de csatolom futtatható formában is:

Code: [Select]
  100 PROGRAM QUIZ
  110 LET Q=0:LET SCORE=0
  120 NUMERIC POINTS(5),RIGHT,ANSWER,POS(5)
  130 STRING QUESTION$,ANSWER$(5)
  135 LET POS(1)=14:LET POS(2)=16:LET POS(3)=18:LET POS(4)=20
  136 !SET VIDEO MODE 2
  137 TEXT 80
  140 SET #102:PALETTE BLACK,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
  150 SET #102:BIAS 24
  199 !
  200 CALL START
  210 DO
  220   CALL READ_QUESTION
  230   IF QUESTION$="" THEN
  240     EXIT DO
  250   END IF
  260   CALL WRITE_QUESTION
  270   CALL GET_ANSWER
  280   CALL EVAL_ANSWER
  300 LOOP
  998 END
  999 !
 1000 DEF START
 1110   LET Q=0:LET SCORE=0
 1120   RESTORE
 1490 END DEF
 1499 !
 1500 DEF READ_QUESTION
 1510   READ QUESTION$
 1520   IF QUESTION$="" THEN
 1530     EXIT DEF
 1540   END IF
 1550   FOR I=1 TO 4
 1560     READ ANSWER$(I),POINTS(I)
 1570     IF POINTS(I)<>0 THEN
 1580       LET RIGHT=I
 1590     END IF
 1600   NEXT I
 1610 END DEF
 1999 !
 2000 DEF WRITE_QUESTION
 2010   LET Q=Q+1
 2020   CLEAR SCREEN
 2022   SET #102:INK 3
 2025   PRINT Q;".";
 2027   PRINT AT 24,1:"PONT:";SCORE;
 2030   PRINT AT 9,10:QUESTION$
 2050   FOR I=1 TO 4
 2060     CALL PRINT_ANSWER(I)
 2070   NEXT I
 2080   PRINT :PRINT :PRINT "Nyomd meg a vlasz sorszmt!";
 2090 END DEF
 2299 !
 2300 DEF PRINT_ANSWER(INDEX)
 2310   PRINT AT POS(INDEX),1:TAB(6);INDEX;")   ";ANSWER$(INDEX);
 2350 END DEF
 2999 !
 3000 DEF GET_ANSWER
 3030   DO
 3040     LET KEY$=INKEY$
 3060   LOOP UNTIL KEY$="1" OR KEY$="2" OR KEY$="3" OR KEY$="4"
 3070   LET ANSWER=VAL(KEY$)
 3090 END DEF
 3499 !
 3500 DEF EVAL_ANSWER
 3510   SET #102:INK 5
 3520   CALL PRINT_ANSWER(RIGHT)
 3522   IF ANSWER=RIGHT THEN
 3524     PRINT AT 24,34:"HELYES V‘LASZ!";
 3526   END IF
 3530   IF ANSWER<>RIGHT THEN
 3540     SET #102:INK 7
 3550     CALL PRINT_ANSWER(ANSWER)
 3560     PRINT AT 24,32:"HELYTELEN V‘LASZ!";
 3570   END IF
 3580   LET SCORE=SCORE+POINTS(ANSWER)
 3590   SET #102:INK 1
 3600   PRINT AT 24,1:"PONT:";SCORE;
 3610   DO
 3620   LOOP WHILE INKEY$=""
 3990 END DEF
 8000 ! DATA ROWS
 8010 DATA "Hogy h„vjk Mario din† bartjt?"
 8020 DATA "Pumukli",0,"Luigi",0,"Yoshi",3,"Gumbi",0
 8030 DATA "Hogy h„vjk a Legend of Zelda sorozat kardos fˆhˆs“t?"
 8040 DATA "Xenia",0,"Link",2,"Zelda",0,"Ax Battler",0
 8050 DATA ""

Title: Re: QUIZ motor
Post by: Lacika on 2024.April.25. 09:03:18
Ez valami bug.
CLEAR SCREEN után írjál valamit a képernyőre (pl: PRINT ; ), hogy a SET INK-nek hatása legen. Én a SET PALETTE utasításban a színek sorrendjének megadásakor figyelembe veszem, hogy az első kiírás INK 1 tintaszínnel történjen.
Title: Re: QUIZ motor
Post by: Zozosoft on 2024.April.25. 09:37:41
Itt valami EDITOR-VIDEO bug lehet.
Amúgy TEXT 40-ben is csinálja.

Ha SET INK után a #102-re írunk, akkor jó, csak akkor van bug, ha az írás sima PRINT-tel az EDITOR-ba megy.
Title: Re: QUIZ motor
Post by: Kapitany on 2024.April.25. 10:27:16
Köszi, akkor megnézem #102-re írással! :) Fogtam egy BUGOT! :D
Title: Re: QUIZ motor
Post by: Kapitany on 2024.April.25. 10:46:41
Ez valami bug.
CLEAR SCREEN után írjál valamit a képernyőre (pl: PRINT ; ), hogy a SET INK-nek hatása legen. Én a SET PALETTE utasításban a színek sorrendjének megadásakor figyelembe veszem, hogy az első kiírás INK 1 tintaszínnel történjen.

Amúgy ha kipróbálod, nem csak az első PRINT megy rossz színnel, hanem az összes többi is a következő SET INK-ig. Bal felső sarokba a kérdés sorszáma, utána a kérdés, majd a válaszok is...
Title: Re: QUIZ motor
Post by: szipucsu on 2024.April.25. 11:03:43
Érdemes lehet külön videolapot beállítani, és arra biztos nem történhetne írás sima PRINT-tel, csak úgy, hogy csatornát is megadsz utána.
De akkor már lehetne soronként külön-külön videolapokat nyitni, így minden lapon lehetne más palettát használni, soronként más-más betűszínek lehetnének. Ezt tök egyszerű beállítani. Akkor csak arra kell figyelni, hogy nem PRINT #csat,AT X,Y: lenne a kiírás formája, hanem PRINT #X,AT 1, Y:
Title: Re: QUIZ motor
Post by: Kapitany on 2024.April.25. 12:18:29
Érdemes lehet külön videolapot beállítani, és arra biztos nem történhetne írás sima PRINT-tel, csak úgy, hogy csatornát is megadsz utána.
De akkor már lehetne soronként külön-külön videolapokat nyitni, így minden lapon lehetne más palettát használni, soronként más-más betűszínek lehetnének. Ezt tök egyszerű beállítani. Akkor csak arra kell figyelni, hogy nem PRINT #csat,AT X,Y: lenne a kiírás formája, hanem PRINT #X,AT 1, Y:

Nem akarom én bonyolítani a saját életemet, ez így tökéletesen ellátja a feladatát minden bonyodalom nélkül. :D Valahányszor ki kell találnom EP-n a felparaméterezését egy videocsatorna megnyitásának, elhasználok 1 hónapot az életenergiámból. :D
Title: Re: QUIZ motor
Post by: geco on 2024.April.25. 12:38:36
Nem akarom én bonyolítani a saját életemet, ez így tökéletesen ellátja a feladatát minden bonyodalom nélkül. :D Valahányszor ki kell találnom EP-n a felparaméterezését egy videocsatorna megnyitásának, elhasználok 1 hónapot az életenergiámból. :D
Az a baj, hogy nincs melletted a söröd olyankor :lol:
Title: Re: QUIZ motor
Post by: szipucsu on 2024.April.25. 14:53:18
Nem akarom én bonyolítani a saját életemet, ez így tökéletesen ellátja a feladatát minden bonyodalom nélkül. :D Valahányszor ki kell találnom EP-n a felparaméterezését egy videocsatorna megnyitásának, elhasználok 1 hónapot az életenergiámból. :D
Ez tök egyszerű, lehet sablonok alapján dolgozni. Beírod, hogy SET VIDEO X valamennyi, SET VIDEO Y, SET VIDEO MODE meg ilyenek, meg megnyitod a videolapokat aztán irkálhatsz is rájuk. Ha akarod, megcsinálom a programba. Az a baj, ott az a 255 szín, amiből alig használnak fel párat a programok, a Plus4 játékok menüiben is több szín van, mint az EP játékokban, pedig EP-n sem akkora dolog.
Muszáj amúgy 80 karakteres képernyőt használni? 40-en nem férne ki a szöveg? Lehetne egymás alá is írni a sorokat, ha egy kérdés túl hosszú, végül is a 27 karaktersorba csak beleférne már. :D 40-es képernyő jobban is olvasható.

Az a baj, hogy nincs melletted a söröd olyankor :lol:
Sörrel jobban megy a programozás? Eddig nem próbáltam. :D
Title: Re: QUIZ motor
Post by: Kapitany on 2024.April.25. 16:58:21
Ez tök egyszerű, lehet sablonok alapján dolgozni. Beírod, hogy SET VIDEO X valamennyi, SET VIDEO Y, SET VIDEO MODE meg ilyenek, meg megnyitod a videolapokat aztán irkálhatsz is rájuk. Ha akarod, megcsinálom a programba. Az a baj, ott az a 255 szín, amiből alig használnak fel párat a programok, a Plus4 játékok menüiben is több szín van, mint az EP játékokban, pedig EP-n sem akkora dolog.
Betűszínnek ezért gondoltam azt a bézs színt, hogy ne sima zöld legyen. (Itt a feltöltött progiban is azért van már elöl a paletta 1-es helyén az a szín, hogy működjön egyből a kiírás.) Ha valakinek van kedve összerakni egy videolapot valami szép gradiens vagy valamilyen háttérrel, amin még jól olvasható a szöveg (mondjuk valami kékes háttér), én szívesen belerakom. Most az MVP-re koncentrálok szombatra.

Muszáj amúgy 80 karakteres képernyőt használni? 40-en nem férne ki a szöveg? Lehetne egymás alá is írni a sorokat, ha egy kérdés túl hosszú, végül is a 27 karaktersorba csak beleférne már. :D 40-es képernyő jobban is olvasható.
Nem tudom, de engem a hideg ráz a 40 karakteres dundi betűktől. :D Meg olvastam, hogy TEXT 80-ban 4 színpárt is lehet használni, így kézenfekvő volt az, mert a válasz kiértékelésénél "bután" felülírva a szöveget zölddel ki tudom jelölni a jót, pirossal meg a rossz választ. Persze lehet, hogy lehetne itt vagányabbat csinálni, hogy a háttér színeződjön át vagy ilyesmi... kár, hogy itt nincsen FLASH meg INVERSE mint a Speccy-n, a FLASH itt tök vagány lenne! :D

Még esetleg valamilyen egyszerű zenei hatást akarnék beletenni BASIC-ből, valami Legyen Ön is milliomosra utalót. :)
Title: Re: QUIZ motor
Post by: szipucsu on 2024.April.25. 17:20:58
Nem tudom, de engem a hideg ráz a 40 karakteres dundi betűktől. :D Meg olvastam, hogy TEXT 80-ban 4 színpárt is lehet használni
Az attribútum mód a legjobb, mert akkorák a betűk, mint a 40-es módban, viszont 8 színt is tudsz használni (illetve még +8-at ezen felül, ha a bias-t is beleszámítjuk). Itt amúgy a szövegen belül is változhat a betűszín, finom árnyalatokat lehet használni, ez sem annyira bonyolult, csak kell egy részt tenni a programba, ami szép színesen ír ki, és minden írásnál meghívni.
Van még egy rakat betűtípus EP-re, amik könnyen betölthetők a programba, amik nem annyira dundik. (Itt letölthetők (https://enterpriseforever.com/basic/is-basic-fejlesztok-szamara-programok-eszkozok-help/msg90941/#msg90941).)

Quote
kár, hogy itt nincsen FLASH meg INVERSE mint a Speccy-n, a FLASH itt tök vagány lenne! :D
Biztos meg lehet ezt is csinálni EP-re is, csak kicsit bonyolultabb. Talán a Diktátor című játékban vannak ilyen villogó feliratok, már ha a FLASH ezt csinálja.

Quote
Még esetleg valamilyen egyszerű zenei hatást akarnék beletenni BASIC-ből, valami Legyen Ön is milliomosra utalót. :)
Azt szerintem simán megcsinálod. De akkor legyen benne envelope, meg szűrő/gyűrűmoduláció, hogy ne az az egyszerű négyszögjel szóljon. Ebben segíthetek. (Lehet, a hozzászólásom alatti aláírásom is segít.)
Title: Re: QUIZ motor
Post by: Kapitany on 2024.April.25. 17:38:01
Az attribútum mód a legjobb, mert akkorák a betűk, mint a 40-es módban, viszont 8 színt is tudsz használni (illetve még +8-at ezen felül, ha a bias-t is beleszámítjuk). Itt amúgy a szövegen belül is változhat a betűszín, finom árnyalatokat lehet használni, ez sem annyira bonyolult, csak kell egy részt tenni a programba, ami szép színesen ír ki, és minden írásnál meghívni.
Én is gondoltam attrib. módra ha már dundi betűk. Itt mire gondolsz, hogy színesen kiírni? Soronként változtatni a színt egy árnyalattal? Vagy valahogy az attribútum határra írni mint a Speccy-n és akkor kétszínű a betű? Mondjuk egy ilyen quiz program esetében azért előtérbe helyezném az olvashatóságot mindenképpen, nem szabad, hogy a szépség rovására menjen! :)

Van még egy rakat betűtípus EP-re, amik könnyen betölthetők a programba, amik nem annyira dundik. (Itt letölthetők (https://enterpriseforever.com/basic/is-basic-fejlesztok-szamara-programok-eszkozok-help/msg90941/#msg90941).)
Csak gondolom ezekhez össze kéne ácsolni a magyar ékezetes változatot, mert egy ilyen rendezvényen azért legyenek már ékezetes betűk a gyerekeknek, hadd olvassanak szépen! :)

Azt szerintem simán megcsinálod. De akkor legyen benne envelope, meg szűrő/gyűrűmoduláció, hogy ne az az egyszerű négyszögjel szóljon.
A minimum producttól megyek a deluxe produktum felé. :D De majd ha lesz benne zene, akkor faragok valami patcheket is hozzá. :)
Title: Re: QUIZ motor
Post by: szipucsu on 2024.April.25. 17:55:45
Én is gondoltam attrib. módra ha már dundi betűk. Itt mire gondolsz, hogy színesen kiírni?
Itt a képen van példa arra (https://enterpriseforever.com/basic/hasznos-kis-basic-programok/msg77404/#msg77404), hogyan nézne ki. De ennél szolidabb is lehet, és más elv szerint is változhatnak a betűk színei, pl. a sor elején világos, és fokozatosan sötétedik a sor vége felé.

Quote
Csak gondolom ezekhez össze kéne ácsolni a magyar ékezetes változatot, mert egy ilyen rendezvényen azért legyenek már ékezetes betűk a gyerekeknek, hadd olvassanak szépen! :)
Nem tudom, van-e ékezetes azok között a karakterkészletek között. Szóval lehet, hogy tényleg kellene ilyeneket is csinálni.

Esetleg csupa nagybetűvel jobban mutatna a szöveg? Én átszoktam erre basic programokban, és szerintem jól mutat.

Mikorra kell az egésznek készen lennie?
Title: Re: QUIZ motor
Post by: szipucsu on 2024.April.26. 00:11:12
Volt már kvíz program, ez volt (https://enterpriseforever.com/ep-klub/enterprise-klub/msg72240/#msg72240) pár éve a Sound okán című vetélkedőhöz a klubban. (Ez pontot nem számol, csak a space-re kiírja a következő válaszlehetőséget, és a space+joy-ra a következő kérdéshez lép.) Ezt is lehetne tovább írni.
A Basic programcsokorban (http://www.ep128.hu/Ep_Games/Leiras/Basic_Program_Pack.htm) is van ilyen program, a Kvíz című az.
Title: Re: QUIZ motor
Post by: Dr.OG on 2024.April.26. 05:25:53
Az a baj, hogy nincs melletted a söröd olyankor :lol:
Vagy szipucsu...
Title: Re: QUIZ motor
Post by: Kapitany on 2024.April.26. 09:16:49
Volt már kvíz program, ez volt (https://enterpriseforever.com/ep-klub/enterprise-klub/msg72240/#msg72240) pár éve a Sound okán című vetélkedőhöz a klubban. (Ez pontot nem számol, csak a space-re kiírja a következő válaszlehetőséget, és a space+joy-ra a következő kérdéshez lép.) Ezt is lehetne tovább írni.
A Basic programcsokorban (http://www.ep128.hu/Ep_Games/Leiras/Basic_Program_Pack.htm) is van ilyen program, a Kvíz című az.

Mind a kettő sokkal jobban néz ki mint az én kis minimal megoldásom. Majd ráncfelvarrjuk átvéve a szép képi ötletet, vagy felokosítjuk valamelyik már kész programot. Most szombatra kell, úgyhogy sok idő nem volt. :D

Amit kellett, hogy tudjon:
Title: Re: QUIZ motor
Post by: szipucsu on 2024.April.26. 09:34:52
Most szombatra kell, úgyhogy sok idő nem volt. :D
Akkor már kifutottunk a határidőből? Elkezdtem a tiedet színesíteni, de ha már nem aktuális, akkor nem folytatom.
Title: Re: QUIZ motor
Post by: Kapitany on 2024.April.26. 09:50:14
Akkor már kifutottunk a határidőből? Elkezdtem a tiedet színesíteni, de ha már nem aktuális, akkor nem folytatom.

Pedig most éppen azt akartam írni, hogy úgy meginspirált a Sound okán quiz program kinézete, hogy arra gondoltam, lehet még ma este nekimegyek és nyitok pár videocsatornát és kiszínesítem. Azt Te írtad, ugye, Szipucsu? Milyen magyar fontot használ? Azt ami az EPDOS-ban is van? Ami fontos, hogy a kérdést az EDITOR: eszkör írja ki, hogy törje a szavakat új sorba ha kilógnának. Na még este ránézek szerintem. Akkor a hangot elengedem most. :)
Title: Re: QUIZ motor
Post by: szipucsu on 2024.April.26. 09:55:39
Ami fontos, hogy a kérdést az EDITOR: eszkör írja ki, hogy törje a szavakat új sorba ha kilógnának.
Ezzel óvatosnak kell lenni, mert az ékezetes betűk alt-os karakterek, és lehet, hogy a szó közepén fogja törni a szót. (Tudtommal, de érdemes lenne kipróbálni.) Vagy eleve a DATA sorokban is több sorban kéne megadni a kérdést, és úgy írná ki, vagy telerakni szóközzel a kérdéses szó előtt, hogy ott törjön.
Hangokat gyorsan csinálok a jó és rossz válaszokhoz, ha nincs rá időd.
Title: Re: QUIZ motor
Post by: Kapitany on 2024.April.26. 10:20:58
Ezzel óvatosnak kell lenni, mert az ékezetes betűk alt-os karakterek, és lehet, hogy a szó közepén fogja törni a szót. (Tudtommal, de érdemes lenne kipróbálni.) Vagy eleve a DATA sorokban is több sorban kéne megadni a kérdést, és úgy írná ki, vagy telerakni szóközzel a kérdéses szó előtt, hogy ott törjön.
Hangokat gyorsan csinálok a jó és rossz válaszokhoz, ha nincs rá időd.

Ha gondolod csinálhatsz hangot a jó és rossz válaszhoz ha van időd, azt megköszönöm! A játék elindításához és a végéhez akarom majd ha lesz időm valamikor rá összelegózni több szólamban a Legyen Ön is milliomos zenéjének egy kis részletét. De ez a SYNC-es megoldás ez kicsit fejvakarós azért... :D

Most már nyugodt vagyok, hogy van egy Minimum Viable Product, bár nagyon fapad, azt lemásolom és lehet szépítgetni. :) Amúgy az előbb belenéztem az EXOS könyvbe, és ott úgy írják, hogy az EDITOR ha kimegy a print a definiált margón, akkor visszafelé az utolsó szóközt keresi meg és onnan viszi át a szót a következő sorba.

Ami nekem nem egészen tiszta, hogy nyithatok több EDITOR: csatornát és azok rá vannak mappelve a különböző VIDEO: csatornákra? Vagy egyetlen EDITOR: eszköz van, és az EDITOR VIDEO beállításával kell ide-oda állítgatni, hogy éppen melyik VIDEO csatornára dolgozik?
Title: Re: QUIZ motor
Post by: szipucsu on 2024.April.26. 10:44:19
Javaslat hanghoz:

Program elejére (sorszám lehet más is):
Code: [Select]
  102 ENVELOPE NUMBER 1;0,63,63,1;0,-43,-33,5;RELEASE;0,-35,-45,40
Program vége felé, ahol van hely:
Code: [Select]
7000 DEF SIGNAL
 7005   SOUND PITCH SND,DURATION 4,SYNC 1,STYLE 128,ENVELOPE 1,LEFT 80,RIGHT 80
 7010   SOUND PITCH SND+.2,DURATION 4,SYNC 1,SOURCE 2,ENVELOPE 1
 7015 END DEF

Jó válasz kiválasztásánál beszúrni ezt a sort (a sorszám képlékeny):
Code: [Select]
3523 LET SND=37:CALL SIGNAL:LET SND=44:CALL SIGNAL:LET SND=49:CALL SIGNAL
Rossz válasz kiválasztásánál beszúrni ezt a sort (a sorszám képlékeny):
Code: [Select]
3555 LET SND=32:CALL SIGNAL:LET SND=25:CALL SIGNAL:LET SND=20:CALL SIGNAL
Az eredeti programodhoz igazítottam a sorszámokat.

A Ne legyen Ön se milliomos! zenéjének ha megvan a kottája és felrakod ide, akkor megpróbálhatom megcsinálni. Midiben nem találtam  a neten. A zenéjéből annyi rémlik, hogy tuc-tuc, de régebben volt egy hagyományosabb hangzású zenéje is.
Title: Re: QUIZ motor
Post by: Zozosoft on 2024.April.26. 10:44:57
Ami nekem nem egészen tiszta, hogy nyithatok több EDITOR: csatornát és azok rá vannak mappelve a különböző VIDEO: csatornákra? Vagy egyetlen EDITOR: eszköz van, és az EDITOR VIDEO beállításával kell ide-oda állítgatni, hogy éppen melyik VIDEO csatornára dolgozik?
Megnyitáskor menti el a megadott csatornaszámait.
Pl a WP-ben is van két EDITOR, egyik a fő szövegszerkesztő, felül meg az a kis ablak ahol pl fájl nevet lehet beírni. Ha esetleg közben egy EXDOS ablakot is behívsz, az egy harmadik EDITOR-t fog használni.
Title: Re: QUIZ motor
Post by: szipucsu on 2024.April.26. 10:50:35
Még a program elejére jól jönne egy
101 SET STATUS OFF:SET KEY CLICK OFF

Vagy ízlés szerint a key click maradhat bekapcsolva is.

Title: Re: QUIZ motor
Post by: Zozosoft on 2024.April.26. 10:51:16
A Ne legyen Ön se milliomos! zenéjének ha megvan a kottája és felrakod ide, akkor megpróbálhatom megcsinálni. Midiben nem találtam  a neten.
Angolul kell keresni :-)
Szerintem az olyan 38 másodperctől induló rész az igazán jellegzetes szakasz.
Title: Re: QUIZ motor
Post by: Kapitany on 2024.April.26. 10:59:53
Megnyitáskor menti el a megadott csatornaszámait.
Pl a WP-ben is van két EDITOR, egyik a fő szövegszerkesztő, felül meg az a kis ablak ahol pl fájl nevet lehet beírni. Ha esetleg közben egy EXDOS ablakot is behívsz, az egy harmadik EDITOR-t fog használni.

És a VIDEO csatorna számát a SET EDITOR VIDEO #csat paranccsal kell beállítani az EDITOR csatorna megnyitása előtt?
Title: Re: QUIZ motor
Post by: Kapitany on 2024.April.26. 11:04:24
Angolul kell keresni :-)
Szerintem az olyan 38 másodperctől induló rész az igazán jellegzetes szakasz.

A zenét szerintem ne toljátok túl, már van elképzelésem, hogy milyen hangszereléssel szeretném megcsinálni, és nem kell túlgondolni. Csak a kis 5 hangú szignálra gondoltam, ami ennek a videónak a legelején hallható, csak éppen basszussal kiegészítve, és a fő dallamot 2 hangszer játszaná, egy harsona szerű, és 1 oktávval magasabban egy xilofon vagy marimba szerű, kb. mint ami 1:51-1:58-ig elhangzik: https://www.youtube.com/watch?v=LH_eIjrvrCY . Amúgy lehet még a tucc-tucc-ot is oda lehetne tenni valami lowpass filteres zajjal vagy nem tudom.

DE ha Szipucsu valami midi convert varázslattal jó hangszerekkel meg tudja ezt csinálni úgy, hogy beágyazható és programban lejátszható legyen, akkor én el tudok hajoln a feladat elől! :D
Title: Re: QUIZ motor
Post by: SlashNet on 2024.April.26. 11:17:57
There is midi files from mobile java game Who wants to be a Millionaire, if you need.
Title: Re: QUIZ motor
Post by: szipucsu on 2024.April.26. 11:26:14
Itt van a jó és rossz válaszok hangjával és SET STATUS OFF-fal bővített változat:
[attachurl=1]
Ha a kérdéseket bővítetted, azokat simán átrakhatod ebbe, mert ahhoz a részhez nem nyúltam, és újrasorszámozás sem volt.
Title: Re: QUIZ motor
Post by: Kapitany on 2024.April.26. 11:33:28
Itt van a jó és rossz válaszok hangjával és SET STATUS OFF-fal bővített változat:
(Attachment Link)
Ha a kérdéseket bővítetted, azokat simán átrakhatod ebbe, mert ahhoz a részhez nem nyúltam, és újrasorszámozás sem volt.

Nem csak a kérdéseket, hanem igen sokat írtam hozzá a programhoz. De majd ügyesen összemerge-elem, vagy akár azt a pár sort be is tudom írni kézzel. :)

Az a cél amúgy, hogy a program végén kb. a 8000. sortól maradjon üresen, mert akkor egy új kérdéssor esetén elég egy másik programba onnantól beírni a kérdéseket és lehet MERGE-elni a másikba.
Title: Re: QUIZ motor
Post by: Kapitany on 2024.April.26. 11:36:51
A Sound okánban milyen font van használva? Mert mintha jobban nézne ki, mint amit a HFONT.bas-ban találtam...
Title: Re: QUIZ motor
Post by: szipucsu on 2024.April.26. 12:02:39
A Sound okánban milyen font van használva? Mert mintha jobban nézne ki, mint amit a HFONT.bas-ban találtam...
Nem tudom már, mit tettem bele, mert csak snapshotot csináltam a fontos részről. Itt (https://enterpriseforever.com/basic/is-basic-fejlesztok-szamara-programok-eszkozok-help/msg90941/#msg90941) szerintem a HFOFT.FNT fájl tartalmazza ezt a fontot a CHR2012.zip csomagban, és alatta van információ, hogyan lehet a fontot a basic programba betölteni. De a CHR2012.zip-ben lévő basic fontszerkesztőbe is be lehet tölteni fontkészleteket (mellékelten van ott sok), és megnézni, melyik tűnik jónak, fent az összes karaktert megjeleníti.
Title: Re: QUIZ motor
Post by: szipucsu on 2024.April.26. 12:06:45
Ez nem a kért zene, hanem egy másik zene a vetélkedőből, és valószínűleg nem lesz jó ide, mert kb. 2x ilyen gyorsnak kéne lennie, de a basic csak ennyit tud, de ha most nem, talán egyszer valamire jó lesz.
Ha kivennénk belőle a dobot, meg még esetleg a basszust, menne gyorsabb sebességgel is basicben.
Biztos teljesen véletlen, hogy így lassítva a Cauldron zenéjére hasonlít.
[attachurl=1]
[attachurl=2]
Title: Re: QUIZ motor
Post by: szipucsu on 2024.April.26. 12:14:14
Itt a gyorsabb zene dob nélkül.
[attachurl=1]
[attachurl=2]
Benne maradt az envelope number 61 és 37, ezek nem kellenek már.

Megpróbálom majd az általatok említett zenét is megcsinálni.
Title: Re: QUIZ motor
Post by: szipucsu on 2024.April.26. 13:09:30
Az általatok említett zene. Basszus nincs benne, mert 3 csatornán nem férne ez a Xilofon-szerű hanggal együtt a gyűrűmodulációs "harsona" hang mellett.
[attachurl=1]
[attachurl=2]
Title: Re: QUIZ motor
Post by: szipucsu on 2024.April.26. 14:03:21
Kvíz közbenre be lehetne tenni akár ezt a zenét (https://enterpriseforever.com/basic/quiz-motor/msg91318/#msg91318), csak mondjuk halkabban. Amikor megnyomják a gombot, akkor CLEAR SOUND, és megszólalna a jó vagy rossz válasz hangeffektje. A lényeg, hogy a zene lejátszó ciklusába kell beletenni a billentyűfigyelést, ami lehet, lassítja a lejátszást. Ha lassítja, akkor a DURATION értékeket 1-gyel nagyobbra kell venni.
Gyorsításhoz még ki lehet adni a program elején az OUT 191,12-t, de lehet, néhány konfigurációban ez már benne van.
Title: Re: QUIZ motor
Post by: Kapitany on 2024.April.26. 14:07:38
Na, egyelőre húzzuk meg a határt! :D
Title: Re: QUIZ motor
Post by: Zozosoft on 2024.April.26. 14:11:52
Na, egyelőre húzzuk meg a határt! :D
"Az űr... a legvégső határ. Ennek végtelenjét járja az Enterprise csillaghajó... melynek feladata különös új világok fölfedezése..." :ds_icon_cheesygrin:
Title: Re: QUIZ motor
Post by: Kapitany on 2024.April.26. 20:05:16
Kicsit mán be is szoptam az ATTRIB. üzemmódot... arra úgy néz ki nem lehet EDITOR-t nyitni. :D
Title: Re: QUIZ motor
Post by: szipucsu on 2024.April.26. 21:03:14
Kicsit mán be is szoptam az ATTRIB. üzemmódot... arra úgy néz ki nem lehet EDITOR-t nyitni. :D
Arra nem, az inkább grafikus, és csak kicsit szöveges jellegű videomód. Lehet, nem kellett volna említenem.
Title: Re: QUIZ motor
Post by: geco on 2024.April.26. 21:44:46
Lehet naiv kérdés, de miért kell annyira az editor?
Ha csak szövegbevitelre, akkor az veszélyes is lehet szerintem, ha a user elkezd marhaságokat gépelni, és viszonylag eccerűen helyettesíthatő GET A$-ral szerintem.
Title: Re: QUIZ motor
Post by: szipucsu on 2024.April.26. 22:24:54
Lehet naiv kérdés, de miért kell annyira az editor?
Hogy a hosszú sorokat ne a szó közepén törje szét, hanem a szóköznél.
Title: Re: QUIZ motor
Post by: szipucsu on 2024.April.26. 22:41:11
De ez a SYNC-es megoldás ez kicsit fejvakarós azért... :D
Pár éve (2017? 2018?) volt szó egy Enterpressben a SYNC használatáról részletesen. A lényeg, ahány csatornát akarunk egyszerre megszólaltatni, annyi mínusz egyet kell beírni a SYNC után. (Lásd még itt az aláírásomban is.)

Quote
100 PROGRAM QUIZ
Ez így szerintem értelmetlen, nem csinál semmit. Helyette ez jó:

Code: [Select]
100 PROGRAM "QUIZ"vagy még jobb a hagyományaink miatt:
Code: [Select]
100 PROGRAM "QUIZ.BAS"
Arra jó a PROGRAM utasítás, hogy ha SAVE-vel mentünk, akkor nem kell megadni nevet, mert a PROGRAM után megadott néven menti a programot, de ehhez ott idézőjelbe kell tenni a nevet. Az nevet, aki (utoljára) "idézőjelbe teszi" a nevet.
Title: Re: QUIZ motor
Post by: geco on 2024.April.26. 22:48:30
Hogy a hosszú sorokat ne a szó közepén törje szét, hanem a szóköznél.
Hat, ha csak emiatt, akkor ezt is egyszeruen ki lehet kuszobolni, legyen minden data sor hossza max 40 karakjer, es lehet kotojelezni is, szebben is fog kinezni, es nem lesz a szoveg 39, vagy 38 karakter szelessegre limitalva egy sorban, es egy-egy hosszu tulcsordulo szonal se marad ur a sor vegen.
Title: Re: QUIZ motor
Post by: Kapitany on 2024.April.29. 09:47:35
Köszi mindenkinek a segítséget, főleg Szipucsunak! :) Jól sikerült a szombati standolás, sokan quizeztek! Még az utolsó pillanatban, ott is javítottam a quiz programon. Ha szusszantam egyet, majd feltöltöm ide a quiz progit, benne a két kérdéssorral, akinek van kedve, letesztelheti retrós tudását! :)

A jó válasz és rossz válasz hangeffektet betettem, tök jó bele, a zenét az elejére nem volt már időm sajnos, azt még majd később belepattintom. Illetve még a program tetejéről hiányzik egy ENTERQUIZ felirat, aminek hagytam is helyet, de voltak fontosabb dolgok. :D

Köszi még egyszer a közreműködést, vagy ahogy kedvenc hősöm mondja: Thank you for your cooperation! :D

K.