################################################
###                                          ###
#######     GPS-Chip Baudrate ändern     #######
###                                          ###
#######                                  #######
###         (c) 2010 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           ###
############################################################

#########################################
#          von Manni 123                #
#########################################

ErrorLevel ("syntax")

Kill ( "KOORD465.EXE" )
SetChoiceEntryFormat( 24,20, Arial )

Einstellungen[1] = " 4800 --> Standard für Gopal 3"
Einstellungen[2] = "57600 --> z.B. für Medion E4430 unter Gopal 4"
Einstellungen[3] = "NMEA --> hängenden Chipsatz reparieren"

Choice ("GPS-Baudrate","GPS-Baudrate ändern^NL^^NL^Cave!", Einstellungen)
#Choice("GPS-Chip","GPS-Chip Baudrate ändern ^NL^4800,57600,und NMEA wenn es mal klemmt^NL^Bitte wählen Sie aus:","4800","57600","NMEA")

Case(1)
      	Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 SetSN=4800 KoordServ=1 GPSPort=com2:,57600|")
	Call Kontrolle
Case(2)
	Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 SetSN=57600 KoordServ=1 GPSPort=com2:,4800|")
	For i = 1 to 2
		SetVolume ( RegRead ("HKCU","Software\sokobana", "VOLDELAY") )
		PlaySound ("\My Flash Disk\Sokobana\MortScript\triple_sonar.wav" )
		SetVolume ( 255 )
		Sleep ( 2000 )
	next
	Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 KoordServ=1 ClassName=StartPNA| wndrefresh=1100 t=3 GPSPort=com5:,4800| GPSPrio=240| ServWnd=sat,340,10,140,16,-1016,0,0,0,-1,-1{Kontrolle Sats: %i} ")
	For i = 1 to 3
		SetVolume ( RegRead ("HKCU","Software\sokobana", "VOLDELAY") )
		PlaySound ("\My Flash Disk\Sokobana\MortScript\triple_sonar.wav" )
		SetVolume ( 255 )
		Sleep ( 2000 )
		If ( ColorAt (155,100) = 16777215 )
			Sleep ( 2000 )
			SendOK ( "Keine NMEA-Daten" )
			PlaySound ("\My Flash Disk\Sokobana\MortScript\user_ini.wav" )
			Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 SendKey=\f#StartPNA\m0x0010")	
			exit
		Endif
	Next
	PlaySound ("\My Flash Disk\Sokobana\MortScript\default.wav" )
Case(3)
	Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 SetSN=3 KoordServ=1 GPSPort=com2:,4800|")
	Call Kontrolle
endchoice

Sub Kontrolle

	For i = 1 to 3
		SetVolume ( RegRead ("HKCU","Software\sokobana", "VOLDELAY") )
		PlaySound ("\My Flash Disk\Sokobana\MortScript\triple_sonar.wav" )
		SetVolume ( 255 )
		Sleep ( 2000 )
		If ( ColorAt (155,100) = 16777215 )
			Sleep ( 2000 )
			SendOK ( "Keine NMEA-Daten" )
			SetVolume ( RegRead ("HKCU","Software\sokobana", "VOLDELAY") )
			PlaySound ("\My Flash Disk\Sokobana\MortScript\triple_sonar.wav" )
			SetVolume ( 255 )
			Sleep ( 2000 )
			Kill ( "KOORD465.EXE" )
			Sleep ( 1000 )
			Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 KoordServ=1 ClassName=StartPNA| wndrefresh=1100 t=3 GPSPort=com5:,4800| GPSPrio=240| ServWnd=sat,340,10,140,16,-1016,0,0,0,-1,-1{Kontrolle Sats: %i} ")
			For i = 1 to 3	
				SetVolume ( RegRead ("HKCU","Software\sokobana", "VOLDELAY") )
				PlaySound ("\My Flash Disk\Sokobana\MortScript\triple_sonar.wav" )
				SetVolume ( 255 )
				Sleep ( 2000 )
			Next
			If ( ColorAt (155,100) = 16777215 )
				PlaySound ("\My Flash Disk\Sokobana\MortScript\Fehler.wav" )
			Else
				PlaySound ("\My Flash Disk\Sokobana\MortScript\user_ini.wav" )
				Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 SendKey=\f#StartPNA\m0x0010")	
				exit
			Endif
		Endif
	Next
	Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 KoordServ=1 ClassName=StartPNA| wndrefresh=1100 t=3 GPSPort=com5:,4800| GPSPrio=240| ServWnd=sat,340,10,140,16,-1016,0,0,0,-1,-1{Kontrolle Sats: %i} ")
	For i = 1 to 3	
		SetVolume ( RegRead ("HKCU","Software\sokobana", "VOLDELAY") )
		PlaySound ("\My Flash Disk\Sokobana\MortScript\triple_sonar.wav" )
		SetVolume ( 255 )
		Sleep ( 2000 )
	Next
	Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 SendKey=\f#StartPNA\m0x0010")	
	PlaySound ("\My Flash Disk\Sokobana\MortScript\default.wav" )

EndSub