Art Magic Ball

[3DKante]

Viele kennen bestimmt die Magischen kugel die man eine Frage stehlt, dann die kugel schüttelt und sie in einem Fensterchen die Antwort anzeigt in form von Ja, Nein u.s.w.
Und da ich schon immer sowas aus Interesse mal haben wollte, dachte ich mir, das ich es einfach Programmiere.
Und weil der Code Ziemlich klein ist, Poste ich ihn hier einfach rein

Code: Alles auswählen

OpenConsole()
  Wiederholung:
  PrintN("Stelle deine Frage die nur mit Ja oder Nein")
  PrintN("beantwortet werden kann und druecke ENTER")
  Input()
  Zufall=Random(4)
  Select Zufall
    Case 0
      PrintN("")
      PrintN("Ja")
    Case 1
      PrintN("")
      PrintN("Nein")
    Case 2
      PrintN("")
      PrintN("Vielleicht")
    Case 3
      PrintN("")
      PrintN("Versuchs nochmal!")
    Case 4
      PrintN("")
      PrintN("Das kann ich dir nicht sagen")
  EndSelect
  Delay(2000)
  ClearConsole()
  Goto Wiederholung
CloseConsole()

[Kiffi]

Code: Alles auswählen

PrintN("Fileicht")

so ein kleiner Code und schon einen Bug gefunden

Grüße ... Kiffi

[3DKante]

Ich muss wohl besser auf meine Rechtschreibung achten.
Vor allem wen ich ein Code anzeige

[DrShrek]

So und gleich ein Folgefehler:

Code: Alles auswählen

   PrintN("Vielleicht) 

Richtig ist:

Code: Alles auswählen

   PrintN("Vielleicht")