Hallo an die Skinner,
ich habe aus einem Nachbarforum die Uhr ausprobiert.
Alle sagen es klappt, aber es geht nicht.
Hier mal das Skript.
Code
# Ansage der aktuellen Uhrzeit
# Copyright by PrinzEmu und Sokobana
#
# V1.1 15.10.2007
GetTime (stunde, minute, sekunde)
einer_h = stunde MOD 10
zehner_h = stunde - einer_h
einer_m = minute MOD 10
zehner_m = minute - einer_m
PlaySound ("\my flash disk\programme\MortScript\es_ist.wav")
If {stunde = 0}
PlaySound ("\my flash disk\programme\MortScript\null.wav" )
PlaySound ("\my flash disk\programme\MortScript\Uhr.wav" )
call Minute
Exit
EndIf
If {stunde < 10}
PlaySound ("\My Flash Disk\navigation\res\de\audio\num_" & einer_h & ".wav" )
PlaySound ("\my flash disk\programme\MortScript\Uhr.wav" )
call Minute
Exit
EndIf
If {stunde < 21}
PlaySound ("\My Flash Disk\navigation\res\de\audio\num_" & stunde & ".wav" )
PlaySound ("\my flash disk\programme\MortScript\Uhr.wav" )
call Minute
Else
PlaySound ("\My Flash Disk\navigation\res\de\audio\num_" & einer_h & "und.wav" )
PlaySound ("\My Flash Disk\navigation\res\de\audio\num_" & zehner_h & ".wav" )
PlaySound ("\my flash disk\programme\MortScript\Uhr.wav" )
call Minute
Endif
Sub Minute
If {einer_m = 0 && zehner_m = 0}
Exit
Endif
If {minute < 10}
PlaySound ("\My Flash Disk\navigation\res\de\audio\num_" & einer_m & ".wav" )
Exit
Endif
If {minute < 21}
PlaySound ("\My Flash Disk\navigation\res\de\audio\num_" & minute & ".wav" )
Exit
Endif
If {minute < 60}
If {einer_m = 0}
PlaySound ("\My Flash Disk\navigation\res\de\audio\num_" & zehner_m & ".wav" )
Else
PlaySound ("\My Flash Disk\navigation\res\de\audio\num_" & einer_m & "und.wav" )
PlaySound ("\My Flash Disk\navigation\res\de\audio\num_" & zehner_m & ".wav" )
EndIf
EndIf
EndSub
Alles anzeigen
Irgendwie sehen auch einige Pfade seltsam aus, bzw. es fehlen Dateien, oder die Daten liegen wo anders.
Aber ich habe da nicht so den Plan.
Kann jemand helfen?
Danke,
Gruß Volker