Kleines Spielchen....

[BlueHoschi]

@X360

Wenn Dir ein Sekundengenauer Timer reicht kannst Du auch:

Code: Alles auswählen

Procedure Timer()

Shared sekunde.w ; <- müßte auch mit Define gehen
Global timer.w

If sekunde < Second(Date()) And timer > 0  ; "Sekunde kleiner als Datums-Sekunden-Wert?
sekunde = Second(Date())
timer -1     ; Dann zieh was von "Timer" ab
ElseIf sekunde = 59 And Second(Date()) = 0 And timer > 0 ; oder der Wert 59 stand drin und geht jetzt auf 0
sekunde = Second(Date())
timer-1     ; dann zieh auch was ab
EndIf


EndProcedure

; innerhalb vom Haupt-Code folgender Aufruf:

Timer() ; an Anfang oder Ende
If Timer= 0
Timer = 50 ; Wert in Sekunden
; Und hier natürlich noch Andere Variablen die Du ändern möchtest
endif
If Timer > 0
Timer -1
endif

Ich persönlich finde das es für die meisten Spiele ausreicht, und das es recht kurz und übersichtlich ist.

MfG Blue

[KeyKon]

Also ich persönlich machs immer mit ElapsedMilliseconds() weils kürzer is...

[BlueHoschi]

Ja okay, war nich´ so gut...
haste Recht, sollte mir mehr angewöhnen erst genauer zu gucken was Andere so schreiben. Ist sogar viel kürze und einfacher.
Also @X360 vergiss mein Posting!!!

Werde selbst demnächst Timer mit ElapsedMilliseconds machen.

[KeyKon]

Naja, deine Methode is halt übersichtlicher, aber man muss halt erst immer ne Menge rumkopieren wenn mans nich neu schreiben will und insbesondere bei kleinen Progs is ElapsedMilliseconds() die einfachere Wahl...

[X360 Andy]

Also.....
Wie erwarte hauts bei mir nicht richtig hin.

hier mal Code + neuste Version

http://rapidshare.com/files/114321204/N ... n.rar.html



Warscheinlich hab ich den Time Code falsch eingesetzt oder ?
Weil bei mir hängt sich das SPiel immer auf.
Die Spielfigur wird geladen aber mehr nicht.
Danach kommt keine Rückmeldung

[KeyKon]

Naja, du kannst nicht einfach meine Schleife reinkopieren und hoffen es Funktioniert^^
Du musst den Code an deins anpassen...
Vor allem verwendest du die gleiche Variable so wies aussieht für mehrer Dinge (Die Zeit-Variable)...
Also machs am besten so:

Vor der Spielschleife schreibst du:

Code: Alles auswählen

Stopzeit = ElapsedMilliseconds()

und dann in der Spielschleife

Code: Alles auswählen

If Stopzeit+30000 < ElapsedMilliseconds()
  ;Der Code der nach den 30 sek ausgeführt werden soll
EndIf

[BlueHoschi]

Folgendes hast Du in Deiner Mainloop drin:

Code: Alles auswählen

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

Also wird fortwährend dieser Loop ausgeführt und 100 ms gewartet.

Warum in so einer Schleife? Müßte doch auch so gehen druch das "If"-Abfrägelchen

//edit:

Du solltest auch noch irgendwas machen damit der MessageRequester: "Du hast jetzt 30 Sekunden um was zu machen" nur einmal erzeugt wird.

[KeyKon]

Naja er hat einfach meinen Beispielcode reinkopiert...

[BlueHoschi]

@KeyKon

Achso...

@X360

Kleiner Gedankenfehler im Eifer des Gefechts? Passiert, da kann ich Dir ein Lied von singen(Aber das möchtest Du bestimmt nicht...)

[X360 Andy]

Danke geht wunderbar ...