# --------------------------------------------------------------------
# POI-Tausch für GoPal 2 und 3 (nur 4 -Zöller)
# nach einem Script von hsuelzen, erweitert von sokobana und insbesondere PrinzEmu
# - NEU: automatische Übernahme neuer POIs in den Tauscher
# - NEU: Namenspeicherung für POI
# Version 2.1
#
# Änderung am 14.09.07: Txt-file mit den Namen erzeugen, wenn nicht vorhanden
# Änderung am 23.09.07: Schreibfehler beseitigt
# Änderung am 28.09.07: Löschfunktion eingebaut
# Anderung am 29.09.07: Verbesserte Abfrage eingebaut
# Änderung am 09.11.07: Umstellung auf INI-Datei
# Änderung am 17.02.08: Versch. Veränderungen
#
# --------------------------------------------------------------------
POIV = 0

If (FileExists ("\Storage Card\Programme\POIVerwaltung\POI_1.PC"))
	POIV = 1
EndIf

If not (FileExists ("\My Flash Disk\Sokobana\MortScript\poi.ini"))
			IniWrite ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_1", "Name", "Original Gopal POI")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_2", "Name", "Original Glas-Button POI")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_3", "Name", "Original BL POI")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_4", "Name", "Name 4")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_5", "Name", "Name 5")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_6", "Name", "Name 6")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_7", "Name", "Name 7")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_8", "Name", "Name 8")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_9", "Name", "Name 9")																					
EndIf

poi_1 = IniRead ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_1", "Name")
poi_2 = IniRead ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_2", "Name")
poi_3 = IniRead ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_3", "Name")
poi_4 = IniRead ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_4", "Name")
poi_5 = IniRead ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_5", "Name")
poi_6 = IniRead ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_6", "Name")
poi_7 = IniRead ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_7", "Name")
poi_8 = IniRead ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_8", "Name")
poi_9 = IniRead ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_9", "Name")

Choice ("POI-Auswahl","Bitte wählen Sie die gewünschten POI aus:","POI 1: " & %poi_1%,"POI 2: " & %poi_2%,"POI 3: " & %poi_3%,"POI 4: " & %poi_4%,"POI 5: " & %poi_5%,"POI 6: " & %poi_6%,"POI 7: " & %poi_7%,"POI 8: " & %poi_8%,"POI 9: " & %poi_9%)

# POI 1: 
Case (1)
	If (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_1"))
		Switch ( question (%poi_1% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Ok = Diese POI anzeigen" & "^CR^" & "X = Abbruch","Auswahl","OkCancel"))
			Case (1) # Wechseln
				RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
				RunWait ("\My Flash Disk\Sokobana\MortScript\poi_1.exe")
				RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")
				If ( WndExists ("GoPal Navigator") )
					SleepMessage (3,"Bitte warten! System wird neu gestartet!")
					CallScript ("\My Flash Disk\Sokobana\MortScript\sokobana_auto_restart.mscr")
				Endif
			Case (2) # Abbruch
				Exit
		EndSwitch
	Endif
	
# POI 2: 
Case (2)
	If (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_2"))
		Switch ( question (%poi_2% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Ok = Diese POI anzeigen" &  "^CR^" & "X = Abbruch","Auswahl","OkCancel"))
			Case (1) # Wechseln
				RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
				RunWait ("\My Flash Disk\Sokobana\MortScript\poi_2.exe")
				RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")
				If ( WndExists ("GoPal Navigator") )
  				SleepMessage (3,"Bitte warten! System wird neu gestartet!")
					CallScript ("\My Flash Disk\Sokobana\MortScript\sokobana_auto_restart.mscr")
				Endif
			Case (2) # Abbruch
				Exit
		EndSwitch
	Endif

# POI 3: 
Case (3)
	If (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_3"))
		Switch ( question (%poi_3% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Ok = Diese POI anzeigen" & "^CR^" & "X = Abbruch","Auswahl","OkCancel"))
			Case (1) # Wechseln
				RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
				RunWait ("\My Flash Disk\Sokobana\MortScript\poi_3.exe")
				RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")	
				If ( WndExists ("GoPal Navigator") )
  				SleepMessage (3,"Bitte warten! System wird neu gestartet!")
					CallScript ("\My Flash Disk\Sokobana\MortScript\sokobana_auto_restart.mscr")
				Endif
			Case (2) # Abbruch
				Exit
		EndSwitch
	Endif

# POI 4: 
Case (4)
	If (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_4"))
		Switch ( question (%poi_4% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Diese POI anzeigen" & "^CR^" & "No = Diese POI löschen" & "^CR^" & "Cancel = Abbruch","Auswahl","YesNoCancel"))
			Case (0) # Löschen
				DelTree ("\My Flash Disk\Navigation\Skin480x272\poi_4\*.*")
	  		IniWrite ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_4", "Name", "Name 4")
    		Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
				RunWait ("\My Flash Disk\Sokobana\MortScript\poi_4.exe")
				RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")
				If (POIV = 1)
					If ( question( "POIs noch bearbeiten ?" ) )
						RunWait ("\My Flash Disk\sokobana\Koord2\koord465.exe", "param= poiverw=\Storage Card\Programme\POIVerwaltung\")
						Xcopy ("\My Flash Disk\navigation\poi\poi.pc","\My Flash Disk\navigation\Skin480x272\poi_4\", 1)
					EndIf										
				EndIf
				If ( WndExists ("GoPal Navigator") )
  				SleepMessage (3,"Bitte warten! System wird neu gestartet!")
					CallScript ("\My Flash Disk\Sokobana\MortScript\sokobana_auto_restart.mscr")
				Endif
			Case (2) # Abbruch
				Exit
		EndSwitch
	Endif
	If not (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_4"))
		If( question( "Aktuelle POI in den POI-Tauscher übernehmen?" ) )
		  Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
			Sleep 50
		  poi_4 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%poi_4%)
			IniWrite ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_4", "Name", %poi_4%)
			Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 copy=\My Flash Disk\Navigation\poi|\My Flash Disk\Navigation\Skin480x272\poi_4|2")
			Message ("Die aktuellen POI wurden übernommen")
			Exit
		Else
			Exit
		EndIf
	Endif	

# POI 5: 
Case (5)
	If (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_5"))
		Switch ( question (%poi_5% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Diese POI anzeigen" & "^CR^" & "No = Diese POI löschen" & "^CR^" & "Cancel = Abbruch","Auswahl","YesNoCancel"))
			Case (0) # Löschen
				DelTree ("\My Flash Disk\Navigation\Skin480x272\poi_5\*.*")
	  		IniWrite ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_5", "Name", "Name 5")
    		Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
				RunWait ("\My Flash Disk\Sokobana\MortScript\poi_5.exe")
				RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")
				If (POIV = 1)
					If ( question( "POIs noch bearbeiten ?" ) )
						RunWait ("\My Flash Disk\sokobana\Koord2\koord465.exe", "param= poiverw=\Storage Card\Programme\POIVerwaltung\")
						Xcopy ("\My Flash Disk\navigation\poi\poi.pc","\My Flash Disk\navigation\Skin480x272\poi_5\", 1)
					Endif
				EndIf										
				If ( WndExists ("GoPal Navigator") )
  				SleepMessage (3,"Bitte warten! System wird neu gestartet!")
					CallScript ("\My Flash Disk\Sokobana\MortScript\sokobana_auto_restart.mscr")
				Endif
			Case (2) # Abbruch
				Exit
		EndSwitch
	Endif
	If not (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_5"))
		If( question( "Aktuelle POI in den POI-Tauscher übernehmen?" ) )
		  Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
			Sleep 50
		  poi_5 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%poi_5%)
			IniWrite ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_5", "Name", %poi_5%)
			Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 copy=\My Flash Disk\Navigation\poi|\My Flash Disk\Navigation\Skin480x272\poi_5|2")
			Message ("Die aktuellen POI wurden übernommen")
			Exit
		Else
			Exit
		EndIf
	Endif	

# POI 6: 
Case (6)
	If (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_6"))
		Switch ( question (%poi_6% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Diese POI anzeigen" & "^CR^" & "No = Diese POI löschen" & "^CR^" & "Cancel = Abbruch","Auswahl","YesNoCancel"))
			Case (0) # Löschen
				DelTree ("\My Flash Disk\Navigation\Skin480x272\poi_6\*.*")
	  		IniWrite ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_6", "Name", "Name 6")
    		Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
				RunWait ("\My Flash Disk\Sokobana\MortScript\poi_6.exe")
				RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")
				If (POIV = 1)
					If ( question( "POIs noch bearbeiten ?" ) )
						RunWait ("\My Flash Disk\sokobana\Koord2\koord465.exe", "param= poiverw=\Storage Card\Programme\POIVerwaltung\")
						Xcopy ("\My Flash Disk\navigation\poi\poi.pc","\My Flash Disk\navigation\Skin480x272\poi_6\", 1)
					Endif
				EndIf										
				If ( WndExists ("GoPal Navigator") )
  				SleepMessage (3,"Bitte warten! System wird neu gestartet!")
					CallScript ("\My Flash Disk\Sokobana\MortScript\sokobana_auto_restart.mscr")
				Endif
			Case (2) # Abbruch
				Exit
		EndSwitch
	Endif
	If not (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_6"))
		If( question( "Aktuelle POI in den POI-Tauscher übernehmen?" ) )
		  Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
			Sleep 50
		  poi_6 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%poi_6%)
			IniWrite ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_6", "Name", %poi_6%)
			Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 copy=\My Flash Disk\Navigation\poi|\My Flash Disk\Navigation\Skin480x272\poi_6|2")
			Message ("Die aktuellen POI wurden übernommen")
			Exit
		Else
			Exit
		EndIf
	Endif	

# POI 7: 
Case (7)
	If (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_7"))
		Switch ( question (%poi_7% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Diese POI anzeigen" & "^CR^" & "No = Diese POI löschen" & "^CR^" & "Cancel = Abbruch","Auswahl","YesNoCancel"))
			Case (0) # Löschen
				DelTree ("\My Flash Disk\Navigation\Skin480x272\poi_7\*.*")
	  		IniWrite ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_7", "Name", "Name 7")
    		Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
				RunWait ("\My Flash Disk\Sokobana\MortScript\poi_7.exe")
				RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")
				If (POIV = 1)
					If ( question( "POIs noch bearbeiten ?" ) )
						RunWait ("\My Flash Disk\sokobana\Koord2\koord465.exe", "param= poiverw=\Storage Card\Programme\POIVerwaltung\")
						Xcopy ("\My Flash Disk\navigation\poi\poi.pc","\My Flash Disk\navigation\Skin480x272\poi_7\", 1)
					Endif
				EndIf										
				If ( WndExists ("GoPal Navigator") )
  				SleepMessage (3,"Bitte warten! System wird neu gestartet!")
					CallScript ("\My Flash Disk\Sokobana\MortScript\sokobana_auto_restart.mscr")
				Endif
			Case (2) # Abbruch
				Exit
		EndSwitch
	Endif
	If not (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_7"))
		If( question( "Aktuelle POI in den POI-Tauscher übernehmen?" ) )
		  Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
			Sleep 50
		  poi_7 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%poi_7%)
			IniWrite ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_7", "Name", %poi_7%)
			Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 copy=\My Flash Disk\Navigation\poi|\My Flash Disk\Navigation\Skin480x272\poi_7|2")
			Message ("Die aktuellen POI wurden übernommen")
			Exit
		Else
			Exit
		EndIf
	Endif	

# POI 8: 
Case (8)
	If (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_8"))
		Switch ( question (%poi_8% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Diese POI anzeigen" & "^CR^" & "No = Diese POI löschen" & "^CR^" & "Cancel = Abbruch","Auswahl","YesNoCancel"))
			Case (0) # Löschen
				DelTree ("\My Flash Disk\Navigation\Skin480x272\poi_8\*.*")
	  		IniWrite ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_8", "Name", "Name 8")
    		Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
				RunWait ("\My Flash Disk\Sokobana\MortScript\poi_8.exe")
				RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")
				If (POIV = 1)
					If ( question( "POIs noch bearbeiten ?" ) )
						RunWait ("\My Flash Disk\sokobana\Koord2\koord465.exe", "param= poiverw=\Storage Card\Programme\POIVerwaltung\")
						Xcopy ("\My Flash Disk\navigation\poi\poi.pc","\My Flash Disk\navigation\Skin480x272\poi_8\", 1)
					Endif
				EndIf										
				If ( WndExists ("GoPal Navigator") )
  				SleepMessage (3,"Bitte warten! System wird neu gestartet!")
					CallScript ("\My Flash Disk\Sokobana\MortScript\sokobana_auto_restart.mscr")
				Endif
			Case (2) # Abbruch
				Exit
		EndSwitch
	Endif
	If not (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_8"))
		If( question( "Aktuelle POI in den POI-Tauscher übernehmen?" ) )
		  Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
			Sleep 50
		  poi_8 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%poi_8%)
			IniWrite ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_8", "Name", %poi_8%)
			Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 copy=\My Flash Disk\Navigation\poi|\My Flash Disk\Navigation\Skin480x272\poi_8|2")
			Message ("Die aktuellen POI wurden übernommen")
			Exit
		Else
			Exit
		EndIf
	Endif	

# POI 9: 
Case (9)
	If (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_9"))
		Switch ( question (%poi_9% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Diese POI anzeigen" & "^CR^" & "No = Diese POI löschen" & "^CR^" & "Cancel = Abbruch","Auswahl","YesNoCancel"))
			Case (0) # Löschen
				DelTree ("\My Flash Disk\Navigation\Skin480x272\poi_9\*.*")
	  		IniWrite ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_9", "Name", "Name 9")
    		Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
				RunWait ("\My Flash Disk\Sokobana\MortScript\poi_9.exe")
				RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")
				If (POIV = 1)
					If ( question( "POIs noch bearbeiten ?" ) )
						RunWait ("\My Flash Disk\sokobana\Koord2\koord465.exe", "param= poiverw=\Storage Card\Programme\POIVerwaltung\")
						Xcopy ("\My Flash Disk\navigation\poi\poi.pc","\My Flash Disk\navigation\Skin480x272\poi_9\", 1)
					Endif
				EndIf										
				If ( WndExists ("GoPal Navigator") )
  				SleepMessage (3,"Bitte warten! System wird neu gestartet!")
					CallScript ("\My Flash Disk\Sokobana\MortScript\sokobana_auto_restart.mscr")
				Endif
			Case (2) # Abbruch
				Exit
		EndSwitch
	Endif
	If not (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_9"))
		If( question( "Aktuelle POI in den POI-Tauscher übernehmen?" ) )
		  Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
			Sleep 50
		  poi_9 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%poi_9%)
			IniWrite ("\My Flash Disk\Sokobana\MortScript\poi.ini", "POI_9", "Name", %poi_9%)
			Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 copy=\My Flash Disk\Navigation\poi|\My Flash Disk\Navigation\Skin480x272\poi_9|2")
			Message ("Die aktuellen POI wurden übernommen")
			Exit
		Else
			Exit
		EndIf
	Endif	

Case (0)
	Exit
EndChoice