Problem mit meinem Menü
Übersicht
BlitzBasic Allgemein
|
pokopBetreff: Problem mit meinem Menü |
 So, Feb 22, 2004 20:48Antworten mit Zitat 
|
|---|---|---|
|
Ich hab ein wunderschönes Menü kreiert, und nun geht es wunder bar, aber nur das Beenden, ich komm einfach nicht in den anderen Optionen rein:
Code: [AUSKLAPPEN] Graphics 600,300,16,2
SetBuffer FrontBuffer() AppTitle "Bienen-game" Global m = 1 Bund1 = LoadImage("Bund.bmp") exit1 = LoadImage("Beenden.bmp") exit2 = LoadImage("Beenden2.bmp") user1 = LoadImage("Imkerei.bmp") user2 = LoadImage("Imkerei2.bmp") game1 = LoadImage("Start.bmp") game2 = LoadImage("Start2.bmp") honey = LoadImage("Honey.bmp") MaskImage honey,255,0,255 ClsColor 225,225,0 Cls DrawImage Bund1, 250,20 Delay 500 Repeat DrawImage Bund1, 250,20 DrawImage game1, 230,110 DrawImage user1, 230,150 DrawImage exit1, 235,190 If m <= 0 Then m = 3 If m >= 4 Then m = 1 If KeyHit(208) Then m = m + 1 If KeyHit(200) Then m = m - 1 If m = 1 DrawImage game2, 230,110 EndIf If m = 2 DrawImage user2, 230,150 EndIf If m = 3 DrawImage exit2, 235,190 EndIf Flip Cls If m = 3 And KeyHit(28) Then End If m = 2 And KeyHit(28) While KeyHit(1) Cls DrawImage Bund1, 250,20 DrawImage honey, 250,110 Wend EndIf Until KeyHit(1) Der Computer meckert zwar nicht, aber er zeigt nichts an wenn ich draufdrücke. Ich versuch das bestimmt schon ne stunde das hinzukriegen, also wehe jetzt meckert wieder einer das ich zu faul bin das selbst rauszufinden! |
||
|
http://www.abandonia.com/
--->Nikola Tesla<--- |
||
|
Kryan |
So, Feb 22, 2004 20:52 Antworten mit Zitat
|
|---|---|---|
|
While KeyHit(1), da müsstest du die ganze Zeit drücken mache lieber
Repeat Cls DrawImage Bund1, 250,20 DrawImage honey, 250,110 Until KeyHit(1) |
||
|
Webspaceanbieter?
Klick hier! Kultige Spieleschmiede? Klick hier! |
||
|
|
pokop |
So, Feb 22, 2004 20:58 Antworten mit Zitat
|
|---|---|---|
| ja, aber das ist leider nicht mein Problem, der Computer macht erst garnicht, das ich soweit komme. | ||
|
http://www.abandonia.com/
--->Nikola Tesla<--- |
||
|
|
pokop |
So, Feb 22, 2004 21:04 Antworten mit Zitat
|
|---|---|---|
| Oh, hab grad was rausgefunden, der kann irgentwie immer nur den ersten if-satzt machen, wenn ich jetzt den mit end nach unten setze kann er den nicht mehr, dafür aber den anderen. | ||
|
http://www.abandonia.com/
--->Nikola Tesla<--- |
||
|
|
pokop |
So, Feb 22, 2004 21:08 Antworten mit Zitat
|
|---|---|---|
|
Hab die Lösung!!!
Ich schau einfach ob ENTER gedrückt wird und dann welchen wert m hat: Code: [AUSKLAPPEN] Graphics 600,300,16,2
SetBuffer FrontBuffer() AppTitle "Bienen-game" Global m = 1 Bund1 = LoadImage("Bund.bmp") exit1 = LoadImage("Beenden.bmp") exit2 = LoadImage("Beenden2.bmp") user1 = LoadImage("Imkerei.bmp") user2 = LoadImage("Imkerei2.bmp") game1 = LoadImage("Start.bmp") game2 = LoadImage("Start2.bmp") honey = LoadImage("Honey.bmp") MaskImage honey,255,0,255 ClsColor 225,225,0 Cls DrawImage Bund1, 250,20 Delay 500 Repeat DrawImage Bund1, 250,20 DrawImage game1, 230,110 DrawImage user1, 230,150 DrawImage exit1, 235,190 If m <= 0 Then m = 3 If m >= 4 Then m = 1 If KeyHit(208) Then m = m + 1 If KeyHit(200) Then m = m - 1 If m = 1 DrawImage game2, 230,110 EndIf If m = 2 DrawImage user2, 230,150 EndIf If m = 3 DrawImage exit2, 235,190 EndIf Flip Cls If KeyHit(28) If m = 2 Repeat Cls DrawImage Bund1, 250,20 DrawImage honey, 250,110 Flip Until KeyHit(1) EndIf If m = 3 Cls DrawImage Bund1, 250,20 Locate 110,110 Color 0,0,0 Print"Dieses Spiel ist von Z-Line Programiert worden." Delay 2000 FlushKeys WaitKey End EndIf EndIf Until KeyHit(1) Also eigentlich könnte man diesen Beitrag jetzt sperren 
|
||
|
http://www.abandonia.com/
--->Nikola Tesla<--- |
||
Übersicht
BlitzBasic Allgemein
Powered by phpBB © 2001 - 2006, phpBB Group