# Copyright Sokobana / PrinzEmu
# Hauptprogramm für Sokobana Vario-Skin
#
#
# V.3.10  vom 24.4.08 08:00

#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

If (not DirExists("\Storage Card"))
SetVolume ( 255 )
PlaySound ("\My Flash Disk\Sokobana\MortScript\kartenfehler.wav")
RunWait ("\My Flash Disk\Sokobana\MortScript\sokobana_auto_restart.exe")
EndIf

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

# --- Autoreset-Behandlung -------------------------------------------------

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

		# POI-Warner
		If not (RegValueExists ("HKCU", "Software\Sokobana", "POIW"))
		  If FileExists ("\My Flash Disk\navigation\dstcom02.dll")
				Delete ("\My Flash Disk\navigation\dstcom02.dll")
			EndIf
		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")
				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 )
	
# --- Telefonbuch installiert? -----------------------------------------------

	If (FileExists ("\My Flash Disk\Navigation\multimedia\TelephoneBook\480x272\TelephoneBook.exe"))
		If not (RegValueExists ("HKCU", "Software\sokobana", "TVG"))
			RegWriteString ("HKCU","Software\sokobana", "TVG", "\My Flash Disk\navigation\multimedia\TelephoneBook\480X272\TelephoneBook.exe")
		EndIf
	Else
			If (RegValueExists ("HKCU", "Software\sokobana", "TVG"))
			RegDelete ("HKCU", "Software\sokobana", "TVG")
			EndIf
	Endif
	
# --- Glopus installiert? ----------------------------------------------------

	If (FileExists ("\Storage Card\Programme\Glopus\Glopus.exe"))
		If not (RegValueExists ("HKCU", "Software\sokobana", "Glopus"))
			RegWriteString ("HKCU","Software\sokobana", "Glopus", "\Storage Card\Programme\Glopus\Glopus.exe")
		EndIf
	Else
			If (RegValueExists ("HKCU", "Software\sokobana", "Glopus"))
			RegDelete ("HKCU", "Software\sokobana", "Glopus")
			EndIf
	Endif	


# --- 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

# --- Veto-Mode -----------------------------------------------------------------

	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 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)


# --- MapMode --------------------------------------------------------------------

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

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



# ----- Neues Startmanagement ---------------------------------------------------------------

nomap = 0
NoRouteData = 0
RemStVO = 0
farbe479 = ColorAt (479,0)

While ( farbe479 ne 255 ) 
	
#  --- klickt StVO weg -----------------------------------------------------------
	if ( RemStVO = 0 )
		nomap = 0
		StVO = ColorAt (440,141)
		If ( StVO = 255 )
			RemStVO = 1
			MouseClick( 460, 230 )
			Sleep ( 1000 )
		Endif
	Endif
	
# --- klickt Einführung weg ------------------------------------------------------
	GetStart = ColorAt (450,141)
	If ( GetStart = 255 )
		nomap = 0
		MouseClick( 460, 230 )
		Sleep ( 5000 )
		MouseClick( 400, 230 )
	Endif	
	#Sleep ( 500 )
	
	farbe479 = ColorAt (479,0)

# ----- klickt LowBatt weg ---------------------------------------------------------------------
	If ( farbe479 = 65280 )    
		nomap = 0
		CallScript ("\My Flash Disk\Sokobana\MortScript\batterie.mscr")
		Sleep ( 1000 )
		MouseClick ( 450, 230 )
		Sleep ( 2000 )
	Endif	
	
# --- verhindert Fehlermeldung H3005 nach z.B. Neuinstallation
	NoData = ColorAt (440,149)
	If ( NoData = 255 )
		nomap = 9
		SendSpecial( "F2" )
		NoRouteData = 1
	Else
# --- Route weiter? ---------------------------------------------------
		if ( RemStVO = 1 )
			nomap = nomap + 1
			if ( nomap = 5 )
				PlaySound ("\My Flash Disk\Sokobana\MortScript\success.wav" )
			Endif
			If ( nomap = 10 )
				# letzte Route automatisch fortsetzen
				farbe479 = ColorAt (479,0)		
				If ( farbe479 ne 255 )    
					MouseClick( 460, 230 )
				Endif
			Endif
		Endif
	Endif

	Sleep ( 1000 )
	farbe479 = ColorAt (479,0)		

EndWhile


# --- FixZoom wird aktiviert, damit Zoom 400 nicht aktiv wird --------

If  (RegValueExists ("HKCU", "Software\sokobana", "POIW"))
	NoRouteData = 1
Endif

While ( ColorAt (479,0) ne 255 ) 
	Sleep ( 500 )
Endwhile

If ( NoRouteData = 1 )
	MouseClick( 70, 260 )
Endif

# --- Ende Startmanagement --------------------------------------------



	
Run ("\My Flash Disk\Sokobana\MortScript\run_nogyro.exe")
#PlaySound ("\My Flash Disk\Sokobana\MortScript\success.wav" )