Hi leute,
ich habe da ne Frage kann mir jemand sagen wie ich Fragen wieder auf Null bekomme also wenn man Game abricht, dass wenn msn normal zogg nicht fragen weiter zählt.
Hier der follgende Code:
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN]
Graphics 640,480,16,1 SetBuffer BackBuffer()
Intro=OpenMovie("Videos\Firma.mpg") Repeat Cls DrawMovie(Intro, 0,0) Flip Until MoviePlaying(Intro) = 0 CloseMovie Intro Include "Menu.bb"
(Menu.bb) FreeSound sound3 StopChannel(kanal)
Graphics 640,480,16,1 SetBuffer BackBuffer()
stars = LoadImage("Bilder\stars.bmp") Sound1=LoadSound ("Musik\Holzchopf - Silence Association.ogg") Sound2=LoadSound ("Musik\Holzchopf - Trance Syndrome.ogg") Channel=PlaySound(Sound1) LoopSound sound1
For q = 1 To 400 Cls
x_star = x_star + 1 If x_star = 201 Then x_star = 1 TileImage stars, x_star, 1
If breite < 100 Then r = 0 : g = 255 : b = 0 If breite < 100 Then r = 255 : g = 255 : b = 0 If breite < 200 Then r = 255 : g = 127.7 : b = 0 If breite < 300 Then r = 255 : g = 0 : b = 0
breite = breite + 1
Color 0,255,0 If breite < 40 Then Text 280,420, "Loading" If breite < 40 Then Text 280,420, "Loading ." If breite < 80 Then Text 280,420, "Loading .." If breite < 120 Then Text 280,420, "Loading ..." If breite < 160 Then Text 280,420, "Loading ...." If breite < 200 Then Text 280,420, "Loading ....." If breite < 240 Then Text 280,420, "Loading ......" If breite < 280 Then Text 280,420, "Loading ......." If breite < 320 Then Text 280,420, "Loading ........" If breite < 360 Then Text 280,420, "Loading ........." If breite < 400 Then Text 280,420, "Loading .........."
Color 0,255,0 Text 320,190,breite/4 + "%"
Color r,g,b Rect 120,230,breite,30 Color 255,255,255 Rect 120,230,400,30, False
Flip Next
Flip
Include "include.bb"
HidePointer Repeat Timer = MilliSecs() Moveback()
DrawImage title, 320, 50 If Drawbutton(Start, Startover, 320-88, 150) FreeSound sound1 StopChannel(kanal) Include "start.bb" End If
If Drawbutton(Credits, Creditsover, 320-88, 250) FreeSound sound1 StopChannel(kanal) breite = 0 Include "Credits.bb" End If
If Drawbutton(Ende, Endeover, 320-88, 350) End DrawImage Maus, MouseX(), MouseY() FlushMouse()
Repeat Until MilliSecs() => Timer + 10
Flip
(Include.bb) Data 50
Data "Wer war Adenauer? Data "" Data "Rechtsanwalt" Data "Bundeskanzler" Data "Präsident" Data "Wissenschaftler" Data 2
Data "Was ist ein Samurai?" Data "" Data "Japaner der Krieger" Data "Ein Gottes Mann" Data "Ein Gläubiger" Data "Schwertkunsmeister" Data 1
Data "Wozu dient eine Longe?" Data "" Data "Enpfangen von Daten" Data "Zum Kopieren " Data "aulösen einer Reaktion" Data "Als Leitseil für Pferde" Data 4
Data "Mit welchem Wunsch begrüßen sich" Data " die Bergleute? " Data "Huhu!" Data "Hi! " Data "Glück auf!" Data "Wie gehts?" Data 3
Data "Was ist ein Banner? " Data "" Data "Ein Buttom" Data "Ein Werbeband" Data "gesperrte Seite" Data "Ein Aufkleber" Data 2
Data "Was misst man in Dioptrien? " Data "" Data "Genauigkeit" Data "Fehlsichtigkeit" Data "Geschwindigkeit" Data "ein Maß" Data 2
Data "Was ist ein Matador? " Data "" Data "Ein Maler" Data "Ein Geologe" Data "Ein Tierarzt" Data "Ein Stierkämpfer" Data 4
Data "An welchem Meer liegt Helsinki?" Data "" Data "Meerbusen" Data "Nordsee" Data "Schwarzes Meer" Data "Ostsee" Data 1
Data "Wie heißt das Parlament Israels?" Data "" Data "Der Stern" Data "Charles De Gaulle " Data "Knesset" Data "Nester" Data 3
Data "Wer gründete Scientology? " Data "" Data "Ron Hubbard " Data "Ronald Biggs " Data "Nelson Mandela" Data "Lisa Maria Presley" Data 1
Data "Was schlägt ohne Hände? " Data "" Data "Ein Tier " Data "Die Uhr " Data "Der Tag" Data "Eine Glocke" Data 2
Data "Was ist Marabu?" Data "" Data "Ein Gewürz " Data "Ein Land " Data "Eine Sprache " Data "Ein Kropfstorch " Data 4
Data "Was ist ein Nabo?" Data "" Data "Ein Speisegericht " Data "Ein Berg " Data "Ein Kraftfahrzeug " Data "Ein Dichter " Data 2
Data "Womit arbeitet ein?" Data "binäres Signal" Data "links, rechts " Data "X und Y " Data "0 und 1 " Data "auf und ab " Data 4
Data "Schutzdamm am " Data "Meer?" Data "Deich " Data "Bodden " Data "Holzpfähler " Data "Sandhügel " Data 1
Data "Stadt in" Data "Japan?" Data "Peking " Data "Warschau " Data "Yokohama " Data "Prag " Data 3
Data "Wertpapier?" Data "" Data "Geld " Data "Aktie " Data "Pappe " Data "Adzen " Data 2
Data "Was bedeutet das Wort " Data "Advent?" Data "Versönung " Data "Glauben " Data "Feiern " Data "Ankunft" Data 4
Data "Was ist ein Pager? " Data "" Data "Funkrufempfänger " Data "Ein Signal " Data "Eine Frequenz " Data "Elektronenzähler" Data 1
Data "Was war die Hanse?" Data "" Data "Städtebund" Data "Eine Religeon " Data "Ein Volk" Data "Ein Aufstandt" Data 1
Data "Was nennt man beim" Data "Wein Bukett?" Data "Die Flüssigkeit" Data "Den Geschmack " Data "Die Farbe" Data "Den Duft" Data 4
Data "Was sind die Geschäfte" Data "eines Buchmachers?" Data "Läden" Data "Wetten " Data "Industrien" Data "Ausverkäufe" Data 2
Data "Welcher Stein raucht?" Data "" Data "Bleistein" Data "der Schornstein " Data "Teerstein" Data "Betonstein" Data 2
Data "Welcher Ring ist nicht" Data "rund?" Data "Goldring" Data "Herzring " Data "Hering" Data "Kreuzring" Data 3
Data "Hauptstadt Russlands?" Data "" Data "Moskau" Data "London " Data "Paris" Data "Washington" Data 1
Data "Wie heißt der längste Fluss Europas?" Data "" Data "Uralfluss" Data "Elbe " Data "Nil" Data "Wolga" Data 4
Data "An welchem Fluss liegt" Data " Berlin?" Data "Mosel" Data "Spree" Data "Elbe" Data "Weser" Data 2
Data "Was ist das größte arktisch" Data " Raubtier?" Data "Esel" Data "Eisbär" Data "Löwe." Data "Elefant" Data 2
Data "Wie heißt Konstantinopel" Data " heute?" Data "Venedig" Data "Troja" Data "Istanbul " Data "Hammel" Data 3
Data "In welcher Stadt gibt es Grachten? " Data "" Data "Amsterdam" Data "Prag" Data "Pecking " Data "Moskau" Data 1
Data "Welches ist die leichteste aller Holzarten" Data "" Data "Balsaholz" Data "Eichenholz" Data "Buchholz " Data "Kiefernholz" Data 1
Data "Edelmetall im Hals" Data " " Data "Trüffel" Data "Mars" Data "Praliene " Data "Rachengold" Data 4
Data "Was ist eine Persiflage?" Data " " Data "Nachdruck" Data "Eine Verarschung" Data "Ein Zwitter" Data "Verhängnis" Data 2
Data "Wer entdeckte: "
Data "Das Dynamit? " Data "Heinrich Hertz " Data "James Watt " Data "Alfred Nobel" Data "Galileo Galilei " Data 3
Data "Entdecke die Möglichkeiten: "
Data "" Data "IKEA " Data "Praktiker " Data "OBI" Data "Hellweg " Data 1
Data "Was ist ein Jeton? "
Data "" Data "Eine Spielmarke " Data "Ein Trumpf " Data "Ein Verein" Data "Ein Spiel " Data 1
Data " Was ist ein Kollier? "
Data "" Data "Ein Tier " Data "Posträger " Data "Halsband" Data "Halsgeschmeide " Data 4
Data " Planet mit Ringen? "
Data "" Data "Jupiter " Data "Pluto " Data "Saturn " Data "Mars " Data 3
Data "größter Planet? "
Data "" Data "Pluto " Data "Jupiter " Data "Erde " Data "Venus " Data 2
Data "Welcher Stern ist der "
Data "Erde am nächsten? " Data "Michstraße " Data " Sonne " Data "Mond " Data "Lichstern " Data 2
Data " Wann beginnt der Sabbat? " Data " " Data "Am Montag " Data "Am Samstag " Data "Am Freitag " Data "Am Mittwoch " Data 3
Data " Musikalisches Getreide " Data " " Data "Gerste " Data "Häfe " Data "Roggenbass " Data "Popcorn " Data 4
Data " Hier werden Sie geholfen " Data " " Data "Siemens " Data "DB " Data "BvG " Data "Auskunft " Data 4
Data " Was heißt Hosianna? " Data " " Data "ich bete zu dir " Data "danke oh Herr " Data "danke Gott " Data "hilf doch oh Gott " Data 4
Data " Was sind Satelliten? " Data " " Data "Himmelskörper " Data "Daten " Data "Spione " Data "Träger " Data 1
Data " Wie viel Karten hat ein " Data " Skartspiel? " Data "32 Karten " Data "62 Karten " Data "52 Karten " Data "54 Karten " Data 1
Data " Hat eine Kugel eine " Data " Manetlfläche? " Data "Nein " Data "Ja " Data "teilweise " Data "hat Punkte " Data 2
Data " Was ist keine " Data " Firma? " Data "Windows " Data "Siemens " Data "Microsoft " Data "Futura " Data 1
Data " Wie nennt man einen " Data "Briefmarkensammler? " Data "Philatelist " Data "Prophet " Data "Dekan " Data "Denker " Data 1
Data " Von welcher Firma ist " Data "das Spiel hier (Quizie)? " Data "Microsoft " Data "Sony " Data "Three Circle " Data "EA-Games " Data 3
Global x_star1 Global x_star2 Global x_star3
Graphics 640, 480, 16,1 SetBuffer BackBuffer()
Type Fragen Field Frage1$, Frage2$, Antwort1$, Antwort2$, Antwort3$, Antwort4$, RiAntwort End Type
Cls Text 0,0, "Fragen werden Eingelesen..." Flip
Read AnzahlFragen
For Frage = 1 To AnzahlFragen Fragen.Fragen = New Fragen Read Fragen\Frage1$, Fragen\Frage2$, Fragen\Antwort1$, Fragen\Antwort2$, Fragen\Antwort3$,Fragen\Antwort4$, Fragen\RiAntwort Next Frage =0 Cls Text 0,0, "Bilder werden geladen..." Flip Global stars1 = LoadImage("img\back1.bmp") Global stars2 = LoadImage("img\back2.bmp") Global stars3 = LoadImage("img\back3.bmp") Global Maus = LoadImage("img\mouse.bmp") MaskImage Maus, 255, 0, 255 Creditsscr = LoadImage("Img\Credits.png")
Start = LoadImage("Img\Menu\Start.png") Startover = LoadImage("Img\Menu\Startover.png") Credits = LoadImage("Img\Menu\Credits.png") Creditsover = LoadImage("Img\Menu\Creditsover.png") Ende = LoadImage("Img\Menu\Ende.png") Endeover = LoadImage("Img\Menu\Endeover.png") title = LoadImage("Img\title.png") button = LoadImage("Img\Menu\button.png") buttonover = LoadImage("Img\Menu\buttonover.png")
MaskImage Start, 255,0,255 MaskImage Startover, 255,0,255 MaskImage Credits, 255,0,255 MaskImage Creditsover, 255,0,255 MaskImage Ende, 255,0,255 MaskImage Endeover, 255,0,255 MaskImage button, 255,0,255 MaskImage buttonover, 255,0,255 MaskImage title, 255,0,255 MaskImage Creditsscr, 255,0,255 MidHandle title MidHandle button MidHandle buttonover Cls Text 0,0, "Schriftarten werden geladen" Flip Bigfont = LoadFont("Arial", 40) Smallfont = LoadFont("Arial", 25) SetFont Smallfont
Function Drawbutton(Button,Buttonover, X, Y) If ImagesCollide (Maus, MouseX(), MouseY(), 0, Button, x, y, 0) DrawImage Buttonover, X, Y If MouseHit(1)=1 Then Return 1 Else DrawImage Button, X, Y End If End Function
Function Moveback(Speed#=1) x_star1 = x_star1 + 3 * Speed# x_star2 = x_star2 + 2 * Speed# x_star3 = x_star3 + 1 * Speed# If x_star1 > 200 Then x_star1=0 If x_star2 > 200 Then x_star2=0 If x_star3 > 200 Then x_star3=0 TileBlock stars1, x_star1, 1 TileImage stars2, x_star2, 1 TileImage stars3, x_star3, 1 End Function
(Start.bb) Sound1=LoadSound ("Musik\Holzchopf - Hot Gears.ogg") Sound2=LoadSound ("Musik\Holzchopf - Trance Syndrome.ogg") Channel=PlaySound(Sound2) LoopSound sound2
For Fragen.fragen=Each fragen Frage = Frage + 1 Timer = MilliSecs() Color 255,255,255 SetFont Bigfont For Speed# = 1 To 20 Step 0.1 Timer = MilliSecs() Moveback(speed#) Text 320, 190, "Auf zur nächsten Frage...", 1, 1 Text 320, 290, "Frage " + Frage, 1, 1
DrawImage Maus, MouseX(), MouseY() Repeat Until MilliSecs() => Timer + 10 Flip Next For Speed# = 20 To 1 Step -0.1 Timer = MilliSecs() Moveback(speed#) Text 320, 190, "Auf zur nächsten Frage...", 1, 1 Text 320, 290, "Frage " + Frage, 1, 1 DrawImage Maus, MouseX(), MouseY() Repeat Until MilliSecs() => Timer + 10 Flip Next
Repeat Moveback() Color 255,255,255 SetFont Bigfont Text 320, 50, Fragen\Frage1$, 1, 1 Text 320, 100, Fragen\Frage2$, 1, 1
If Drawbutton(Button, Buttonover, 150,240) Then antwort = 1 If Drawbutton(Button, Buttonover, 470,240) Then antwort = 2 If Drawbutton(Button, Buttonover, 150,340) Then antwort = 3 If Drawbutton(Button, Buttonover, 470,340) Then antwort = 4 If Drawbutton(Ende, Endeover, 320-88, 400) Then Antwort = 10 Color 128,0,0 SetFont Smallfont Text(150,240, Fragen\Antwort1$,1,1) Text(470,240, Fragen\Antwort2$,1,1) Text(150,340, Fragen\Antwort3$,1,1) Text(470,340, Fragen\Antwort4$,1,1)
DrawImage Maus, MouseX(), MouseY() Flip Until antwort SetFont smallfont If Antwort = 10 Then Exit If Antwort = Fragen\RiAntwort Then Color 0,255,0 Punkte = Punkte + 1 Ri = Ri + 1 Timer = MilliSecs() Repeat Moveback() Text 320,190, "Die Antwort war Richtig.", 1, 1 Text 320,290, "Du hast jetzt "+ punkte + " Punkte.", 1, 1 DrawImage Maus, MouseX(), MouseY() Flip Until MilliSecs() > timer + 2000 Else Color 255,0,0 Timer = MilliSecs() Punkte = Punkte - 1 Fa = Fa + 1 Repeat Moveback() Text 320,190, "Die Antwort war Leider Falsch.", 1, 1 Text 320,290, "Du hast jetzt "+ punkte + " Punkte.", 1, 1 DrawImage Maus, MouseX(), MouseY() Flip Until MilliSecs() > timer + 2000 End If antwort = 0 Next SetFont Smallfont Color 255,255,255 Repeat Timer = MilliSecs() Moveback() Text 320,50, "Das Spiel ist Vorbei.", 1, 1 Text 320,100, "Du hast insgesammt " + Punkte + " Punkte erreicht,", 1, 1 Text 320,150, "indem du " + ri + " Fragen Richtig beantwortet hast", 1, 1 Text 320,200, "und " + fa + " Fragen falsch.", 1, 1 Text 320,250, "Hoffentlich hat dir das Spiel gefallen.", 1, 1 Text 320,300, "Maustaste drücken, um weiterzukommen.", 1, 1 DrawImage Maus, MouseX(), MouseY() Repeat Until MilliSecs() > timer + 10 Flip Until MouseHit(1) FreeSound Sound2 StopChannel(kanal) Channel=PlaySound(Sound1)
man müsste es bei der Start.bb machen aber wnen ich da schreibe Fragen = 0 dann geht er ins game und gleich wieder raus,...
|