PureBoard

Verfasst: **12.05.2008 12:32**

Los zeigen!!

Verfasst: **12.05.2008 12:56**

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

Verfasst: **12.05.2008 13:00**

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

Verfasst: **12.05.2008 13:16**

KeyKon hat geschrieben: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 ?

Verfasst: **12.05.2008 13:22**

einen neustart würde ich so machen:

Code: Alles auswählen

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

Verfasst: **12.05.2008 13:31**

tobe hat geschrieben: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 ?

Verfasst: **12.05.2008 13:49**

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

Verfasst: **12.05.2008 13:52**

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

Verfasst: **12.05.2008 13:58**

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

Verfasst: **12.05.2008 14:05**

@ 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

PureBoard

Kleines Spielchen....