Repeat
Print "Frage 1:"
Print "Wann entwickelt sich der Bloody Wolf?"
Ergebnis = Input("a Lvl 50 oder b Lvl 82? ")
   Until Ergebnis = b
   If Ergebnis = a Then
      Print "Das ist leider Falsch"
      WaitKey
      Else
      Print "Richtig Lvl 82"

Repeat
   Print "Frage 1:"
   Print "Wann entwickelt sich der Bloody Wolf?"
   Ergebnis$ = Input("a Lvl 50 oder b Lvl 82? ")
   If Ergebnis = "a" Then
      Print "Das ist leider Falsch"
      WaitKey
   Else
      Print "Richtig Lvl 82"
   Endif
Until Ergebnis = "b"

Graphics 800,600,16,1
SetBuffer BackBuffer()

Print "Willkommen zum Hero Online Quiz"
Print "Wieviele Fragen möchtest du beantworten?"
Print "7 Fragen (1) oder garkeine (2)?"
WaitKey
Eingabe = Input("Gib hier 1 oder 2 ein: ")
If KeyHit(2) Then
Repeat
Print "Frage 1:"
Print "Wann entwickelt sich der Bloody Wolf?"
Ergebnis = Input("a Lvl 50 oder b Lvl 82? ")
      If Ergebnis = a Then
      Print "Das ist leider Falsch"
      WaitKey
      Else
      Print "Richtig Lvl 82"
      EndIf
      WaitKey
         Print "Frage 2:"
         Print "Wieviel kostet ein normales Pferd? "
         Ergebnis = Input("a 10.000 Gold oder b 100.000 Gold? ")
            WaitKey
            If Ergebnis = a Then
            Print "Das ist falsch"
            WaitKey
            ElseIf
            Print "Richtig 100.000 Gold"
            WaitKey
               Print "Frage 3:"
               Print "Ab welchem Level bekommt man seinen 2. Job?"
               Ergebnis = Input("a 50 oder b 49? ")
                  WaitKey
                  If Ergebnis = a Then
                  Print "Richtig Lvl 50"
                  WaitKey
                  ElseIf
                  Print "Flasch geraten"
                  WaitKey
                     Print "Frage 4:"
                     Print "Mit welcher Wertung schnitt Hero Online ab? "
                     Ergebnis = Input("a 10 von 10 oder b 7.6 von 10? ")
                        WaitKey
                        If Ergebnis = a Then
                        Print "FALSCH muahaha!"
                        WaitKey
                        ElseIf
                        Print "Richtig mit 7.6 ^.^"
                        WaitKey
                           Print "Frage 5:"
                           Print "Ab wann kann man Dinge herstellen?"
                           Ergebnis = Input("a 50 oder b 70? ")
                              WaitKey
                              If Ergebnis = a Then
                              Print "RICHTIG ab 50!"
                              ElseIf
                              Print "Das ist leider falsch, Kumpel"
                              WaitKey
                                 Print "Frage 6:"
                                 Print "Was heisst DC ausgeschrieben? "
                                 Ergebnis = Input("a Deep Crimson oder b Dragon Castle? ")
                                    WaitKey
                                    If Ergebnis = a Then
                                    Print "Falsch wieder einmal -.-'"
                                    ElseIf
                                    Print "Richtig, ein Naturtalent^^"
                                    WaitKey
                                       Print "Master Frage:"
                                       Print "Welche Defence hat ein Pfer Lvl 92? "
                                       Ergebnis = Input("a 1354 oder b 502? ")
                                          WaitKey
                                          If Ergebnis = a Then
                                          Print "Du Lusche, Versager Muhaa"
                                          WaitKey
                                          ElseIf
                                          Print "GLÜCKWUNSCH geschafft^^"
                                          EndIf
                                       EndIf
                                    EndIf
                                 EndIf
                              EndIf
                           EndIf
                        EndIf
                     EndIf

Graphics 800,600,0

fragen% = 0
while fragen <> 10 and fragen <> 20
  fragen = int(input("Wieviele Fragen willst du beantworten? 10 oder 20?"))
wend

dim frage$(fragen)
dim antwort%(fragen)
; frage$ via data befüllen
; antwort% via data befüllen
; alternativ alle von hand eingeben. Der Index geht dabei von 1 - 10 bzw 1 - 20

punkte% = 0
running% = true
i = 1
While running

   antwort$ = input(frage(i))
   if int(antwort) = frage
     ; code wenn frage korrekt beantwortet
     print "Die von dir gegebene Antwort war korrekt"
     punkte = punkte + 10
   else
     ; code wenn frage falsch beantwortet wurde
     print "Die von dir gegebene Antwort war falsch"
   endif
   print "Punkte: " + punkte

   i = i+1

   if i > fragen
     running = false
   endif
wend
Print "Danke fürs spielen und bis bald wieder"
endgraphics()
end

Graphics 800,600
SetBuffer BackBuffer()

For zaehler = 1 To 1000
x = Rnd(0, 800)
y = Rnd(0, 600)

Plot x, y

Next

spaceship = LoadImage ("Spaceshipani.bmp")

boss = LoadImage ("boss.bmp")
DrawImage boss, 400,20

DrawImage spaceship, 400, 20, frame
DrawBlock spaceship, 400, 20, frame
TileImage spaceship, 400, 20, frame
TileBlock spaceship, 400, 20, frame

WaitKey
End

Graphics 800,600
SetBuffer BackBuffer()

For zaehler = 1 To 100
x = Rnd(0, 800)
y = Rnd(0, 600)

Plot x, y

Next

spaceship = LoadImage ("Spaceshi.gif")

boss = LoadImage ("boss.bmp")
DrawImage boss, 400,20

spaceship = LoadAnimImage("spaceship.gif", 150, 100, 0, 5)
DrawImage spaceship, 400,300

WaitKey
End