Klitze kleines Problem vorhanden! HILFE gesucht ;D
Übersicht
BlitzBasic Allgemein
Blitzkrieg BopBetreff: Klitze kleines Problem vorhanden! HILFE gesucht ;D |
 Do, März 11, 2004 0:55Antworten mit Zitat 
|
|
|---|---|---|
|
Moin Leute!
Hab es nun auch geschafft mich bei euch anzumelden 
Ich bin im mom dabei, eine einfache Struktur für ein Menü zu machen. DAbei habe ich aber einen fehler und zwar soll, wenn das Wort "Ende" im Rechteck ist, einmal der Ton der vorhanden ist abgespielt werden und wenn man dann mit den pfeiltasten hoch geht und dann wieder mit "Ende" hinein, soll wieder ein Ton kommen, doch irgendwie will das ganze net 
hier ist der code: Graphics 1024,768,16,2 SetBuffer BackBuffer() y = 10 yy = 60 yyy = 110 y4 = 160 y5 = 210 y6 = 260 schrift = LoadFont("Arial",18 ) sound = LoadSound("sound.wav") Repeat SetFont schrift Cls Rect -295,400,700,1 ;linie links Rect 605,400,700,1 ;linie rechts Rect 405,(768/2),200,30,0 ; quadrat Text 500+x,y,"Spiel",True Text 500+xx,yy,"Spiel laden",True Text 500+xx,yyy,"Optionen",True Text 500+xx,y4,"Hilfe",True Text 500+xx,y5,"Credits",True Text 500+xxx,y6,"Ende",True If KeyDown(208) ; nach unten y = y +3 yy = yy + 3 yyy = yyy + 3 y4 = y4 + 3 y5 = y5 + 3 y6 = y6 + 3 EndIf If KeyDown(200) ; nach oben y = y - 3 yy = yy - 3 yyy = yyy - 3 y4 = y4 - 3 y5 = y5 - 3 y6 = y6 - 3 EndIf If play = 1 Then bum = PlaySound(sound) EndIf ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; was passiert, wenn die Punnkte ins Rechteck kommen...: If y6 > 380 And y6 < 400 Then ; die letzten beiden ohne keydown !!! play = play + 1 Color 255,0,255 Rect -295,400,700,1 ;linie links Rect 605,400,700,1 ;linie rechts Rect 405,(768/2),200,30,0 ; quadrat Color 255,255,255 Text 200,200,"ENDE" EndIf If y5 > 380 And y5 < 400 Then Color 255,0,255 Rect -295,400,700,1 ;linie links Rect 605,400,700,1 ;linie rechts Rect 405,(768/2),200,30,0 ; quadrat Color 255,255,255 Text 200,200,"test5" EndIf If y4 > 380 And y4 < 400 Then Color 255,0,255 Rect -295,400,700,1 ;linie links Rect 605,400,700,1 ;linie rechts Rect 405,(768/2),200,30,0 ; quadrat Color 255,255,255 Text 200,200,"test4" EndIf If yyy > 380 And yyy < 400 Then Color 255,0,255 Rect -295,400,700,1 ;linie links Rect 605,400,700,1 ;linie rechts Rect 405,(768/2),200,30,0 ; quadrat Color 255,255,255 Text 200,200,"test3" EndIf If yy > 380 And yy < 400 Then Color 255,0,255 Rect -295,400,700,1 ;linie links Rect 605,400,700,1 ;linie rechts Rect 405,(768/2),200,30,0 ; quadrat Color 255,255,255 Text 200,200,"test2" EndIf If y > 380 And y < 400 Then Color 222,22,22 Color 255,0,255 Rect -295,400,700,1 ;linie links Rect 605,400,700,1 ;linie rechts Rect 405,(768/2),200,30,0 ; quadrat Color 255,255,255 Text 200,200,"test1" EndIf ; was passiert, wenn die Punnkte ins Rechteck kommen...: ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; Begrenzungen ############## nach unten ############ If y > 460 Then y = 460 EndIf If yy > 510 Then yy = 510 EndIf If yyy > 560 Then yyy = 560 EndIf If y4 > 610 Then y4 = 610 EndIf If y5 > 660 Then y5 = 660 EndIf If y6 > 710 Then y6 = 710 EndIf ; Begrenzungen ############## nach unten ############ ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; Begrenzungen ############## nach oben ############ If y < 20 Then y = 20 EndIf If yy < 70 Then yy =70 EndIf If yyy < 120 Then yyy = 120 EndIf If y4 < 170 Then y4 = 170 EndIf If y5 < 220 Then y5 = 220 EndIf If y6 < 270 Then y6 = 270 EndIf ; Begrenzungen ############## nach oben ############ ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;Rect 450,98+y,100,20,0 ;1 ;Rect 450,198+y,100,20,0 ;2 ;Rect 450,298+y,100,20,0 ;3 If KeyDown(1) End Flip Forever |
||
| ~ Hey Ho Let's Go ~ | ||
|
Mike Nike |
Do, März 11, 2004 2:49 Antworten mit Zitat
|
|---|---|---|
|
Wenn ich mich nicht verlesen habe, liegt dein Problem hier:
Zitat: If y6 > 380 And y6 < 400 Then ; die letzten beiden ohne keydown !!!
play = play + 1 Color 255,0,255 Rect -295,400,700,1 ;linie links Rect 605,400,700,1 ;linie rechts Rect 405,(768/2),200,30,0 ; quadrat Color 255,255,255 Text 200,200,"ENDE" EndIf Füge noch ein: ELSE play=0 Was dann hiesse: Zitat: If y6 > 380 And y6 < 400 Then ; die letzten beiden ohne keydown !!!
play = play + 1 Color 255,0,255 Rect -295,400,700,1 ;linie links Rect 605,400,700,1 ;linie rechts Rect 405,(768/2),200,30,0 ; quadrat Color 255,255,255 Text 200,200,"ENDE" ELSE play=0 EndIf Das sollte eigentlich einleuchtend sein... |
||
| ..where the only limit is your imagination. | ||
Blitzkrieg Bop |
Do, März 11, 2004 13:49 Antworten mit Zitat
|
|
|---|---|---|
Juhu! Danke Mike! Es geht 
|
||
| ~ Hey Ho Let's Go ~ | ||
Blitzkrieg BopBetreff: MIST!!! |
Do, März 11, 2004 13:54 Antworten mit Zitat
|
|
|---|---|---|
Ich habe das geändert und das geht, aber das selbe soll natürlich auch mit den anderen sachen sein, wenn die in das rechteck kommen. aber versuche ich das genauso zu machen, kommt wieder der ton ganz oft oder garnicht -.- 
|
||
| ~ Hey Ho Let's Go ~ | ||
Übersicht
BlitzBasic Allgemein
Powered by phpBB © 2001 - 2006, phpBB Group