################################################
###                                          ###
#######         Registry -> INI          #######
###                                          ###
#######                                  #######
###         (c) 2008 Team Sokobana           ###
####### http://forum.pocketnavigation.de #######
###         http://www.varioskin.de          ###
################################################

############################################################
### Anwendung auf eigene Gefahr und ohne Gewährleistung! ###
###     Dieses Programm unterliegt den Rechten der       ###
###Creative Commons Attribut Non-Commercial Share Alike 3###
###     Lizenz. Genaue Angaben finden Sie beiliegend     ###
###         in der Datei Lizenz_VarioSkin3.txt           ###
############################################################
If (Not DirExists("\Storage Card"))
	Message ("Es ist keine Speicherkarte eingelegt oder Sie haben den Storage Card2 Fehler !")
	Exit
EndIf

If (FileExists ("\My Flash Disk\Sokobana\MortScript\MSDefines.mscr"))
	CallScript ("\My Flash Disk\Sokobana\MortScript\MSDefines.mscr")
Else
	Message( "MSDefines.mscr fehlt!" )
EndIf

RunWait ("\My Flash Disk\Sokobana\MortScript\warten.mscr")

If (FileExists ("\Storage Card\backupV3\user.ini"))
	AktuellesMenu = IniRead ("\Storage Card\BackupV3\user.ini","Menu","AktuellesMenu")
	Delete ("\Storage Card\backupV3\user.ini")
EndIf	

Version = IniRead ("\My Flash Disk\Sokobana\MortScript\version.ini", "Version", "Alt")
IniWrite ("\Storage Card\backupV3\user.ini", "Version", "Wert", Version)


If (RegValueExists ("HKCU", "Software\sokobana", "3DEffect"))
		IniWrite ("\Storage Card\backupV3\user.ini", "3DEffect", "Wert", RegRead("HKCU", "Software\sokobana", "3DEffect"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "ABgruen"))
		IniWrite ("\Storage Card\backupV3\user.ini", "ABgruen", "Wert", RegRead("HKCU", "Software\sokobana", "ABgruen"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "ABPreset"))
		IniWrite ("\Storage Card\backupV3\user.ini", "ABPreset", "Wert", RegRead("HKCU", "Software\sokobana", "ABPreset"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "AudioScor"))
		IniWrite ("\Storage Card\backupV3\user.ini", "AudioScor", "Wert", RegRead("HKCU", "Software\sokobana", "AudioScor"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "AudioSync"))
		IniWrite ("\Storage Card\backupV3\user.ini", "AudioSync", "Wert", RegRead("HKCU", "Software\sokobana", "AudioSync"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "AudioMute"))
		IniWrite ("\Storage Card\backupV3\user.ini", "AudioMute", "Wert", RegRead("HKCU", "Software\sokobana", "AudioMute"))
EndIf
If (RegValueExists ("HKCU", "Software\3SOFT\Pathfinder\Audio", "Audio1_0"))
		IniWrite ("\Storage Card\backupV3\user.ini", "AUDIO1_0", "Wert", RegRead("HKCU", "Software\3SOFT\Pathfinder\Audio", "Audio1_0"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "AUTOBACKUP"))
		IniWrite ("\Storage Card\backupV3\user.ini", "AUTOBACKUP", "Wert", RegRead("HKCU", "Software\sokobana", "AUTOBACKUP"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "AUTOBT"))
		IniWrite ("\Storage Card\backupV3\user.ini", "AUTOBT", "Wert", RegRead("HKCU", "Software\sokobana", "AUTOBT"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "AUTOGYRO"))
		IniWrite ("\Storage Card\backupV3\user.ini", "AUTOGYRO", "Wert", RegRead("HKCU", "Software\sokobana", "AUTOGYRO"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "AUTOREPAIR"))
		IniWrite ("\Storage Card\backupV3\user.ini", "AUTOREPAIR", "Wert", RegRead("HKCU", "Software\sokobana", "AUTOREPAIR"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "AUTOSATTURBO"))
		IniWrite ("\Storage Card\backupV3\user.ini", "AUTOSATTURBO", "Wert", RegRead("HKCU", "Software\sokobana", "AUTOSATTURBO"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "AVGSPEED"))
		IniWrite ("\Storage Card\backupV3\user.ini", "AVGSPEED", "Wert", RegRead("HKCU", "Software\sokobana", "AVGSPEED"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "BackLight"))
		IniWrite ("\Storage Card\backupV3\user.ini", "BackLight_Sokobana", "Wert", RegRead("HKCU", "Software\sokobana", "BackLight"))
EndIf
If (RegValueExists ("HKCU", "Software\3SOFT\Pathfinder\PowerManagement\Backlight", "ACBrightness"))
		IniWrite ("\Storage Card\backupV3\user.ini", "BackLight_3Soft", "Wert", RegRead("HKCU", "Software\3SOFT\Pathfinder\PowerManagement\Backlight", "ACBrightness"))
EndIf
If (RegValueExists ("HKCU", "ControlPanel\backlight", "BacklightCurrentLevel"))
		IniWrite ("\Storage Card\backupV3\user.ini", "BacklightCurrentLevel", "Wert", RegRead("HKCU", "ControlPanel\backlight", "BacklightCurrentLevel"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "BorderMode"))
		IniWrite ("\Storage Card\backupV3\user.ini", "BorderMode", "Wert", RegRead("HKCU", "Software\sokobana", "BorderMode"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "BorderLR"))
		IniWrite ("\Storage Card\backupV3\user.ini", "BorderLR", "Wert", RegRead("HKCU", "Software\sokobana", "BorderLR"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "BSPreset"))
		IniWrite ("\Storage Card\backupV3\user.ini", "BSPreset", "Wert", RegRead("HKCU", "Software\sokobana", "BSPreset"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "CurrentCom"))
		IniWrite ("\Storage Card\backupV3\user.ini", "CurrentCom", "Wert", RegRead("HKCU", "Software\sokobana", "CurrentCom"))
EndIf
If (RegValueExists ("HKCU", "Software\3SOFT\Pathfinder\MapConfig", "Design"))
		IniWrite ("\Storage Card\backupV3\user.ini", "Design", "Wert", RegRead("HKCU", "Software\3SOFT\Pathfinder\MapConfig", "Design"))
EndIf
If (RegValueExists ("HKCU", "Software\3SOFT\Pathfinder\RouteOptions", "DynamicMode"))
		IniWrite ("\Storage Card\backupV3\user.ini", "DynamikMode", "Wert", RegRead("HKCU", "Software\3SOFT\Pathfinder\RouteOptions", "DynamicMode"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "FB"))
		IniWrite ("\Storage Card\backupV3\user.ini", "FB", "Wert", RegRead("HKCU", "Software\sokobana", "FB"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "FixZoom"))
		IniWrite ("\Storage Card\backupV3\user.ini", "FixZoom", "Wert", RegRead("HKCU", "Software\sokobana", "FixZoom"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "GLOPUSSTART"))
		IniWrite ("\Storage Card\backupV3\user.ini", "GLOPUSSTART", "Wert", RegRead("HKCU", "Software\sokobana", "GLOPUSSTART"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "GYRO"))
		IniWrite ("\Storage Card\backupV3\user.ini", "GYRO", "Wert", RegRead("HKCU", "Software\sokobana", "GYRO"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "GYROQC"))
		IniWrite ("\Storage Card\backupV3\user.ini", "GYROQC", "Wert", RegRead("HKCU", "Software\sokobana", "GYROQC"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "GYRODELAY"))
		IniWrite ("\Storage Card\backupV3\user.ini", "GYRODELAY", "Wert", RegRead("HKCU", "Software\sokobana", "GYRODELAY"))
EndIf
If (RegValueExists ("HKCU", "ControlPanel\Volume", "Key"))
		IniWrite ("\Storage Card\backupV3\user.ini", "KLICK1", "Wert", RegRead("HKCU", "ControlPanel\Volume", "Key"))
EndIf
If (RegValueExists ("HKCU", "ControlPanel\Volume", "Screen"))
		IniWrite ("\Storage Card\backupV3\user.ini", "KLICK2", "Wert", RegRead("HKCU", "ControlPanel\Volume", "Screen"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "Map3D"))
		IniWrite ("\Storage Card\backupV3\user.ini", "Map3D", "Wert", RegRead("HKCU", "Software\sokobana", "Map3D"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "MapMode"))
		IniWrite ("\Storage Card\backupV3\user.ini", "MapMode", "Wert", RegRead("HKCU", "Software\sokobana", "MapMode"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "POI"))
		IniWrite ("\Storage Card\backupV3\user.ini", "POI", "Wert", RegRead("HKCU", "Software\sokobana", "POI"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "POIW"))
		IniWrite ("\Storage Card\backupV3\user.ini", "POIW", "Wert", RegRead("HKCU", "Software\sokobana", "POIW"))
EndIf
#If (RegValueExists ("HKCU", "Software\sokobana", "POIWARNER"))
#		IniWrite ("\Storage Card\backupV3\user.ini", "POIWARNER", "Wert", RegRead("HKCU", "Software\sokobana", "POIWARNER"))
#EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "RememberLED"))
		IniWrite ("\Storage Card\backupV3\user.ini", "RememberLED", "Wert", RegRead("HKCU", "Software\sokobana", "RememberLED"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "RememberSLT"))
		IniWrite ("\Storage Card\backupV3\user.ini", "RememberSLT", "Wert", RegRead("HKCU", "Software\sokobana", "RememberSLT"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "ROADICONS"))
		IniWrite ("\Storage Card\backupV3\user.ini", "ROADICONS", "Wert", RegRead("HKCU", "Software\sokobana", "ROADICONS"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "RushHour_Auto"))
		IniWrite ("\Storage Card\backupV3\user.ini", "RushHour", "Auto", RegRead("HKCU", "Software\sokobana", "RushHour_Auto"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "RushHour_Start1"))
		IniWrite ("\Storage Card\backupV3\user.ini", "RushHour", "Start1", RegRead("HKCU", "Software\sokobana", "RushHour_Start1"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "RushHour_Stop1"))
		IniWrite ("\Storage Card\backupV3\user.ini", "RushHour", "Stop1", RegRead("HKCU", "Software\sokobana", "RushHour_Stop1"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "RushHour_Start2"))
		IniWrite ("\Storage Card\backupV3\user.ini", "RushHour", "Start2", RegRead("HKCU", "Software\sokobana", "RushHour_Start2"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "RushHour_Stop2"))
		IniWrite ("\Storage Card\backupV3\user.ini", "RushHour", "Stop2", RegRead("HKCU", "Software\sokobana", "RushHour_Stop2"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "RushHour_Tag"))
		IniWrite ("\Storage Card\backupV3\user.ini", "RushHour", "Tag", RegRead("HKCU", "Software\sokobana", "RushHour_Tag"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "SATTIME"))
		IniWrite ("\Storage Card\backupV3\user.ini", "SATTIME", "Wert", RegRead("HKCU", "Software\sokobana", "SATTIME"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "SATTURBO"))
		IniWrite ("\Storage Card\backupV3\user.ini", "SATTURBO", "Wert", RegRead("HKCU", "Software\sokobana", "SATTURBO"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "SetMem"))
		IniWrite ("\Storage Card\backupV3\user.ini", "SetMem", "Wert", RegRead("HKCU", "Software\sokobana", "SetMem"))
EndIf

If (RegValueExists ("HKCU", "Software\sokobana", "SPP"))
		IniWrite ("\Storage Card\backupV3\user.ini", "SPP", "Wert", RegRead("HKCU", "Software\sokobana", "SPP"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "Staerke_Abbiegehinweis"))
		IniWrite ("\Storage Card\backupV3\user.ini", "Staerke_Abbiegehinweis", "Wert", RegRead("HKCU", "Software\sokobana", "Staerke_Abbiegehinweis"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "Staerke_Sonnenbrille"))
		IniWrite ("\Storage Card\backupV3\user.ini", "Staerke_Sonnenbrille", "Wert", RegRead("HKCU", "Software\sokobana", "Staerke_Sonnenbrille"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "TelMode"))
		IniWrite ("\Storage Card\backupV3\user.ini", "TelMode", "Wert", RegRead("HKCU", "Software\sokobana", "TelMode"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "TMC_0"))
		IniWrite ("\Storage Card\backupV3\user.ini", "TMC_0", "Wert", RegRead("HKCU", "Software\sokobana", "TMC_0"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "TMC_1"))
		IniWrite ("\Storage Card\backupV3\user.ini", "TMC_1", "Wert", RegRead("HKCU", "Software\sokobana", "TMC_1"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "TMC_2"))
		IniWrite ("\Storage Card\backupV3\user.ini", "TMC_2", "Wert", RegRead("HKCU", "Software\sokobana", "TMC_2"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "TMC_3"))
		IniWrite ("\Storage Card\backupV3\user.ini", "TMC_3", "Wert", RegRead("HKCU", "Software\sokobana", "TMC_3"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "TMCAutoMode"))
		IniWrite ("\Storage Card\backupV3\user.ini", "TMCAutoMode", "Wert", RegRead("HKCU", "Software\sokobana", "TMCAutoMode"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "TMCManuMode"))
		IniWrite ("\Storage Card\backupV3\user.ini", "TMCManuMode", "Wert", RegRead("HKCU", "Software\sokobana", "TMCManuMode"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "TMCReRoute"))
		IniWrite ("\Storage Card\backupV3\user.ini", "TMCReRoute", "Wert", RegRead("HKCU", "Software\sokobana", "TMCReRoute"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "TUNNEL"))
		IniWrite ("\Storage Card\backupV3\user.ini", "TUNNEL", "Wert", RegRead("HKCU", "Software\sokobana", "TUNNEL"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "TrafficInfo"))
		IniWrite ("\Storage Card\backupV3\user.ini", "TrafficInfo", "Wert", RegRead("HKCU", "Software\sokobana", "TrafficInfo"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "VetoMode"))
		IniWrite ("\Storage Card\backupV3\user.ini", "VetoMode", "Wert", RegRead("HKCU", "Software\sokobana", "VetoMode"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "VOLDELAY"))
		IniWrite ("\Storage Card\backupV3\user.ini", "VOLDELAY", "Wert", RegRead("HKCU", "Software\sokobana", "VOLDELAY"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "VSDauerInfo"))
		IniWrite ("\Storage Card\backupV3\user.ini", "VSDauerInfo", "Wert", RegRead("HKCU", "Software\sokobana", "VSDauerInfo"))
EndIf
If (RegValueExists ("HKCU", "Software\sokobana", "ZOOMWARNING"))
		IniWrite ("\Storage Card\backupV3\user.ini", "ZOOMWARNING", "Wert", RegRead("HKCU", "Software\sokobana", "ZOOMWARNING"))
EndIf

If ( not IsEmpty( AktuellesMenu ))
		IniWrite ("\Storage Card\BackupV3\user.ini","Menu","AktuellesMenu",AktuellesMenu)
endif



RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.mscr")
Message ( "Backup beendet.")