################################################
###                                          ###
#######             RESTORE              #######
###                                          ###
#######                                  #######
###         (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           ###
############################################################
# modifiziert nach einem Script von m.g
#
# V2.1
#
# Änderung 14.09.07: Restore der Handydaten eingebaut
# Änderung 24.09.07: Restore der Dateien gelöscht
# Änderung 29.09.07: Fehlerbeseitigung
# Änderung 03.10.07: Fehlerbeseitigung
# Änderung 11.11.07: Restore der INI-Dateien eingebaut
# Änderung 25.02.08: Restore der POIs / Menus
# Änderung 01.03.08: Restore in V3 aus BackupV3
# Änderung 19.03.08: Restore POI-Warner
# Änderung 29.06.08: Argumente eingeführt für Restore ohne USER-INI
# Änderung 08.11.08: Favoriten: Abfrage der Datenbankgröße
# Änderung 02.01.09: Handydaten nur bei vorhandenem BT (ab 470er)
# Änderung 14.03.09: Handydaten nur bei gepairtem Handy (Filegrösse > 30)
# Änderung 30.04.09: Koordserver abschalten
# Änderung 04.05.09: Restore Glopus
# Änderung 14.03.10: Auswahlmenü von athos anbieten --> MortScript2


If( question( "Übersichts-Menü benutzen?" ) )
	Run ("\My Flash Disk\Sokobana\MortScript2\restore.exe", argv[1])
Else

# --- Koord-Server abschalten ------------------------------------------------------------------
If ( RegValueExists ("HKCU", "Software\Koord\Server", "KoordServ"))
	Run ("\My Flash Disk\Sokobana\Koord2\koord465.exe", "Window=0 KoordServ=1 RORegKeys=0")
Endif

RESTORE = FormatTime ("d.m.Y", TimeStamp() + 86400)

INI = argv[1]

#--------------------------- Konfiguration ---------------------------------
If (Not DirExists("\Storage Card"))
	Message ("Es ist keine Speicherkarte eingelegt !")
	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")

#If FileExists ("\Storage Card\BackupV3\restore.log")
#	Delete ("\Storage Card\BackupV3\restore.log")
	## Logfile Start
#	IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"Start","OK")			
#EndIf


Kill ( "sokobana_service.exe" )
Kill ( "gnsx10ctrl.exe" )
Kill ( "\My Flash Disk\menu.exe" )

# --- Speicher freimachen ---------------------------------

	Kill( "startfrommenu.exe" )
	Kill( "\my flash disk\menu.exe" )

	If WndExists ("GoPal Navigator")
		## Logfile GoPal
		IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"GoPal","OK")				
		KillScript ("run_nogyro.mscr")
		Close ("GoPal Navigator")
		If WndExists ("Settings")
		## Logfile Settings
		IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"Settings","OK")						
			Close ( "Settings" )
		EndIf
		Speicher=FreeMemory()
		While (Speicher < 32000)
			Speicher=FreeMemory()
			Sleep (2000)
		EndWhile
	Endif

If WndExists ("ContactViewer")		
	## Logfile ContactViewer
	IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"ContactViewer","OK")				
	Close ( "ContactViewer" )				
EndIf

Sleep (2000)

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

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

# vollständiger Pfad zu Registry-Backup und Backup-Zip
Set FAVBACKUP, %BACKUP_PFAD_V3%&"\fav.zip"
Set FAVBACKUP_V2, %BACKUP_PFAD_V2%&"\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 HANDYBACKUP_V2, %BACKUP_PFAD_V2%&"\handy.zip"
Set KOORDBACKUP, %BACKUP_PFAD_V3%&"\koord.zip"
Set KOORDBACKUP_V2, %BACKUP_PFAD_V2%&"\koord.zip"
Set CONTACTSBACKUP, %BACKUP_PFAD_V3%&"\contacts.zip"
Set CONTACTSBACKUP_V2, %BACKUP_PFAD_V2%&"\contacts.zip"
Set TRAVELGUIDEBACKUP, %BACKUP_PFAD_V3%&"\travelguide.zip"
Set TRAVELGUIDEBACKUP_V2, %BACKUP_PFAD_V2%&"\travelguide.zip"
Set POIWARNERBACKUP, %BACKUP_PFAD_V3%&"\poiwarner.zip"
Set VARIOSKIN, "\Storage Card\Sokobana\VARIOSKIN.zip"
Set USERINI, %BACKUP_PFAD_V3%&"\user.ini"
Set GLOPUSBACKUP, %BACKUP_PFAD_V3%&"\glopus.zip"

Sleep %MYSLEEP%

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

# Anlegen der Dummy-Datei
WriteFile ("\Windows\NoHardreset.txt","#Automatisch generierte Datei^NL^Nicht löschen!!")

# Sicherungen von V2 nach V3 kopieren
If (fileExists(%FAVBACKUP_V2%))
		## Logfile FavBackup_V2
		IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"FavBackup_V2","OK")				
   Move (%FAVBACKUP_V2%, "\Storage Card\BackupV3\", TRUE, FALSE)
EndIf
If (fileExists(%HANDYBACKUP_V2%))
		## Logfile HandyBackup_V2
		IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"HandyBackup_V2","OK")				
   Move (%HANDYBACKUP_V2%, "\Storage Card\BackupV3\", TRUE, FALSE)
EndIf
If (fileExists(%KOORDBACKUP_V2%))
		## Logfile KoordBackup_V2
		IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"KoordBackup_V2","OK")				
   Move (%KOORDBACKUP_V2%, "\Storage Card\BackupV3\", TRUE, FALSE)
EndIf
If (fileExists(%CONTACTSBACKUP_V2%))
		## Logfile ContactsBackup_V2
		IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"ContactsBackup_V2","OK")				
   Move (%CONTACTSBACKUP_V2%, "\Storage Card\BackupV3\", TRUE, FALSE)
EndIf
If (fileExists(%TRAVELGUIDEBACKUP_V2%))
		## Logfile TravelGuideBackup_V2
		IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"TravelGuideBackup_V2","OK")				
   Move (%TRAVELGUIDEBACKUP_V2%, "\Storage Card\BackupV3\", TRUE, FALSE)
EndIf


# Favoriten

If (fileExists(%FAVBACKUP%))
	## Logfile FavBackup_Exists
	IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"FavBackup_Exists","OK")				
	If( question( "Favoriten wiederherstellen?" ) )
		## Logfile FavBackup
		IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"FavBackup","OK")				
		RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
		freespace1 = 1
		freespace2 = 2

		# Restore Favorites
		ErrorLevel("warn")
		UnzipAll(%FAVBACKUP%,"\\")
		While (%freespace1% <> %freespace2%)
			freespace1 = FreeDiskSpace("\")
			sleep %MYSLEEP%
			freespace2 = FreeDiskSpace("\")
		EndWhile
	EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

 If (INI eq "FAV")
 	## Logfile FavIni
	IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"FavIni","OK")				
 	Exit
 Endif

# POIS

If (fileExists(%POIBACKUP%))
	## Logfile POIBackup_Exists
	IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"POIBackup_Exists","OK")				
	If( question( "POI-Konfiguration wiederherstellen?" ) )
	## Logfile POIBackup
	IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"POIBackup","OK")				
		RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
		freespace1 = 1
		freespace2 = 2

		# Restore POIs
		ErrorLevel("warn")
		UnzipAll(%POIBACKUP%,"\\")
		While (%freespace1% <> %freespace2%)
			freespace1 = FreeDiskSpace("\")
			sleep %MYSLEEP%
			freespace2 = FreeDiskSpace("\")
		EndWhile
	EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# MENUS

If (fileExists(%MENUBACKUP%))
	## Logfile MenuBackup_Exists
	IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"MenuBackup_Exists","OK")				
	If( question( "MENUs wiederherstellen?" ) )
	## Logfile MenuBackup
	IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"MenuBackup","OK")				
		RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
		freespace1 = 1
		freespace2 = 2

		# Restore MENUs
		ErrorLevel("warn")
		UnzipAll(%MENUBACKUP%,"\\")
		While (%freespace1% <> %freespace2%)
			freespace1 = FreeDiskSpace("\")
			sleep %MYSLEEP%
			freespace2 = FreeDiskSpace("\")
		EndWhile
	EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# TOUREN

If (fileExists(%TOURENBACKUP%))
	## Logfile TourenBackup_Exists
	IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"TourenBackup_Exists","OK")				
	If( question( "Touren wiederherstellen?" ) )
		## Logfile TourenBackup
		IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"TourenBackup","OK")				
		RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
		freespace1 = 1
		freespace2 = 2

		# Restore TOUREN
		ErrorLevel("warn")
		UnzipAll(%TOURENBACKUP%,"\\")
		While (%freespace1% <> %freespace2%)
			freespace1 = FreeDiskSpace("\")
			sleep %MYSLEEP%
			freespace2 = FreeDiskSpace("\")
		EndWhile
	EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")


# Handy-Daten

If (fileExists(%HANDYBACKUP%))
	## Logfile HandyBackup_Exists
	IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"HandyBackup_Exists","OK")				
	If (FileSize (%HANDYBACKUP%) > 30)
	## Logfile HandyBackup_Size
	IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"HandyBackup_Size","OK")				
		If( question( "BT-Handy-Daten wiederherstellen?" ) )
			## Logfile HandyBackup
			IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"HandyBackup","OK")						
			RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
			freespace1 = 1
			freespace2 = 2

			# Restore Handy-Daten
			ErrorLevel("warn")
			UnzipAll(%HANDYBACKUP%,"\\")
			While (%freespace1% <> %freespace2%)
				freespace1 = FreeDiskSpace("\")
				sleep %MYSLEEP%
				freespace2 = FreeDiskSpace("\")
			EndWhile
		EndIf
	EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# HOME-Koordinaten

If (fileExists(%KOORDBACKUP%))
	## Logfile KoordBackup_Exists
	IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"KoordBackup_Exists","OK")				
	If( question( "HOME-Koordinaten wiederherstellen?" ) )
		## Logfile KoordBackup
		IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"KoordBackup","OK")				
		RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
		freespace1 = 1
		freespace2 = 2

		# Restore HOME-Koordinaten
		ErrorLevel("warn")
		UnzipAll(%KOORDBACKUP%,"\\")
		While (%freespace1% <> %freespace2%)
			freespace1 = FreeDiskSpace("\")
			sleep %MYSLEEP%
			freespace2 = FreeDiskSpace("\")
		EndWhile
	EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# Kontaktdatenbank

If (fileExists(%CONTACTSBACKUP%))
	## Logfile Contactsbackup_Exists
	IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"ContactsBackup_Exists","OK")				
	If( question( "Kontakte wiederherstellen?" ) )
		## Logfile ContactsBackup
		IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"ContactsBackup","OK")				
		RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
	freespace1 = 1
	freespace2 = 2

	# Restore Kontaktdatenbank
	ErrorLevel("warn")
	UnzipAll(%CONTACTSBACKUP%,"\\")
	While (%freespace1% <> %freespace2%)
		freespace1 = FreeDiskSpace("\")
		sleep %MYSLEEP%
		freespace2 = FreeDiskSpace("\")
	EndWhile
EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# Travelguide

If (fileExists(%TRAVELGUIDEBACKUP%))
	## Logfile TravelGuideBackup_Exists
	IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"TravelGuideBackup_Exists","OK")				
	If( question( "Travelguide Daten wiederherstellen?" ) )
		## Logfile TravelguideBackup
		IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"TravelGuideBackup","OK")				
	RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
	freespace1 = 1
	freespace2 = 2

	# Restore Travelguide
	ErrorLevel("warn")
	UnzipAll(%TRAVELGUIDEBACKUP%,"\\")
	While (%freespace1% <> %freespace2%)
		freespace1 = FreeDiskSpace("\")
		sleep %MYSLEEP%
		freespace2 = FreeDiskSpace("\")
	EndWhile
EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# POI-Warner

If (fileExists(%POIWARNERBACKUP%))
	## Logfile POIWarnerBackup_Exists
	IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"POIWarnerBackup_Exists","OK")				
	If( question( "POI-Warner/POI-Finder wiederherstellen?" ) )
		## Logfile POIWarnerBackup
		IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"POIWarnerBackup","OK")				
	RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
	freespace1 = 1
	freespace2 = 2

	# Restore POI-Warner
	ErrorLevel("warn")
	UnzipAll(%POIWARNERBACKUP%,"\\")
	While (%freespace1% <> %freespace2%)
		freespace1 = FreeDiskSpace("\")
		sleep %MYSLEEP%
		freespace2 = FreeDiskSpace("\")
	EndWhile
EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# Glopus

If (fileExists(%GLOPUSBACKUP%))
	## Logfile GlopusBackup_Exists
	IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"GlopusBackup_Exists","OK")				
	If( question( "Glopus wiederherstellen?" ) )
		## Logfile GlopusBackup
		IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"GlopusBackup","OK")				
	RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
	freespace1 = 1
	freespace2 = 2

	# Restore Glopus
	ErrorLevel("warn")
	UnzipAll(%GLOPUSBACKUP%,"\\")
	While (%freespace1% <> %freespace2%)
		freespace1 = FreeDiskSpace("\")
		sleep %MYSLEEP%
		freespace2 = FreeDiskSpace("\")
	EndWhile
EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

If (INI eq "yes")
	## Logfile INI_YES
	IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"INI_YES","OK")				
	CallScript ("\My Flash Disk\Sokobana\MortScript\standard_parameter.mscr","USER")
Else
	## Logfile INI_NO
	IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"INI_NO","OK")				
	If not (RegValueExists ("HKCU", "Software\sokobana", "AUTORESET"))
		RegWriteString ("HKCU","Software\sokobana", "AUTORESET", "1")
	Endif
## Logfile Reset
IniWrite ("\Storage Card\BackupV3\restore.log",RESTORE,"Reset","OK")				
Reset
EndIf

Endif