Sleep ( 20000 )
#ErrorLevel ("off")
killtime = 1
Hand = 0
#If (RegValueExists ("HKCU", "Software\sokobana", "AUTOBT"))
#	If not (RegValueExists ("HKCU", "Software\sokobana", "BT_1"))
#			RegWriteString ("HKCU","Software\sokobana", "BT_1", "\Storage Card\Sokobana\Koord\koord465.exe")
#	Endif
#Endif



i = 1
while  ( i = 1 )
	

	# 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", "AUTOGYRO"))
				Mouseclick ( 360, 250 )
				Tunnel = 1
				PlaySound ("\Storage Card\Sokobana\MortScript\gyrosim_start.wav")
			Endif
		# manuell -> Auto
		Else
			If ( Hand = 1 )
				If not (RegValueExists ("HKCU", "Software\sokobana", "AUTOGYRO"))
					Hand = 0
					RegWriteString ("HKCU","Software\sokobana", "AUTOGYRO", "\Storage Card\Sokobana\Koord\koord465.exe")
				Endif
			Endif
		Endif
		
	Endif

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

	# Auto Beenden
	While ( Tunnel = 1 )
		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 ) )
					Tunnel = 0
					PlaySound ("\Storage Card\Sokobana\MortScript\gyrosim_end.wav")
					Hand = 1
					RegDelete ("HKCU", "Software\sokobana", "AUTOGYRO")
					Else
					Sleep ( 500 )
				Endif
			# Auto-Stop
			Else
				Tunnel = 0
				PlaySound ("\Storage Card\Sokobana\MortScript\gyrosim_end.wav")
				Mouseclick ( 55, 200 )
			Endif
		Endif
		Call MemoryCheck
				
	EndWhile
	Call MemoryCheck
	#Call BTconnected
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


		# Abfrage POI-Warner
#		If (RegValueExists ("HKCU", "Software\sokobana", "PW_01"))
#			If not ( WndExists ( "POI-Warner" ))
#				Run ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 LKlick1=-200 x1=200 y1=150 d=2000")
#				PlaySound ("\Storage Card\Sokobana\MortScript\poi_exit.wav")
#			Endif
#		Endif
	Endif

	Sleep ( 3000 )
EndSub

Sub BTconnected

		# Abfrage: Map oder TBT? 
		 If ( ColorAt ( 479, 0 ) = RGB ( 255, 0, 0 ) )    
			# Abfrage: BT verbunden?
			# If ( ColorAt ( 226, 250 ) = RGB ( 0, 255, 0 ) )    
			IF (RegValueExists("HKCU", "\Software\3SOFT\Pathfinder\CommonSettings" , "DialerActive"))
				If not (RegValueExists ("HKCU", "Software\sokobana", "BT_1"))
					RegWriteString ("HKCU","Software\sokobana", "BT_1", "\Storage Card\Sokobana\Koord\koord465.exe")
				Endif
			Else
				If (RegValueExists ("HKCU", "Software\sokobana", "BT_1"))
					RegDelete ("HKCU", "Software\sokobana", "BT_1")
				EndIf
			Endif
		Endif
EndSub