################################################
###                                          ###
#######        INI -> Registry           #######
###                                          ###
#######                                  #######
###         (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           ###
############################################################
# Version 2.0 vom 30.4.09

errorlevel ("off")

# --- 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
# ----------------------------------------------------------------------------------------------


If (Not DirExists("\Storage Card"))
	PlaySound ("\My Flash Disk\Sokobana\MortScript\Kartenfehler.wav" )
	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


ini = argv[1]



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

			
			RegDeleteKey ("HKCU", "Software\sokobana", "1", "1")

			RegWriteDWord ("HKCU", "Software\sokobana", "INIT", "1")
			
			3DEffect = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "3DEffect", "Wert")
			If ( 3DEffect ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "3DEffect", 3DEffect)
			EndIf	
			
			ABgruen = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "ABgruen", "Wert")
			If ( ABgruen ne "" )
			   RegWriteDWord ("HKCU", "Software\sokobana", "ABgruen", ABgruen)
			EndIf
					
			ABPreset = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "ABpreset", "Wert")			
			If ( ABpreset ne "" )
			   RegWriteDWord ("HKCU", "Software\sokobana", "ABPreset", ABpreset)
				 CallScript ("\My Flash Disk\Sokobana\MortScript\switch_ab_farbe.mscr")
		  EndIf

			AudioMute = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "AudioMute", "Wert")
			If ( AudioMute ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "AudioMute", AudioMute)
			EndIf	

			AudioScor = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "AudioScor", "Wert")
			If ( AudioScor ne "" )
			   RegWriteDWord ("HKCU", "Software\sokobana", "AudioScor", AudioScor)
			EndIf

			AudioSync = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "AudioSync", "Wert")
			If ( AudioSync ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "AudioSync", AudioSync)
			EndIf	

			AUDIO1_0 = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "AUDIO1_0", "Wert")
			If ( AUDIO1_0 ne "" )
			   RegWriteDWord ("HKCU", "Software\3SOFT\Pathfinder\Audio", "Audio1_0", AUDIO1_0)
			   If (AUDIO1_0=0)
			   	Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\new_icons2b.png","\My Flash Disk\Navigation\skin480x272\PPSkin\new_icons2.png",1)
				 Else
				 	Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\new_icons2a.png","\My Flash Disk\Navigation\skin480x272\PPSkin\new_icons2.png",1)
				 EndIf
			EndIf		
			
			AUTOBACKUP = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "AUTOBACKUP", "Wert")
			If ( AUTOBACKUP ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "AUTOBACKUP", AUTOBACKUP)
	       Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_gruen.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\autobackup.png",1)
			Else
				 Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_rot.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\autobackup.png",1)	
  	 	EndIf			
			If (RegValueExists("HKLM","Dialer","DialerName"))
				AUTOBT = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "AUTOBT", "Wert")
				If ( AUTOBT ne "" )
			  	 	RegWriteString ("HKCU", "Software\sokobana", "AUTOBT", AUTOBT)
			   		If NOT (FileExists ("\Windows\StartUp\BlueSoleil.lnk"))
						Copy ("\My Flash Disk\Sokobana\Reserve\BlueSoleil.lnk","\Windows\StartUp\BlueSoleil.lnk",1)
						Copy ("\My Flash Disk\Sokobana\Reserve\Dialer.lnk","\Windows\StartUp\Dialer.lnk",1)
					EndIf
				Else
					Delete ("\Windows\StartUp\BlueSoleil.lnk")
					Delete ("\Windows\StartUp\Dialer.lnk")	
				EndIf
			EndIf
			
			AUTOGYRO = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "AUTOGYRO", "Wert")
			If ( AUTOGYRO ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "AUTOGYRO", AUTOGYRO)
			EndIf		
			
			AUTOREPAIR = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "AUTOREPAIR", "Wert")
			If ( AUTOREPAIR ne "" )
			   RegWriteDWORD ("HKCU", "Software\sokobana", "AUTOREPAIR", AUTOREPAIR)
	       Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_gruen.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\autorepair.png",1)
			Else
			   Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_rot.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\autorepair.png",1)	
  	  EndIf	

			AUTOSATTURBO = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "AUTOSATTURBO", "Wert")
			If ( AUTOSATTURBO ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "AUTOSATTURBO", AUTOSATTURBO)
	       Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_gruen.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\auto_sat_turbo.png",1)
			Else
			   Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_rot.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\auto_sat_turbo.png",1)	
  	  EndIf	  	  

			AVGSPEED = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "AVGSPEED", "Wert")
			If ( AVGSPEED ne "" )
			   	RegWriteDWord ("HKCU", "Software\sokobana", "AVGSPEED", AVGSPEED)
			   	CallScript ("\My Flash Disk\Sokobana\MortScript\changefile.mscr","\My Flash Disk\navigation\Skin480x272\PFDefines.skn","AverageSpeed",":",";","350,205,75,25")
			Else
			   	CallScript ("\My Flash Disk\Sokobana\MortScript\changefile.mscr","\My Flash Disk\navigation\Skin480x272\PFDefines.skn","AverageSpeed",":",";","0,0,0,0")	 	   
			EndIf
			
			Backlight_Sokobana = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "Backlight_Sokobana", "Wert")
			If ( Backlight_Sokobana ne "" )
			   RegWriteDWord ("HKCU", "Software\sokobana", "Backlight", Backlight_Sokobana )
			EndIf		
			
			Backlight_3Soft = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "Backlight_3Soft", "Wert")
			If ( Backlight_3Soft ne "" )
			   RegWriteDWord ("HKCU", "Software\3Soft\Pathfinder\PowerManagement\Backlight", "ACBrightness", Backlight_3Soft )
			EndIf		
			
			BacklightCurrentLevel = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "BacklightCurrentLevel", "Wert")
			If ( BacklightCurrentLevel ne "" )
			   RegWriteDWord ("HKCU", "ControlPanel\backlight", "BacklightCurrentLevel", BacklightCurrentLevel)
			EndIf		

			BorderLR = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "BorderLR", "Wert")
			If ( BorderLR ne "" )
			   RegWriteDWord ("HKCU", "Software\sokobana", "BorderLR", BorderLR)
			EndIf		
			
			BorderMode = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "BorderMode", "Wert")
			If ( BorderMode ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "BorderMode", BorderMode)
			   If ( BorderMode = 0 )
			   CallScript ("\My Flash Disk\Sokobana\MortScript\bb.mscr")
			   EndIf
			   If ( BorderMode = 1 )
			   CallScript ("\My Flash Disk\Sokobana\MortScript\bbt.mscr")
			   EndIf
			   If ( BorderMode = 2 )
			   CallScript ("\My Flash Disk\Sokobana\MortScript\bbtt.mscr")
			   EndIf
			EndIf		

			BSPreset = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "BSPreset", "Wert")
			If ( BSPreset ne "" )
			   RegWriteDWord ("HKCU", "Software\sokobana", "BSPreset", BSPreset)
			   If ( BSPreset = 0 )
			   Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\weiss_auto.png","\My Flash Disk\Navigation\skin480x272\PPSkin\bs_preset.png",1)
			   EndIf
			   If ( BSPreset = 1 )
			   Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\weiss_200.png","\My Flash Disk\Navigation\skin480x272\PPSkin\bs_preset.png",1)
			   EndIf
			   If ( BSPreset = 2 )
			   Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\weiss_500.png","\My Flash Disk\Navigation\skin480x272\PPSkin\bs_preset.png",1)
			   EndIf
			EndIf					

			CurrentCom = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "CurrentCom", "Wert")
			If ( CurrentCom ne "" )
			   RegWriteDWORD ("HKCU", "Software\sokobana", "CurrentCom", CurrentCom)
			EndIf

			Design = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "Design", "Wert")
			If ( Design ne "" )
			   RegWriteDWord ("HKCU", "Software\3SOFT\Pathfinder\MapConfig", "Design", Design)
			EndIf		
			
			DynamicMode = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "DynamicMode", "Wert")
			If ( DynamicMode ne "" )
			   RegWriteDWord ("HKCU", "Software\3Soft\Pathfinder\RouteOptions", "DynamicMode", DynamicMode)
			EndIf						
			
			GYRO = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "GYRO", "Wert")
			If ( GYRO ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "GYRO", GYRO)
			   Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\brsr.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\button_route_simulation2.png",1)
				 Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\gyro-yes.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\gyro.png",1)
			EndIf		

			GLOPUSSTART = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "GLOPUSSTART", "Wert")
			If ( GLOPUSSTART ne "" )
			   RegWriteDWord ("HKCU", "Software\sokobana", "GLOPUSSTART", GLOPUSSTART)
			EndIf		

			GYROQC = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "GYROQC", "Wert")
			If ( GYROQC ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "GYROQC", GYROQC)
			EndIf		
			
			FB = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "FB", "Wert")
			If ( FB ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "FB", FB)
			EndIf			
			
			FixZoom = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "FixZoom", "Wert")
			If ( FixZoom ne "" )
			   RegWriteDWord ("HKCU", "Software\sokobana", "FixZoom", FixZoom)
			EndIf					
			
			GYRODELAY = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "GYRODELAY", "Wert")
			If ( GYRODELAY ne "" )
			   RegWriteDWord ("HKCU", "Software\sokobana", "GYRODELAY", GYRODELAY)
			EndIf

			KLICK1 = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "KLICK1", "Wert")
			If ( KLICK1 ne "" )
			   RegWriteDWord ("HKCU", "ControlPanel\Volume", "Key", KLICK1)
			EndIf

			KLICK2 = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "KLICK2", "Wert")
			If ( KLICK2 ne "" )
			   RegWriteDWord ("HKCU", "ControlPanel\Volume", "Screen", KLICK2)
			EndIf
			
			Map3D = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "Map3D", "Wert")
			If ( Map3D ne "" )
			   RegWriteDWord ("HKCU", "Software\sokobana", "Map3D", Map3D)
			EndIf			

			MapMode = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "MapMode", "Wert")
			If ( MapMode ne "" )
			   RegWriteDWord ("HKCU", "Software\sokobana", "MapMode", MapMode)
			EndIf			

			POI = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "POI", "Wert")
			If ( POI ne "" )
			   RegWriteDWord ("HKCU", "Software\sokobana", "POI", POI)
    		 	   RunWait ("\My Flash Disk\Sokobana\MortScript\poi.exe")
			EndIf

			POIW = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "POIW", "Wert")
			If ( POIW ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "POIW", POIW)
			   If ( POIW = 1)
			   #	Xcopy ("\My Flash Disk\navigation\POIWarner GoPal-Edition\dstcom02.dll","\My Flash Disk\navigation\", 1)
			   #Else
			   #	Delete ("\My Flash Disk\navigation\dstcom02.dll")
			   EndIf
		  	EndIf
		  	
#			POIWARNER = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "POIWARNER", "Wert")
#			If ( POIWARNER ne "" )
#			   RegWriteString ("HKCU", "Software\sokobana", "POIWARNER", POIWARNER)
#			EndIf		  	
			
			RememberLED = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "RememberLED", "Wert")
			If ( RememberLED ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "RememberLED", RememberLED)
			   Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_gruen.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\RememberLED.png",1)
			   X = (RegRead ("HKCU","Software\sokobana", "Backlight"))
			   RegWriteDWord ("HKCU","Software\3SOFT\Pathfinder\PowerManagement\Backlight", "ACBrightness", X )
			   X = 0
			Else
			   Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_rot.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\RememberLED.png",1)
			EndIf
			
			RememberSLT = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "RememberSLT", "Wert")
			If ( RememberSLT ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "RememberSLT", RememberSLT)
			   Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\slt.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\speed_limit_sign2.png",1)
			Else
			   Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\sl.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\speed_limit_sign2.png",1)
			EndIf			
			
			ROADICONS = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "ROADICONS", "Wert")
			If ( ROADICONS ne "" )
			   RegWriteDWord ("HKCU", "Software\sokobana", "ROADICONS", ROADICONS)
			   CallScript ("\My Flash Disk\Sokobana\MortScript\changefile.mscr","\My Flash Disk\Sokobana\MortScript\1_start.txt","32:"," ",",BOLD;","rial," & ROADICONS)
			EndIf		
			
			RushHour_Auto = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "RushHour", "Auto")
			If ( RushHour_Auto ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "RushHour_Auto", RushHour_Auto)
			   Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_gruen.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\RushHourLED.png",1)
			Else
			   Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_rot.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\RushHourLED.png",1)
			EndIf	
			
			RushHour_Start1 = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "RushHour", "Start1")
			If ( RushHour_Start1 ne "" )
			   RegWriteDWord ("HKCU", "Software\sokobana", "RushHour_Start1", RushHour_Start1)
			EndIf												

			RushHour_Stop1 = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "RushHour", "Stop1")
			If ( RushHour_Stop1 ne "" )
			   RegWriteDWord ("HKCU", "Software\sokobana", "RushHour_Stop1", RushHour_Stop1)
			EndIf												

			RushHour_Start2 = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "RushHour", "Start2")
			If ( RushHour_Start2 ne "" )
			   RegWriteDWord ("HKCU", "Software\sokobana", "RushHour_Start2", RushHour_Start2)
			EndIf												

			RushHour_Stop2 = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "RushHour", "Stop2")
			If ( RushHour_Stop2 ne "" )
			   RegWriteDWord ("HKCU", "Software\sokobana", "RushHour_Stop2", RushHour_Stop2)
			EndIf		

			RushHour_Tag = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "RushHour", "Tag")
			If ( RushHour_Tag ne "" )
			   RegWriteDWord ("HKCU", "Software\sokobana", "RushHour_Tag", RushHour_Tag)
			EndIf	

			SATTIME = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "SATTIME", "Wert")
			If ( SATTIME ne "" )
			   RegWriteDWord ("HKCU", "Software\sokobana", "SATTIME", SATTIME)
			EndIf	

			SATTURBO = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "SATTURBO", "Wert")
			If ( SATTURBO ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "SATTURBO", SATTURBO)
			EndIf									

			SetMem = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "SetMem", "Wert")
			If ( SetMem ne "" )
				RegWriteDWord ("HKCU", "Software\sokobana", "SetMem", SetMem)
				If ( SetMem eq 1000 )
					Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\sysmem_60.png","\My Flash Disk\Navigation\skin480x272\PPSkin\sysmem.png",1)
				EndIf
				If ( SetMem eq 2000 )
					Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\sysmem_59.png","\My Flash Disk\Navigation\skin480x272\PPSkin\sysmem.png",1)
				EndIf
				If ( SetMem eq 3000 )
					Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\sysmem_58.png","\My Flash Disk\Navigation\skin480x272\PPSkin\sysmem.png",1)
				EndIf				
			EndIf
			
			SPP = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "SPP", "Wert")
			If ( SPP ne "" )
			   RegWriteDWord ("HKCU", "Software\sokobana", "SPP", SPP)
			   CallScript ("\My Flash Disk\Sokobana\MortScript\spp.mscr")
			EndIf

			Staerke_Sonnenbrille = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "Staerke_Sonnenbrille", "Wert")
			If ( Staerke_Sonnebrille ne "" )
				 RegWriteString ("HKCU", "Software\sokobana", "Staerke_Sonnenbrille", Staerke_Sonnenbrille)			   			
			   CallScript ("\My Flash Disk\Sokobana\MortScript\changefile.mscr","\My Flash Disk\navigation\Skin480x272\PFDefines.skn","NightDay",":",";","0,0,0," & Staerke_Sonnebrille)
			EndIf		

			Staerke_Abbiegehinweis = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "Staerke_Abbiegehinweis", "Wert")
			If ( Staerke_Abbiegehinweis ne "" )
				 RegWriteString ("HKCU", "Software\sokobana", "Staerke_Abbiegehinweis", Staerke_Abbiegehinweis)			   			
			   CallScript ("\My Flash Disk\Sokobana\MortScript\changefile.mscr","\My Flash Disk\navigation\Skin480x272\PFDefines.skn","SoBrille",":",";","0,0,0," & Staerke_Abbiegehinweis)
			EndIf					
			
			TelMode = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "TelMode", "Wert")
			If ( TelMode ne "" )
				 RegWriteDWord ("HKCU", "Software\sokobana", "TelMode", TelMode)			   			
				 If (TelMode=1)
					Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_gruen.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\TelMode.png",1)
				 Else
				 	Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_rot.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\TelMode.png",1)
				 EndIf
			EndIf		

			TMC_0 = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "TMC_0", "Wert")
			If ( TMC_0 ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "TMC_0", TMC_0)
			   RegWriteString ("HKCU","Software\sokobana", "XTMC_0", "1")
			   CallScript ("\My Flash Disk\Sokobana\MortScript\tmc.mscr")
			EndIf

			TMC_1 = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "TMC_1", "Wert")
			If ( TMC_1 ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "TMC_1", TMC_1)
			   RegWriteString ("HKCU","Software\sokobana", "XTMC_1", "1")			   
			   CallScript ("\My Flash Disk\Sokobana\MortScript\tmc.mscr")			   
			EndIf		

			TMC_2 = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "TMC_2", "Wert")
			If ( TMC_2 ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "TMC_2", TMC_2)
			   RegWriteString ("HKCU","Software\sokobana", "XTMC_2", "1")			   
			   CallScript ("\My Flash Disk\Sokobana\MortScript\tmc.mscr")			   
			EndIf					

			TMC_3 = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "TMC_3", "Wert")
			If ( TMC_3 ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "TMC_3", TMC_3)
			   RegWriteString ("HKCU","Software\sokobana", "XTMC_3", "1")			   
			   CallScript ("\My Flash Disk\Sokobana\MortScript\tmc.mscr")					   
			EndIf		

			TMCAutoMode = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "TMCAutoMode", "Wert")
			If ( TMCAutoMode ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "TMCAutoMode", TMCAutoMode)
			EndIf		

			TMCManuMode = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "TMCManuMode", "Wert")
			If ( TMCManuMode ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "TMCManuMode", TMCManuMode)
			EndIf		

			TUNNEL = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "TUNNEL", "Wert")
			If ( TUNNEL ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "TUNNEL", TUNNEL)
			EndIf		

			VetoMode = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "VetoMode", "Wert")
			If ( VetoMode ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "VetoMode", VetoMode)
			   Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\tw_veto.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\traffic_warning2.png",1)
	       		   Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_gruen.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\veto_mode.png",1)
			   #Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\tmc_modemap_3.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\tmc_modemap.png",1)
			   #Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\traffic_jam_bypass_veto.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\traffic_jam_bypass.png",1)

			Else
			   Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\tw_no_veto.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\traffic_warning2.png",1)
			   Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_rot.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\veto_mode.png",1)	
			   #Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\tmc_modemap_2.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\tmc_modemap.png",1)
			   #Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\traffic_jam_bypass_manu.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\traffic_jam_bypass.png",1)
  	  		EndIf

			VOLDELAY = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "VOLDELAY", "Wert")
			If ( VOLDELAY ne "" )
			   RegWriteDWord ("HKCU", "Software\sokobana", "VOLDELAY", VOLDELAY)
			EndIf		

			VSDauerInfo = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "VSDauerInfo", "Wert")
			If ( VSDauerInfo ne "" )
			   RegWriteString ("HKCU", "Software\sokobana", "VSDauerInfo", "1")
			EndIf	
	
			ZOOMWARNING = IniRead ("\Storage Card\backupV3\" &ini& ".ini", "ZOOMWARNING", "Wert")
			If ( ZOOMWARNING ne "" )
				 RegWriteString ("HKCU", "Software\sokobana", "ZOOMWARNING", ZOOMWARNING)			   			
					Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_gruen.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\zoom_warning.png",1)
				 Else
				 	Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_rot.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\zoom_warning.png",1)
			EndIf					

			If (FileExists ("\My Flash Disk\Sokobana\MortScript\MSDefines.mscr"))
				CallScript ("\My Flash Disk\Sokobana\MortScript\MSDefines.mscr")
			Else
				Message( "MSDefines.mscr fehlt!" )
			EndIf
	
			Set MYSLEEP, "300"
			Set HANDYBACKUP, %BACKUP_PFAD_V3%&"\handy.zip"
			If (fileExists(%HANDYBACKUP%))
				If (FileSize (%HANDYBACKUP%) > 30)
					freespace1 = 1
					freespace2 = 2
	
					# Restore Handy-Daten
					ErrorLevel("warn")
					UnzipAll(%HANDYBACKUP%,"\\")
					While (%freespace1% <> %freespace2%)
						freespace1 = FreeDiskSpace("\")
						sleep %MYSLEEP%
						freespace2 = FreeDiskSpace("\")
					EndWhile
				EndIf
			EndIf

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

	# --- Glopus -------edit-by-athos------------------------------------------

	If (FileExists ( "\Storage Card\BackupV3\Glopusreg.ini" ) OR FileExists ( "\Storage Card\BackupV3\GlopusregStandart.ini" ))
		Runwait( "\My Flash Disk\Sokobana\MortScript2\MortScript.exe", """\My Flash Disk\Sokobana\MortScript2\GloRegRestore.mscr")
	EndIf
	LastActivPreset = ( RegRead ("HKCU","Software\PkSoft\GpsLog\GloGo", "LastActivPreset") )
	If ( ini eq "bike" )
		If FileExists ( "\My Flash Disk\Sokobana\MortScript\BikeInfo.ini" )
   				Copy ("\My Flash Disk\Sokobana\MortScript\BikeInfo.ini","\My Flash Disk\Navigation\MNInfo.ini",1) 
		EndIf
	Else
		If (LastActivPreset > 0)
			If FileExists ( "\My Flash Disk\Programme\Glopus\MNInfo_Preset"&LastActivPreset&".ini" )		
				copy ("\My Flash Disk\Programme\Glopus\MNInfo_Preset"&LastActivPreset&".ini", "\My Flash Disk\Navigation\MNInfo.ini",1 )		
			else
				If FileExists ( "\Storage Card\BackupV3\glopus.zip" )
					MkDir( "\Storage Card\TempGlopus" )
					UnzipAll( "\Storage Card\BackupV3\glopus.zip", "\Storage Card\TempGlopus" )
					copy ("\Storage Card\TempGlopus\My Flash Disk\Programme\Glopus\MNInfo_Preset"&LastActivPreset&".ini", "\My Flash Disk\Navigation\MNInfo.ini",1 )
					DelTree( "\Storage Card\TempGlopus" )
			
				EndIf
			EndIf
		else
			If FileExists ( "\My Flash Disk\Sokobana\MortScript\DummyMNInfo.ini" )
   				Copy ("\My Flash Disk\Sokobana\MortScript\DummyMNInfo.ini","\My Flash Disk\Navigation\MNInfo.ini",1) 
			EndIf
		EndIf
	EndIf	
	


	
	# --- Virtueller ComPort --- Sokobana --------------------------------------------------------

	CurrentCom = ( RegRead ("HKCU","Software\sokobana", "CurrentCom") )

	Switch ( CurrentCom )

	# Serilot
	Case ( 1 )
		RegWriteDWord ("HKCU","Software\sokobana", "GopalGPS", 5)

		Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_gruen.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\auto_serilot.png",1)	
		Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_rot.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\auto_virtcom.png",1)		
		Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\serilot.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\show_com.png",1)	
		
		If FileExists ( "\Storage Card\Programme\Serilot\serilot_config.cab" )
			If (NOT FileExists ("\Windows\StartUp\sokobana_service.lnk"))
				RunWait( "\Windows\wceload.exe","/noaskdest /delete 0 ""\Storage Card\Programme\Serilot\serilot_config.cab""" )
				Sleep ( 3000 )
			EndIf
		Else
			RegWriteDWORD ("HKCU","Software\sokobana", "CurrentCom", 0 )
			IniWrite ("\Storage Card\backupV3\user.ini", "CurrentCom", "Wert", RegRead("HKCU", "Software\sokobana", "CurrentCom"))		
			PlaySound ("\My Flash Disk\Sokobana\MortScript\hardreset.wav")
			Message( "serilot_config.cab fehlt! Erneuter HR jetzt erforderlich!" )
		EndIf

		# --- Serilot-Registrierung einfügen ---
		If FileExists ( "\Storage Card\Programme\Serilot\SERILOT.txt" )
			Copy ("\Storage Card\Programme\Serilot\SERILOT.txt","\Windows\SERILOT.txt",1)
		EndIf

	# VirtCom
	Case ( 2 )
		RegWriteDWord ("HKCU","Software\sokobana", "GopalGPS", 5)

		Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_gruen.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\auto_virtcom.png",1)	
		Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_rot.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\auto_serilot.png",1)	
		Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\virtcom.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\show_com.png",1)

		If FileExists ( "\Storage Card\Programme\VirtCom\virtcom_config.cab" )
			If (NOT FileExists ("\Windows\StartUp\sokobana_service.lnk"))
				RunWait( "\Windows\wceload.exe","/noaskdest /delete 0 ""\Storage Card\Programme\VirtCom\virtcom_config.cab""" )
				Sleep ( 3000 )
			EndIf
		Else
			RegWriteDWORD ("HKCU","Software\sokobana", "CurrentCom", 0 )
			IniWrite ("\Storage Card\backupV3\user.ini", "CurrentCom", "Wert", RegRead("HKCU", "Software\sokobana", "CurrentCom"))		
			PlaySound ("\My Flash Disk\Sokobana\MortScript\hardreset.wav")
			Message( "virtcom_config.cab fehlt! Erneuter HR jetzt erforderlich!" )
		EndIf

		# --- VirtCom-Dateien einfügen ---

		If FileExists ( "\Storage Card\Programme\VirtCom\VirtComNG.dll" )
			Copy ( "\Storage Card\Programme\VirtCom\VirtComNG.dll","\Windows\VirtComNG.dll",1)
		Else
			RegWriteDWORD ("HKCU","Software\sokobana", "CurrentCom", 0 )
			IniWrite ("\Storage Card\backupV3\user.ini", "CurrentCom", "Wert", RegRead("HKCU", "Software\sokobana", "CurrentCom"))		
			PlaySound ("\My Flash Disk\Sokobana\MortScript\hardreset.wav")
			Message( "VirtComNG.dll fehlt! Erneuter HR jetzt erforderlich!" )
		EndIf
		If FileExists ( "\Storage Card\Programme\VirtCom\VirtComMgr.exe" )
			Copy ( "\Storage Card\Programme\VirtCom\VirtComMgr.exe","\VirtComMgr.exe",1)
		Else
			RegWriteDWORD ("HKCU","Software\sokobana", "CurrentCom", 0 )
			IniWrite ("\Storage Card\backupV3\user.ini", "CurrentCom", "Wert", RegRead("HKCU", "Software\sokobana", "CurrentCom"))		
			PlaySound ("\My Flash Disk\Sokobana\MortScript\hardreset.wav")
			Message( "VirtComMgr.exe fehlt! Erneuter HR jetzt erforderlich!" )
		EndIf

	# kein Port-Splitter
	Case ( 0 )
		RegWriteDWord ("HKCU","Software\sokobana", "GopalGPS", 2)

		Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_rot.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\auto_virtcom.png",1)
		Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_rot.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\auto_serilot.png",1)	
		Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\com2_synchron.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\show_com.png",1)	

	EndSwitch
			
# --- Glopus ------------------------------------------------------

#	If ( ini eq "bike" )
#		If FileExists ( "\My Flash Disk\Sokobana\MortScript\BikeInfo.ini" )
#   				Copy ("\My Flash Disk\Sokobana\MortScript\BikeInfo.ini","\My Flash Disk\Navigation\MNInfo.ini",1) 
#		EndIf
#	Else
#		If FileExists ( "\My Flash Disk\Sokobana\MortScript\DummyMNInfo.ini" )
#  				Copy ("\My Flash Disk\Sokobana\MortScript\DummyMNInfo.ini","\My Flash Disk\Navigation\MNInfo.ini",1) 
#		EndIf
#	EndIf

# --- Auto-Repair --- added by sokobana -------------------------------------------------

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

	If (RegValueExists ("HKCU", "Software\sokobana", "AUTOREPAIR")) 

		If ( NOT FileExists ("\Windows\StartUp\sokobana_service.lnk"))
		
			# --- FF-AutoRepair ---

			If (FileExists ("\My Flash Disk\Sokobana\MortScript\firstinstall.txt"))
				RunWait ("\My Flash Disk\Sokobana\koord2\koord465.exe", "window=0 copy=\Storage Card\AutoRepair\Formatflash||3")
			EndIf

			# --- HR-AutoRepair ---

			RunWait ("\My Flash Disk\Sokobana\koord2\koord465.exe", "window=0 copy=\Storage Card\AutoRepair\Hardreset||3")

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

			# --- HR-Scripte ---

			ForEach Script in files ( "\Storage Card\AutoRepair\HRScripts\*.mscr" )
				CallScript ( %Script% )
			EndForEach			
			
		EndIf
	EndIf

# --- Zurücksetzen des Storage-Memorys ---------------------------------------------------------

Run (%KOORD_PFAD%, "window=0 SetMem="&%STANDARD_SPEICHER%)
			
RegDelete ("HKCU", "Software\sokobana", "INIT")

If (FileExists ("\My Flash Disk\Sokobana\MortScript\firstinstall.txt"))
	Delete ("\My Flash Disk\Sokobana\MortScript\firstinstall.txt")
EndIf