# Copyright Sokobana / PrinzEmu
# Version 4.2 vom 10.10.2008
# ErrorLevel ("off")

Kill( "sokobana_service.exe" )
Kill( "startfrommenu.exe" )

# --- Variablen Ausgangszustand herstellen

ROI = 5
killtime = 0
SPEAKM = 0
NewTA = 0
uml = 0
LEDx = 0
FL = 1
ABMarker = 0
RHMarker = 0
BTEnde = 0
PAUSEx = 1


# --- Hauptschleife Hintergrunddienst --- sokobana --------------------------------------

i = 1
While  ( WndExists ("GoPal Navigator") )

	farbe479 = ColorAt (479,0)
	If ( ( farbe479 = 255 ) And  ( not RegValueExists ("HKCU", "Software\sokobana", "FARBWERT")))

		
		rot = ( RegRead ("HKCU", "Software\sokobana", "ROTWERT" ) )
		weiss = ( RegRead ("HKCU", "Software\sokobana", "WEISSWERT" ) )
		
		If ( ( RegRead ("HKCU", "Software\sokobana", "TUNNEL") eq 1 ) )
			Call GyroSimBeenden
		Else
			call GyroLoop
		Endif
	Else
		If ( farbe479 = 16711680 )
			call SPEAKMANAGER1
		Else
			If ( farbe479 = 16776960 )
				If ( SPEAKM = 1 )
				call SPEAKMANAGER2
				Endif
			Else
				If ( farbe479 = 65280 )    
					call BAT
				Endif	
			Endif
		Endif
	Endif

	
	call TMCManager

	If ( farbe479 = 255 )
		call 2D3D
		call MoveMap
		call LED
		call RouteOptionInfo
		call AutoNWP
		call AudioMute
		call TelMode
		call SimuPause
		
		call WndRefresh
		Call Farbwert
		Call KoordinatenButton
	Endif
		
	call BT
	call MEMWATCH	
	Sleep ( 1500 )
	
EndWhile


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


If not ( WndExists ( "Menu" ))
	ErrorLevel ("off")
	Run ( "\My Flash Disk\Menu.exe" )
	WaitFor ( "X10-Control", 4 )
	If ( WndExists ( "X10-Control" ))
		SendOK ( "X10-Control" )
	Endif
Endif



# --- VetoMode --- sokobana -----------------------------------------------------------

Sub TMCManager

If ( ColorAt (479,120) = rot )  
	NewTA = 1
	TMCMarker = TMCMarker + 1
	If ( TMCMarker = 1 )
#		MouseClick ( 69, 250 )
		RegWriteString ("HKCU","Software\sokobana", "AltRoute", "1")
		uml = uml + 1
		If ( uml > 9 )
			uml = 9
		Endif

		Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\uml_" & uml & ".png","\My Flash Disk\Navigation\skin480x272\PPSkin\umleitung.png",1)

	Endif

	If ( TMCMarker = 7 )
	MouseClick ( 470, 120 )
	Endif
	
Else
	If ( ( colorAt (479,130) = 255 ) AND ( NewTA = 1 ))
		Sleep ( 5000 )
		If ( ColorAt (479,130) = 255 )
			voldelay = RegRead ("HKCU","Software\sokobana", "VOLDELAY")
			SetVolume ( voldelay )
			PlaySound ("\My Flash Disk\Sokobana\MortScript\success.wav" )
			SetVolume ( 255 )
			Sleep ( 5000 )
		Endif
		If ( ColorAt (479,130) = 255 )
			MouseClick ( 460, 230 )
		Endif
		TMCMarker = 0
	Else
		If ( farbe479 = 255 )
			TMCMarker = 0
			NewTA = 0
		Endif
	Endif
Endif
	
EndSub

# --- MapMode --- sokobana -------------- MapMode 1 = 2D   Mapmode 2 = 3D   Mapmode 3 = Auto3D

Sub 2D3D

	MapMode = ( RegRead ("HKCU", "Software\sokobana", "MapMode" ) )
	Map3D = ( RegRead ("HKCU", "Software\sokobana", "Map3D" ) )
	FixZoom = ( RegRead ("HKCU", "Software\sokobana", "FixZoom" ) )
	SignPost = ( ColorAt ( 479, 9 ) )
	SignPostAB = ( ColorAt ( 440, 30 ) )
	ABfarbe = ( RegRead ("HKCU", "Software\sokobana", "ABfarbe" ) )
	

	If ( SignPost = 255 )
		if ( TMCMarker > 5 )
			TMCMarker = TMCMarker - 1
		Endif

		If  ( FixZoom > 0 )
			If  ( FixZoom = 1 )
				SendSpecial( "F5" )
				FixZoom = FixZoom + 1
				RegWriteDWord ("HKCU","Software\sokobana", "FixZoom", FixZoom)

		# --- Zoom-Manager Stufe 0 --- sokobana ---		

				ABMarker = 0
				Zoompreset = 0

		# --- Zoom-Warning beenden --- sokobana ---
	
	
				If (RegValueExists ("HKCU", "Software\sokobana", "ZOOMWARNING"))
					If (RegValueExists ("HKCU", "Software\sokobana", "ZOOMACTIVE"))
						RegDelete ("HKCU","Software\sokobana", "ZOOMACTIVE")
						RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1) 
					Endif
				Endif
			Endif
		Endif

		
		If ( ( SignPostAB = ABfarbe ) AND ( ( RegRead ("HKCU", "Software\sokobana", "ABPreset") ) > 0 ) )
			ABMarker = 1 
			ZoomPreset =  ( RegRead ("HKCU", "Software\sokobana", "ABPreset") )
		 	RegWriteDWord ("HKCU", "Software\sokobana", "RememberZoomPreset", ZoomPreset ) )
		Else
			If ( ( RegRead ("HKCU", "Software\sokobana", "BSPreset") ) > 0 ) 
				ABMarker = 1
				ZoomPreset =  ( RegRead ("HKCU", "Software\sokobana", "BSPreset") )
				RegWriteDWord ("HKCU", "Software\sokobana", "RememberZoomPreset", ZoomPreset ) )
			Endif
		Endif

		# ------------------------------------------

		If  ( Map3D = 0 )
			If ( MapMode > 1 )
				RegWriteDWord ("HKCU","Software\sokobana", "Map3D", 1)
				SendSpecial( "F9" )
			Endif
		Else			
			If  ( MapMode = 1 )
				SendSpecial( "F9" )
				RegWriteDWord ("HKCU","Software\sokobana", "Map3D", 0)
			Endif
		Endif
	Else
		If  ( FixZoom > 1 )
			FixZoom = 1
			RegWriteDWord ("HKCU","Software\sokobana", "FixZoom", FixZoom)
		Endif

		# --- Zoom-Manager Stufe 1 --- sokobana ---

		If ( ABMarker = 1 ) 
			
		# --- Zoom-Warning starten --- sokobana ---

			If (RegValueExists ("HKCU", "Software\sokobana", "ZOOMWARNING"))
				If not (RegValueExists ("HKCU", "Software\sokobana", "ZOOMACTIVE"))
					RegWriteString ("HKCU","Software\sokobana", "ZOOMACTIVE", "1")
					RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1) 
				Endif
			Endif
		# -----------------------------------------

			ABMarker = 2
			For i = 1 to 13
			SendSpecial( "F11" )
			Next 
			For i = 1 to 3
			SendSpecial( "F12" )
			Next 
		Endif	
	
		# ------------------------------------------

		If  ( Map3D = 0 )
			If ( MapMode = 2 )
				RegWriteDWord ("HKCU","Software\sokobana", "Map3D", 1)
				SendSpecial( "F9" )
			Endif
		Else			
			If  not ( MapMode = 2 )
				SendSpecial( "F9" )
				RegWriteDWord ("HKCU","Software\sokobana", "Map3D", 0)
			Endif
		Endif
		
	Endif

Endsub

# --- GyroSimulation --- sokobana -------------------------------------------------------

Sub GyroSimBeenden
	
	If ( ColorAt ( 476, 0 ) = rot )
		# manueller Stop
		If ( ColorAt ( 360, 271 ) = rot )
			If  (RegValueExists ("HKCU", "Software\sokobana", "AUTOGYRO"))
				RegDelete ("HKCU", "Software\sokobana", "AUTOGYRO")
				RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1)
			Endif
			If  (RegValueExists ("HKCU", "Software\sokobana", "SimuPause"))
				RegDelete ("HKCU", "Software\sokobana", "SimuPause")
				RegWriteString ("HKCU","Software\sokobana", "NoSimuPause", "1")
			Endif
			Sleep ( 10000 )
		Endif
	Else
		# Auto-Stop
		RegWriteString ("HKCU","Software\sokobana", "TUNNEL", "0")
		SendSpecial( "F3" )
		If  (RegValueExists ("HKCU", "Software\sokobana", "SimuPause"))
			RegDelete ("HKCU", "Software\sokobana", "SimuPause")
			RegWriteString ("HKCU","Software\sokobana", "NoSimuPause", "1")
		Endif
		voldelay = RegRead ("HKCU","Software\sokobana", "VOLDELAY")
		SetVolume ( voldelay )
		PlaySound ("\My Flash Disk\Sokobana\MortScript\gyrosim_end.wav")
		SetVolume ( 255 )
	Endif

	# Abfrage Routensimulationsbutton
	If ( ColorAt ( 479, 3 ) = rot )
		#RegDelete ("HKCU", "Software\sokobana", "TUNNEL")
		RegWriteString ("HKCU","Software\sokobana", "TUNNEL", "0")
	Endif
Endsub

Sub GyroLoop
	
	# Abfrage: GPS-Abriss 		ODER Map/TBT und geplante Route
	If (( ColorAt ( 360, 271 ) = rot ) OR (( ColorAt ( 476, 0 ) = rot ) And ( FL = 0 )))
		# Abfrage: AUTOGYRO?
		If ( ( RegValueExists ("HKCU", "Software\sokobana", "AUTOGYRO")) AND ( ( ColorAt ( 217,  260 ) = weiss ) ) )
			RegWriteString ("HKCU","Software\sokobana", "TUNNEL", "1")
			SendSpecial( "F4" )
			voldelay = RegRead ("HKCU","Software\sokobana", "VOLDELAY")
			SetVolume ( voldelay )
			PlaySound ("\My Flash Disk\Sokobana\MortScript\gyrosim_start.wav")
			FL = 0
			SetVolume ( 255 )
		Endif
		# --- GyroModus umschalten verhindern -------
		
		If ( ColorAt ( 360, 271 ) = rot )
			If not (RegValueExists ("HKCU", "Software\sokobana", "NoGyroChange"))
				RegWriteString ("HKCU","Software\sokobana", "NoGyroChange", "1") 
				Sleep ( 10000 )
				If (RegValueExists ("HKCU", "Software\sokobana", "NoGyroChange"))
					RegDelete ("HKCU", "Software\sokobana", "NoGyroChange")
				Endif
			Else
				Sleep ( 3000 )
				If (RegValueExists ("HKCU", "Software\sokobana", "NoGyroChange"))
					RegDelete ("HKCU", "Software\sokobana", "NoGyroChange")
				Endif
			Endif
		Endif
	Endif
EndSub


# --- WindowRefresh --- sokobana ------------------------------------------------------------

Sub WndRefresh
#	MapMode = ( RegRead ("HKCU", "Software\sokobana", "MapMode" ) )
#	Map3D = ( RegRead ("HKCU", "Software\sokobana", "Map3D" ) )
	WndRefresh = ( RegRead ("HKCU", "Software\sokobana", "WndRefresh") )
	If ( WndRefresh = 1 )
		If WndActive ("GoPal Navigator")
			# --- 3D-Korrektur ---
			#If ( ( MapMode = 3 ) AND ( Map3D = 1 ) )
			#	SendSpecial( "F9" )
			#Endif	
			SendSpecial( "F1" )
			SendSpecial( "F2" )
			RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 0)
					
		Endif
	Endif
EndSub

# --- LED-Management --- sokobana --------------------------------------------------------

Sub LED
	DESIGN = ( RegRead ("HKCU","Software\3Soft\Pathfinder\MapConfig", "Design") )
	If not ( DESIGN eq DESIGNx )
		DESIGNx = DESIGN
		if ( DESIGN = 3 )
			RegWriteString ("HKCU","Software\sokobana", "NACHTDESIGN", "1")
		Else
			If (RegValueExists ("HKCU", "Software\sokobana", "NACHTDESIGN"))
				RegDelete("HKCU","Software\sokobana", "NACHTDESIGN")
			Endif
		Endif
		RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1)
	Endif
	
	LED = ( RegRead ("HKCU","Software\3SOFT\Pathfinder\PowerManagement\Backlight", "ACBrightness" ))
	RegWriteDWord ("HKCU","Software\sokobana", "BackLight", LED)		

	If not ( LED = LEDx )
		LEDx = LED
		if  ( LED > 6 )
			Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\led_3.png","\My Flash Disk\Navigation\skin480x272\PPSkin\led.png",1)
		Else
			If ( LED > 2 )
				Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\led_2.png","\My Flash Disk\Navigation\skin480x272\PPSkin\led.png",1)	
			Else
				Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\led_1.png","\My Flash Disk\Navigation\skin480x272\PPSkin\led.png",1)
			EndIf
		EndIf
		
		RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1)
	EndIf
EndSub

# --- BT-Management --- sokobana ------------------------------------------------------------------
		
Sub BT
	

	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

# --- Batterie-Ansage --- PrinzEmu ----------------------------------------------------------------

Sub BAT
	CallScript ("\My Flash Disk\Sokobana\MortScript\batterie.mscr")
	If ( ( ColorAt (479,0) = 65280 ) )   
	MouseClick ( 450, 230 )
	Endif
EndSub

# --- Sprachsteuerung Zieleingabe --- sokobana ----------------------------------------------------

Sub SPEAKMANAGER1
	Sleep ( 3000 )
	If ( ColorAt ( 479, 0 ) = RGB ( 0, 0, 255 ) )    
		MouseClick ( 10, 45 )
	Endif
	SPEAKM = 1
	killtime = 1
EndSub

Sub SPEAKMANAGER2
	voldelay = RegRead ("HKCU","Software\sokobana", "VOLDELAY")
	SetVolume ( voldelay )
	PlaySound ("\My Flash Disk\Sokobana\MortScript\success.wav")
	SetVolume ( 255 )
	Sleep ( 5000 )
	If ( ColorAt ( 479, 0 ) = RGB ( 0, 255, 255 ) )    
		MouseClick ( 450, 230 )
	Endif
	killtime = 1
EndSub



Sub MEMWATCH 

# --- TMC-AutoMode --- sokobana -----------------------------------------------

		STA = ( RegRead  ("HKCU","Software\3SOFT\Pathfinder\CommonSettings", "ShowTrafficAlert") )

		If  ( STA eq 0 )
			If not (RegValueExists ("HKCU", "Software\sokobana", "TMCAutoMode"))
				RegWriteString ("HKCU","Software\sokobana", "TMCAutoMode", "1")
				If (RegValueExists ("HKCU", "Software\sokobana", "TMCManuMode"))
					RegDelete ("HKCU", "Software\sokobana", "TMCManuMode")
				EndIf
				RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1)
				
			EndIf
		Else	
			If (RegValueExists ("HKCU", "Software\sokobana", "TMCAutoMode"))
				RegDelete ("HKCU", "Software\sokobana", "TMCAutoMode")
				RegWriteString ("HKCU","Software\sokobana", "TMCManuMode", "1")
				RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1)
			Endif
		Endif
	
	If not (RegValueExists ("HKCU", "Software\sokobana", "AltRoute"))
		uml = 0
		NewTA = 0
	Endif

	killtime = killtime + 2
	If ( killtime > 15 )
		killtime = 1
		SPEAKM = 0
	

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

		If (not DirExists("\Storage Card"))
			SetVolume ( 180 )
			PlaySound ("\My Flash Disk\Sokobana\MortScript\kartenfehler.wav")
			SetVolume ( 255 )
			RunWait ("\My Flash Disk\Sokobana\MortScript\sokobana_auto_restart.exe")
		EndIf		
	
# --- Progs schließen --- sokobana --- PrinzEmu   ---------------------------------

		If WndActive ("GoPal Navigator")

				If WndExists ("Menu")
					Close ( "Menu" )
				EndIf
				If WndExists ("Settings")
					Close ( "Settings" )
				EndIf
				If WndExists ("ContactViewer")		
					Close ( "ContactViewer" )				
				EndIf
				If WndExists ("TelephoneBook")		
					Close ( "TelephoneBook" )				
				EndIf
		Endif

# --- Zoom-Manager Stufe 2 --- sokobana -------------------------------------------------

		If ( ABMarker > 1 ) 
			
			If (( Zoompreset > 0 ) AND ( ColorAt ( 479, 128 ) = rot ))
				SendSpecial( "F12" )
				Zoompreset = Zoompreset - 1

				If ( ( Zoompreset = 0 ) AND (RegValueExists ("HKCU", "Software\sokobana", "ZOOMACTIVE")))
					RegDelete ("HKCU", "Software\sokobana", "ZOOMACTIVE")
					RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1)
				Endif
			Else
				ABMarker = 0
				Zoompreset = 0
				If (RegValueExists ("HKCU", "Software\sokobana", "ZOOMWARNING"))
					If (RegValueExists ("HKCU", "Software\sokobana", "ZOOMACTIVE"))
						RegDelete ("HKCU","Software\sokobana", "ZOOMACTIVE")
						RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1) 
					Endif
				Endif
			Endif
		
		Endif
	
# --- Zoom-Warning beenden --- sokobana ---
		Sleep ( 1000 )
		If not ( ColorAt ( 479, 128 ) = rot )
				If (RegValueExists ("HKCU", "Software\sokobana", "ZOOMWARNING"))
					If (RegValueExists ("HKCU", "Software\sokobana", "ZOOMACTIVE"))
						RegDelete ("HKCU","Software\sokobana", "ZOOMACTIVE")
						RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1) 
					Endif
				Endif
		Endif

# --- Rush Hour --- PrinzEmu ---------------------------------------

		
		akt_tag = FormatTime("w")
		akt_stunde = FormatTime("H")*1
		start1 = RegRead("HKCU","Software\sokobana", "RushHour_Start1")
		stop1 = RegRead("HKCU","Software\sokobana", "RushHour_Stop1")
		start2 = RegRead("HKCU","Software\sokobana", "RushHour_Start2")
		stop2 = RegRead("HKCU","Software\sokobana", "RushHour_Stop2")	
		tag = RegRead("HKCU","Software\sokobana", "RushHour_Tag")
		RushHour = RegRead("HKCU","Software\sokobana", "RushHour")
		Auto = RegRead("HKCU","Software\sokobana", "RushHour_Auto")
  
  		#--- Abfrage ob Tag ungültig
  		
		If {akt_tag = 6 && tag = 1}
		  	UserRushHour = 0
		Else
			If {akt_tag = 0 && tag < 2}
				UserRushHour = 0
			Else

		# --- Abfrage wenn Tag gültig, ob UserRushHour auch gültig?

				If {akt_stunde >= start1 && akt_stunde < stop1}
					UserRushHour = 1
				Else 
					If {akt_stunde >= start2 && akt_stunde < stop2}
						UserRushHour = 1
					Else
						UserRushHour = 0
					Endif
				Endif
			Endif
		Endif

		If ( UserRushHour = 0 )
			If (RegValueExists ("HKCU", "Software\sokobana", "UserRushHour"))
				RegDelete ("HKCU", "Software\sokobana", "UserRushHour")
			Endif
		Else
			If not (RegValueExists ("HKCU", "Software\sokobana", "UserRushHour"))
				RegWriteString ("HKCU","Software\sokobana", "UserRushHour", "UserRushHour") 
			Endif
		Endif
  
  		#--- Abfrage ob TMC3 schon aktiv
 	 	If not (RegValueExists ("HKCU", "Software\sokobana", "TMC_3"))
  			no_TMC3 = 1
		EndIf  	

		If { Auto = 1 }
			
			If { UserRushHour = 1 }
			
				If {RushHour = 2 && no_TMC3 = 1}
					# Rush Hour_On Button anzeigen
					If (RegValueExists ("HKCU", "Software\sokobana", "RushHour_Off"))
						RegDelete ("HKCU", "Software\sokobana", "RushHour_Off")
						RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1)
						call WndRefresh
					Endif
					If not (RegValueExists ("HKCU", "Software\sokobana", "RushHour_On"))
						RegWriteString ("HKCU","Software\sokobana", "RushHour_On", "\My Flash Disk\Sokobana\Mortscript\sokobana_auto_restart.exe") 
						RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1)
						call WndRefresh
						#RHMarker = 1
						PlaySound ("\My Flash Disk\Sokobana\MortScript\RushHour_On.wav" )
					Endif	
				Else
					If {RushHour = 1}
						If (RegValueExists ("HKCU", "Software\sokobana", "RushHour_Off"))
							RegDelete ("HKCU", "Software\sokobana", "RushHour_Off")
							RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1)
							call WndRefresh
						Endif
					Endif	
				Endif
			Else
				If {RushHour = 1}
					# Rush Hour_Off Button anzeigen
					If not (RegValueExists ("HKCU", "Software\sokobana", "RushHour_Off"))
						RegWriteString ("HKCU","Software\sokobana", "RushHour_Off", "\My Flash Disk\Sokobana\Mortscript\rush_off.exe") 
						RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1)
						call WndRefresh
						#RHMarker = 1
						PlaySound ("\My Flash Disk\Sokobana\MortScript\RushHour_Off.wav" )	
					Endif
				Else
					If {RushHour = 2}
						If (RegValueExists ("HKCU", "Software\sokobana", "RushHour_On"))
							RegDelete ("HKCU", "Software\sokobana", "RushHour_On")
							RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1)
							call WndRefresh
						Endif
					Endif					
				Endif
			Endif
		Endif
	Endif
	
EndSub


# --- Statusanzeige Routenoptionen --- Dosenpfand --------------------------------------

Sub RouteOptionInfo

	If (RegValueExists ("HKCU","Software\3SOFT\Pathfinder\RouteOptions","RouteOptimation"))
		RegReadDWord( "HKCU","Software\3SOFT\Pathfinder\RouteOptions","RouteOptimation", ROIV )
		If not (ROIV = ROI)
			Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\routeopt_" & ROIV & ".png","\My Flash Disk\Navigation\skin480x272\PPSkin\routeopt.png",1)
			ROI = ROIV
			RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1)
		EndIf
	EndIf

EndSub

# --- AUTO-NWP --- Dosenpfand ---------------------------------------------

Sub AutoNWP

	If(RegValueExists("HKCU","Software","Koord_Route"))
		If (IsEmpty(NWPA))
			Run("\My Flash Disk\Sokobana\MortScript\NWP_Auto.exe")
			NWPA=1
		EndIf
	Else
		If(NWPA=1)
			Clear(NWPA)
		EndIf
	EndIf
EndSub

# --- AudioMute-Anzeige --- Dosenpfand --------------------------------------

Sub AudioMute
	RegReadDWord( "HKCU","Software\3SOFT\Pathfinder\Audio","Audio1_0", Audio )
	If (IsEmpty(AudioIcon))
		AudioIcon=Audio
	Else
		If Not (AudioIcon = Audio)
			If (Audio=0)
				Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\new_icons2b.png","\My Flash Disk\Navigation\skin480x272\PPSkin\new_icons2.png",1)
				RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1)
			ElseIf (AudioIcon=0)
				Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\new_icons2a.png","\My Flash Disk\Navigation\skin480x272\PPSkin\new_icons2.png",1)
				RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1)
			EndIf
			AudioIcon=Audio
		EndIf
	EndIf
EndSub

# --- TelMode --- Dosenpfand -------------------------------------------------

Sub TelMode
	If ((SignPost=255) or (TMCMarker=1))
		If (TelModeVar=0)
			If (Audio=0)
				RegReadDWord ("HKCU","Software\sokobana", "TelMode", TelMode)
				If (TelMode=1)
					voldelay = RegRead ("HKCU","Software\sokobana", "VOLDELAY")
					SetVolume (voldelay)
					PlaySound ("\My Flash Disk\Sokobana\MortScript\TelMode.wav")
					SetVolume ( 255 )
					TelModeVar=1
				EndIf
			EndIf
		EndIf
	ElseIf (TelModeVar=1)
		TelModeVar=0
	EndIf
EndSub

Sub Farbwert
	If (RegValueExists ("HKCU", "Software\sokobana", "FARBWERT"))
		Sleep ( 3000 )
		If ( ColorAt (479,0) = 255 )
			ROTWERT = ColorAt (479,20)
			RegWriteDWord ("HKCU","Software\sokobana", "ROTWERT", ROTWERT)
			WEISSWERT = ColorAt (425,244)
			RegWriteDWord ("HKCU","Software\sokobana", "WEISSWERT", WEISSWERT)
			ABfarbe = ColorAt (479,18)
			RegWriteDWord ("HKCU","Software\sokobana", "ABfarbe", ABfarbe)
			RegDelete ("HKCU", "Software\sokobana", "FARBWERT")
		Endif
	Endif
EndSub


# --- KoordinatenButton --- sokobana -----------------------------------------------
		
Sub KoordinatenButton
	If not (RegValueExists ("HKCU", "Software\sokobana", "KoordinatenButton"))
		RegWriteString ("HKCU","Software\sokobana", "KoordinatenButton", "1")
	Endif
EndSub

# --- Simulationspause --- sokobana -----------------------------------------------

Sub SimuPause

	If (RegValueExists ("HKCU", "Software\sokobana", "NoSimuPause"))
		PAUSE = 1
	Else
		PAUSE = 2
	Endif

	If not ( PAUSE = PAUSEx )
		PAUSEx = PAUSE
		if  ( PAUSE = 1 )
			Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\brs_nsp.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\button_route_simulation2.png",1)	
			PlaySound ("\My Flash Disk\Sokobana\MortScript\fortsetzen.wav" )	
		Else
			Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\brs_sp.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\button_route_simulation2.png",1)	
			PlaySound ("\My Flash Disk\Sokobana\MortScript\pause.wav" )	
		EndIf
		RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1)
	EndIf

	if  ( PAUSE = 2 )
		RegWriteDWord ("HKCU","Software\sokobana", "WndRefresh", 1)
	Endif
EndSub

# --- Karte verschieben --- sokobana ------------------------------------------------

Sub MoveMap

	If ( ColorAt ( 0, 130 ) = rot )
		Sleep ( 300 )
		If ( ColorAt ( 0, 130 ) = rot )
			voldelay = RegRead ("HKCU","Software\sokobana", "VOLDELAY")
			SetVolume (voldelay)

			If not (RegValueExists ("HKCU", "Software\sokobana", "MOVEMAP"))
				RegWriteString ("HKCU","Software\sokobana", "MOVEMAP", "1") 
			
				Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\movemap_icon.png","\My Flash Disk\Navigation\skin480x272\PPSkin\movemap.png",1)
				PlaySound ("\My Flash Disk\Sokobana\MortScript\movemap_ein.wav" )
			Else
				RegDelete ("HKCU", "Software\sokobana", "MOVEMAP")
				Copy ("\My Flash Disk\Navigation\skin480x272\PPSkin\dummy.png","\My Flash Disk\Navigation\skin480x272\PPSkin\movemap.png",1)
				PlaySound ("\My Flash Disk\Sokobana\MortScript\movemap_aus.wav" )
			Endif

			SetVolume ( 255 )
			RunWait("\My Flash Disk\Sokobana\MortScript\movemap.exe")
			
		Endif
	Endif
EndSub