C64: Zähler und Tastendruck: Bitte um kurze Hilfe

RaimundP · Jan 24th 2023

Hallo,

SUCHE IN BASIK KLEINES LISTING, DAS EINEN ZÄHLER ZÄHLT UND BEI TASTENDRUCK ZUM MENÜ SPRINGT

ich aktualisiere gerade alle meine Lieblingsspiele als kleine Sammlung, um die immer "parat" zu haben.

Eine Diskette zu einem Spiel enthält: Spiel Trainer, Normalversion, Highscoreversion.

Dazu habe ich einfach ein kleines Basicprogramm geschrieben, das als erstes auf der Diskette landet und in dem

ich mit "SPACE" (startet erstes Programmk), F1, F3, F5, F7 und 1,2,3,4 die Versionen starten kann.

Mit MISTer und noch mehr aktuell retroarch, würde ich aber gerne das Menü starten, irgendwie einen

Zähler einbauen, der zwei, drei Sekunden zählt (for Zaehler = 1 to XYZ, so in der Art), danach das

Spiel1 startet, bei einem Tastendruck aber ins Menü springt...

...ich bin so lange aus dem C64 heraus, dass ich das nicht mehr zusammenbekommen.

Also in dieser Art irgendwie:

100 Zaehler = Zaehler +1

110 IF TASTE (SPACE, F1, F3, F5, F7, ...) then 500

199 if ZAEHLER < 9000* then 100 *(muss ich ausmessen, wie lange drei Sekunden wären)

500 START PROGRAM

Das ist jetzt natürlich "Phantasiebasic", aber Ihr versteht: Ich müsste zählen lassen UND Tastendruck prüfen und kriege

das durch meine bescheidene Erinnerung nicht hin. Habt Ihr da einen kurzen Tipp?

ich würde einfach gerne die Diskette gerne in Retroarch starten, wenn ich keine Taste in den drei Sekunden drücke,

startet Programm eins, ansonsten Menü.

Gruss R.

CapFuture1975 · Jan 24th 2023

Ich kann ja nicht viel Basic, aber das bekomme ich gerade so noch hin, hier mal für die F1-Taste:

Da fehlt zumindest noch ein GET, um die Taste überhaupt abzufragen.

100 Z=Z+1

105 GET A$

110 IF A$ = CHR$(133) THEN GOTO 600:REM Zeilennummer anpassen wo dein Menü für F1 ist

120 IF Z < 200 THEN GOTO 100

500 PRINT"HIER KOMMT DEIN STARTPROGRAMM HIN"

600 PRINT"MENU FUER F1"

Edit: $ hinter CHR eingefügt, hatte ich vergessen und Code etwas angepasst.

Telespielator · Jan 24th 2023

...und dafür hast Du jetzt zwei Stunden gebraucht?

CapFuture1975 · Jan 24th 2023

Quote from Telespielator

...und dafür hast Du jetzt zwei Stunden gebraucht?

Nein, habe erst vor 15 Minuten diesen Thread entdeckt!!!

Telespielator · Jan 24th 2023

Schon klar!! Das war Spaß!!!

RaimundP : Du speicherst auf jeder Diskette ein Programm, dass die verschiedenen Versionen anzeigt? Mit Infos? Oder geht es nur darum, sich Tipperei zu sparen?

RaimundP · Jan 24th 2023

Huhuu, DANKE, aaah, ich erinnere mich... "GET"

Telespielator: Jedes (Onefile, "kleinere", also nicht "Full Diskettenversion") Spiel hat eine eigene Diskette seines Namens.

Es gibt da immer drei Versionen, alle recracked und direkt vor der Abfrage "Unendliche leben j/n" oder "Highscore (l)aden / (z)urücksetzen).

Das Menü ermöglicht mir also: (1) Trainerversion, (2) normal, (3), Highscorevariante.

Auf MISTer oder in Retroarch will ich gg. kurz warten und das als erstes eingestellte Spiel (wenn kein Tastendruck) automatisch starten.

Telespielator · Jan 24th 2023

Klingt irgendwie ein wenig umständlich... Es geht hier um Emulation, keine echten Disketten, ja?

RaimundP · Jan 24th 2023

DANKE, funktioniert!

Telespielator: Sowohl als auch: ich nutze die Images, alle sortiert, 1:1 auf MISTer, EMulation, Retroarch, SDII2C aber auch dann geschrieben auf ganz normalen, realen, alten Disketten

So gesehen ist das nicht umständlich, sondern super sortiert. Du weisst sicher auch, wie viele Versionen es von Spielen gibt. Fehlerhafte Spiele wie "Asterix" oder "Avenger" sind ja bekannt, kursieren aber immer noch. Ich möchte auf einer Diskette, immer die aktuelle Version des Spiels, wenn möglich gepatcht, angeglichen, im Start optimiert. Das Image (oder die reale Disk) kann ich dann so 1:1 in jeder Umgebung nutzen. Und die sortierter Verzeichnisse in Dateiebene synchronisieren. Und dann eben die Trainerversion, wenn bequem einfach das "original" ohne einen Crack (SIR13 oder andere), wenn verfügbar direkt vor der HighScoreabfrage. Und unter MISter / SD2IEC oder Emulationen, sind so sortierte Verzeichnisse: "WIZBALL.D64", "The Great Giana Sisters.64" und alle anderen: übersichtlicher wie andere Lösungen.

Meine C64 haben alle Jiffy verbaut: Da funktioniert Menüladen "SHIFT+RUN" ideal. Und jetzt mit Zähler im Menü auch in EMulation / real einfach besser...

Mike · Jan 24th 2023

Quote from RaimundP

(muss ich ausmessen, wie lange drei Sekunden wären)

Wenn Du anstelle eines Zählers TI verwendest, entsprechen 3 Sekunden 180 Einheiten in TI. Das gilt auch dann noch, wenn Du das Menü-Programm kompilierst:

Code

100 Z=TI
105 GET A$
110 IF A$ = CHR$(133) THEN GOTO 600:REM Zeilennummer anpassen wo dein Menü für F1 ist
120 IF ABS(TI-Z) < 180 THEN GOTO 105:REM _nicht_ Zeile 100 wie im Original!
500 PRINT"HIER KOMMT DEIN STARTPROGRAMM HIN"
600 PRINT"MENU FUER F1"

(Beispiel von CapFuture1975 übernommen und zusätzlich mit ABS(...) gegen den Überlauf von TI nach 0 um Mitternacht abgesichert)

RaimundP · Jan 25th 2023

Danke. Auch das hat funktioniert.

detlef · Jan 25th 2023

Warum nehmt ihr für die Zeitmessung eigentlich nicht die TI-Variable? Dann muss man die Zeit nicht messen sondern kann sie direkt ausrechnen.

EDIT: Mike hatte das schon geschrieben.

CapFuture1975 · Jan 25th 2023

Quote from detlef

Warum nehmt ihr für die Zeitmessung eigentlich nicht die TI-Variable?

Sorry, weil nicht alle so viel Ahnung von Basic haben. Ich hatte doch geschrieben:

Quote from CapFuture1975

Ich kann ja nicht viel Basic, aber das bekomme ich gerade so noch hin

detlef · Jan 25th 2023

War ja auch eher als Hinweis gedacht. Und RaimundP hatte ja auch explizit nach einem Zähler gefragt.

Telespielator · Jan 25th 2023

Hätte ich auch nicht auf dem Schirm gehabt. Viele Wege führen nach Rom...

strik · Jan 26th 2023

Quote from Mike

120 IF ABS(TI-Z) < 180 THEN GOTO 105:REM _nicht_ Zeile 100 wie im Original!

Wieso ABS()?

Über den Tageswechsel ("23:59:59" -> "24:00:00") wird das nicht funktionieren, weil TI bis auf 5184000 steigt und dann auf 0 zurückfällt. Falls das TI das abdecken sollte: Tut es nicht, da der Wrap-Around um Mitternacht erfolgt.

Wenn also die Schleife um "23:59:59" (laut TI$) startet wird sie schon vorzeitig um "00:00:00", also nach einer Sekunde, abbrechen.

Mike · Jan 26th 2023

Quote from strik

Wieso ABS()?

Eine genauere Begründung findest Du im Thread Basic, Verzögerungsschleifen bzw Timer - BASIC - Forum64, Beiträge #16 und #19.

strik · Jan 26th 2023

Quote from Mike

Eine genauere Begründung findest Du im Thread Basic, Verzögerungsschleifen bzw Timer - BASIC - Forum64, Beiträge #16 und #19.

Das hatte ich mir ja schon gedacht, aber schon in meinem Posting erwähnt, dass es bei Überschreitung von Mitternacht gerade nicht funktioniert, weil die Schleife vorzeitig beendet wird. Das dürfte in vielen Anwendungsfällen ein Bug sein. Das kann man besser hinbekommen. Das Posting #16 akzeptiert das hingegen.

Mike · Jan 26th 2023

Quote from strik

Das dürfte in vielen Anwendungsfällen ein Bug sein.

In noch mehr Anwendungsfällen dürfte es ein Bug sein, wenn das Programm hängen bleibt. Im anderen Thread war keine Tastenabfrage vorgesehen, um die Warteschleife dennoch beenden zu können.

Aber bitte sehr: Du kannst dir ja gerne eine (möglichst einfache!) Lösung mit vorzeitigem Abbruch durch Tastendruck einfallen lassen und hier präsentieren, welche die 3 Sekunden immer sauber hinbekommt und das

Quote from Mike

auch dann noch, wenn [...] das Menü-Programm kompilier[t wird].

...

Quote from strik

Das kann man besser hinbekommen.

Dann mach mal.

strik · Jan 27th 2023

Gerne:

Code

95 TI$="235959"
100 Z=TI
105 GET A$
110 IF A$ = CHR$(133) THEN GOTO 600
112 PRINT TI,TI$:REM nur zur Visualisierung, kann weg
115 X=TI-Z:IF X<0 THEN X=X+5184000:REM beim Wrap-Around korrigieren
120 IF X < 180 THEN GOTO 105
500 PRINT"HIER KOMMT DEIN STARTPROGRAMM HIN"
600 PRINT"MENU FUER F1"

Wem die Konstruktion in Zeilen 115 und 120 nicht gefällt ersetzt sie durch das kürzere:

Code

115 REM leer lassen
120 IF (TI-Z-(TI-Z<0)*5184000) < 180 THEN GOTO 105

Die "Magic Constant" 5184000 ist die Anzahl der Jiffys in 24h (24h * 60min * 60s * 60 ticks/s)

Mac Bacon · Jan 27th 2023

Quote from strik

IF (TI-Z-(TI-Z<0)*5184000) < 180 THEN GOTO 105

Die doppelte TI-Abfrage ergibt doch automatisch eine race condition, oder übersehe ich etwas?