Menü die 2.

Übersicht

BlitzBasic

Allgemein

	Flori-D Betreff: Menü die 2.	Di, Jan 20, 2004 12:16 Antworten mit Zitat
Hi.Ich krieg das mit dem Menü nicht sorichtig hin.Wenn die Sieg bedingung beendet ist soll man ins Hauptmenü zurück. Code: [AUSKLAPPEN] [EINKLAPPEN] ;Regeln If PunktX = 640 Then Text 250,250, "Spieler2 hat Veloren" Flip Delay 2000 End <<<<Hier soll man ins Menü zurück EndIf Hier wird gleich beendet aber ich will ins Hauptmenü zurück wie geht das?
BB is Macht! Homepage: www.flori-d.de

Flori-D

Betreff: Menü die 2.

Di, Jan 20, 2004 12:16
Antworten mit Zitat

Hi.Ich krieg das mit dem Menü nicht sorichtig hin.Wenn die Sieg bedingung beendet ist soll man ins Hauptmenü zurück.
Code: [AUSKLAPPEN]

;Regeln
If PunktX = 640 Then
Text 250,250, "Spieler2 hat Veloren"
Flip
Delay 2000
End <<<<Hier soll man ins Menü zurück
EndIf

Hier wird gleich beendet aber ich will ins Hauptmenü zurück wie geht das?

BB is Macht!

Homepage: www.flori-d.de

	Shogo	Di, Jan 20, 2004 13:40 Antworten mit Zitat
Setze einfach dein Menü in eine Function und rufe sie auf.

Shogo

Di, Jan 20, 2004 13:40
Antworten mit Zitat

Setze einfach dein Menü in eine Function und rufe sie auf.

	Flori-D	Di, Jan 20, 2004 16:05 Antworten mit Zitat
Hab das Menü jetzt in einer Function.Nur ähh wie rufe ichs auf? Das programm wird ja gleich beendet weil ichs nicht aufrufe. Code: [AUSKLAPPEN] [EINKLAPPEN] Function Menü() ; ; Hauptmenü-Schleife ; SetBuffer BackBuffer() Repeat TileBlock hintergrund Menu = 0 X = MouseX() Y = MouseY() For I=1 To 3 If ImageRectOverlap (maus, X, Y, 192, 100I, 256, 64) Then DrawImage aktivstein, 192, I 100 Menu = I Else DrawImage stein, 192, I * 100 EndIf Text (640 - StringWidth( MenuName$(I) )) / 2, I*100 + 12, MenuName$(I) Next DrawImage maus, X,Y Flip If MouseHit(1) Then If Menu = 1 Then Start() If Menu = 2 Then Spezial() If Menu = 3 Then Ende() EndIf Until KeyHit(1) End End Function
BB is Macht! Homepage: www.flori-d.de

Flori-D

Di, Jan 20, 2004 16:05
Antworten mit Zitat

Hab das Menü jetzt in einer Function.Nur ähh wie rufe ichs auf? Embarassed

Das programm wird ja gleich beendet weil ichs nicht aufrufe. Embarassed

Code: [AUSKLAPPEN]

Function Menü()
;
; Hauptmenü-Schleife
;
SetBuffer BackBuffer()
Repeat
TileBlock hintergrund
Menu = 0
X = MouseX()
Y = MouseY()

For I=1 To 3
If ImageRectOverlap (maus, X, Y, 192, 100*I, 256, 64) Then
DrawImage aktivstein, 192, I * 100
Menu = I
Else
DrawImage stein, 192, I * 100
EndIf
Text (640 - StringWidth( MenuName$(I) )) / 2, I*100 + 12, MenuName$(I)
Next

DrawImage maus, X,Y
Flip

If MouseHit(1) Then
If Menu = 1 Then Start()
If Menu = 2 Then Spezial()
If Menu = 3 Then Ende()
EndIf

Until KeyHit(1)
End
End Function

BB is Macht!

Homepage: www.flori-d.de

	girgl	Di, Jan 20, 2004 16:15 Antworten mit Zitat
dann lös es doch eifnach mit ner if-abfrage und ner variable Code: [AUSKLAPPEN] [EINKLAPPEN] global MenueAufrufen=true function Menue() if MenueAufrufen=true ;Menue zeigen endif end function

girgl

Di, Jan 20, 2004 16:15
Antworten mit Zitat

dann lös es doch eifnach mit ner if-abfrage und ner variable

Code: [AUSKLAPPEN]

global MenueAufrufen=true

function Menue()
if MenueAufrufen=true
;Menue zeigen
endif
end function

	Flori-D	Di, Jan 20, 2004 16:20 Antworten mit Zitat
Ne geht ach nicht.
BB is Macht! Homepage: www.flori-d.de

Flori-D

Di, Jan 20, 2004 16:20
Antworten mit Zitat

Ne geht ach nicht. Sad

BB is Macht!

Homepage: www.flori-d.de

	Julz	Di, Jan 20, 2004 16:21 Antworten mit Zitat
Ganz am anfang des programms rufst du einfach mit menü() das Menü auf also so mit einer funktion hab ich das auch gemacht ich finde es funktioniert recht gut

Julz

Di, Jan 20, 2004 16:21
Antworten mit Zitat

Ganz am anfang des programms rufst du einfach mit menü() das Menü auf also so mit einer funktion hab ich das auch gemacht ich finde es funktioniert recht gut

	Hip Teen	Di, Jan 20, 2004 16:26 Antworten mit Zitat
Flori-D, ganz einfach warum dein Programm beendet wird. Du schreibst an der falschen Stelle EndCode: [AUSKLAPPEN] [EINKLAPPEN] Function Menü() ; ; Hauptmenü-Schleife ; SetBuffer BackBuffer() Repeat TileBlock hintergrund Menu = 0 X = MouseX() Y = MouseY() For I=1 To 3 If ImageRectOverlap (maus, X, Y, 192, 100I, 256, 64) Then DrawImage aktivstein, 192, I 100 Menu = I Else DrawImage stein, 192, I * 100 EndIf Text (640 - StringWidth( MenuName$(I) )) / 2, I100 + 12, MenuName$(I) Next DrawImage maus, X,Y Flip If MouseHit(1) Then If Menu = 1 Then Start() If Menu = 2 Then Spezial() If Menu = 3 Then Ende() EndIf Until KeyHit(1) End <--------------- Warum schreibst du da End?? End Function Einfach an der stelle End entfernen, wenn das Spiel in das Hauptmenu zurückkehren soll einfach die Zeile Code:* [AUSKLAPPEN] [EINKLAPPEN] Return 0 (Ausser du willst noch einen Wert übergeben) schreiben und schon kehrt das Spiel zum Menu zurück

Hip Teen

Di, Jan 20, 2004 16:26
Antworten mit Zitat

Flori-D, ganz einfach warum dein Programm beendet wird. Du schreibst an der falschen Stelle EndCode: [AUSKLAPPEN]

Einfach an der stelle End entfernen, wenn das Spiel in das Hauptmenu zurückkehren soll einfach die Zeile
Code: [AUSKLAPPEN]

Return 0

(Ausser du willst noch einen Wert übergeben) schreiben und schon kehrt das Spiel zum Menu zurück

Zuletzt bearbeitet von Hip Teen am Di, Jan 20, 2004 16:32, insgesamt einmal bearbeitet

	Flori-D	Di, Jan 20, 2004 16:28 Antworten mit Zitat
THX PC-Master THX!
BB is Macht! Homepage: www.flori-d.de

Flori-D

Di, Jan 20, 2004 16:28
Antworten mit Zitat

THX PC-Master THX! Very Happy

BB is Macht!

Homepage: www.flori-d.de

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

Menü die 2.

Betreff: Menü die 2.