@Moskito
na, bei dir ist ja richtig was los... Du schmeißt Updates im Stundentakt
raus.
Ich hab´ n´ bischen die Übersicht verloren, auch ob der fehlenden
NachKommaStellen Deiner Updates (ich glaub´, da sind 5 Versionen
von 0.9 und 2 mit 0.9x...)
Nun würd´ ich gerne im Fenster-Modus spielen und find´ die passende
Grafik-Datei nicht (bei einigen Versionen gibt´s ´n Hinweistext "select
the video-mode" oder so bei den Options, wenn sich der Mauszeiger in
´nem bestimmten Bereich befindet. Ich denke mal, aufgrund ´ner
veralteten Hintergrund-GrafikDatei seh´ ich nur schwarz...)
Kannst Du mir verraten, bei welcher Version diese Grafik-Datei mit
dem Video-Mode dabei ist/war ?
Danke im Vorraus...
Bezüglich VersionsKennungen hab´ ich hier ´n Modul, mit dem bis zu
52 eindeutige Versions-Kennungen täglich erzeugt werden können,
vielleicht kannst Du damit was anfangen...
Code: Alles auswählen
;Modul VersDate Version 1.05 vom 19.02.2008
;#PB_Vers = "4.20"
;
;Funktion: liefert VersionsKennung, basierend auf aktuellem SystemDatum
; Es wird eine VersionsKennung aufgebaut, die folgendermaßen
; aufgebaut ist:
; 1. Zeichen = letzte Ziffer der Jahreszahl
; 2. Zeichen = MonatsKennung (1=Jan...9=Sept, A=Okt...C=Dez)
; 3.+4.Zeich = TagesZahl (01..31)
; optional: 5. Zeichen = lfd. Buchstabe des Tages (1.=a...26.=z, 27.=A..52=Z)
;
;Aufruf: Version$ = VersDate({LastVers$})
; LastVers$: bisherige VersionsKennung, wenn Diese angegeben wird und
; mind. 5stellig ist, so werden immer eine 5stellige
; VersionsKennung geliefert, unabhängig von Datum, auf dem
; LastVers$ basiert. Basiert LastVers$ auf dem aktuellen
; System-Datum, so wird das 5. Zeichen incrementiert.
; Wird LastVers$ nicht angegeben, so wird immer eine 4stellig
; VersionsKennung geliefert, also nur Tages-abhängig...
;
;#jaPBeExt exit
Procedure.s VersDate(OldVers$ = "")
Protected Release.l
Protected Heute$ = FormatDate("%dd.%mm.%yyyy", Date())
Protected Kenn$ = Right(Heute$, 1) + Hex(Val(Mid(Heute$, 4, 2))) + Left(Heute$, 2)
If Len(OldVers$)<5 : ProcedureReturn Kenn$
Else
Debug OldVers$ + " --> " + Kenn$
If Left(OldVers$, Len(Kenn$)) = Kenn$ ;same date
Release = Asc(Right(OldVers$, 1)) + 1 ;incr release
If Release>'z' : Release = 'A' : EndIf
Else : Release = 'a' ;new date: reset release
EndIf
EndIf
ProcedureReturn Kenn$ + Chr(Release)
EndProcedure
Gruss SiBru