# Copyright Sokobana / PrinzEmu
#-------------------------------------------------------------------------
# Backup-Script nur für Simply Black Vario von sokobana getestet
# modifiziert von sokobana und PrinzEmu nach einem Script von m.g
# Voraussetzung:
# 1) SAVEREG.EXE
# 2) Mortscript-Installation (vorzugsweise auf Flash-Disk)
# 3) Sav_list.txt mit den zu sichernden Pfaden
#
# Änderung 14.09.07: Sicherung der Handydaten eingebaut
# Änderung 24.09.07: SIcherung Dateien rausgenommen
# Änderung 03.10.07: Fehlerbereinigung
# Änderung 11.11.07: Sicherung der Ini-Dateien
# Änderung 19.02.08: Eigene Einstellungen aus der REG sichern
# Änderung 01.03.08: Backup in V3 -> BackupV3
# Änderung 19.03.08: Sicherung POI-Warner wenn vorhanden
# Änderung 22.03.08: Sicherung Tourendaten
# Änderung 14.09.08: kleiner Fehler beseitigt
#
#--------------------------- Konfiguration -------------------------------

If (Not DirExists("\Storage Card"))
	Message ("Es ist keine Speicherkarte eingelegt oder Sie haben den Storage Card2 Fehler !")
	Exit
EndIf

# Variablen
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.exe")

Kill ( "sokobana_service.exe" )
Kill ( "run_nogyro.exe" )
Kill ( "\my flash disk\menu.exe" )

If WndExists ("GoPal Navigator")
	Close ("GoPal Navigator")
	Sleep (5000)
EndIf

If WndExists ("Settings")
	Close ( "Settings" )
EndIf

If WndExists ("ContactViewer")		
	Close ( "ContactViewer" )				
EndIf

Sleep (2000)

RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")


Stmp = "\Temp"

# vollständiger Pfad zu Backup-Zip
Set FAVBACKUP, %BACKUP_PFAD_V3%&"\fav.zip"
Set POIBACKUP, %BACKUP_PFAD_V3%&"\pois.zip"
Set MENUBACKUP, %BACKUP_PFAD_V3%&"\menus.zip"
Set TOURENBACKUP, %BACKUP_PFAD_V3%&"\touren.zip"
Set HANDYBACKUP, %BACKUP_PFAD_V3%&"\handy.zip"
Set KOORDBACKUP, %BACKUP_PFAD_V3%&"\koord.zip"
Set CONTACTSBACKUP, %BACKUP_PFAD_V3%&"\contacts.zip"
Set TRAVELGUIDEBACKUP, %BACKUP_PFAD_V3%&"\travelguide.zip"
Set POIWARNERBACKUP, %BACKUP_PFAD_V3%&"\poiwarner.zip"


# Wartezeit in ms für diverse Operationen
Set MYSLEEP, "300"

# Vergrößern des Storage-Memorys für größere ZIPpereien
Run (%KOORD_PFAD%, "window=0 SetMem="&%BACKUP_SPEICHER%)

# Anlegen des Backup-Verzeichnisses
If (not DirExists (%BACKUP_PFAD_V3%))
	MkDir (%BACKUP_PFAD_V3%)
EndIf

sleep %MYSLEEP%

# Anlegen des Temp-Verzeichnisses
If (not DirExists (%Stmp%))
	MkDir (%Stmp%)
EndIf

# Backup Favoriten

freespace1 = 1
freespace2 = 2

If( question( "Favoriten sichern?" ) )
RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
MkDir (Stmp \ "My Flash Disk")
MkDir (Stmp \ "My Flash Disk\settings")
MkDir (Stmp \ "My Flash Disk\settings\Navigation")
line = "My Flash Disk\settings\Navigation"
ForEach zfile in files (line \ "*.cdb")
If (not (FileAttribute(zfile,"system")||FileAttribute(zfile,"readonly")))
Copy (zfile, %Stmp% \ zfile, 1)
EndIf
EndForEach
ZipFiles( Stmp \ line \ "*.*", Stmp \ "fav.zip", 1, line, 8 )
Delete(Stmp \ line \ "*.*")
While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile

If (fileExists(%FAVBACKUP%))
Rename(%FAVBACKUP%,%FAVBACKUP% & ".old",1)
EndIf
Rename (Stmp \ "fav.zip",FAVBACKUP,1)
DelTree(Stmp \ line \ "*.*")
DelTree(Stmp \ "My Flash Disk\settings")
DelTree(Stmp \ "My Flash Disk")
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# Backup POIs

freespace1 = 1
freespace2 = 2

If (fileExists("\My Flash Disk\navigation\poi\poi.pc"))
	If( question( "POIs sichern? Dies kann einige Zeit in Anspruch nehmen!" ) )
	RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
		ZipFiles("\My Flash Disk\navigation\poi\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\poi",8 )
		If (fileExists("\My Flash Disk\sokobana\mortscript\poi.ini"))
		ZipFile("\My Flash Disk\sokobana\mortscript\poi.ini", "\Temp\pois.zip","\My Flash Disk\sokobana\mortscript\poi.ini",8 )
		EndIf
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_1\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_1\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_1",8 )
			EndIf
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_2\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_2\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_2",8 )
			EndIf
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_3\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_3\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_3",8 )
			EndIf		
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_4\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_4\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_4",8 )
			EndIf		
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_5\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_5\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_5",8 )
			EndIf		
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_6\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_6\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_6",8 )
			EndIf		
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_7\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_7\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_7",8 )
			EndIf		
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_8\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_8\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_8",8 )
			EndIf		
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_9\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_9\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_9",8 )
			EndIf		
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_10\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_10\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_10",8 )
			EndIf					

While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile

If (fileExists(%POIBACKUP%))
Rename(%POIBACKUP%,%POIBACKUP% & ".old",1)
EndIf
Rename (Stmp \ "pois.zip",POIBACKUP,1)
EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# Backup MENUs

freespace1 = 1
freespace2 = 2

If (fileExists("\My Flash Disk\navigation\menu\menu.xml"))
	If( question( "MENUs sichern? Dies kann einige Zeit in Anspruch nehmen!" ) )
	RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
		ZipFiles("\My Flash Disk\navigation\menu\480272\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272",8 )
		ZipFile("\My Flash Disk\navigation\menu\menu.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu.xml",8 )
		If (fileExists("\My Flash Disk\sokobana\mortscript\menu.ini"))
			ZipFile("\My Flash Disk\sokobana\mortscript\menu.ini", "\Temp\menus.zip","\My Flash Disk\sokobana\mortscript\menu.ini",8 )
		EndIf
			If (fileExists("\My Flash Disk\navigation\menu\menu_01.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_01\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_01",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_01.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_01.xml",8 )
			EndIf
			If (fileExists("\My Flash Disk\navigation\menu\menu_02.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_02\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_02",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_02.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_02.xml",8 )
			EndIf
			If (fileExists("\My Flash Disk\navigation\menu\menu_03.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_03\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_03",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_03.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_03.xml",8 )
			EndIf
			If (fileExists("\My Flash Disk\navigation\menu\menu_04.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_04\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_04",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_04.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_04.xml",8 )
			EndIf	
			If (fileExists("\My Flash Disk\navigation\menu\menu_05.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_05\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_05",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_05.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_05.xml",8 )
			EndIf	
			If (fileExists("\My Flash Disk\navigation\menu\menu_06.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_06\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_06",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_06.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_06.xml",8 )
			EndIf
			If (fileExists("\My Flash Disk\navigation\menu\menu_07.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_07\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_07",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_07.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_07.xml",8 )
			EndIf	
			If (fileExists("\My Flash Disk\navigation\menu\menu_08.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_08\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_08",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_08.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_08.xml",8 )
			EndIf
			If (fileExists("\My Flash Disk\navigation\menu\menu_09.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_09\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_09",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_09.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_09.xml",8 )
			EndIf
While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile

If (fileExists(%MENUBACKUP%))
Rename(%MENUBACKUP%,%MENUBACKUP% & ".old",1)
EndIf
Rename (Stmp \ "menus.zip",MENUBACKUP,1)
EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# Backup TOUREN

freespace1 = 1
freespace2 = 2

If (fileExists("\My Flash Disk\settings\navigation\tourplan.xml"))
	If( question( "Touren sichern?" ) )
#		RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
		ZipFiles("\My Flash Disk\settings\navigation\*.xml", "\Temp\touren.zip",1,"\My Flash Disk\settings\navigation",8 )
		ZipFile("\My Flash Disk\sokobana\mortscript\touren.ini", "\Temp\touren.zip","\My Flash Disk\sokobana\mortscript\touren.ini",8 )
While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile

If (fileExists(%TOURENBACKUP%))
Rename(%TOURENBACKUP%,%TOURENBACKUP% & ".old",1)
EndIf
Rename (Stmp \ "touren.zip",TOURENBACKUP,1)
EndIf
EndIf
#RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")


# Backup Handydaten

freespace1 = 1
freespace2 = 2

If (FileExists ("\Windows\REMOTEDEVICE.INI"))
If( question( "Handydaten sichern?" ) )
RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
Copy ("\Windows\REMOTEDEVICE.INI", "\Temp\REMOTEDEVICE.INI", 1)
Copy ("\Windows\SHORTCUT.INI", "\Temp\SHORTCUT.INI", 1)
ZipFiles("\Temp\*.ini","\Temp\handy.zip", 0, "Windows")
Delete("\Temp\*.INI")
While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile

If (fileExists(%HANDYBACKUP%))
Rename(%HANDYBACKUP%,%HANDYBACKUP% & ".old",1)
EndIf
Rename ("Temp\handy.zip",HANDYBACKUP,1)
EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# Backup HOME-Koordinaten

freespace1 = 1
freespace2 = 2

If (FileExists ("\My Flash Disk\Sokobana\Koord\home.3na"))
If( question( "HOME-Koordinaten sichern?" ) )
RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
MkDir (Stmp \ "My Flash Disk")
MkDir (Stmp \ "My Flash Disk\Sokobana")
MkDir (Stmp \ "My Flash Disk\Sokobana\Koord")
line = "My Flash Disk\Sokobana\Koord"
ForEach zfile in files (line \ "*.3na")
If (not (FileAttribute(zfile,"system")||FileAttribute(zfile,"readonly")))
Copy (zfile, %Stmp% \ zfile, 1)
EndIf
EndForEach
Copy (zfile, %Stmp% \ zfile, 1)
ZipFiles( Stmp \ line \ "*.*", Stmp \ "koord.zip", 1, line, 8 )
Delete(Stmp \ line \ "*.*")
While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile

If (fileExists(%KOORDBACKUP%))
Rename(%KOORDBACKUP%,%KOORDBACKUP% & ".old",1)
EndIf
Rename (Stmp \ "koord.zip",KOORDBACKUP,1)
DelTree(Stmp \ line \ "*.*")
DelTree(Stmp \ "My Flash Disk\Sokobana")
DelTree(Stmp \ "My Flash Disk")
EndIf
Endif
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# Backup Contacts

freespace1 = 1
freespace2 = 2

If (fileExists("\My Flash Disk\contacts\contacts.db"))
If( question( "Kontakte sichern?" ) )
RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
MkDir (Stmp \ "My Flash Disk")
MkDir (Stmp \ "My Flash Disk\contacts")
line = "My Flash Disk\contacts"
ForEach zfile in files (line \ "*.*")
If (not (FileAttribute(zfile,"system")||FileAttribute(zfile,"readonly")))
Copy (zfile, %Stmp% \ zfile, 1)
EndIf
EndForEach
ZipFiles( Stmp \ line \ "*.*", Stmp \ "contacts.zip", 1, line, 8 )
Delete(Stmp \ line \ "*.*")
While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile

If (fileExists(%CONTACTSBACKUP%))
Rename(%CONTACTSBACKUP%,%CONTACTSBACKUP% & ".old",1)
EndIf
Rename (Stmp \ "contacts.zip",CONTACTSBACKUP,1)
DelTree(Stmp \ line \ "*.*")
DelTree(Stmp \ "My Flash Disk")
EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# Backup Travelguide

If (fileExists("\My Flash Disk\navigation\multimedia\travelguide\480x272\TravelGuide.exe"))
If( question( "Travelguide Daten sichern? Dies kann einige Zeit in Anspruch nehmen!" ) )
RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
RunWait (%KOORD_PFAD%, "window=0 copy=\My Flash Disk\navigation\multimedia\travelguide\database|\Temp\travelguide|2") 
ZipFiles("\Temp\travelguide\*.*", "\Temp\travelguide.zip",1,"\My Flash Disk\navigation\multimedia\travelguide\database",8 )
While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile

If (fileExists(%TRAVELGUIDEBACKUP%))
Rename(%TRAVELGUIDEBACKUP%,%TRAVELGUIDEBACKUP% & ".old",1)
EndIf
Rename (Stmp \ "travelguide.zip",TRAVELGUIDEBACKUP,1)
DelTree("\Temp\travelguide\*.*")
EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# Backup POIWarner

freespace1 = 1
freespace2 = 2

If (fileExists("\My Flash Disk\navigation\POIWarner GoPal-Edition\poiwarner.exe"))
If( question( "POI-Warner sichern? Dies kann einige Zeit in Anspruch nehmen!" ) )
RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
# RunWait (%KOORD_PFAD%, "window=0 copy=\My Flash Disk\navigation\POIWarner GoPal-Edition|\Temp\poiwarner|2") 
ZipFiles("\My Flash Disk\navigation\POIWarner GoPal-Edition\*.*", "\My Flash Disk\poiw.zip",1,"\My Flash Disk\navigation\POIWarner GoPal-Edition",8 )
ZipFile("\My Flash Disk\navigation\dstcom02.dll", "\My Flash Disk\poiw.zip","\My Flash Disk\navigation\dstcom02.dll",8 )
While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile

If (fileExists(%POIWARNERBACKUP%))
Rename(%POIWARNERBACKUP%,%POIWARNERBACKUP% & ".old",1)
EndIf
Rename ("\My Flash Disk\poiw.zip",POIWARNERBACKUP,1)
#DelTree("\Temp\poiwarner\*.*")
EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")



# Zurücksetzen des Storage-Memorys
Run (%KOORD_PFAD%, "window=0 SetMem="&%STANDARD_SPEICHER%)
Message ( "Backup beendet.")
If DirExists (%Stmp%)
	DelTree (%Stmp%)
EndIf
Reset