###############################################
# DreamOn POI Warner Add-On Script by Seretix #
# Find at www.pocketnavigation.de             #
# Version: 2.3                                #
###############################################
#
# Das Script startet den MobileNavigator 6 und lädt den POI Warner in einer
# bestimmten Wartezeit im Hintergrund nach. So startet das Programm schneller
# und die POIs werden später einfach nachgeladen. In zukünftigen Versionen wird
# es noch kleinere Verbesserungen geben, also öfter mal nachschauen.
# Benötigt wird mindestens MortScript 4 RC10. (http://mort.sto-helit.de)
#
# Weitere Tips und Informationen findest Du unter:
# http://forum.pocketnavigation.de/thread.php?threadid=1062559

# Pfad zu den ausführbaren Dateien
# Bitte nach der Vorlage richten. Der Pfad beginnt und hört auf *immer* mit einem \

PfadZuPOIW = "\iPAQ File Store\POIWarner MN6-Edition\"
PfadZuMN6 = "\Programme\Navigon\MN6\"

# Nach wievielen Millisekunden soll der POI Warner nachgestartet werden?
# Standard: 120000ms = 120 Sekunden = 2 Minuten

Set Startzeit, "120000"

# Wie lange dauert der MN|6 Start? Diesen Wert muss man wohl oder übel messen, ohne
# den POI Warner Autostart natürlich, um die Meldung vernünftig wegklicken zu können. 
# Mein Start dauert ca. 17 Sekunden

Set MNStartzeit, "15000"

# Mir wurde auch empfohlen, das per Farbanalyse zu machen. Dies kann man zwar,
# ich will das Script allerdings so kompatibel wie möglich halten, also auch für 
# andere Skins Deshalb die etwas andere Lösung, das über die Wartezeit zu regeln.
# Wenn ihr merkt, dass die Meldung zu lange nach dem eigentlich MN Start weggeklickt wird, könnt
# ihr die Zeit sukzessive runtersetzen. Wenn die Meldung gar nicht weggeklickt wird, könnt ihr
# die Zeit sukzessive hochsetzen. Die 17000 sind der Wert für meinen PDA.

# Das war's mit dem Setup. Unterhalb dieser Zeile musst Du nichts mehr ändern.
# Gute Fahrt!
##############################################################################

# Variablenspielerei

mnpath = PfadZuMN6\"\MN6.exe"
poipath = PfadZuPOIW\"\POIWarner.exe"
poipath1 = PfadZuPOIW\"\POIWarner_don1.exe"
poipath2 = PfadZuPOIW\"\POIWarner_don2.exe"
progpath = SystemPath("ProgramsMenu")

# POI Warner analysieren

If fileExists (poipath)

	rename (poipath,poipath1)
	CreateShortcut(progpath\"DO_POIWarner.lnk",poipath1)
	Set PV, "1"
	
Else

	If fileExists (poipath1)
	rename (poipath1,poipath2)
	CreateShortcut(progpath\"DO_POIWarner.lnk",poipath2)
	Set PV, "2"
	Else
	rename (poipath2,poipath1)
	CreateShortcut(progpath\"DO_POIWarner.lnk",poipath1)
	Set PV, "1"
	EndIf

EndIf


# Starte Navigon (eventuell Pfad anpassen)

Run (mnpath)
WaitForActive "Mobile Navigator 6", 60000
Sleep (MNStartzeit)

Sleep 1000

If wndActive "Mobile Navigator 6"
            SendRight
	    SendCR
EndIf
 

# Wir warten für den Nachstart

Sleep (Startzeit)

# Nun starten wir den POI Warner nach

If (PV = "1")
Run (poipath1,Start_Silent_POI)
Else
Run (poipath2,Start_Silent_POI)
EndIf

# Ende