Das mit den Frageblöcken können wir gerne machen. Damit die Sache nicht zu unbunt wird, würde ich gerne einen eigenen "Font" machen. Also alle Buchstaben und Zeichen, die wir brauchen als Bilder.
Hier mal das Grundgerüst:
Quiz.bas
Code:
'
'Quiz
'
'Grafikmodus initialisieren (640x480 Pixel, Fenstermodus)
screen 18
'
'Funktionen einbinden
'
#Include tastaturabfrage.bas
#Include zeige_menue.bas
#Include spiel.bas
'
'Globale Varibalen deklarieren
'
dim spiel_laeuft as byte `spiel_laeuft zeigt an, ob der User grade spielt
dim menue_anzeigen as byte 'menue_anzeigen zeigt an, ob sich der User grade im Menue befindet
'
'Spielschleife (Bedingung am Ende der Schleife prüfen)
'
Do
If tastaturabfrage = "menue" then
zeige_menue
else
spiel
Endif
Loop While menue_anzeigen = 1
End
spiel.bas
Code:
'
'Prozedur spiel()
'
#Include wähle_kategorie.bas
#Include lade_frage.bas
#Include tastaturabfrage.bas
#Include aendere_auswahl.bas
Declare Sub spiel()
Sub spiel()
spiel_laeuft = 1
wähle_kategorie
lade_frage
Do
If tastaturabfrage = "Antwort bestätigen" then
ueberpruefe_Antwort
Elseif tastaturabfrage = "Antwort umwählen" then
aendere_auswahl
Else
spiel_laeuft = 0
Endif
zeige_spiel
Loop while spiel_laeuft = 1
End Sub
Ich habe alle Prozeduren auslagern wollen, sodass jeder eine Prozedur schreiben kann und wir nicht alle mit der selben Datei arbeiten.
Seid ihr soweit damit einverstanden? Wir würden dann die Prozeduren untereinander aufteilen und jeder schreibt seine Prozedur(en).