################################################
###                                          ###
#######         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.3.2  vom 21.06.08 08:00

ErrorLevel ("off")

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

Kill( "vario-install.exe" )



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

If (RegValueExists ("HKCU", "Software\sokobana", "DRMMemo"))
	RegDelete ("HKCU", "Software\sokobana", "DRMMemo")
	# --- warten auf Karte ----
	Sleep (3000)

	# --- Variante I ----------------------------------------------------------
	If (FileExists ("\Storage Card\BackupV3\Pathfinder.reg"))	
		Copy ("\Storage Card\BackupV3\Pathfinder.reg","\My Flash Disk\settings\Navigation\Pathfinder.reg",1)
	EndIf
Endif


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


Sleep ( 1500 )

If (not DirExists("\Storage Card"))
	SetVolume ( 255 )
	PlaySound ("\My Flash Disk\Sokobana\MortScript\kartenfehler.wav")
	If not (RegValueExists ("HKCU", "Software\sokobana", "AUTORESET"))
		RegWriteString ("HKCU","Software\sokobana", "AUTORESET", "1")
		reset
	Endif
EndIf

# --- POI-Pfiffi --- PrinzEmu -----------------------------------------------------

If not (ProcExists ("StartFromMenu.exe"))
	RunWait ("\My Flash Disk\Sokobana\MortScript\find_poiw.exe")
Endif


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

	If (RegValueExists ("HKCU", "Software\sokobana", "AUTORESET"))
		
		#Run( "\My Flash Disk\Navigation\mnavdce.exe" )
		RegDelete ("HKCU", "Software\sokobana", "AUTORESET")
		Run ("\My Flash Disk\Sokobana\MortScript\startfrommenu.exe")
	Endif




# --- Ende Hauptprogramm


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