Kleines Spielchen....

[BlueHoschi]

Los zeigen!!

[X360 Andy]

Wie kann ich jetzt einen "Neustart" herbei führen ?
Soll ich das über "Open Window machen ?
Also das dass gleich Fenster wie am anfang geöffnet wird und das "alte" geschlossen wird.

Also so :

Code: Alles auswählen

  If KeyboardPushed(#PB_Key_F5) 
  Quit = 1 
 Open Window...... bla bla bla
  EndIf 

Hab extra nur 2 Sekunden drin da ich keine Lust habe bei jedem Test 30 Sekunden zu warten
Hier mein Code

Code: Alles auswählen

If Stopzeit+2000 < ElapsedMilliseconds() 
Repeat 
If KeyboardPushed(#PB_Key_Escape) 
    Quit = 1 
  EndIf 
  If KeyboardPushed(#PB_Key_F5) 
    ; Hier bräuchte ich jetzt ein Befehl der das Spiel neustarten läst...
  EndIf 
  
  Window() 
  ClearScreen(0) 
  DisplaySprite(#HINTERGRUND, 0, 0) 
  DisplayTransparentSprite(#Mensch, 530, 200) 
  DisplayTransparentSprite(#Mensch, 0, 200) 
  ExamineKeyboard() 
  StartDrawing(ScreenOutput()) 
    DrawingMode(#PB_2DDrawing_Transparent) 

    x = 200 
    y = 250 
    DrawText(x, y, "Wow dein Highscore beträgt "+Str(MeinePunkte)+" Punkte",RGB(250,250,250), RGB(0,0,0))
    y + 20
    DrawText(x, y, "Nochmal spielen mit F5",RGB(250,250,250), RGB(0,0,0))
    y + 20
    DrawText(x, y, "Spiel kann durch ESC Beendet werden",RGB(250,250,250), RGB(0,0,0))
  StopDrawing() 
  Delay(1) 
  FlipBuffers() 
Until  Quit 
If Quit 
  End 
EndIf 

[KeyKon]

Mach halt einfach eine große Schleife um den gesammten Code...

[X360 Andy]

Mach halt einfach eine große Schleife um den gesammten Code...

Und die Schleife soll ich dann durch eine Taste ( in dem fall ja F5 ) wiederhohlen ?

[tobe]

einen neustart würde ich so machen:

Code: Alles auswählen

  If KeyboardPushed(#PB_Key_F5)
    ClearList(Noten())
    MeinePunkte = 0
  EndIf

[X360 Andy]

einen neustart würde ich so machen:

Code: Alles auswählen

  If KeyboardPushed(#PB_Key_F5)
    ClearList(Noten())
    MeinePunkte = 0
  EndIf

So hab ich das mal ersetzt....

Code: Alles auswählen

If Stopzeit+2000 < ElapsedMilliseconds() 
Repeat 
If KeyboardPushed(#PB_Key_Escape) 
    Quit = 1 
  EndIf 
 If KeyboardPushed(#PB_Key_F5) 
    ClearList(Noten()) 
    MeinePunkte = 0 
  EndIf  

Wenn ich jetzt

Code: Alles auswählen

If KeyboardPushed(#PB_Key_F5)
    ClearList(Noten())
    MeinePunkte = 0
  EndIf

einsetzte passiert nichts ( is ja auch logsich )

Muss ich noch was anderes im Code umschreiben ?

[BlueHoschi]

Code: Alles auswählen

 If Zeit+30000 < ElapsedMilliseconds() ; Nach 30 Sekunden SOLLTE das Spiel dann vorbei sein.
    MessageRequester("Fertig!","30 sek um...") 
    EndIf 

 If KeyboardPushed(#PB_Key_Escape) 
    Quit = 1 
  EndIf 

 If KeyboardPushed(#PB_Key_F5) 
 MessageRequester("Neues Spiel","Neues Spiel neues Glück!",  #PB_MessageRequester_Ok )
    ClearList(Noten()) 
    MeinePunkte = 0 
  EndIf   

[tobe]

ich hab es nur mit dem alten code von mir ausprobiert,
wenn ich jetzt F5 drück dann sind alle noten weg und der punktezähler ist wieder auf null, dann kommen wieder neue noten.
gerade hab ich noch gesehen das du eine zeitbegrenzung einbauen willst,
also sowas wie für verschiedene level.
da werd ich jetzt mal schnell frühstücken und dann überleg ich mir mal was feines für dich

[BlueHoschi]

Frühstücken... Jetzt wo Du´s sagst...

[X360 Andy]

@ Tobe

Wenndu das machst , dann lade dir aber am besten die "neuste" Version runter, hab en paar neue Grafiken drin.


@ BlueHoschi
Was soll mir der Code jetzt zeigen ?
Ein "Neustart" wird und kann ja dadurch nicht ausgeführt werden.


EDIT:
lol ich sollte nicht vergessen den Link zu posten
http://rapidshare.com/files/114345123/u ... g.rar.html