# --- BT-Management --- sokobana ------------------------------------------------------------------
		
Sub BT
	
	If ( ColorAt ( 479, 176 ) = rot )
		Sleep ( 500 )
		If ( ColorAt ( 479, 176 ) = rot )
			PlaySound ("\My Flash Disk\Sokobana\MortScript\bt_beenden.wav" )
			Sleep ( 1000 )
			If ( ColorAt ( 479, 176 ) = rot )
				PlaySound ("\My Flash Disk\Sokobana\MortScript\treiber_entfernen.wav" )
				Sleep ( 1000 )

				If ( ColorAt ( 479, 176 ) = rot )
				# --- Softreset ------------------
					#PlaySound ("\My Flash Disk\Sokobana\MortScript\reset.wav" )	
					Run ("\My Flash Disk\Sokobana\MortScript\sokobana_auto_restart.exe")			
				Else
				# --- Treiber entfernen (blaue LED erlischt) ------------------
					If (ProcExists ("IVTDialor.exe"))
						Kill ( "IVTDialor.exe")
						Kill ( "BlueSoleil.exe")
						BTEnde = 1
					Endif
				Endif
			Else
				# --- temporäres Abschalten (blaue LED erlischt) ------------------
				If (ProcExists ("IVTDialor.exe"))
					If ( ColorAt (479,0) = rot )  
						MouseClick ( 460, 210 )
						Sleep ( 3000 )
					Endif
					If WndActive ( "Tastatur" )
						MouseClick ( 416, 20 )
						Sleep ( 1000 )
					Endif
					If WndActive ( "Bluetooth-HF-Telefon" )
						MouseClick ( 240, 180 )
						Sleep ( 1000 )
						If WndActive ( "Bluetooth Manager" )
							MouseClick ( 300, 240 )
							Sleep ( 1000 )
							If WndActive ( "Bluetooth-HF-Telefon" )
								MouseClick ( 395, 190 )
							Endif
						Endif
					Endif
				Endif
			Endif
		Endif
	Endif

	If WndActive ( "Tastatur" )
		If ( BTEnde < 2 )
		If not (RegValueExists("HKCU", "\Software\3SOFT\Pathfinder\CommonSettings" , "DialerActive"))
			voldelay = RegRead ("HKCU","Software\sokobana", "VOLDELAY")
			SetVolume ( voldelay )
			PlaySound ("\My Flash Disk\Sokobana\MortScript\bt_connect.wav")
			SetVolume ( 255 )
			MouseClick ( 416, 20 )
			If ( BTEnde = 1 )
				BTEnde = 2
			Endif
		Endif
		Endif
	Endif

	If WndActive ( "Bluetooth-HF-Telefon" )
		MouseClick ( 240, 85 )
		Sleep ( 8000 )
		If WndActive ( "Bluetooth-HF-Telefon" )
			MouseClick ( 395, 190 )
		Endif
	Endif

	If ( RegValueExists ("HKCU", "Software\sokobana", "NoBTDriver"))
		If (ProcExists ("IVTDialor.exe"))
			RegDelete ("HKCU", "Software\sokobana", "NoBTDriver")
			RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1)
		Endif
	Else
		If not (ProcExists ("IVTDialor.exe"))
			RegWriteString ("HKCU","Software\sokobana", "NoBTDriver", "\Windows\IVTDialor.exe")
			RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1)
		Endif
	Endif

EndSub