################################################
###                                          ###
#######         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 3.6 vom 5.3.09 8:50
#ErrorLevel ("off")


NoRouteData = 0

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

if ( not FileExists ("\Windows\StartUp\sokobana_service.lnk"))
	RunWait ( "\My Flash Disk\Sokobana\MortScript\bt_sprache.exe" )
	RegWriteString ("HKCU","Software\sokobana", "AUTORESET", "1")
	CallScript ( "\My Flash Disk\Sokobana\MortScript\standard_parameter.mscr","USER")
else 

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

     If (not DirExists("\Storage Card"))
		SetVolume ( 180 )
		PlaySound ("\My Flash Disk\Sokobana\MortScript\kartenfehler.wav")
		Sleep ( 1000 )
		SetVolume ( 255 )
		RunWait ("\My Flash Disk\Sokobana\MortScript\sokobana_auto_restart.exe")
     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"))
			If ( FileExists ( %POIWARNER% & "\poi-warner.exe"))
				rename ( %POIWARNER% & "\poi-warner.exe",  %POIWARNER% & "\poiwarner.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") )
				PlaySound ("\My Flash Disk\Sokobana\MortScript\db_fehlt.wav")
				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 installiert? --- PrinzEmu -------------------------------------------------

		Glopusstartwert = 1
		Glopusstartwert = IniRead( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "Standart", "Glopusstartwert" )
		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 ( Glopusstartwert < 2 )
			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" ) ) 
			RegWriteDWord ("HKCU", "Software\3SOFT\Pathfinder\CommonSettings", "ShowTrafficAlert",1 ) ) 
			
		  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

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

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


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

	

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


		Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\uml_1.png","\My Flash Disk\Navigation\skin480x272\PPSkin\umleitung.png",1)
		If(RegValueExists("HKCU","Software\sokobana","AltRoute"))
			RegDelete("HKCU","Software\sokobana","AltRoute")
		Endif

		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

		If not (RegValueExists ("HKCU","Software\3SOFT\Pathfinder\CommonSettings", "ShowTrafficAlert"))
			RegWriteDWord ("HKCU","Software\3SOFT\Pathfinder\CommonSettings", "ShowTrafficAlert", 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 ))
					PlaySound ("\Windows\menusel.wav")
					# 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

	# --- KoordMenuMap einstellen by ssnweb--------------------------------------------------------------
	

		If (RegValueExists ("HKCU", "Software\sokobana", "KoordMenu_Auto"))
			If (WndExists ( "Prototype" ))
				If (FileExists ("\Storage Card\Programme\KoordMenu\07off.txt" ))
					Run ("\My Flash Disk\Sokobana\KoordMenu\koord465.exe", "*window=0 sleep0=200 KoordServ=1 d=-27")
				else
					Run ("\My Flash Disk\Sokobana\KoordMenu\koord465.exe", "*window=0 sleep0=200 KoordServ=1 d=-4")
				EndIf
			else
				Runwait ( "\My Flash Disk\Sokobana\MortScript\KM-Go.exe" )
				WaitFor ( "Prototype", 20 )
				If (FileExists ("\Storage Card\Programme\KoordMenu\07off.txt" ))
					Run ("\My Flash Disk\Sokobana\KoordMenu\koord465.exe", "*window=0 sleep0=200 KoordServ=1 d=-27")
				else
					Run ("\My Flash Disk\Sokobana\KoordMenu\koord465.exe", "*window=0 sleep0=200 KoordServ=1 d=-4")
				EndIf
			EndIf
		else 
			If not (WndExists ( "Prototype" ))
				If (RegValueExists ("HKCU", "Software\sokobana", "KoordMenu"))
					RegDelete ("HKCU", "Software\sokobana", "KoordMenu"))
				EndIf
			EndIf
		EndIf
			
		//Vermeidet Klickfehler
		While ProcExists ("KM-Go.exe")
			sleep ( 500 )
		EndWhile
		


	
# --- Gopal starten ---------------------------------------------------------------------------

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

		If not (RegValueExists ("HKCU", "Software\sokobana", "ZOOMACTIVE"))
			RegWriteString ("HKCU","Software\sokobana", "ZOOMACTIVE", "1")
		Endif

	# --- Automatische Stauumfahrung abschalten --- sokobana ----for Koordmenu modified vy ssnweb - war Koord2--------------------------

		If (RegValueExists("HKCU","Software\sokobana","TMC_3"))
			Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 RoRegKeys=1280")
		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")
				voldelay = RegRead ("HKCU","Software\sokobana", "VOLDELAY")
				SetVolume ( voldelay )
				PlaySound ("\My Flash Disk\Sokobana\MortScript\satturbo.wav")
				SetVolume (255)
			EndIf
			RegDelete ("HKCU", "Software\sokobana", "SATTURBO")
		EndIf

	# --- Speicher-Management --- sokobana ---------------------------------------------

		If not (RegValueExists ("HKCU", "Software\sokobana", "SETMEM"))
			RegWriteDWord ("HKCU", "Software\sokobana", "SETMEM", "3000"))
		Endif
		
		xMemory = ( RegRead ("HKCU", "Software\sokobana", "SETMEM"))
		Run (%KOORD_PFAD%, "window=0 SetMem="&%xMemory%)	

	# --- 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")
			PlaySound ("\My Flash Disk\Sokobana\MortScript\success.wav" )
			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 )
					voldelay = RegRead ("HKCU","Software\sokobana", "VOLDELAY")
					SetVolume ( 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 ---for KoordMenu modiefied by ssnweb-------------------------------------------------------------------
		
		If not (RegValueExists ("HKCU", "Software\sokobana", "KoordMenu_Auto"))
			If ( RegValueExists ("HKCU", "Software\Koord\Server", "KoordServ"))
				Run ("\My Flash Disk\Sokobana\Koord2\koord465.exe", "Window=0 KoordServ=1 RORegKeys=0")
			EndIf
		EndIf

		# --- 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", "POIW"))
			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.exe")

     Endif
Endif