AppTitle "Quizz"
Graphics 540,426,16,2
SetBuffer BackBuffer()
Global game=LoadImage("gfx/game.png")
Global FrageNr = Rand(1,10)
Global Eingabe$
Global Richtig=0,Falsch=0


menü()
End

Function game()
SeedRnd MilliSecs()

Repeat
  ClsColor 127,127,127
  Cls

  DrawImage game,0,0

  Fragen()
  InputRoutine()

  Color 0,0,128
  Text 20,282,"Richtig: "+Richtig
  Text 140,282,"Falsch: "+Falsch

  Flip
Until KeyHit(1)
End Function


Function Fragen()

  If FrageNr = 1 Then
    Color 255,255,20   
    Text 120,344,"Wie nennt man das hölzerne Flugobjekt,"
    Text 120,366,"das beim Werfen wieder zurückkommt?"
    Color 255,255,0
    Text 35,333,"Frisbee"
    Text 35,390,"Bummerang"
    Text 440,333,"Holzaxt"
    Text 440,390,"UFO"
    Text 20,20,"Antwort: "+Eingabe$
    If KeyHit(28) Then
      If Eingabe$="Bummerang" Or Eingabe$="bummerang" Then
        Richtig = Richtig + 1
        Eingabe$=""
        FrageNr = Rand(1,10)
      Else
        Falsch = Falsch + 1
        Eingabe$=""
        FrageNr = Rand(1,10)
      EndIf
    EndIf
  EndIf

dim lbl$(4)
 lbl$(1)="a)"
 lbl$(2)="b)"
 lbl$(3)="c)"
 lbl$(4)="d)" ; nicht unbedingt nötig, aber schön :)
type frage
 field fragetext$
 field antworten$[4]
 field korrekt
end type

f.frage=new frage
 f\fragetext$="wie war die frage nochma?"
 f\antworten$[1]="weissdochnet"
 f\antworten$[2]="ismirauchegal"
 f\antworten$[3]="sachdasnichnochmal"
 f\antworten$[4]="haltsmaul"
 f\korrekt=1

f.frage=first frage ;den hier vor der hauptschleife...

 text 10,10,f\fragetext$
 for x=1 to 4
  text 20,10+x*10,lbl$(x)+"   "+f\antworten$[x]
 next

if joker then ;hier irgend n keyhit auf jokerbutton wasweissich
 for x=1 to 2
  .nochmal
  k=rand(1,4)
  if k<>f\korrekt then
   f\antwort$[k]=""
  else
   goto nochmal ;n bisschen unschön, sollte aber gehn
  endif
 next

for x=1 to 4
 if mousehit(1) then
  if rectsoverlap(mousex(),mousey(),1,1,20,10+x*10,20,10) ;rechteck um lbl
   if f\antwort$[x]<>"" then
    if x=f\korrekt then f=after f
   endif
  endif
 endif
next