Vom "Menü" ins spiel, aber wie ??

Übersicht

BlitzBasic

Beginners-Corner

	Dohlä Betreff: Vom "Menü" ins spiel, aber wie ??	Di, Mai 03, 2005 19:07 Antworten mit Zitat
Hi kann mir hier jemand helfen, dass ich nach if keyhit.. direkt beim Spiel anfangen kann also iregentwie If keyhit (57) Start game ??BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 1024,768 AppTitle \"Game 1(by DD-Games)\" SetBuffer BackBuffer() ari=LoadFont(\"Arial\",70) Cls While Not KeyHit (1) Color 255,0,0 SetFont ari Color 150,0,0 Text 150,300, \"Space zum spielen drücken\" If KeyHit(57) :!: ;wie soll ich hier weiter machen um dass eigentliche spiel zu programmieren??? Wend

Dohlä

Betreff: Vom "Menü" ins spiel, aber wie ??

Di, Mai 03, 2005 19:07
Antworten mit Zitat

Hi kann mir hier jemand helfen, dass ich nach if keyhit.. direkt beim Spiel anfangen kann also iregentwie If keyhit (57) Start game ??BlitzBasic: [AUSKLAPPEN]



Graphics 1024,768
AppTitle \"Game 1(by DD-Games)\"
 
SetBuffer BackBuffer()
ari=LoadFont(\"Arial\",70)


Cls 

While Not KeyHit (1)
Color 255,0,0
SetFont ari 

Color 150,0,0
Text 150,300, \"Space zum spielen drücken\"

If KeyHit(57)  :!: ;wie soll ich hier weiter machen um dass eigentliche spiel zu programmieren???

Wend

Zuletzt bearbeitet von Dohlä am Di, Mai 03, 2005 19:15, insgesamt einmal bearbeitet

	morszeck	Di, Mai 03, 2005 19:10 Antworten mit Zitat
Nein... solange du nicht sagst was nicht geht und du nicht einen neuen Titel für dein Thema gefunden hast

morszeck

Di, Mai 03, 2005 19:10
Antworten mit Zitat

Nein... solange du nicht sagst was nicht geht und du nicht einen neuen Titel für dein Thema gefunden hast

	Dohlä	Di, Mai 03, 2005 19:16 Antworten mit Zitat
Habs ausgebessert 8)

Dohlä

Di, Mai 03, 2005 19:16
Antworten mit Zitat

Habs ausgebessert 8)

	Bigfreddy	Di, Mai 03, 2005 19:18 Antworten mit Zitat
Kleiner Tipp: Schau mal in diese Online Hilfe ( www.blitzbase.de oder www.robsite.de ) Größerer Tipp: Schau dir mal die "Bedingungen"(if ... ...) genau an

Bigfreddy

Di, Mai 03, 2005 19:18
Antworten mit Zitat

Kleiner Tipp: Schau mal in diese Online Hilfe ( www.blitzbase.de oder www.robsite.de )
Größerer Tipp: Schau dir mal die "Bedingungen"(if ... ...) genau an

	morszeck Betreff: Re: Vom "Menü" ins spiel, aber wie ??	Di, Mai 03, 2005 19:22 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 1024,768 AppTitle \"Game 1(by DD-Games)\" SetBuffer BackBuffer() ari=LoadFont(\"Arial\",70) Cls While Not KeyHit (1) Color 255,0,0 SetFont ari Color 150,0,0 Text 150,300, \"Space zum spielen drücken\" While (WaitKey()<>32) : Wend ; [[ statt If KeyHit(57) ]] Wend

morszeck

Betreff: Re: Vom "Menü" ins spiel, aber wie ??

Di, Mai 03, 2005 19:22
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]



Graphics 1024,768
AppTitle \"Game 1(by DD-Games)\"
 
SetBuffer BackBuffer()
ari=LoadFont(\"Arial\",70)


Cls 

While Not KeyHit (1)

    Color 255,0,0
    SetFont ari 

    Color 150,0,0
    Text 150,300, \"Space zum spielen drücken\"

    While (WaitKey()<>32) : Wend       ; [[ statt If KeyHit(57)  ]]



Wend

Zuletzt bearbeitet von morszeck am Di, Mai 03, 2005 19:23, insgesamt einmal bearbeitet

	Ideenlos	Di, Mai 03, 2005 19:23 Antworten mit Zitat
Also erstmal würd ich schreiben BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] If KeyHit (57) Then Cls (damit der Bildschirm schwarz wird) Das Problem ist aber, dass das ja bereits in der Hauptschleife, also zwischen While und Wend, liegt, aber in der Hauptschleife kann man keine neuen Objekte erstellen! Daher würde ich statt einem Hauptprogramm doch lieber Function blabla() am Anfang und End Function ans Ende setzen, damit man später die Objekte noch erstellen kann. Also so in der Art: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function blabla() ;blablabla=z.B. Startbildschirm Graphics 1024,768 AppTitle \"Killing (by DD-Games)\" SetBuffer BackBuffer() ari=LoadFont(\"Arial\",70) Cls Color 255,0,0 SetFont ari Color 150,0,0 Text 150,300,\"Space zum spielen drücken\" Repeat If KeyHit(57) Then Cls ;Wenn Space gedrückt wird, wird jetzt der Bildschirm gelöscht Until KeyHit(57) ;Wenn Space gedrückt wird, dann läuft das Programm sofort zu End Function End Function Danach kannste dann dein Hauptprogramm schreiben... ((Ach noir, falls das wieder falsch ist, schreibs mir, damit ichs wieder wegmachen kann... )
Programmieren ja, aber Ideen haben, nein, das kann ich wirklich nicht!

Ideenlos

Di, Mai 03, 2005 19:23
Antworten mit Zitat

Also erstmal würd ich schreiben
BlitzBasic: [AUSKLAPPEN]

If KeyHit (57) Then Cls

(damit der Bildschirm schwarz wird)
Das Problem ist aber, dass das ja bereits in der Hauptschleife, also zwischen While und Wend, liegt, aber in der Hauptschleife kann man keine neuen Objekte erstellen! Daher würde ich statt einem Hauptprogramm doch lieber Function blabla() am Anfang und End Function ans Ende setzen, damit man später die Objekte noch erstellen kann.
Also so in der Art:
BlitzBasic: [AUSKLAPPEN]

Function blabla() ;blablabla=z.B. Startbildschirm
Graphics 1024,768
AppTitle \"Killing (by DD-Games)\"

SetBuffer BackBuffer()
ari=LoadFont(\"Arial\",70)

Cls

Color 255,0,0
SetFont ari

Color 150,0,0
Text 150,300,\"Space zum spielen drücken\"

Repeat
If KeyHit(57) Then Cls   ;Wenn Space gedrückt wird, wird jetzt der Bildschirm gelöscht
Until KeyHit(57)      ;Wenn Space gedrückt wird, dann läuft das Programm sofort zu End Function
End Function

Danach kannste dann dein Hauptprogramm schreiben...
((Ach noir, falls das wieder falsch ist, schreibs mir, damit ichs wieder wegmachen kann... Laughing

)

Programmieren ja, aber Ideen haben, nein, das kann ich wirklich nicht!

Zuletzt bearbeitet von Ideenlos am Di, Mai 03, 2005 19:27, insgesamt 2-mal bearbeitet

	morszeck	Di, Mai 03, 2005 19:24 Antworten mit Zitat
Dies würde ich nicht machen, da der PC auf 100% fährt und dabei nix tut!!! Waitkey ist da die bessere Lösung, ausser du willst ein animierten Hintergrund haben der auf "Space" wartet...

morszeck

Di, Mai 03, 2005 19:24
Antworten mit Zitat

Dies würde ich nicht machen, da der PC auf 100% fährt und dabei nix tut!!!

Waitkey ist da die bessere Lösung, ausser du willst ein animierten Hintergrund haben der auf "Space" wartet...

	Bigfreddy	Di, Mai 03, 2005 19:28 Antworten mit Zitat
Zitat: (damit der Bildschirm schwarz wird) nicht immer Spass beiseite... Des würd doch auch so gehn: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 1024,768 AppTitle \"Game 1(by DD-Games)\" SetBuffer BackBuffer() ari=LoadFont(\"Arial\",70) Cls While Not KeyHit (1) Color 255,0,0 SetFont ari Color 150,0,0 Text 150,300, \"Space zum spielen drücken\" If KeyHit(57) Then ;Hauptprog. EndIf Wend

Bigfreddy

Di, Mai 03, 2005 19:28
Antworten mit Zitat

Zitat:

(damit der Bildschirm schwarz wird)

nicht immer Laughing

Spass beiseite...

Des würd doch auch so gehn:

BlitzBasic: [AUSKLAPPEN]

Graphics 1024,768 
AppTitle \"Game 1(by DD-Games)\" 
  
SetBuffer BackBuffer() 
ari=LoadFont(\"Arial\",70) 


Cls 

While Not KeyHit (1) 
Color 255,0,0 
SetFont ari 

Color 150,0,0 
Text 150,300, \"Space zum spielen drücken\" 

If KeyHit(57)  Then
;Hauptprog.
EndIf

Wend

	morszeck	Di, Mai 03, 2005 19:29 Antworten mit Zitat
Auch hier läuft der PC auf Hochtouren... für nix...

morszeck

Di, Mai 03, 2005 19:29
Antworten mit Zitat

Auch hier läuft der PC auf Hochtouren... für nix...

	Bigfreddy	Di, Mai 03, 2005 19:32 Antworten mit Zitat
Warum sollte er? Ich hab des noch nie erlebt...

Bigfreddy

Di, Mai 03, 2005 19:32
Antworten mit Zitat

Warum sollte er?

Ich hab des noch nie erlebt...

	@ndinho	Di, Mai 03, 2005 19:39 Antworten mit Zitat
Ich mach es immer so: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Repeat Cls DrawImage hintergrund,0,0 If KeyDown(57) Then game() Until KeyDown(1) Function game() Cls Print \"Das ist das Spiel\" Delay 5000 End Function oder manchmal auch so: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Repeat Cls DrawImage hintergrund,0,0 If KeyDown(57) Then Gosub game Until KeyDown(1) .game Repeat ;hier spiel Until KeyDown(1)
User posted image Mein PC: AMD 3000+ / 1024 DDR-Ramm 400 / Geforce 6800 Meine Lieblingsspiele: World of Warcraft, Warcraft III, Pro Evolutions Soccer 4, Blitz Basic

@ndinho

Di, Mai 03, 2005 19:39
Antworten mit Zitat

Ich mach es immer so:

BlitzBasic: [AUSKLAPPEN]


Repeat
Cls

DrawImage hintergrund,0,0

If KeyDown(57) Then game()

Until KeyDown(1)

Function game()
Cls
Print \"Das ist das Spiel\"
Delay 5000
End Function

oder manchmal auch so:

BlitzBasic: [AUSKLAPPEN]


Repeat
Cls

DrawImage hintergrund,0,0

If KeyDown(57) Then Gosub game

Until KeyDown(1)


.game
Repeat
;hier spiel
Until KeyDown(1)

User posted image

Mein PC: AMD 3000+ / 1024 DDR-Ramm 400 / Geforce 6800
Meine Lieblingsspiele: World of Warcraft, Warcraft III, Pro Evolutions Soccer 4, Blitz Basic Smile

	DivineDominion	Di, Mai 03, 2005 19:40 Antworten mit Zitat
Verstehe nicht wieso das niemand mit Verweis schließt (kann übrigens den BB-Code nicht lesen, weiß gott woher das nun kommt): https://www.blitzforum.de/viewtopic.php?t=6780
christian.tietze@gmail.com - https://christiantietze.de macOS

DivineDominion

Di, Mai 03, 2005 19:40
Antworten mit Zitat

Verstehe nicht wieso das niemand mit Verweis schließt (kann übrigens den BB-Code nicht lesen, weiß gott woher das nun kommt):

https://www.blitzforum.de/viewtopic.php?t=6780

christian.tietze@gmail.com - https://christiantietze.de
macOS

	Lunatix	Mi, Mai 04, 2005 12:21 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] startmenue() spiel() Function startmenue() Repeat Print \"willst du ein neues spiel starten?\" Print\"\" Print \"oder beenden?\" in$=Input() Select in$ Case \"Ja\" start=1 Case \"end\" End End Select Until start=1 Function spiel() Repeat ;... ;... If leben = 0 Or time = 0 endgame = 1 startmenue() EndIf Until endgame=1 End Function so müsste es gehen wenn nit klärt mich auf! aber da SVSC so ist, muss es gehen 8)
[size=9]Pro\|gram\|mier\|er: Ein Organismus, der Koffein in Software umwandelt. Geben Sie eine beliebige 11-stellige Primzahl ein, um fortzusetzen...

Lunatix

Mi, Mai 04, 2005 12:21
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]



startmenue()
spiel()

Function startmenue()
Repeat
Print \"willst du ein neues spiel starten?\"
Print\"\"
Print \"oder beenden?\"
in$=Input()
Select in$
Case \"Ja\"
start=1
Case \"end\"
End
End Select
Until start=1

Function spiel()
Repeat
;...
;...
If leben = 0 Or time = 0
endgame = 1
startmenue()
EndIf
Until endgame=1
End Function

so müsste es gehen
wenn nit klärt mich auf!
aber da SVSC so ist, muss es gehen 8)

[size=9]Pro|gram|mier|er: Ein Organismus, der Koffein in Software umwandelt.
Geben Sie eine beliebige 11-stellige Primzahl ein, um fortzusetzen...

	gamble	Mi, Mai 04, 2005 13:52 Antworten mit Zitat
Spiel starten oder beenden - Ja ? Warte, da fällt mir was zu ein (aus irgendeinem Flug-Magazin): Pilot: "Does the enemy F-16 come from east or west?" Tower: "Yes." Pilot: "Yes, what?" Tower: "Yes, SIR!"

gamble

Mi, Mai 04, 2005 13:52
Antworten mit Zitat

Spiel starten oder beenden - Ja ? Mr. Green

Warte, da fällt mir was zu ein (aus irgendeinem Flug-Magazin):

Pilot: "Does the enemy F-16 come from east or west?"
Tower: "Yes."
Pilot: "Yes, what?"
Tower: "Yes, SIR!"

Mr. Green

	Dohlä	Fr, Mai 06, 2005 11:51 Antworten mit Zitat
Vielen Dank für die vielen antworten!!! Hat geklappt!!

Dohlä

Fr, Mai 06, 2005 11:51
Antworten mit Zitat

Vielen Dank für die vielen antworten!!! Hat geklappt!! Very Happy

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Vom "Menü" ins spiel, aber wie ??

Betreff: Vom "Menü" ins spiel, aber wie ??

Betreff: Re: Vom "Menü" ins spiel, aber wie ??