################################################
###                                          ###
#######      Static Navigation on        #######
###             COM2 / COM5                  ###
#######                                  #######
###         (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.2.3 vom 10.4.09

Errorlevel ( "syntax" )


If (RegValueExists ("HKCU", "Software\sokobana", "LastCom"))
	If( question( "Asynchrone ComPort-Einstellungen vorhanden. Trotzdem fortfahren?" ) )
	Else
		Exit
	Endif
Endif


CurrentCom = ( RegRead ("HKCU","Software\sokobana", "CurrentCom") )
If ( CurrentCom = 0 )

	Switch(question("Kein ComPort-Splitter aktiv!\
			^NL^\
			^NL^   Trotzdem fortfahren?\
			^NL^--- nicht empfehlenswert ---\
			^NL^","fortfahren?","YesNo"))

	Case(1)
		If ProcExists ("poiwarner.exe")
		kill ("poiwarner.exe")
		EndIf

		If ProcExists ("poi-warner.exe")
		kill ("poi-warner.exe")
		Endif

		If ProcExists ("MP3Player.exe")
		kill ("MP3Player.exe")
		EndIf

		If WndExists ("GoPal Navigator")
		KillScript ("run_nogyro.mscr")
		Close ("GoPal Navigator")
		Endif

		If WndExists ("Settings")
		Close ( "Settings" )
		EndIf

		If ( WndExists ( "Menu" ))
		kill ("menu.exe")
		EndIf

		Speicher=FreeMemory()
		While (Speicher < 32000)
			Speicher=FreeMemory()
			Sleep ( 1000 )
		EndWhile
		Sleep (10000)
		RunWait ("\My Flash Disk\Sokobana\Koord2\koord465.exe", "Window=0 SetSN=1 KoordServ=1 GPSPort=com2:")
		Sleep (35000)
		CallScript ("\My Flash Disk\Sokobana\MortScript\startfrommenu.mscr")
		While ( ColorAt (479,0) ne 255 ) 
			Sleep ( 3000 )
		Endwhile
		Sleep ( 5000 )
		If ( ColorAt (479,0) eq 255 ) 
			MouseClick( 460, 10 )
		Endif
	Case(0)
		Exit
	
	EndSwitch

	
Else
	If ( CurrentCom = 1 )
		Run ("\My Flash Disk\Sokobana\Koord2\koord465.exe", "Window=0 SetSN=1 KoordServ=1 GPSPort=com5:")
	Else
		RunWait ("\My Flash Disk\Sokobana\Koord2\koord465.exe", "Window=0 SetSN=1 KoordServ=1 GPSPort=com5:")
	Endif

	MouseClick ( 10, 240 )
Endif