################################################
###                                          ###
#######         Windows Startup          #######
###                                          ###
#######                                  #######
###         (c) 2008 Team Sokobana           ###
####### http://forum.pocketnavigation.de #######
###         http://www.varioskin.de          ###
################################################

############################################################
### Anwendung auf eigene Gefahr und ohne Gewährleistung! ###
###     Dieses Programm unterliegt den Rechten der       ###
###Creative Commons Attribut Non-Commercial Share Alike 3###
###     Lizenz. Genaue Angaben finden Sie beiliegend     ###
###         in der Datei Lizenz_VarioSkin3.txt           ###
############################################################
# V.4.0  vom 30.3.2010



#ErrorLevel ("warn")


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

Kill( "vario-install.exe" )

# --- "alte" Koord-Server-Einträge löschen --- Sokobana ---------------------------

		If ( RegValueExists ("HKCU", "Software\Koord\Server", "KoordServ"))
			RegDeleteKey ("HKCU", "Software\Koord\Server", "1", "1")
		EndIf
		If ( RegValueExists ("HKCU", "Software\Koord\Server_Audio", "KoordServ"))
			RegDeleteKey ("HKCU", "Software\Koord\Server_Audio", "1", "1")
		EndIf
		If ( RegValueExists ("HKCU", "Software\Koord\Server_HomeDelete", "KoordServ"))
			RegDeleteKey ("HKCU", "Software\Koord\Server_HomeDelete", "1", "1")
		EndIf
		If ( RegValueExists ("HKCU", "Software\Koord\Server_Main", "KoordServ"))
			RegDeleteKey ("HKCU", "Software\Koord\Server_Main", "1", "1")
		EndIf
		If ( RegValueExists ("HKCU", "Software\Koord\Server_Position", "KoordServ"))
			RegDeleteKey ("HKCU", "Software\Koord\Server_Position", "1", "1")
		EndIf
		If ( RegValueExists ("HKCU", "Software\Koord\Server_RouteView", "KoordServ"))
			RegDeleteKey ("HKCU", "Software\Koord\Server_RouteView", "1", "1")
		EndIf
		If ( RegValueExists ("HKCU", "Software\Koord\Server_StartPNA", "KoordServ"))
			RegDeleteKey ("HKCU", "Software\Koord\Server_StartPNA", "1", "1")
		EndIf
		If ( RegValueExists ("HKCU", "Software\Koord\Server_WalkingNoMap", "KoordServ"))
			RegDeleteKey ("HKCU", "Software\Koord\Server_WalkingNoMap", "1", "1")
		EndIf
		If ( RegValueExists ("HKCU", "Software\Koord\Server_Warten", "KoordServ"))
			RegDeleteKey ("HKCU", "Software\Koord\Server_Warten", "1", "1")
		EndIf

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

		RegWriteDWord ("HKCU","ControlPanel\BackLight", "BacklightCurrentLevel", 1)	

		If ( RegValueExists ("HKCU", "Software\sokobana", "RememberLED" ) )
			x = ( RegRead ("HKCU","Software\sokobana", "BackLight") )
			If ( x > 4 )
				Stufe = ( x - 1 )
				Call LED
			EndIf
		Else
			Stufe = 7
			Call LED
		EndIf

		#Sleep ( 3000 )
 		
# --- Rush Hour --- PrinzEmu -------------------------------------------------------

		If (RegValueExists ("HKCU","Software\sokobana", "RushHour_Push"))
			RegDelete ("HKCU","Software\sokobana", "RushHour_Push")
		EndIf
						
		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

	If { Auto = 1 }	
		
		#--- Abfrage ob TMC3 schon aktiv
 	 	If NOT (RegValueExists ("HKCU", "Software\sokobana", "TMC_3"))
  			no_TMC3 = 1
		EndIf  	
			If { UserRushHour = 1 }
				If {RushHour = 2 && no_TMC3 = 1}
					# Rush Hour ein
					RegWriteDWord ("HKCU","Software\sokobana", "RushHour", 1) 
					RegWriteString ("HKCU","Software\sokobana", "XTMC_3", "1")
					PlaySound ("\My Flash Disk\Sokobana\MortScript\RushHour_On2.wav" )	
					CallScript ("\My Flash Disk\Sokobana\MortScript\tmc.mscr","2")
					Sleep ( 1000 )
				EndIf
			Else
				Call RHAbschalten
			EndIf
	Else
		Call RHAbschalten
	EndIf

# --- Kartenfehler --- PrinzEmu -------------------------------------------------------

	If (NOT DirExists("\Storage Card"))
		SetVolume ( 255 )
		PlaySound ("\My Flash Disk\Sokobana\MortScript\kartenfehler.wav")
		reset
	EndIf

# --- DRM --- sokobana ------------------------------------------------------------

If (RegValueExists ("HKCU", "Software\sokobana", "DRMMemo"))
	RegDelete ("HKCU", "Software\sokobana", "DRMMemo")
	
	If (FileExists ("\Storage Card\BackupV3\Pathfinder.reg"))	
		Copy ("\Storage Card\BackupV3\Pathfinder.reg","\My Flash Disk\settings\Navigation\Pathfinder.reg",1)
	EndIf
EndIf


# --- POI-Warner-Suche nach HR --- PrinzEmu -----------------------------------------------------
		
	If NOT (RegValueExists ("HKCU", "Software\sokobana", "FINDPOIW")) 
		RegWriteString ("HKCU","Software\sokobana", "FINDPOIW", "1")	
		If NOT (ProcExists ("StartFromMenu.exe"))
			RunWait ("\My Flash Disk\Sokobana\MortScript\find_poiw.exe")
		EndIf
	EndIf


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

	

	If (RegValueExists ("HKCU", "Software\sokobana", "AUTORESET"))
		RegDelete ("HKCU", "Software\sokobana", "AUTORESET")
		Run ("\My Flash Disk\Sokobana\MortScript\startfrommenu.mscr")
	Else
		
		

		# --- Satturbo II --- sokobana ----------------------------------------------------

		If  (RegValueExists ("HKCU", "Software\sokobana", "AUTOSATTURBO")) 
			CurrentCom = ( RegRead ("HKCU","Software\sokobana", "CurrentCom") )
			If ( CurrentCom > 0 )
				GopalGPSBaudrate = 4800
				# GopalGPSBaudrate = ( RegRead ("HKCU","Software\sokobana", "GopalGPSBaudrate") )
				
				Sleep ( 1000 )
			EndIf
		EndIf

	EndIf
	
	menuexist = 1

# --- Startmenü-Einstellungen ---------------------------------------------------------
	
	While 	(menuexist = 1)
		if	(ProcExists( "SystemInformation.exe") )
			menuexist = 0
		endif
		if	( WndExists ( "Menu" ))
			menuexist = 0
		endif
		Sleep ( 500 )
	EndWhile
	
	if (ProcExists ("Setting.exe"))
		kill ("Setting.exe")
	endif

	# --- Sat-Anzeige verhindern bei unregistered Serilot --- Sokobana -----------------

	If ( ( RegRead ("HKCU","Software\sokobana", "GopalGPS") = 5 ) )
		If ( FileExists ("\Windows\Serilot.dll"))
			If( FileExists ("\Windows\Serilot.txt"))
				Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "include=\My Flash Disk\Sokobana\koord2\StartPNA\start_pna.txt")
			Endif
		Else
			Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "include=\My Flash Disk\Sokobana\koord2\StartPNA\start_pna.txt")
		Endif
	Endif

	# --- Speicher-Management --- sokobana ---------------------------------------------

		If NOT (RegValueExists ("HKCU", "Software\sokobana", "SETMEM"))
			RegWriteDWord ("HKCU", "Software\sokobana", "SETMEM", "3000"))
		EndIf
		Sleep ( 2000 )
		xMemory = ( RegRead ("HKCU", "Software\sokobana", "SETMEM"))
		Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "window=0 SetMem="&%xMemory%)	

	

# --- Ende Hauptprogramm

Sub LED
		Sleep ( 1000 ) 
		
		rename ("\My Flash Disk\navigation\Skin480x272\Settings.skn", "\My Flash Disk\navigation\Skin480x272\xSettings.skn")
		rename ("\My Flash Disk\navigation\Skin480x272\LED.skn", "\My Flash Disk\navigation\Skin480x272\Settings.skn")

		Run ("\My Flash Disk\navigation\Setting.exe")
		Sleep ( 1000 )

		MouseClick ( 3, 1 )
		Sleep ( 100 )
		for i = 1 to Stufe
			MouseClick ( 5, 1 )
		next
		MouseClick( 1, 1 )
		Sleep ( 500 )
		rename ("\My Flash Disk\navigation\Skin480x272\Settings.skn", "\My Flash Disk\navigation\Skin480x272\LED.skn")
		rename ("\My Flash Disk\navigation\Skin480x272\xSettings.skn", "\My Flash Disk\navigation\Skin480x272\Settings.skn")
	
EndSub

Sub RHAbschalten
	If {RushHour = 1}
		RegWriteDWord ("HKCU","Software\sokobana", "RushHour", 2)	
		PlaySound ("\My Flash Disk\Sokobana\MortScript\RushHour_Off2.wav" )	
		CallScript ("\My Flash Disk\Sokobana\MortScript\tmc.mscr","1")
		Sleep ( 1000 )
	EndIf
EndSub