# Hauptprogramm für Sokobana Vario-Skin
#
#
# V.3.7  vom 24.3.08 

ErrorLevel ("off")

If (FileExists ("\Windows\StartUp\vario-install.lnk"))
		Delete ("\Windows\StartUp\vario-install.lnk")
EndIf

Kill( "vario-install.exe" )

If not (ProcExists ("StartFromMenu.exe"))
	Sleep (6000 )
Endif

While  ( not ( WndExists ("GoPal Navigator") ) )

	If (RegValueExists ("HKCU", "Software\sokobana", "AUTORESET"))
		Sleep ( 1000 )
		Run( "\My Flash Disk\Navigation\mnavdce.exe" )
		RegDelete ("HKCU", "Software\sokobana", "AUTORESET")



		# 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")
				voldelay = RegRead ("HKCU","Software\sokobana", "VOLDELAY")
				SetVolume ( voldelay )
				PlaySound ("\My Flash Disk\Sokobana\MortScript\satturbo.wav")
			EndIf
			RegDelete ("HKCU", "Software\sokobana", "SATTURBO")
		EndIf
	Endif
	Sleep ( 5000 )
	
	##### Status Fernbedienung ?
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

EndWhile

################ nur nach einem Hardreset !!!!

#if not (RegValueExists ("HKCU", "Software\Sokobana", "NOHARDRESET"))
#	RegWriteDWord ("HKCU","Software\sokobana", "NOHARDRESET", 1)
	STA = ( RegRead  ("HKCU","Software\3SOFT\Pathfinder\CommonSettings", "ShowTrafficAlert") )
	If  ( STA = 0 )
		If  (RegValueExists ("HKCU", "Software\sokobana", "VetoMode"))
			#  -> Auto
			RegDelete ("HKCU","Software\sokobana", "VetoMode")	
			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\no_veto.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\veto_mode.png",1)	
		Endif
	Else
		If  (RegValueExists ("HKCU", "Software\sokobana", "VetoMode"))
			#  -> Veto
			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\veto.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\veto_mode.png",1)	
		EndIf
	Endif
#Endif
################


If ( RegValueExists ("HKCU", "Software\sokobana", "RememberLED" ) )
	X = ( RegRead ("HKCU","ControlPanel\BackLight", "BackLightCurrentLevel") )
	# Message( "Backlight wird eingestellt auf den Wert: " & X )
  Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\RemLED.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\RememberLED.png",1)
	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 Backlight=" & X)
	X = ""
Else 
	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 Backlight=" & 8 )
	Copy ("\My Flash Disk\Navigation\Skin480x272\PPSkin\NoRemLED.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\RememberLED.png",1)
Endif

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

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

If (RegValueExists ("HKCU", "Software\sokobana", "AltRoute"))
	RegDelete("HKCU","Software\sokobana", "AltRoute")
Endif

#### Telefonbuch installiert?
If  not (FileExists ("\My Flash Disk\Navigation\multimedia\TelephoneBook\480x272\TelephoneBook.exe"))
	If not (RegValueExists ("HKCU", "Software\sokobana", "NoTVG"))
		RegWriteString ("HKCU","Software\sokobana", "NoTVG", "\My Flash Disk\navigation\multimedia\TelephoneBook\480x272\TelephoneBook.exe")
	Else
		RegDelete ("HKCU", "Software\sokobana", "NoTVG")
	Endif
Endif
	
#### Glopus installiert?
If  not (FileExists ("\Storage Card\Programme\Glopus\Glopus.exe"))
	If not (RegValueExists ("HKCU", "Software\sokobana", "NoGlopus"))
		RegWriteString ("HKCU","Software\sokobana", "NoGlopus", "\Storage Card\Programme\Glopus\Glopus.exe")
	Else
		RegDelete ("HKCU", "Software\sokobana", "NoGlopus")
	Endif
Endif	

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



j = 1
While ( j = 1 )
	#  klickt StVO weg
	StVO = ColorAt (440,141)
	If ( StVO = 255 )
		MouseClick( 460, 230 )
		Sleep ( 1000 )
		j = 0
	Endif
	# klickt Einführung weg
	GetStart = ColorAt (450,141)
	If ( GetStart = 255 )
		MouseClick( 460, 230 )
		Sleep ( 5000 )
		MouseClick( 400, 230 )
	Endif	
	
	Sleep ( 500 )
Endwhile

NoRouteData = 0
Sleep ( 2000 )
If WndExists ("GoPal Navigator")
	Show ( "GoPal Navigator" )
Endif

farbe479 = ColorAt (479,0)
If ( farbe479 ne 255 )

	# verhindert Fehlermeldung H3005 nach z.B. Neuinstallation
	farbe340 = ColorAt (440,149)
	If ( farbe340 = 255 )
		SendSpecial( "F2" )
		NoRouteData = 1
	Else
		# route weiter?
		nomap = 0
		While ( nomap < 5 )
			nomap = nomap + 1
			Sleep ( 1000 )
			farbe479 = ColorAt (479,0)
			# erstes Erscheinen der Map?
			If ( farbe479 = 255 )
				nomap = 5
			Endif
		EndWhile
	Endif
Endif


# keine Map?
loop = 0
farbe479 = ColorAt (479,0)
While ( farbe479 ne 255 )
	If ( loop = 0 )
		if ( NoRouteData = 0 )
			# letzte Route automatisch fortsetzen
			MouseClick( 460, 230 )
		Endif
	Endif
	loop = 1
	Sleep ( 1000 )
	farbe479 = ColorAt (479,0)
EndWhile

# FixZoom wird aktiviert, damit Zoom 400 nicht aktiv wird
If ( NoRouteData = 1 )
	MouseClick( 70, 260 )
Endif
	
Run ("\My Flash Disk\Sokobana\MortScript\run_nogyro.exe")