Problem mit Game
Übersicht
BlitzBasic Allgemein
BlitzNewbeeBetreff: Problem mit Game |
 Mi, Jun 30, 2004 11:27Antworten mit Zitat 
|
|
|---|---|---|
|
Wie angekündigt mein erstes Game. Ich hab aber nen Problem.
Hier erstaml der Code: Code: [AUSKLAPPEN] Graphics 800,600,16,2 SetBuffer BackBuffer() Spieler() Function Spieler() Flip Cls Color 30, 30, 230 Text 150, 100, "Das Öl-Imperium" Color 254, 254, 254 Text 150, 170, "[1] 1 Spieler" Text 150, 220, "[2] 2 Spieler" Text 150, 270, "[3] 3 Spieler" Text 150, 320, "[4] 4 Spieler" Text 150, 420, "Mit wievielen Spielern möchten sie spielen?" Text 200, 500, "[Esc] zum Beenden" Text 400, 500, "[F1] Info" End Function Repeat If KeyHit(59) Then info() EndIf If KeyHit(156) Then Spieler() EndIf Until KeyHit(1) Function info() Flip Cls Color 255,255,255 Text 100, 100, "Dieses Spiel unterliegt dem geltendem Urheberrecht." Text 100, 150, "Urheber ist Daniel Bohne." Text 100, 200, "Unerlaubte Vervielfältigungen ausdrücklich gestattet!" Text 100, 250, "E-Mail: punky1985@freenet.de" Text 100, 350, "Bitte Taste drücken" End Function End Mein Problem ist folgendes.Wenn ich bei der Spielerauswahl F1 drücke, soll er ja in die Infos Springen. Das macht er aber nur wenn ich F1 zweimal drücke. Und mit Enter soll er von den Infos zurückspringen. Da muss ich auch zweimal Enter drücken. Woran liegt denn das?? Danke an euch alle. |
||
|
Jan_Ehemaliger Admin |
Mi, Jun 30, 2004 11:39 Antworten mit Zitat
|
|---|---|---|
|
flip am ende der schleife!
teste mal, F1 und dann enter, und du wirst Info sehen! |
||
| between angels and insects | ||
BlitzNewbee |
Mi, Jun 30, 2004 12:20 Antworten mit Zitat
|
|
|---|---|---|
|
Stimmt. Und wie krieg ichs hin, dass ich sofort in die Infos springe?
Danke |
||
|
|
Jan_Ehemaliger Admin |
Mi, Jun 30, 2004 12:28 Antworten mit Zitat
|
|---|---|---|
|
Code: [AUSKLAPPEN] ;Ach, ich würde es komplett anders schreiben, aber ist ja dein Projekt
;und du musst aus deinen Fehlern lernen! Graphics 800,600,16,2 SetBuffer BackBuffer() Repeat CLS ; am anfang! If KeyHit(59) or z = 1 Then info() z=1 elseIf KeyHit(156) or z =0 Then z=0 Spieler() EndIf flip ; immer am ende der schleife! ; sonst kommt mister Bug und haut dich! Until KeyHit(1) Function Spieler() Color 30, 30, 230 Text 150, 100, "Das Öl-Imperium" Color 254, 254, 254 Text 150, 170, "[1] 1 Spieler" Text 150, 220, "[2] 2 Spieler" Text 150, 270, "[3] 3 Spieler" Text 150, 320, "[4] 4 Spieler" Text 150, 420, "Mit wievielen Spielern möchten sie spielen?" Text 200, 500, "[Esc] zum Beenden" Text 400, 500, "[F1] Info" End Function Function info() Color 255,255,255 Text 100, 100, "Dieses Spiel unterliegt dem geltendem Urheberrecht." Text 100, 150, "Jan_ ist Gott!" Text 100, 200, "Unerlaubte Vervielfältigungen ausdrücklich gestattet!" Text 100, 250, "E-Mail: punky1985@freenet.de" Text 100, 350, "Bitte Taste drücken" End Function |
||
| between angels and insects | ||
Übersicht
BlitzBasic Allgemein
Powered by phpBB © 2001 - 2006, phpBB Group