# Überwachung der Batterieleistung mit Sprachausgabe
# Copyright by PrinzEmu und Sokobana
#
# V1.1 09.10.2007
#
#
#

batterie = BatteryPercentage()

If {batterie < 21}
	PlaySound ("\Storage Card\Sokobana\MortScript\batterieleistung.wav" )
	PlaySound ("\My Flash Disk\navigation\res\de\audio\num_" & batterie & ".wav" )
	PlaySound ("\Storage Card\Sokobana\MortScript\prozent.wav" )
	Exit
EndIf

If {batterie < 100}
	einer = batterie MOD 10
	zehner = batterie - einer
		If {einer = 0}
			PlaySound ("\Storage Card\Sokobana\MortScript\batterieleistung.wav" )
			PlaySound ("\My Flash Disk\navigation\res\de\audio\num_" & zehner & ".wav" )
			PlaySound ("\Storage Card\Sokobana\MortScript\prozent.wav" )
			Exit
		Else
			PlaySound ("\Storage Card\Sokobana\MortScript\batterieleistung.wav" )
			PlaySound ("\My Flash Disk\navigation\res\de\audio\num_" & einer & "und.wav" )
			PlaySound ("\My Flash Disk\navigation\res\de\audio\num_" & zehner & ".wav" )
			PlaySound ("\Storage Card\Sokobana\MortScript\prozent.wav" )
			Exit
		EndIf
EndIf

If {batterie = 100}
	PlaySound ("\Storage Card\Sokobana\MortScript\batterieleistung.wav" )
	PlaySound ("\My Flash Disk\navigation\res\de\audio\num_100.wav" )
	PlaySound ("\Storage Card\Sokobana\MortScript\prozent.wav" )
EndIf