################################################
###                                          ###
#######             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
#
# V1.9
#
# Ä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)
# 

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")

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")
		KillScript ("run_nogyro.mscr")
		Close ("GoPal Navigator")
		If WndExists ("Settings")
			Close ( "Settings" )
		EndIf
		Speicher=FreeMemory()
		While (Speicher < 32000)
			Speicher=FreeMemory()
			Sleep (2000)
		EndWhile
	Endif

If WndExists ("ContactViewer")		
	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"

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%))
   Move (%FAVBACKUP_V2%, "\Storage Card\BackupV3\", TRUE, FALSE)
EndIf
If (fileExists(%HANDYBACKUP_V2%))
   Move (%HANDYBACKUP_V2%, "\Storage Card\BackupV3\", TRUE, FALSE)
EndIf
If (fileExists(%KOORDBACKUP_V2%))
   Move (%KOORDBACKUP_V2%, "\Storage Card\BackupV3\", TRUE, FALSE)
EndIf
If (fileExists(%CONTACTSBACKUP_V2%))
   Move (%CONTACTSBACKUP_V2%, "\Storage Card\BackupV3\", TRUE, FALSE)
EndIf
If (fileExists(%TRAVELGUIDEBACKUP_V2%))
   Move (%TRAVELGUIDEBACKUP_V2%, "\Storage Card\BackupV3\", TRUE, FALSE)
EndIf


# Favoriten

If (fileExists(%FAVBACKUP%))

	If( question( "Favoriten wiederherstellen?" ) )
		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")
 	Exit
 Endif

# POIS

If (fileExists(%POIBACKUP%))
	If( question( "POI-Konfiguration wiederherstellen?" ) )
		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%))
	If( question( "MENUs wiederherstellen?" ) )
		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%))
	If( question( "Touren wiederherstellen?" ) )
		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%))
	If (FileSize (%HANDYBACKUP%) > 30)
		If( question( "BT-Handy-Daten wiederherstellen?" ) )
			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%))
	If( question( "HOME-Koordinaten wiederherstellen?" ) )
		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%))
If( question( "Kontakte wiederherstellen?" ) )
	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%))
If( question( "Travelguide Daten wiederherstellen?" ) )
	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%))
If( question( "POI-Warner/POI-Finder wiederherstellen?" ) )
	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")

If (INI eq "yes")
	CallScript ("\My Flash Disk\Sokobana\MortScript\standard_parameter.mscr","USER")
Else
	If not (RegValueExists ("HKCU", "Software\sokobana", "AUTORESET"))
		RegWriteString ("HKCU","Software\sokobana", "AUTORESET", "1")
	Endif
Reset
EndIf


Sub Warten
Run ("\My Flash Disk\Sokobana\Koord2\koord465.exe", "Window=0 KoordServ=1 wndrefresh=-1 t=1 rb=0 gb=0 bb=0 ServWnd=text,0,0,-1,-1,5060,255,0,0,-1,-1{bitte warten...}\text,450,0,30,30,-5030,255,255,0,-1,0{x}|")
EndSub

Sub Fertig
Run ("\My Flash Disk\Sokobana\Koord2\koord465.exe", "Window=0 SendKey=\fPrototype\m0x0010")
EndSub