Problem mit Onkelz-Quiz

Übersicht

BlitzBasic

Allgemein

Gehe zu Seite 1, 2 Weiter

	Toxic Chemical Betreff: Problem mit Onkelz-Quiz	Fr, Jul 30, 2004 16:31 Antworten mit Zitat
Moin, hab ma wieder n prob. Ich will ein Onkelz Quiz progen. Code: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,32,1 SetBuffer FrontBuffer() Arial1 =LoadFont("Arial",24,False,False,False) Arial2 =LoadFont("Arial",16,False,False,False) Repeat ; --- Hauptmenue --- .Hauptmenue SetFont Arial1 Color 0,128,0 Text 400,30,".: Boehse Onkelz Quiz - Beta 1.0 :.",True,False SetFont Arial2 Color 255,255,255 Text 45,200,"Um ins Spiel zu kommen bitte die 1 drücken!" Text 45,250,"Um die Credits zu sehen bitte die 2 drücken!" Text 45,300,"Um das Spiel zu beenden bitte die Esc. drücken!" Text 650,580,"By Future Gaming" Color 0,128,0 Rect 40,190,290,45,0 Rect 40,240,290,45,0 Rect 40,290,290,45,0 If KeyDown(2) Then Goto Game1 If KeyDown(1) Then End If KeyDown(3) Then Goto Credits1 Forever ; --- Credits --- .Credits1 Cls SetFont Arial1 Color 0,128,0 Text 400,30,".: Credits :.",True,False Text 50,100,"Coding:" Text 50,150,"Graphics:" Text 50,200,"Sounds:" Text 50,250,"THX to:" SetFont Arial2 Color 255,255,255 Text 50,125,"Toxic Chemicals - Marco H." Text 50,175,"Toxic Chemicals - Marco H." Text 50,225,"Toxic Chemicals - Marco H." If KeyDown(1) Then Cls If KeyDown(1) Then Goto Hauptmenue ; --- Beenden --- Ende1=KeyDown(1) If Ende1 Then End ; --- Game --- .Game1 Cls SetFont Arial1 Color 0,128,0 Text 400,30,".: Das Game :.",True,False SetFont Arial2 Color 255,255,255 Text 50,100,"Demokratie ist nur ein Wort, solange man sie nich lebt" Text 50,125,"* * **** * * * * * * ***" Locate 50,150 Frage1$ =Input ("") Wenn ich dann im Hauptmenü aber auf 2 drücke, damit die credits kommen - komme ich irgentwie ins Spiel! K.A warum!? Hoffe ihr könnt mir helfen

Toxic Chemical

Betreff: Problem mit Onkelz-Quiz

Fr, Jul 30, 2004 16:31
Antworten mit Zitat

Moin,

hab ma wieder n prob. Ich will ein Onkelz Quiz progen.
Code:
Code: [AUSKLAPPEN]

Graphics 800,600,32,1
SetBuffer FrontBuffer()

Arial1 =LoadFont("Arial",24,False,False,False)
Arial2 =LoadFont("Arial",16,False,False,False)

Repeat
; --- Hauptmenue ---

.Hauptmenue
SetFont Arial1
Color 0,128,0
Text 400,30,".: Boehse Onkelz Quiz - Beta 1.0 :.",True,False

SetFont Arial2
Color 255,255,255
Text 45,200,"Um ins Spiel zu kommen bitte die 1 drücken!"
Text 45,250,"Um die Credits zu sehen bitte die 2 drücken!"
Text 45,300,"Um das Spiel zu beenden bitte die Esc. drücken!"

Text 650,580,"By Future Gaming"

Color 0,128,0
Rect 40,190,290,45,0
Rect 40,240,290,45,0
Rect 40,290,290,45,0

If KeyDown(2) Then Goto Game1
If KeyDown(1) Then End
If KeyDown(3) Then Goto Credits1

Forever
; --- Credits ---
.Credits1
Cls
SetFont Arial1
Color 0,128,0
Text 400,30,".: Credits :.",True,False
Text 50,100,"Coding:"
Text 50,150,"Graphics:"
Text 50,200,"Sounds:"
Text 50,250,"THX to:"
SetFont Arial2
Color 255,255,255
Text 50,125,"Toxic Chemicals - Marco H."
Text 50,175,"Toxic Chemicals - Marco H."
Text 50,225,"Toxic Chemicals - Marco H."

If KeyDown(1) Then Cls
If KeyDown(1) Then Goto Hauptmenue

; --- Beenden ---
Ende1=KeyDown(1)
If Ende1 Then End

; --- Game ---
.Game1
Cls
SetFont Arial1
Color 0,128,0
Text 400,30,".: Das Game :.",True,False
SetFont Arial2
Color 255,255,255
Text 50,100,"Demokratie ist nur ein Wort, solange man sie nich lebt"
Text 50,125,"*** **** *** ****** *** *** *** *** **** ** *** ***** *****"
Locate 50,150
Frage1$ =Input ("")

Wenn ich dann im Hauptmenü aber auf 2 drücke, damit die credits kommen - komme ich irgentwie ins Spiel! K.A warum!?

Hoffe ihr könnt mir helfen Smile

	cavebird	Fr, Jul 30, 2004 16:34 Antworten mit Zitat
Arrrgh...! du hast goto benutzt. Goto darf man nicht verwenden...lö. Mach es ohne Goto dann ist es nicht so unübersichtlich blabla und so.
MegaUpload.de -- Uploade bis zu 2MB pro Bild !!DEIN PARTNER IN SACHEN UPLOAD --bitte weiterempfehlen, nur so können wir bekannt werden...

cavebird

Fr, Jul 30, 2004 16:34
Antworten mit Zitat

Arrrgh...! du hast goto benutzt. Goto darf man nicht verwenden...lö.
Mach es ohne Goto dann ist es nicht so unübersichtlich blabla und so.

MegaUpload.de -- Uploade bis zu 2MB pro Bild !!DEIN PARTNER IN SACHEN UPLOAD --bitte weiterempfehlen, nur so können wir bekannt werden...

	Edlothiol	Fr, Jul 30, 2004 16:35 Antworten mit Zitat
Du kommst in die Credits, allerdings gehts sofort weiter zum Spiel. Mach die Credits in eine Schleife.

Edlothiol

Fr, Jul 30, 2004 16:35
Antworten mit Zitat

Du kommst in die Credits, allerdings gehts sofort weiter zum Spiel. Mach die Credits in eine Schleife.

	Toxic Chemical	Fr, Jul 30, 2004 16:44 Antworten mit Zitat
thx @ all, @ Edlothiol, in welche schleife? repeat - forever? Oder wie? @ cave, durch was könnte man das ersetzten?

Toxic Chemical

Fr, Jul 30, 2004 16:44
Antworten mit Zitat

thx @ all,

@ Edlothiol, in welche schleife? repeat - forever? Oder wie?
@ cave, durch was könnte man das ersetzten?

	Blitzkrieg Bop	Fr, Jul 30, 2004 17:56 Antworten mit Zitat
Zitat: Ich will ein Onkelz Quiz progen.
~ Hey Ho Let's Go ~

Blitzkrieg Bop

Fr, Jul 30, 2004 17:56
Antworten mit Zitat

Zitat:

Ich will ein Onkelz Quiz progen.

~ Hey Ho Let's Go ~

	Hubsi	Fr, Jul 30, 2004 17:59 Antworten mit Zitat
Ich denke mal ein ein 'Böhse Onkelz' Quiz Das schreibt sich wirklich so.
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Fr, Jul 30, 2004 17:59
Antworten mit Zitat

Ich denke mal ein ein 'Böhse Onkelz' Quiz Wink

Das schreibt sich wirklich so.

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	Toxic Chemical	Fr, Jul 30, 2004 18:11 Antworten mit Zitat
was so schlimm an nem bo quiz? Kann mir jemand helfen?

Toxic Chemical

Fr, Jul 30, 2004 18:11
Antworten mit Zitat

was so schlimm an nem bo quiz?

Kann mir jemand helfen?

	Fox	Fr, Jul 30, 2004 18:24 Antworten mit Zitat
Jeder, der den Goto-Befehl entdeckt, meint er habe nun das mächtigste Werkzeug aller Zeiten gefunden. Auch ich habe mich von der Einfachheit des Goto-Befehls verführen lassen. Und dafür teuer bezahlt... Je eher du dich an einen übersichtlicheren, besser strukturierten Programmierstil gewöhnst, desto besser für dich. Deshalb mein Tipp - auch wenn es schwer fällt: Schmeiß den Quellcode zum Fenster raus, oder lösch ihn zumindest von der Platte und fang nochmal neu an. Mach eine Hauptschleife und benutze für die Unterprogramme Funktionen. Auf www.blitzbase.de kannst du dir in der Befehlsreferenz die wesentlichen Dinge zu Funktionen anschauen. Wenn du aber umbedingt bei Goto bleiben möchtest: Setz einfach alles zwischen zwei Sprungmarken in eine Endlosschleife.
Denken macht den Anfang, richtiges Denken den Unterschied.

Fox

Fr, Jul 30, 2004 18:24
Antworten mit Zitat

Jeder, der den Goto-Befehl entdeckt, meint er habe nun das mächtigste Werkzeug aller Zeiten gefunden. Auch ich habe mich von der Einfachheit des Goto-Befehls verführen lassen. Und dafür teuer bezahlt...

Je eher du dich an einen übersichtlicheren, besser strukturierten Programmierstil gewöhnst, desto besser für dich.

Deshalb mein Tipp - auch wenn es schwer fällt: Schmeiß den Quellcode zum Fenster raus, oder lösch ihn zumindest von der Platte und fang nochmal neu an. Mach eine Hauptschleife und benutze für die Unterprogramme Funktionen.

Auf www.blitzbase.de kannst du dir in der Befehlsreferenz die wesentlichen Dinge zu Funktionen anschauen.

Wenn du aber umbedingt bei Goto bleiben möchtest: Setz einfach alles zwischen zwei Sprungmarken in eine Endlosschleife.

Denken macht den Anfang,
richtiges Denken den Unterschied.

	Blitzkrieg Bop	Fr, Jul 30, 2004 18:51 Antworten mit Zitat
Naja ich weiß wie die Onkelz geschrieben werden, aber ich halte nichts von denen, um es mal ruhig auszusprechen...
~ Hey Ho Let's Go ~

Blitzkrieg Bop

Fr, Jul 30, 2004 18:51
Antworten mit Zitat

Naja ich weiß wie die Onkelz geschrieben werden, aber ich halte nichts von denen, um es mal ruhig auszusprechen...

~ Hey Ho Let's Go ~

	Toxic Chemical	Fr, Jul 30, 2004 19:09 Antworten mit Zitat
@ blitzkrieg - darf man erfahren weshalb? @ Fox - ok ich werde neu anfangen. Danke für deine hilfe!

Toxic Chemical

Fr, Jul 30, 2004 19:09
Antworten mit Zitat

@ blitzkrieg - darf man erfahren weshalb?
@ Fox - ok ich werde neu anfangen. Danke für deine hilfe!

	Fox	Fr, Jul 30, 2004 19:14 Antworten mit Zitat
Hey Toxic, aber nicht, dass du mich zu ernst nimmst und den Code wirklich in die Mülltone schmeißt. Wenn es dir weniger um das Lernen von BB und mehr um das Fertigstellen deines Quiz-Programms geht, dann mach ruhig weiter. Mit Schleifen an den richtigen Stellen, ist das machbar. Kannst du dich aber noch von deinem Programm trennen und willst was lernen, dann benutz Funktionen. Anmerkung zu Blitzkrieg Bops Anmerkung (): Die Musik der Onkelz ist nun einmal nicht jederman(n)s Sache.
Denken macht den Anfang, richtiges Denken den Unterschied.

Fox

Fr, Jul 30, 2004 19:14
Antworten mit Zitat

Hey Toxic,

aber nicht, dass du mich zu ernst nimmst und den Code wirklich in die Mülltone schmeißt. Smile

Wenn es dir weniger um das Lernen von BB und mehr um das Fertigstellen deines Quiz-Programms geht, dann mach ruhig weiter. Mit Schleifen an den richtigen Stellen, ist das machbar.

Kannst du dich aber noch von deinem Programm trennen und willst was lernen, dann benutz Funktionen.

Anmerkung zu Blitzkrieg Bops Anmerkung ( Smile

): Die Musik der Onkelz ist nun einmal nicht jederman(n)s Sache.

Denken macht den Anfang,
richtiges Denken den Unterschied.

	Blitzkrieg Bop	Fr, Jul 30, 2004 19:23 Antworten mit Zitat
Ich habe keine Lust darüber zu diskutieren und es ist egal, ob sie der Ansichtssache entsprechend , mal rechts waren oder es noch sind, doch sicher ist, das die rechts waren! Für mich ist damit das Thema gegessen...
~ Hey Ho Let's Go ~

Blitzkrieg Bop

Fr, Jul 30, 2004 19:23
Antworten mit Zitat

Ich habe keine Lust darüber zu diskutieren und es ist egal, ob sie der Ansichtssache entsprechend , mal rechts waren oder es noch sind, doch sicher ist, das die rechts waren!
Für mich ist damit das Thema gegessen...

~ Hey Ho Let's Go ~

	Kabelbinder Sieger des WM-Contest 2006	Fr, Jul 30, 2004 21:49 Antworten mit Zitat
Also ich muss mich da Biltzkrieg Bop anschließen. Ich meine Andere Bands singen über richtige Probleme in der Welt und die da behaupten nur, dass sie bekannter als Jesus sind , wenn ich das richtig verstanden habe. Ich meine, das ist doch nicht so gehaltvoll, oder?
<Wing Avenger Download> ◊◊◊ <Macrophage Download>

Kabelbinder

Sieger des WM-Contest 2006

Fr, Jul 30, 2004 21:49
Antworten mit Zitat

Also ich muss mich da Biltzkrieg Bop anschließen.
Ich meine Andere Bands singen über richtige Probleme in der Welt und die da behaupten nur, dass sie bekannter als Jesus sind Rolling Eyes

, wenn ich das richtig verstanden habe.
Ich meine, das ist doch nicht so gehaltvoll, oder?

	Toxic Chemical	Fr, Jul 30, 2004 22:20 Antworten mit Zitat
Naja ist eure Meinung. Aber wenn man sich richtig mit den Onkelz befasst und dies auch will dann wird einem die Musik auch gefallen. Auf jeden Fall sind die Onkelz nichtmehr rechts. Und das mit Jesus ist die reine Ironie "Die ihr so schwer versteht" aus Onkelz 2000

Toxic Chemical

Fr, Jul 30, 2004 22:20
Antworten mit Zitat

Naja ist eure Meinung.
Aber wenn man sich richtig mit den Onkelz befasst und dies auch will dann wird einem die Musik auch gefallen.
Auf jeden Fall sind die Onkelz nichtmehr rechts.
Und das mit Jesus ist die reine Ironie "Die ihr so schwer versteht" aus Onkelz 2000

	Blitzkrieg Bop	Fr, Jul 30, 2004 22:38 Antworten mit Zitat
Ach das Gefasel regt mich auf....Kenne selber nen Onkelz Fan und der meint auch die sein nicht (mehr) rechts...bla....Ich will mich damit nicht befassen. Ich weiß nur das rechte Leute scheisse sind ...
~ Hey Ho Let's Go ~

Blitzkrieg Bop

Fr, Jul 30, 2004 22:38
Antworten mit Zitat

Ach das Gefasel regt mich auf....Kenne selber nen Onkelz Fan und der meint auch die sein nicht (mehr) rechts...bla....Ich will mich damit nicht befassen. Ich weiß nur das rechte Leute scheisse sind ...

~ Hey Ho Let's Go ~

	Toxic Chemical	Fr, Jul 30, 2004 23:22 Antworten mit Zitat
So nun neues Prob.: code: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,32,2 SetBuffer BackBuffer() ; --- Globale --- Global Arial1=LoadFont("Arial",24,False,False,False) Global Arial2=LoadFont("Arial",16,False,False,False) ; --- Schleife --- Repeat Hauptmenue Credits Forever ; --- Hauptmenue --- Function Hauptmenue() SetFont Arial1 Color 0,128,0 Text 400,30,".: Boehse Onkelz Quiz - Beta 1.0 :.",True,False SetFont Arial2 Color 255,255,255 Text 45,200,"Um ins Spiel zu kommen bitte die 1 drücken!" Text 45,250,"Um die Credits zu sehen bitte die 2 drücken!" Text 45,300,"Um das Spiel zu beenden bitte die Esc. drücken!" Text 650,580,"By Future Gaming" Color 0,128,0 Rect 40,190,290,45,0 Rect 40,240,290,45,0 Rect 40,290,290,45,0 If KeyDown(1) Then End If KeyDown(3) Then Cls If KeyDown(3) Then Credits End Function ; --- Function Credits() SetFont Arial1 Color 0,128,0 Text 400,30,".: Credits :.",True,False Text 50,100,"Coding:" Text 50,150,"Graphics:" Text 50,200,"Sounds:" Text 50,250,"THX to:" SetFont Arial2 Color 255,255,255 Text 50,125,"Toxic Chemicals - Marco H." Text 50,175,"Toxic Chemicals - Marco H." Text 50,225,"Toxic Chemicals - Marco H." End Function guckts euch an - irgentwie werden beide Seiten auf einmal angezeigt. Warscheinlich wieder anfänger-fehler aber hoffe ihr koennt mir helfen!!!

Toxic Chemical

Fr, Jul 30, 2004 23:22
Antworten mit Zitat

So nun neues Prob.:

code:
Code: [AUSKLAPPEN]

Graphics 800,600,32,2
SetBuffer BackBuffer()

; --- Globale ---
Global Arial1=LoadFont("Arial",24,False,False,False)
Global Arial2=LoadFont("Arial",16,False,False,False)

; --- Schleife ---
Repeat
Hauptmenue
Credits
Forever

; --- Hauptmenue ---
Function Hauptmenue()

SetFont Arial1
Color 0,128,0
Text 400,30,".: Boehse Onkelz Quiz - Beta 1.0 :.",True,False

SetFont Arial2
Color 255,255,255
Text 45,200,"Um ins Spiel zu kommen bitte die 1 drücken!"
Text 45,250,"Um die Credits zu sehen bitte die 2 drücken!"
Text 45,300,"Um das Spiel zu beenden bitte die Esc. drücken!"

Text 650,580,"By Future Gaming"

Color 0,128,0
Rect 40,190,290,45,0
Rect 40,240,290,45,0
Rect 40,290,290,45,0

If KeyDown(1) Then End
If KeyDown(3) Then Cls
If KeyDown(3) Then Credits

End Function

; ---
Function Credits()

SetFont Arial1
Color 0,128,0
Text 400,30,".: Credits :.",True,False
Text 50,100,"Coding:"
Text 50,150,"Graphics:"
Text 50,200,"Sounds:"
Text 50,250,"THX to:"
SetFont Arial2
Color 255,255,255
Text 50,125,"Toxic Chemicals - Marco H."
Text 50,175,"Toxic Chemicals - Marco H."
Text 50,225,"Toxic Chemicals - Marco H."

End Function

guckts euch an - irgentwie werden beide Seiten auf einmal angezeigt. Warscheinlich wieder anfänger-fehler aber hoffe ihr koennt mir helfen!!!

	DA	Fr, Jul 30, 2004 23:59 Antworten mit Zitat
Böhse onkels Forever!!!!!! Ich sag nur eins Hammer geil die Bänd! zum game, Jetzt zeichnest du beide seiten! Am besten ist es wen man alles logisch durch geht. So ist es besser! Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,32,2 SetBuffer BackBuffer() ; --- Globale --- Global Arial1=LoadFont("Arial",24,False,False,False) Global Arial2=LoadFont("Arial",16,False,False,False) ; --- Schleife --- Hauptmenue Credits ; --- Hauptmenue --- Function Hauptmenue() SetFont Arial1 Color 0,128,0 Text 400,30,".: Boehse Onkelz Quiz - Beta 1.0 :.",True,False SetFont Arial2 Color 255,255,255 Text 45,200,"Um ins Spiel zu kommen bitte die 1 drücken!" Text 45,250,"Um die Credits zu sehen bitte die 2 drücken!" Text 45,300,"Um das Spiel zu beenden bitte die Esc. drücken!" Text 650,580,"By Future Gaming" Color 0,128,0 Rect 40,190,290,45,0 Rect 40,240,290,45,0 Rect 40,290,290,45,0 repeat If KeyDown(1) Then End If KeyDown(3) Then Spiel() If KeyDown(3) Then Credits() forever End Function ; --- Function Credits() SetFont Arial1 Color 0,128,0 Text 400,30,".: Credits :.",True,False Text 50,100,"Coding:" Text 50,150,"Graphics:" Text 50,200,"Sounds:" Text 50,250,"THX to:" SetFont Arial2 Color 255,255,255 Text 50,125,"Toxic Chemicals - Marco H." Text 50,175,"Toxic Chemicals - Marco H." Text 50,225,"Toxic Chemicals - Marco H." End Function
Deutscher Blitz Basic Chat

DA

Fr, Jul 30, 2004 23:59
Antworten mit Zitat

Böhse onkels Forever!!!!!!
Ich sag nur eins Hammer geil die Bänd!

zum game,
Jetzt zeichnest du beide seiten!
Am besten ist es wen man alles logisch durch geht.

So ist es besser!
Code: [AUSKLAPPEN]

Graphics 800,600,32,2
SetBuffer BackBuffer()

; --- Globale ---
Global Arial1=LoadFont("Arial",24,False,False,False)
Global Arial2=LoadFont("Arial",16,False,False,False)

; --- Schleife ---
Hauptmenue
Credits

; --- Hauptmenue ---
Function Hauptmenue()

SetFont Arial1
Color 0,128,0
Text 400,30,".: Boehse Onkelz Quiz - Beta 1.0 :.",True,False

SetFont Arial2
Color 255,255,255
Text 45,200,"Um ins Spiel zu kommen bitte die 1 drücken!"
Text 45,250,"Um die Credits zu sehen bitte die 2 drücken!"
Text 45,300,"Um das Spiel zu beenden bitte die Esc. drücken!"

Text 650,580,"By Future Gaming"

Color 0,128,0
Rect 40,190,290,45,0
Rect 40,240,290,45,0
Rect 40,290,290,45,0

repeat
If KeyDown(1) Then End
If KeyDown(3) Then Spiel()
If KeyDown(3) Then Credits()
forever

End Function

; ---
Function Credits()

SetFont Arial1
Color 0,128,0
Text 400,30,".: Credits :.",True,False
Text 50,100,"Coding:"
Text 50,150,"Graphics:"
Text 50,200,"Sounds:"
Text 50,250,"THX to:"
SetFont Arial2
Color 255,255,255
Text 50,125,"Toxic Chemicals - Marco H."
Text 50,175,"Toxic Chemicals - Marco H."
Text 50,225,"Toxic Chemicals - Marco H."

End Function

Deutscher Blitz Basic Chat

	lucifer	Sa, Jul 31, 2004 0:02 Antworten mit Zitat
Du rufst ja auch die FUnktion Credits() und Hauptmenu() in dem Main-loop auf.

lucifer

Sa, Jul 31, 2004 0:02
Antworten mit Zitat

Du rufst ja auch die FUnktion Credits() und Hauptmenu() in dem Main-loop auf.

	Mansoor	Sa, Jul 31, 2004 0:03 Antworten mit Zitat
Du hast beide Functions hier verwendet! Code: [AUSKLAPPEN] [EINKLAPPEN] ; --- Schleife --- Repeat Hauptmenue Credits Forever So verleicht? Code: [AUSKLAPPEN] [EINKLAPPEN] ; --- Schleife --- Repeat Hauptmenue Forever
User posted image

Mansoor

Sa, Jul 31, 2004 0:03
Antworten mit Zitat

Du hast beide Functions hier verwendet!
Code: [AUSKLAPPEN]

; --- Schleife ---
Repeat
Hauptmenue
Credits
Forever

So verleicht?

Code: [AUSKLAPPEN]

; --- Schleife ---
Repeat
Hauptmenue
Forever

User posted image

	Toxic Chemical	Sa, Jul 31, 2004 9:02 Antworten mit Zitat
Sry, dass ich euch immer mit meinen Probs belästige. Aber nun reagert es ned wenn ich "1 oder 2" drücke! Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,32,2 SetBuffer BackBuffer() ; --- Globale --- Global Arial1=LoadFont("Arial",24,False,False,False) Global Arial2=LoadFont("Arial",16,False,False,False) ; --- Schleife --- Repeat Hauptmenue Forever ; --- Hauptmenue --- Function Hauptmenue() SetFont Arial1 Color 0,128,0 Text 400,30,".: Boehse Onkelz Quiz - Beta 1.0 :.",True,False SetFont Arial2 Color 255,255,255 Text 45,200,"Um ins Spiel zu kommen bitte die 1 drücken!" Text 45,250,"Um die Credits zu sehen bitte die 2 drücken!" Text 45,300,"Um das Spiel zu beenden bitte die Esc. drücken!" Text 650,580,"By Future Gaming" Color 0,128,0 Rect 40,190,290,45,0 Rect 40,240,290,45,0 Rect 40,290,290,45,0 Repeat If KeyDown(1) Then End If KeyDown(2) Then Spiel If KeyDown(3) Then Credits() Forever End Function ; --- Credits Function Credits() SetFont Arial1 Color 0,128,0 Text 400,30,".: Credits :.",True,False Text 50,100,"Coding:" Text 50,150,"Graphics:" Text 50,200,"Sounds:" Text 50,250,"THX to:" SetFont Arial2 Color 255,255,255 Text 50,125,"Toxic Chemicals - Marco H." Text 50,175,"Toxic Chemicals - Marco H." Text 50,225,"Toxic Chemicals - Marco H." End Function ; --- Spiel Function Spiel() End Function Hoffe ihr könnt mir erneut helfen, euer Noob

Toxic Chemical

Sa, Jul 31, 2004 9:02
Antworten mit Zitat

Sry, dass ich euch immer mit meinen Probs belästige. Aber nun reagert es ned wenn ich "1 oder 2" drücke!
Code: [AUSKLAPPEN]

Graphics 800,600,32,2
SetBuffer BackBuffer()

; --- Globale ---
Global Arial1=LoadFont("Arial",24,False,False,False)
Global Arial2=LoadFont("Arial",16,False,False,False)

; --- Schleife ---
Repeat
Hauptmenue
Forever

; --- Hauptmenue ---
Function Hauptmenue()

SetFont Arial1
Color 0,128,0
Text 400,30,".: Boehse Onkelz Quiz - Beta 1.0 :.",True,False

SetFont Arial2
Color 255,255,255
Text 45,200,"Um ins Spiel zu kommen bitte die 1 drücken!"
Text 45,250,"Um die Credits zu sehen bitte die 2 drücken!"
Text 45,300,"Um das Spiel zu beenden bitte die Esc. drücken!"

Text 650,580,"By Future Gaming"

Color 0,128,0
Rect 40,190,290,45,0
Rect 40,240,290,45,0
Rect 40,290,290,45,0

Repeat
If KeyDown(1) Then End
If KeyDown(2) Then Spiel
If KeyDown(3) Then Credits()
Forever

End Function

; --- Credits
Function Credits()

SetFont Arial1
Color 0,128,0
Text 400,30,".: Credits :.",True,False
Text 50,100,"Coding:"
Text 50,150,"Graphics:"
Text 50,200,"Sounds:"
Text 50,250,"THX to:"
SetFont Arial2
Color 255,255,255
Text 50,125,"Toxic Chemicals - Marco H."
Text 50,175,"Toxic Chemicals - Marco H."
Text 50,225,"Toxic Chemicals - Marco H."

End Function

; --- Spiel
Function Spiel()
End Function

Hoffe ihr könnt mir erneut helfen,

euer Noob Very Happy

Gehe zu Seite 1, 2 Weiter

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

Problem mit Onkelz-Quiz

Betreff: Problem mit Onkelz-Quiz