################################################
###                                          ###
#######         Start from Menu          #######
###                                          ###
#######                                  #######
###         (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 4.1 vom 21.1.2010 
ErrorLevel ("syntax")


NoRouteData = 0

# --- HR-Erkennung -----------------------------------------------------------------

If ( NOT FileExists ("\Windows\StartUp\sokobana_service.lnk"))
	
	# --- Auto-Registrierung für MortScript ---
	if ( WndExists ( "USB" ))
		Sleep ( 3000 )
	endif
	Run("\My Flash Disk\Sokobana\MortScript\MortScript.exe")
	SetVolume ( 150 )
	PlaySound ("\My Flash Disk\Sokobana\MortScript\hardreset_ok.wav")
	SetVolume ( 255 )
	SendOK("MortScript")
	
	RunWait ( "\My Flash Disk\Sokobana\MortScript\bt_sprache.exe" )
	RegWriteString ("HKCU","Software\sokobana", "AUTORESET", "1")

# ---------- Neu -----------------------------------------------------------
	menuexist = 3
	While 	(menuexist > 0)
		if	(ProcExists( "SystemInformation.exe") )
			menuexist = menuexist - 1
		endif
		if	( WndExists ( "Menu" ))
			menuexist = menuexist - 1
		endif
		
		Sleep ( 1000 )
	EndWhile
	If not ( WndExists ("Settings"))
		If WndExists ("Menu")
			Close ( "Menu" )
			Sleep ( 2000 )
		EndIf

		if (ProcExists( "SystemInformation.exe") )
			kill ("SystemInformation.exe")
		EndIf
		CallScript ( "\My Flash Disk\Sokobana\MortScript\standard_parameter.mscr","USER")
	EndIf
	
else 

# --- Storage Card2-Fehler --- PrinzEmu ---------------------------------------

     If (NOT DirExists("\Storage Card"))
		SetVolume ( RegRead ("HKCU","Software\sokobana", "VOLDELAY") )
		PlaySound ("\My Flash Disk\Sokobana\MortScript\kartenfehler.wav")
		SetVolume ( 255 )
		Sleep ( 1000 )
		
		RunWait ("\My Flash Disk\Sokobana\MortScript\sokobana_auto_restart.mscr")
     EndIf		

# --- Gopal wieder in den Vordergrund holen ----------------------------------------

     If WndExists ("GoPal Navigator")
	Show ( "GoPal Navigator" )
     else

# --- Gopalstart vorbereiten -------------------------------------------------------

	While (ProcExists ("sokobana_service.exe"))
		Sleep ( 1000 )
	EndWhile

	

	#If (ProcExists ("run_nogyro.exe"))
	#	KillScript ("run_nogyro.mscr")
	#EndIf

	# --- POI-Warner Autostart --------------------------------------


	# Variablen
		If (FileExists ("\My Flash Disk\Sokobana\MortScript\MSDefines.mscr"))
			CallScript ("\My Flash Disk\Sokobana\MortScript\MSDefines.mscr")
		Else
			Message( "MSDefines.mscr fehlt!" )
		EndIf

	POIWARNER = RegRead ("HKCU", "Software\sokobana", "POIWARNER")
	
	If ( ( FileExists (%POIWARNER% & "\poiwarner.exe")) OR ( FileExists (%POIWARNER% & "\poi-warner.exe")))
		
		If ( RegValueExists ("HKCU", "Software\sokobana", "POIW"))
			RegWriteString ("HKCU","Software\sokobana", "POIWEIN", "1") 
			If ( FileExists ( %POIWARNER% & "\poiwarner.exe"))
				rename ( %POIWARNER% & "\poiwarner.exe",  %POIWARNER% & "\poi-warner.exe")
			EndIf
		Else
			If ( FileExists ( %POIWARNER% & "\poiwarner.exe"))
				rename ( %POIWARNER% & "\poiwarner.exe", %POIWARNER% & "\poi-warner.exe")
			EndIf
		EndIf
	

		# --- Blitzersymbole umschalten (nur nach Sync etc.)

		GetPOIW = 0
		BLITZER = IniRead ("\Storage Card\BackupV3\blitzer.ini", "BLITZER", "Wert")
		If ( BLITZER > 0 )
			
			
			If (FileExists ( %POIWARNER% & "\pois\D°Blitzer°fest°50kmh.bmp"))
				If ( FileSize( %POIWARNER% & "\pois\D°Blitzer°fest°50kmh.bmp") < 2000 )
					GetPOIW = 1
				EndIf
			EndIf
			If (FileExists ( %POIWARNER% & "\pois\D Blitzer fest 50kmh.bmp"))
				If ( FileSize( %POIWARNER% & "\pois\D Blitzer fest 50kmh.bmp") < 2000 )
					GetPOIW = 1
				EndIf
			EndIf	
			If (FileExists ( %POIWARNER% & "\pois\A°Blitzer°fest°50kmh.bmp"))
				If ( FileSize( %POIWARNER% & "\pois\A°Blitzer°fest°50kmh.bmp") < 2000 )
					GetPOIW = 1
				EndIf
			EndIf 
			If (FileExists ( %POIWARNER% & "\pois\A Blitzer fest 50kmh.bmp"))
				If ( FileSize( %POIWARNER% & "\pois\A Blitzer fest 50kmh.bmp") < 2000 )
					GetPOIW = 1
				EndIf
			EndIf 
			If (FileExists ( %POIWARNER% & "\pois\CH Blitzer fest 50kmh.bmp"))
				If ( FileSize( %POIWARNER% & "\pois\CH Blitzer fest 50kmh.bmp") < 2000 )
					GetPOIW = 1
				EndIf
			EndIf 
			If (FileExists ( %POIWARNER% & "\pois\CH°Blitzer°fest°50kmh.bmp"))
				If ( FileSize( %POIWARNER% & "\pois\CH°Blitzer°fest°50kmh.bmp") < 2000 )
					GetPOIW = 1
				EndIf
			EndIf

			If ( GetPOIW = 1 )
				RunWait ("\My Flash Disk\Sokobana\MortScript\poiw_einstellungen.exe")
			EndIf
		EndIf
	EndIf		

	# --- Fehlende FAVORITEN / Tourplan.xml --- sokobana ---------------------------------------------

		If ( RegValueExists ("HKCU", "Software\sokobana", "AUTOBACKUP"))
			If ( NOT FileExists ("\My Flash Disk\settings\Navigation\pf.cdb") )
				SetVolume ( RegRead ("HKCU","Software\sokobana", "VOLDELAY") )
				PlaySound ("\My Flash Disk\Sokobana\MortScript\db_fehlt.wav")
				SetVolume ( 255 )
				If ( FileExists ("\Storage Card\BackupV3\fav.zip") )
					CallScript ("\My Flash Disk\Sokobana\MortScript\restore.mscr","FAV")
				Else
					If ( FileExists ("\Storage Card\BackupV3\fav.zip.old") )
						Rename("\Storage Card\BackupV3\fav.zip.old","\Storage Card\BackupV3\fav.zip",1)
						CallScript ("\My Flash Disk\Sokobana\MortScript\restore.mscr","FAV")
					Else
						NoRouteData = 1
					EndIf
				EndIf
			EndIf
		EndIf

		If ( NOT FileExists ("\My Flash Disk\settings\Navigation\tourplan.xml") )
			If (FileExists ("\Storage Card\BackupV3\tourplan.xml"))	
				Copy ("\Storage Card\BackupV3\tourplan.xml","\My Flash Disk\settings\Navigation\tourplan.xml",1)
			EndIf
		EndIf	

	# --- Telefonbuch installiert? --- PrinzEmu --------------------------------------------

		If (FileExists ("\My Flash Disk\Navigation\multimedia\TelephoneBook\480x272\TelephoneBook.exe"))
			If NOT (RegValueExists ("HKCU", "Software\sokobana", "TVG"))
				RegWriteString ("HKCU","Software\sokobana", "TVG", "\My Flash Disk\navigation\multimedia\TelephoneBook\480X272\TelephoneBook.exe")
			EndIf
		Else
			If (RegValueExists ("HKCU", "Software\sokobana", "TVG"))
				RegDelete ("HKCU", "Software\sokobana", "TVG")
			EndIf
		EndIf
	
	# --- Glopus --- PrinzEmu -------------------------------------------------
		GLOPUSSTART = 0
		GLOPUSSTART = RegRead ("HKCU","Software\sokobana", "GLOPUSSTART")
		# ---- Glopus installiert? --------------------------------------------------------------------------
		If NOT ( FileExists (%GLOPUS%)) 
			Copy( "\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_rot.png", "\My Flash Disk\Navigation\Skin480x272\PPSkin\glopus_autostart.png", 1 )
		EndIf
		If ( GLOPUSSTART < 1 )
			Copy( "\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_rot.png", "\My Flash Disk\Navigation\Skin480x272\PPSkin\glopus_autostart.png", 1 )
		Else
			Copy( "\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_gruen.png", "\My Flash Disk\Navigation\Skin480x272\PPSkin\glopus_autostart.png", 1 )
		EndIf
		
		# --- Tracking ----

		WriteLog = RegRead ( "HKCU", "Software\PkSoft\GpsLog", "WriteLog")
		If ( WriteLog eq "01" )
			RegWriteBinary( "HKCU", "Software\PkSoft\GpsLog", "WriteLog","01")
			Copy( "\My Flash Disk\Navigation\Skin480x272\PPSkin\tracking.png", "\My Flash Disk\Navigation\Skin480x272\PPSkin\glopus.png", 1 )
		Else
			RegWriteBinary( "HKCU", "Software\PkSoft\GpsLog", "WriteLog","00")
			Copy( "\My Flash Disk\Navigation\Skin480x272\PPSkin\no_tracking.png", "\My Flash Disk\Navigation\Skin480x272\PPSkin\glopus.png", 1 )
		EndIf
		Copy( "\My Flash Disk\Navigation\Skin480x272\PPSkin\no_tracking.png", "\My Flash Disk\Navigation\Skin480x272\PPSkin\koord.png", 1 )

	# --- Status Fernbedienung ? --- PrinzEmu -----------------------------------------------

		If  (RegValueExists ("HKLM", "Software\GNS\Gnsx10Ctrl", "ID"))
			ID = RegRead ("HKLM", "Software\GNS\Gnsx10Ctrl", "ID")
			If (ID = 240)
				If  (RegValueExists ("HKCU", "Software\sokobana", "FB"))
					RegDelete ("HKCU", "Software\sokobana", "FB")
				EndIf
			EndIf
		  	If (ID = 241)
				RegWriteString ("HKCU", "Software\sokobana", "FB", "1")
		  	EndIf
		EndIf



	# --- Veto-Mode --- sokobana --------------------------------------------------------------

		If ( RegValueExists ("HKCU", "Software\sokobana", "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)
		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)	
		EndIf

		Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\Function_button_80.png","\My Flash Disk\Navigation\skin480x272\PPSkin\Function_button_80_RVM1.png",1)
		Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\Function_button_80.png","\My Flash Disk\Navigation\skin480x272\PPSkin\Function_button_80_RVM2.png",1)

		If NOT (RegValueExists ("HKCU","Software\sokobana", "FixZoom"))
			RegWriteDWord ("HKCU","Software\sokobana", "FixZoom", 1)
		EndIf

		# --- (altes) RouteView und Veto! löschen -----------------------------

		RegDeleteKey ("HKCU", "Software\sokobana\RouteView", "1", "1")
		RegDeleteKey ("HKCU", "Software\sokobana\Veto", "1", "1")
		RegDeleteKey ("HKCU", "Software\sokobana\VetoView", "1", "1")

		If (RegValueExists ("HKCU","Software\sokobana", "VetoView3"))
			RegDelete ("HKCU","Software\sokobana", "VetoView3")
		EndIf
		If (NOT DirExists ("\My Flash Disk\Sokobana\koord2\Veto\Screen"))
			MkDir ("\My Flash Disk\Sokobana\koord2\Veto\Screen")
		EndIf
		If (NOT DirExists ("\My Flash Disk\Sokobana\koord2\View_3\Screen"))
			MkDir ("\My Flash Disk\Sokobana\koord2\View_3\Screen")
		EndIf
		If ( RegValueExists ("HKCU", "Software\sokobana", "VSDauerInfo" ) ) 
			Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_gruen.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\vs_dauer_info.png",1)
		Else
			Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_rot.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\vs_dauer_info.png",1)
		EndIf
		If ( RegValueExists ("HKCU", "Software\sokobana", "TMCReRoute" ) ) 
			Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_gruen.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\reroute.png",1)
		Else
			Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_rot.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\reroute.png",1)
		EndIf
		RegWriteDWord ("HKCU","Software\sokobana", "Map3D", 0)

	
	# --- MapMode --- sokobana -----------------------------------------------------------------

		If NOT (RegValueExists ("HKCU","Software\sokobana", "MapMode"))
			RegWriteDWord ("HKCU","Software\sokobana", "MapMode", 3)
		EndIf

		MapMode = ( RegRead ("HKCU", "Software\sokobana", "MapMode" ) )
		If ( MapMode = 1 )
			Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\no_3d.png","\My Flash Disk\Navigation\skin480x272\PPSkin\map3d.png",1)
		EndIf
		If ( MapMode = 2 )
			Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\prefer_3d.png","\My Flash Disk\Navigation\skin480x272\PPSkin\map3d.png",1)
		EndIf
		If ( MapMode = 3 )
			Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\auto_3d.png","\My Flash Disk\Navigation\skin480x272\PPSkin\map3d.png",1)
		EndIf
		If (RegValueExists ("HKCU", "Software\sokobana", "MOVEMAP"))
			RegDelete ("HKCU", "Software\sokobana", "MOVEMAP")
		EndIf
		If (RegValueExists ("HKCU", "Software\sokobana", "MOVMAPClose"))
		RegDelete ("HKCU", "Software\sokobana", "MOVMAPClose")
		EndIf
		If (RegValueExists ("HKCU", "Software\sokobana", "RememberMovMap"))
			RegDelete ("HKCU", "Software\sokobana", "RememberMovMap")
		EndIf
		If (RegValueExists ("HKCU", "Software\sokobana", "RememberAuto3D"))
			RegDelete ("HKCU", "Software\sokobana", "RememberAuto3D")
		EndIf
		Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\dummy.png","\My Flash Disk\Navigation\skin480x272\PPSkin\movemap.png",1)

	# --- TMC-Einstellungen - sokobana ---------------------------------------------------------------

		If ( RegValueExists ("HKCU","Software\sokobana", "TMCSimulation" ) )
			RegDelete ("HKCU", "Software\sokobana", "TMCSimulation")
		EndIf
		If ( RegValueExists ("HKCU","Software\sokobana", "TMCcom1_record" ) )
			RegDelete ("HKCU", "Software\sokobana", "TMCcom1_record")
		EndIf
		If (NOT RegValueExists ("HKCU", "Software\sokobana", "View3Tempo"))
			RegWriteDWord ("HKCU","Software\sokobana", "View3Tempo", 1)
		EndIf
		View3Tempo = ( RegRead ("HKCU", "Software\sokobana", "View3Tempo" ) )
		Switch ( View3Tempo )
		Case ( 1 )
			RegWriteDWord ("HKCU","Software\sokobana", "View3Tempo", 1)
			Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\RouteView_Mode_1.png","\My Flash Disk\Navigation\skin480x272\PPSkin\RouteView_Mode.png",1)
		Case ( 2 )
			RegWriteDWord ("HKCU","Software\sokobana", "View3Tempo", 2)
			Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\RouteView_Mode_2.png","\My Flash Disk\Navigation\skin480x272\PPSkin\RouteView_Mode.png",1)
		EndSwitch

		Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\Function_button_80.png","\My Flash Disk\Navigation\skin480x272\PPSkin\Function_button_80_RVM1.png;",1)
		Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\Function_button_80.png","\My Flash Disk\Navigation\skin480x272\PPSkin\Function_button_80_RVM2.png;",1)
			

	# --- Gyro QC --- sokobana -----------------------------------------------------------------------

		If (RegValueExists ("HKCU", "Software\sokobana", "GYROQC"))
			Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_gruen.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\gyro_qc.png",1)		
			Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\gps_signal_qc.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\gps_signal2.png",1)
		Else
			Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_rot.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\gyro_qc.png",1)
			Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\gps_signal_noqc.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\gps_signal2.png",1)		
	
		EndIf

	# --- Pause Simulation --- sokobana -----------------------------------------------------------------------

		If (RegValueExists ("HKCU", "Software\sokobana", "SimuPause"))
			RegDelete("HKCU","Software\sokobana","SimuPause")
		EndIf
		If NOT (RegValueExists ("HKCU", "Software\sokobana", "NoSimuPause"))
			RegWriteString ("HKCU","Software\sokobana", "NoSimuPause", "1")
			Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\brs_nsp.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\button_route_simulation2.png",1)		
		EndIf

	# --- TMC Simulation --- sokobana --------------------------------------

		If (NOT FileExists ("\My Documents\simulate.rds"))
			Copy ("\My Flash Disk\Sokobana\Reserve\simulate.rds","\My Documents\simulate.rds",1)
		EndIf		

	# --- RushHour Mode --- sokobana -----------------------------------------------------------------------

		If (RegValueExists ("HKCU", "Software\sokobana", "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

	# --- AudioCenter --- sokobana ------------------------------------------

		If (RegValueExists ("HKCU", "Software\sokobana", "AudioSync"))
			Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_gruen.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\AudioSync.png",1)
			AudioSync = 1
		Else
			Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_rot.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\AudioSync.png",1)
			AudioSync = 0
		EndIf
		TelMode = 0
		If (RegValueExists ("HKCU","Software\sokobana", "TelMode"))
			TelMode = RegRead ("HKCU","Software\sokobana", "TelMode")
			Copy ("\My Flash Disk\Sokobana\koord2\Audio\Sync\sync_" &AudioSync&TelMode& ".bmp","\My Flash Disk\Sokobana\koord2\Audio\AudioCenter.bmp",1)
		EndIf

	# --- andere Einstellungen -----------------------------------------------------------------------------

		DESIGNx = ( RegRead ("HKCU","Software\3Soft\Pathfinder\MapConfig", "Design") )
		If ( DESIGNx = 3 )
			RegWriteString ("HKCU","Software\sokobana", "NACHTDESIGN", "1")
		Else
			If (RegValueExists ("HKCU", "Software\sokobana", "NACHTDESIGN"))
				RegDelete("HKCU","Software\sokobana", "NACHTDESIGN")
			EndIf
		EndIf
		If ( RegValueExists ("HKCU","Software\sokobana", "LEDon" ) )
			Regdelete ("HKCU", "Software\sokobana", "LEDon" )
		Endif
		If ( RegValueExists ("HKCU","Software\sokobana", "LEDoff" ) )
			Regdelete ("HKCU", "Software\sokobana", "LEDoff" )
		Endif
		If ( RegValueExists ("HKCU","Software\sokobana", "LightCenter" ) )
			Regdelete ("HKCU", "Software\sokobana", "LightCenter" )
		Endif

		Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\uml_1.png","\My Flash Disk\Navigation\skin480x272\PPSkin\umleitung.png",1)
		
		RegWriteString ("HKCU","Software\sokobana", "TUNNEL", "0")
		RegWriteDWord ("HKCU", "Software\sokobana", "FirstLoop", "1")
		
		If ( NOT RegValueExists ("HKCU","Software\3SOFT\Pathfinder\RouteOptions","RouteOptimation"))
			RegWriteDWord( "HKCU","Software\3SOFT\Pathfinder\RouteOptions","RouteOptimation", 1 )
		EndIf
		# ---> früher CommonSettings ShowTrafficAlert
		If NOT (RegValueExists ("HKCU","Software\3SOFT\Pathfinder\RouteOptions", "DynamicMode"))
			RegWriteDWord ("HKCU","Software\3SOFT\Pathfinder\RouteOptions", "DynamicMode", 0)
		EndIf

	# --- AUTO-Sat-Turbo --- sokobana ---------------------------------------------------
		
		If  (RegValueExists ("HKCU", "Software\sokobana", "AUTOSATTURBO")) 
			If (RegValueExists ("HKCU", "Software\sokobana", "LASTSATTIME"))
				Time = TimeStamp()
				RegWriteDWord ("HKCU","Software\sokobana", "GOPALSTART", Time)	
				LastSatTime = RegRead ("HKCU","Software\sokobana", "LASTSATTIME")
				SatTime = RegRead ("HKCU","Software\sokobana", "SATTIME")
				If ( Time > ( LastSatTime + SatTime ))
					SetVolume ( RegRead ("HKCU","Software\sokobana", "VOLDELAY") )
					PlaySound ("\Windows\menusel.wav")
					SetVolume ( 255 )
					# Message ("Gopalstart: " & Time )
					# Message ("letzter SatKontakt: " & LastSatTime )
					# Message ("Verzögerung: " & SatTime )
					If NOT (RegValueExists ("HKCU", "Software\sokobana", "SATTURBO"))
						RegWriteString ("HKCU","Software\sokobana", "SATTURBO", "1")
					EndIf
				EndIf
			Else
				If (RegValueExists ("HKCU", "Software\sokobana", "AUTOSATTURBO"))
					RegWriteString ("HKCU","Software\sokobana", "SATTURBO", "1")
				EndIf			
			EndIf
		EndIf
	
# --- Gopal starten ---------------------------------------------------------------------------

		Run( "\My Flash Disk\Navigation\mnavdce.exe" )	
		Sleep ( 1500 )

		If NOT (RegValueExists ("HKCU", "Software\sokobana", "PleaseWait"))
			RegWriteString ("HKCU","Software\sokobana", "PleaseWait", "1")
		EndIf

	# --- Bike-Skin Abfrage --------------------------------------------------------
		If  (RegValueExists ("HKCU", "Software\sokobana", "SPP_9"))
			Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 RoRegKeys=65536")
		Else
			Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 RoRegKeys=32768")
		EndIf

	# --- Sat-Turbo --- sokobana -------------------------------------------------------

   		If (RegValueExists ("HKCU", "Software\sokobana", "SATTURBO") )
			
			If (RegValueExists ("HKCU", "Software\3SOFT\Pathfinder\Position", "LastValidDirection"))
				RegDelete ("HKCU", "Software\3SOFT\Pathfinder\Position", "LastValidDirection")
			EndIf

			If (RegValueExists ("HKCU", "Software\3SOFT\Pathfinder\Position", "LastValidMercatorX"))
				RegDelete ("HKCU", "Software\3SOFT\Pathfinder\Position", "LastValidMercatorX")
			EndIf

			If (RegValueExists ("HKCU", "Software\3SOFT\Pathfinder\Position", "LastValidMercatorY"))
				RegDelete ("HKCU", "Software\3SOFT\Pathfinder\Position", "LastValidMercatorY")
				
				SetVolume ( RegRead ("HKCU","Software\sokobana", "VOLDELAY") )
				PlaySound ("\My Flash Disk\Sokobana\MortScript\satturbo.wav")
				SetVolume (255)
			EndIf
			RegDelete ("HKCU", "Software\sokobana", "SATTURBO")
		EndIf

	# --- Neues Startmanagement --- sokobana ------------------------------------------------------------

		nomap = 0
		# NoRouteData = 0
		RemStVO = 0
		farbe479 = ColorAt (479,0)

	While ( farbe479 ne 255 ) 


	# --- DRM-Restore --- sokobana ------------------------------------------------------------

		GetDRM = ColorAt (0,50)
		If ( GetDRM = 255 )
			RegWriteString ("HKCU","Software\sokobana", "DRMMemo", "1")
			SetVolume ( RegRead ("HKCU","Software\sokobana", "VOLDELAY") )
			PlaySound ("\My Flash Disk\Sokobana\MortScript\success.wav" )
			SetVolume ( 255 )
			Reset
		EndIf	

	#  --- klickt StVO weg -----------------------------------------------------------

		If ( RemStVO = 0 )
			nomap = 0
			StVO = ColorAt (440,141)
			If ( StVO = 255 )
				RemStVO = 1
				MouseClick( 460, 230 )
				Sleep ( 1000 )
			EndIf
		EndIf
	
	# --- klickt Einführung weg ------------------------------------------------------

		GetStart = ColorAt (450,141)
		If ( GetStart = 255 )
			nomap = 0
			MouseClick( 460, 230 )
			Sleep ( 5000 )
			MouseClick( 400, 230 )
		EndIf	
		
		farbe479 = ColorAt (479,0)

	# ----- klickt LowBatt weg -------------------------------------------------------

		If ( farbe479 = 65280 )    
			nomap = 0
			CallScript ("\My Flash Disk\Sokobana\MortScript\batterie.mscr")
			Sleep ( 1000 )
			MouseClick ( 450, 230 )
			Sleep ( 2000 )
		EndIf	
	
	# --- verhindert Fehlermeldung H3005 nach z.B. Neuinstallation

		NoData = ColorAt (440,149)
		If ( NoData = 255 )
			nomap = 12
#			SendSpecial( "F2" )
		Else

	# --- Route weiter? --------------------------------------------------------------

			If ( RemStVO = 1 )
				nomap = nomap + 1
				If ( nomap = 5 )
					
					SetVolume ( RegRead ("HKCU","Software\sokobana", "VOLDELAY") )
					PlaySound ("\My Flash Disk\Sokobana\MortScript\success.wav" )
					SetVolume ( 255 )
				EndIf
				If ( nomap = 10 ) 
					# letzte Route automatisch fortsetzen
					farbe479 = ColorAt (479,0)		
					If ( farbe479 ne 255 )    
						MouseClick( 460, 230 )
					EndIf
				EndIf
			EndIf
		EndIf

		Sleep ( 1000 )
		farbe479 = ColorAt (479,0)		

	EndWhile

		# --- Satturbo II beenden --- Sokobana ------------------------------------------

		Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 SendKey=\f#StartPNA\m0x0010")
		Sleep ( 1500 )
		#Run ("\My Flash Disk\Sokobana\MortScript\AudioCenter.mscr","VARIOSTART")

		# --- LED-Steuerung und Status --- sokobana ---------------------------------------------

		RegWriteDWord ("HKCU","Software\3SOFT\Pathfinder\PowerManagement\Backlight", "ACBrightness", 1 )
		#Sleep ( 2000 )

		If ( RegValueExists ("HKCU", "Software\sokobana", "RememberLED" ) )
			X = ( RegRead ("HKCU","Software\sokobana", "BackLight") )
			Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\RemLED.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\RememberLED.png",1)

			If ( x > 6 )
				RegWriteDWord ("HKCU","Software\3SOFT\Pathfinder\PowerManagement\Backlight", "ACBrightness", 8 )
				RegWriteDWord ("HKCU","Software\ControlPanel", "BackLight", 8 )
			else
				If ( x > 2 )
					RegWriteDWord ("HKCU","Software\3SOFT\Pathfinder\PowerManagement\Backlight", "ACBrightness", 5 )
					RegWriteDWord ("HKCU","Software\ControlPanel", "BackLight", 5 )
				else
					RegWriteDWord ("HKCU","Software\3SOFT\Pathfinder\PowerManagement\Backlight", "ACBrightness", 1 )
					RegWriteDWord ("HKCU","Software\ControlPanel", "BackLight", 1 )
				EndIf
			EndIf
			X = ""
		Else 
			RegWriteDWord ("HKCU","Software\3SOFT\Pathfinder\PowerManagement\Backlight", "ACBrightness", 8 )
			RegWriteDWord ("HKCU","Software\ControlPanel", "BackLight", 8 )
			Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\NoRemLED.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\RememberLED.png",1)
		EndIf

	# --- FixZoom wird aktiviert, damit Zoom 400 nicht aktiv wird --------------------

		# --- nur aktiviert wegen BUG in POIW

		If  (RegValueExists ("HKCU", "Software\sokobana", "POIWEIN"))
			NoRouteData = 1
		Else
			If ( FileExists ( %POIWARNER% & "\poi-warner.exe"))
				rename ( %POIWARNER% & "\poi-warner.exe",  %POIWARNER% & "\poiwarner.exe")
			EndIf
		EndIf

		While ( ColorAt (479,0) ne 255 ) 
			Sleep ( 500 )
		Endwhile

		If ( NoRouteData = 1 )
			For i = 1 to 19
				SendSpecial( "F11" )
			Next 
			For i = 1 to 6
				SendSpecial( "F12" )
			Next 
		EndIf

	
# --- Ende Startmanagement -------------------------------------------------------------------------

		

	
	# --- Status in Map refreshen -----------------------------------------------------------

		RegWriteString ("HKCU","Software\sokobana", "FARBWERT", "2")

	#	RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1)

	# --- Hintergrunddienst starten ------------------------------------------------------

		Run ("\My Flash Disk\Sokobana\MortScript\run_nogyro.mscr")

     EndIf
EndIf