################################################
###                                          ###
#######      Automat. Installation       #######
###                                          ###
#######                                  #######
###         (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           ###
############################################################
#

Sleep 3000

If (NOT DirExists("\Storage Card"))
	SetVolume ( 180 )
	PlaySound ("\My Flash Disk\Sokobana\MortScript\kartenfehler.wav")
	Sleep ( 1000 )
	reset
EndIf	

# errorlevel ("warn")

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

# --- Auto-Registrierung für MortScript ---
	Run("\My Flash Disk\Sokobana\MortScript\MortScript.exe")
	Sleep( 400 )
	SendOK("MortScript")

# 1: Erstinstallation

If (FileExists ("\My Flash Disk\Sokobana\MortScript\firstinstall.txt"))
	If (NOT DirExists ("\Storage Card\BackupV3"))
		MkDir ("\Storage Card\BackupV3")
	EndIf
	If FileExists ("\Storage Card\BackupV3\install.log")
		Delete ("\Storage Card\BackupV3\install.log")
		## Logfile 
		IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","LOG_Exist","OK")			
	EndIf
	## Logfile 
	IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Start_Install","OK")	

	RegWriteDWord ("HKCU", "Software\sokobana", "VOLDELAY", 255))
	RegWriteDWord ("HKCU", "Software\sokobana", "POIW", 1))
	SetVolume (255)
	
##### Sprachauswahl prüfen ###########

	anzahl = -4
	ForEach file in files ("\Storage Card\1\*.*")
			anzahl = anzahl + 1
	EndForEach
	## Logfile 
	IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Sprachauswahl",anzahl )	
	If (anzahl > 1)
		Sleep 10000
	EndIf

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

##### SetMem setzen ############

	Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\sysmem_60.png","\My Flash Disk\Navigation\skin480x272\PPSkin\sysmem.png",1)
		## Logfile 
	IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Sysmem_60","OK")	
	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 SetMem="& 1000)

################################


	# Skin installieren


		# Variablen
		If (FileExists ("\My Flash Disk\Sokobana\MortScript\MSDefines.mscr"))
			## Logfile 
			IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","MSDefines_OK","OK")	
			CallScript ("\My Flash Disk\Sokobana\MortScript\MSDefines.mscr")
		Else
			## Logfile 
			IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","MSDefines_FEHLT","OK")	
			Message( "MSDefines.mscr fehlt, überprüfen Sie Ihre Installation (Speicherkarte)!" )
		EndIf

		If WndExists ("GoPal Navigator")
			## Logfile 
			IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","GoPal_läuft","OK")	
			Close ("GoPal Navigator")
			Speicher=FreeMemory()
			While (Speicher < 32000)
				Speicher=FreeMemory()
				Sleep ( 2000 )
			EndWhile
		EndIf

	# Telefonbuchtastatur sichern

		If (FileExists ("\My Flash Disk\navigation\multimedia\TelephoneBook\480x272\Skin480x272\HelpApp.skn"))
			## Logfile 
			IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Telefonbuch_Tastatur","OK")	
			Copy ("\My Flash Disk\navigation\multimedia\TelephoneBook\480x272\Skin480x272\HelpApp.skn", "\My Flash Disk\navigation\multimedia\TelephoneBook\480x272\Skin480x272\ABC.skn")
		EndIf

  # POI entpacken
  
		UnzipAll("\My Flash Disk\Navigation\Skin480x272\poi.zip","\\")
		## Logfile 
		IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","POI_unzip","OK")	
		Delete ("\My Flash Disk\Navigation\Skin480x272\poi.zip")

  # Sokobana entpacken
		
		UnzipAll("\My Flash Disk\Sokobana\Sokobana.zip","\\")
		## Logfile 
		IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Sokobana_unzip","OK")	
		Delete ("\My Flash Disk\Sokobana\Sokobana.zip")
	##############################################################################

	If  (FileExists ("\My Flash Disk\Navigation\Skin480x272\PPSkin\horizon_3d_night.png"))
			## Logfile 
			IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Horizon_3D_Night_png","OK")	
			Copy( "\My Flash Disk\Navigation\Skin480x272\PPSkin\horizon_3d_night.png", "\My Flash Disk\Navigation\Skin480x272\3dnight\horizon_3d_night.png",1)
			Copy( "\My Flash Disk\Navigation\Skin480x272\PPSkin\horizon_3d_night.png", "\My Flash Disk\Navigation\Skin480x272\PPSkin\horizon_3d_night_L.png",1)
			Copy( "\My Flash Disk\Navigation\Skin480x272\PPSkin\horizon_3d_night.png", "\My Flash Disk\Navigation\Skin480x272\PPSkin\horizon_3d_night_XXL.png",1)
		Else	
			## Logfile 
			IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Horizon_3D_Night_png FEHLT","OK")	
			Message ("Originaldatei horizon_3d_night.png konnte nicht gefunden werden, bitte Originalskin installieren")
		EndIf
	
	If  (FileExists ("\My Flash Disk\Navigation\poi\poi.png"))
		### Original GoPal
		## Logfile 
		IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","POI_Install","OK")	
		XCopy ("\My Flash Disk\Navigation\poi\*.*","\My Flash Disk\Navigation\Skin480x272\poi_1\poi",1)
		Copy ("\My Flash Disk\Navigation\res\de\PFPoi.skn","\My Flash Disk\Navigation\Skin480x272\poi_1\PFPoi.skn",1)			
		### Glas-Button
		Copy ("\My Flash Disk\Navigation\Skin480x272\poi_1\poi\crosshair.png","\My Flash Disk\Navigation\Skin480x272\poi_2\poi\crosshair.png")			
		Copy ("\My Flash Disk\Navigation\Skin480x272\poi_1\poi\SpecialBitmaps.png","\My Flash Disk\Navigation\Skin480x272\poi_2\poi\SpecialBitmaps.png")			
		Copy ("\My Flash Disk\Navigation\Skin480x272\poi_1\poi\stopover_flags.png","\My Flash Disk\Navigation\Skin480x272\poi_2\poi\stopover_flags.png")			
		Copy ("\My Flash Disk\Navigation\Skin480x272\poi_1\poi\POI_Brands.png","\My Flash Disk\Navigation\Skin480x272\poi_2\poi\POI_Brands.png")												
 		###
		### Broadway Lamb
		Copy ("\My Flash Disk\Navigation\Skin480x272\poi_1\poi\crosshair.png","\My Flash Disk\Navigation\Skin480x272\poi_4\poi\crosshair.png")			
		Copy ("\My Flash Disk\Navigation\Skin480x272\poi_1\poi\SpecialBitmaps.png","\My Flash Disk\Navigation\Skin480x272\poi_4\poi\SpecialBitmaps.png")			
		Copy ("\My Flash Disk\Navigation\Skin480x272\poi_1\poi\stopover_flags.png","\My Flash Disk\Navigation\Skin480x272\poi_4\poi\stopover_flags.png")			
		Copy ("\My Flash Disk\Navigation\Skin480x272\poi_1\poi\POI_Brands.png","\My Flash Disk\Navigation\Skin480x272\poi_4\poi\POI_Brands.png")												
		###
	Else	
		## Logfile 
		IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","POIs nicht gefunden","OK")	
		Message ("Originalverzeichnis My Flash Disk\Navigation\poi konnte nicht gefunden werden, bitte Originalskin installieren")
	EndIf


	If  (FileExists ("\My Flash Disk\Navigation\Skin480x272\PPSkin\sl.png"))
		## Logfile 
		IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","SL_PNG","OK")	
		Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\sl.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\speed_limit_sign2.png",1)
	Else
		## Logfile 
		IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","SL_PNG_FEHLT","OK")	
		Message ("PPSkin\sl.png konnte nicht gefunden werden! Bitte überprüfen Sie Ihre Installation!")
	EndIf

	If  (FileExists ("\My Flash Disk\Navigation\Skin480x272\PPSkin\tw.png"))
		## Logfile 
		IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","TW_PNG","OK")	
			Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\tw.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\traffic_warning2.png",1)
	Else
		## Logfile 
		IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","TW_PNG_FEHLT","OK")	
		Message ("PPSkin\tw.png konnte nicht gefunden werden! Bitte überprüfen Sie Ihre Installation!")
	EndIf

	If  (FileExists ("\My Flash Disk\Navigation\Skin480x272\PPSkin\routeopt_1.png"))
		## Logfile 
		IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Routeopt_PNG","OK")	
		Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\routeopt_1.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\routeopt.png",1)
	Else
		## Logfile 
		IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Routeopt_PNG_FEHLT","OK")	
		Message ("PPSkin\routeopt_1.png konnte nicht gefunden werden! Bitte überprüfen Sie Ihre Installation!")
	EndIf
	
	##############################################################################

	# Original-Skin (PFSkin.skn) in den VARIO-Skin übernehmen
	If (FileExists ("\My Flash Disk\Navigation\Skin480x272\PFSkin.skn"))
		## Logfile 
		IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Originalskin_rename","OK")	
		Copy ( "\My Flash Disk\Navigation\Skin480x272\PFSkin.skn", "\My Flash Disk\Navigation\Skin480x272\GoPFSkin.skn", 1 )
	EndIf
	
	##############################################################################

	# Sokobana.ini kopieren
	If (FileExists ("\My Flash Disk\Sokobana\mortscript\sokobana.ini"))
		## Logfile 
		IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Sokobana_ini_copy","OK")	
		Copy ("\My Flash Disk\Sokobana\mortscript\sokobana.ini", "\Storage Card\BackupV3\sokobana.ini", 1 )
  EndIf
	
	##############################################################################

  	# Gopal-Menü löschen --- Sokobana-Menü übernehmen geändert von Athos für neuen Menütauscher

	DelTree ("My Flash Disk\Navigation\menu\240320\*.*")
	DelTree ("My Flash Disk\Navigation\menu\320240\*.*")

	Delete ("\My Flash Disk\Navigation\menu\menu.xml")
	Delete ("\My Flash Disk\Navigation\menu\menu240320.skn")
	Delete ("\My Flash Disk\Navigation\menu\menu240320.skx")
	Delete ("\My Flash Disk\Navigation\menu\menu320240.skn")
	Delete ("\My Flash Disk\Navigation\menu\menu320240.skx")
# Gopal Menü sichern für andere Menüs
	MkDir( "\Storage Card\BackupV3\Menu" )
	MkDir( "\Storage Card\BackupV3\Menu\Gopal" )
	XCopy ("\My Flash Disk\Navigation\menu\480272\*.*","\Storage Card\BackupV3\Menu\Gopal\",1)
	DelTree ("My Flash Disk\Navigation\menu\480272\*.*")
  	Copy ("\My Flash Disk\Navigation\menu\menu.xml","\Storage Card\BackupV3\Menu\Gopal\menu.xml",1)	

	# --- immer das aktuellste Menü aus der CAB installieren und sichern ---
	If (FileExists ("\My Flash Disk\Sokobana\Reserve\menu_Sokobana-old.zip"))
		Copy ("\My Flash Disk\Sokobana\Reserve\menu_Sokobana-old.zip","\Storage Card\BackupV3\Menu\menu_Sokobana-old.zip",1)
	Endif
	If (FileExists ("\My Flash Disk\Sokobana\Reserve\menu_Sokobana.zip"))
		Copy ("\My Flash Disk\Sokobana\Reserve\menu_Sokobana.zip","\Storage Card\BackupV3\Menu\menu_Sokobana.zip",1)
#		UnzipAll("\Storage Card\BackupV3\Menu\menu_Sokobana.zip","\\")
#		If (fileExists("\My Flash Disk\navigation\menu\480272\menuinstall.mscr"))
#				CallScript ("\My Flash Disk\navigation\menu\480272\menuinstall.mscr")
#		EndIf
	else
		Message ( "Sokobana Menü nicht vorhanden^NL^bitte Installationsdateien überprüfen^NL^Installation und nochmals durchführen")
		IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Sokobana_Menu","nicht OK")		
	EndIf
			
	IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Sokobana_Menu","OK")	

	##############################################################################
	
  	# Serilot / VirtCom kopieren
  
  	If (NOT DirExists ("\Storage Card\Programme"))
		MkDir ("\Storage Card\Programme")
		## Logfile
		IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Programme_MkDir","OK")		
	EndIf
	If (NOT DirExists ("\Storage Card\Programme\Serilot"))
		MkDir ("\Storage Card\Programme\Serilot")
		## Logfile
		IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Serilot_MkDir","OK")		
	EndIf
	If FileExists ("\Storage Card\Programme\Serilot\serilot_config.cab")
		SetFileAttribute ("\Storage Card\Programme\Serilot\serilot_config.cab", "readonly", FALSE)
		Delete ("\Storage Card\Programme\Serilot\serilot_config.cab")
	Endif
	Rename ("\My Flash Disk\Sokobana\Reserve\serilot_config.cab","\Storage Card\Programme\Serilot\serilot_config.cab",TRUE)
	SetFileAttribute ("\Storage Card\Programme\Serilot\serilot_config.cab", "readonly", TRUE)
	## Logfile 
	IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Serilot_Copy","OK")		
	If (NOT DirExists ("\Storage Card\Programme\VirtCom"))
		MkDir ("\Storage Card\Programme\VirtCom")
		## Logfile
		IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","VirtCom_MkDir","OK")		
	EndIf	
	Rename ("\My Flash Disk\Sokobana\Reserve\virtcom_config.cab","\Storage Card\Programme\VirtCom\virtcom_config.cab",TRUE)
	SetFileAttribute ("\Storage Card\Programme\VirtCom\virtcom_config.cab", "readonly", TRUE)
	## Logfile 
	IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","VirtCom_Copy","OK")	
	##############################################################################
	
	# Bluetooth auf Deutsch
	
	CallScript ("\My Flash Disk\Sokobana\MortScript\bt_sprache.mscr")
	## Logfile 
	IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Bluetooth_Deutsch","OK")	
	
	##############################################################################
	
	# Powersave abschalten
	
	RegWriteDWord ("HKCU", "Software\3Soft\Pathfinder\CommonSettings", "PowerSave", 1))
	## Logfile 
	IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Powersafe_Off","OK")		

  ##############################################################################  

	# Ordner für Reparatur-Tool anlegen und FF-Repair vorbereiten

	If (NOT DirExists ("\Storage Card\AutoRepair"))
		## Logfile 
		IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Autorepair_prepare","OK")		
		MkDir ("\Storage Card\AutoRepair")
		MkDir ("\Storage Card\AutoRepair\Hardreset")
		MkDir ("\Storage Card\AutoRepair\Hardreset\My Flash Disk")
		MkDir ("\Storage Card\AutoRepair\Hardreset\My Flash Disk\Sokobana")
		MkDir ("\Storage Card\AutoRepair\Hardreset\Windows")
		MkDir ("\Storage Card\AutoRepair\Formatflash")
		MkDir ("\Storage Card\AutoRepair\Formatflash\My Flash Disk")
		MkDir ("\Storage Card\AutoRepair\Formatflash\My Flash Disk\Sokobana")
		MkDir ("\Storage Card\AutoRepair\Formatflash\My Flash Disk\Sokobana\koord2")
		MkDir ("\Storage Card\AutoRepair\Formatflash\My Flash Disk\Sokobana\MortScript")
		MkDir ("\Storage Card\AutoRepair\Formatflash\Windows")
		MkDir ("\Storage Card\AutoRepair\HRScripts")
	EndIf

	# Ordner für Koord-Server anlegen
	If (NOT DirExists ("\My Flash Disk\Sokobana\koord2\Icons"))
		MkDir ("\My Flash Disk\Sokobana\koord2\Icons")
	EndIf	
	If (NOT DirExists ("\My Flash Disk\Sokobana\koord2\View_3\Screen"))
		MkDir ("\My Flash Disk\Sokobana\koord2\View_3\Screen")
	EndIf	

  ##############################################################################  

	# BT-Buttons ausblenden, falls Gerät kein BT unterstützt

	If(RegValueExists("HKLM","Dialer","DialerName"))
	## Logfile 
		IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Bluetooth_EIN","OK")	
		CallScript ("\My Flash Disk\Sokobana\MortScript\changefile.mscr","\My Flash Disk\navigation\Skin480x272\PFDefines.skn","BT_BUTTON_SETTINGS_01",":",";","96,0,96,48")
		CallScript ("\My Flash Disk\Sokobana\MortScript\changefile.mscr","\My Flash Disk\navigation\Skin480x272\PFDefines.skn","BT_BUTTON_SETTINGS_02",":",";","384,56,96,48")
		CallScript ("\My Flash Disk\Sokobana\MortScript\changefile.mscr","\My Flash Disk\navigation\Skin480x272\PFDefines.skn","BT_BUTTON_MAP_01",":",";","0,144,50,48")
	Else 
	## Logfile 
	IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Bluetooth_AUS","OK")		
		CallScript ("\My Flash Disk\Sokobana\MortScript\changefile.mscr","\My Flash Disk\navigation\Skin480x272\PFDefines.skn","BT_BUTTON_SETTINGS_01",":",";","0,0,0,0")
		CallScript ("\My Flash Disk\Sokobana\MortScript\changefile.mscr","\My Flash Disk\navigation\Skin480x272\PFDefines.skn","BT_BUTTON_SETTINGS_02",":",";","0,0,0,0")
		CallScript ("\My Flash Disk\Sokobana\MortScript\changefile.mscr","\My Flash Disk\navigation\Skin480x272\PFDefines.skn","BT_BUTTON_MAP_01",":",";","0,0,0,0")
	EndIf


  ###############################################################################
  
  # Versionsnummer eintragen
  
  RegWriteDWord ("HKCU", "Software\sokobana", "VERSION", 400))
  
  ###############################################################################
	
	# Ersteinstellungen übernehmen / abschließender Reset

#	Delete ("\My Flash Disk\Sokobana\MortScript\firstinstall.txt")
	PlaySound ("\My Flash Disk\Sokobana\MortScript\beep_high.wav")
	Sleep 2000
	
	RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.mscr")
	SetVolume (255)
	## Logfile 
	IniWrite ("\Storage Card\BackupV3\install.log","INSTALL","Restore_Call","OK")	
	CallScript ("\My Flash Disk\Sokobana\MortScript\restore.mscr","yes")
EndIf