Sleep (6000 )

# Automatischer Restart nach Softreset für Navigation
If (RegValueExists ("HKCU", "Software\sokobana", "AUTORESET"))
	Sleep ( 1000 )
	Run( "\My Flash Disk\Navigation\mnavdce.exe" )
	RegDelete ("HKCU", "Software\sokobana", "AUTORESET")

	# schaltet automat. Stauumfahrung ab, wenn nicht original TMC-Parameter gewählt wurden
	If not (RegValueExists ("HKCU", "Software\sokobana", "TMC_0"))
		Run ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 RoRegKeys=1280")
	EndIf

	# Sat-Turbo
	If (RegValueExists ("HKCU", "Software\sokobana", "SATTURBO"))
		Sleep (1500)

		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")
			PlaySound ("\Storage Card\Sokobana\MortScript\satturbo.wav")
		EndIf
	RegDelete ("HKCU", "Software\sokobana", "SATTURBO")
	EndIf

	#  klickt StVO weg und wartet auf manuelle Löschung der letzten Route
	Sleep ( 5000 )
	MouseClick( 460, 230 )
	Sleep ( 10000 )	
	MouseClick( 460, 230 )
	
Endif

############################### Gyro ## BT ## Speicherdienst #############

ErrorLevel ("off")
killtime = 0

# Gyro in Ausgangssituation versetzen
If (RegValueExists ("HKCU", "Software\sokobana", "TUNNEL"))
	RegDelete ("HKCU", "Software\sokobana", "TUNNEL")
Endif

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

Sleep ( 15000 )

i = 1
while  ( i = 1 )
	########## Navigator-Schleife
	while ( WndExists ("GoPal Navigator"))

	# Abfrage: Map oder TBT? 
	If ( ColorAt ( 479, 0 ) = RGB ( 255, 0, 0 ) )    
		# Abfrage: GPSError?
		If ( ColorAt ( 360, 250 ) = RGB ( 255, 0, 0 ) )
			# Abfrage: AUTOGYRO?
			If (RegValueExists ("HKCU", "Software\sokobana", "GYRO"))
				If (RegValueExists ("HKCU", "Software\sokobana", "AUTOGYRO"))
					Mouseclick ( 360, 250 )
					PlaySound ("\Storage Card\Sokobana\MortScript\gyrosim_start.wav")
					If not (RegValueExists ("HKCU", "Software\sokobana", "TUNNEL"))
						RegWriteString ("HKCU","Software\sokobana", "TUNNEL", "1")
					Endif
				Endif
			Endif
			
		# manuell -> Auto
		Else
			If (RegValueExists ("HKCU", "Software\sokobana", "GYRO"))
				If not (RegValueExists ("HKCU", "Software\sokobana", "AUTOGYRO"))
					RegWriteString ("HKCU","Software\sokobana", "AUTOGYRO", "1")
				Endif
			Endif
		Endif
		
	Endif

	# Abfrage: Wählfenster geöffnet ohne BT-Verbindung?
	If WndExists ( "KeyPads" )
		If not (RegValueExists("HKCU", "\Software\3SOFT\Pathfinder\CommonSettings" , "DialerActive"))
			PlaySound ("\Storage Card\Sokobana\MortScript\bt_connect.wav")
			MouseClick ( 416, 20 )
			WaitForActive ( "Bluetooth HF Phone", 3 )
			MouseClick ( 240, 85 )
			Sleep ( 6000 )
			MouseClick ( 395, 190 )
		Endif
	Endif

	# Gyro Beenden
	While (RegValueExists ("HKCU", "Software\sokobana", "TUNNEL"))
		If ( ColorAt ( 479, 0 ) = RGB ( 255, 0, 0 ) )    
			If ( ColorAt ( 450, 15 ) = RGB ( 255, 0, 0 ) )
				# manueller Stop
				If ( ColorAt ( 360, 250 ) = RGB ( 255, 0, 0 ) )
					If (RegValueExists ("HKCU", "Software\sokobana", "TUNNEL"))
						RegDelete ("HKCU", "Software\sokobana", "TUNNEL")
					Endif
					PlaySound ("\Storage Card\Sokobana\MortScript\gyrosim_end.wav")
					If (RegValueExists ("HKCU", "Software\sokobana", "AUTOGYRO"))
						RegDelete ("HKCU", "Software\sokobana", "AUTOGYRO")
					Endif
				Else
					Sleep ( 500 )
				Endif
			# Auto-Stop
			Else
				RegDelete ("HKCU", "Software\sokobana", "TUNNEL")
				Mouseclick ( 55, 200 )
				PlaySound ("\Storage Card\Sokobana\MortScript\gyrosim_end.wav")
				
			Endif
		Endif
		Call MemoryCheck
				
	EndWhile
	Call MemoryCheck

	EndWhile
	########## Ende Navigator-Schleife

	########## Startmenü-Schleife

	while ( not  WndExists ("GoPal Navigator"))
		if ( killtime > 0 )
			If not ( WndExists ( "Menu" ))
				ErrorLevel ("off")
				Run ( "\My Flash Disk\Menu.exe" )
				WaitFor ( "X10-Control", 3 )
				If ( WndExists ( "X10-Control" ))
					SendOK ( "X10-Control" )
				Endif
			Endif
		Endif
			Sleep ( 2000 )
	EndWhile

	########## Ende Startmenü-Schleife
	
EndWhile





Sub MemoryCheck
	killtime = killtime + 3
	If ( killtime > 60 )
		killtime = 1
		If  (RegValueExists ("HKCU", "Software\sokobana", "MEMDIAGNOSTIC"))
			if ( WndActive ( "GoPal Navigator" ))
#				If  (RegValueExists ("HKCU", "Software\sokobana", "MEMVIEW"))
#					SleepMessage ( 3, FreeMemory() )
#				Endif
				Kill ( "Menu.exe" )
				Kill ( "ContactViewer.exe" )
				Kill ( "Setting.exe" )
				Kill ( "Explorer" )

			Endif

		Endif

	Endif

	Sleep ( 3000 )
EndSub