# --------------------------------------------------------------------
# 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 1.4
#
# Ä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
# --------------------------------------------------------------------
If not (FileExists ("\Storage Card\Sokobana\MortScript\poi_namen.txt"))
			poi_namen[1] = "GoPal POI"
			poi_namen[2] = "Name 2"
			poi_namen[3] = "Name 3"
			poi_namen[4] = "Name 4"
			poi_namen[5] = "Name 5"
			poi_namen[6] = "Name 6"
			poi_namen[7] = "Name 7"
			poi_namen[8] = "Name 8"
			poi_namen[9] = "Name 9"
			poi_new = poi_namen[1] & "^NL^" & poi_namen[2] & "^NL^" & poi_namen[3] & "^NL^" & poi_namen[4] & "^NL^" & poi_namen[5] & "^NL^" & poi_namen[6] & "^NL^" & poi_namen[7] & "^NL^" & poi_namen[8] & "^NL^" & poi_namen[9] & "^NL^"
			WriteFile ("\Storage Card\Sokobana\MortScript\poi_namen.txt", %poi_new%)
EndIf
File = ReadFile ("\Storage Card\Sokobana\MortScript\poi_namen.txt")
Split ( %File%, "^NL^",0, poi_namen)
Choice ("POI-Auswahl","Bitte wählen Sie die gewünschten POI aus:","POI 1: " & %poi_namen[1]%,"POI 2: " & %poi_namen[2]%,"POI 3: " & %poi_namen[3]%,"POI 4: " & %poi_namen[4]%,"POI 5: " & %poi_namen[5]%,"POI 6: " & %poi_namen[6]%,"POI 7: " & %poi_namen[7]%,"POI 8: " & %poi_namen[8]%,"POI 9: " & %poi_namen[9]%)

# POI 1: 
Case (1)
	If (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_1"))
		Switch ( question (%poi_namen[1]% & "^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_1\*.*")
	  		poi_namen[1] = "Name 1"
    		poi_new = poi_namen[1] & "^NL^" & poi_namen[2] & "^NL^" & poi_namen[3] & "^NL^" & poi_namen[4] & "^NL^" & poi_namen[5] & "^NL^" & poi_namen[6] & "^NL^" & poi_namen[7] & "^NL^" & poi_namen[8] & "^NL^" & poi_namen[9] & "^NL^"
				WriteFile ("\Storage Card\Sokobana\MortScript\poi_namen.txt", %poi_new%)
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				DelTree ("My Flash Disk\Navigation\poi\*.*")
				Run ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 copy=\My Flash Disk\Navigation\Skin480x272\poi_1|\My Flash Disk\Navigation\poi|2")
				SleepMessage (3,"Bitte warten! System wird neu gestartet!")
				If ( WndExists ("GoPal Navigator") )
					SleepMessage (3,"Bitte warten! System wird neu gestartet!")
					CallScript ("\Storage Card\Sokobana\MortScript\sokobana_auto_restart.mscr")
				Endif
			Case (2) # Abbruch
				Exit
		EndSwitch
	Endif
	If not (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_1"))
		If( question( "Aktuelle POI in den POI-Tauscher übernehmen?" ) )
		  Run ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 sip=1")
			Sleep 50
		  poi_namen[1] = Input( "Bitte neuen Namen eingeben:")
			poi_new = poi_namen[1] & "^NL^" & poi_namen[2] & "^NL^" & poi_namen[3] & "^NL^" & poi_namen[4] & "^NL^" & poi_namen[5] & "^NL^" & poi_namen[6] & "^NL^" & poi_namen[7] & "^NL^" & poi_namen[8] & "^NL^" & poi_namen[9] & "^NL^"
			WriteFile ("\Storage Card\Sokobana\MortScript\poi_namen.txt", %poi_new%)
			Run ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 copy=\My Flash Disk\Navigation\poi|\My Flash Disk\Navigation\Skin480x272\poi_1|2")
			Message ("Die aktuellen POI wurden übernommen")
			Exit
		Else
			Exit
		EndIf
	Endif
	
# POI 2: 
Case (2)
	If (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_2"))
		Switch ( question (%poi_namen[2]% & "^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_2\*.*")
	  		poi_namen[2] = "Name 2"
    		poi_new = poi_namen[1] & "^NL^" & poi_namen[2] & "^NL^" & poi_namen[3] & "^NL^" & poi_namen[4] & "^NL^" & poi_namen[5] & "^NL^" & poi_namen[6] & "^NL^" & poi_namen[7] & "^NL^" & poi_namen[8] & "^NL^" & poi_namen[9] & "^NL^"
				WriteFile ("\Storage Card\Sokobana\MortScript\poi_namen.txt", %poi_new%)
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				DelTree ("My Flash Disk\Navigation\poi\*.*")
				Run ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 copy=\My Flash Disk\Navigation\Skin480x272\poi_2|\My Flash Disk\Navigation\poi|2")
				SleepMessage (3,"Bitte warten! System wird neu gestartet!")
				If ( WndExists ("GoPal Navigator") )
					SleepMessage (3,"Bitte warten! System wird neu gestartet!")
					CallScript ("\Storage Card\Sokobana\MortScript\sokobana_auto_restart.mscr")
				Endif
			Case (2) # Abbruch
				Exit
		EndSwitch
	Endif
	If not (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_2"))
		If( question( "Aktuelle POI in den POI-Tauscher übernehmen?" ) )
		  Run ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 sip=1")
			Sleep 50
		  poi_namen[2] = Input( "Bitte neuen Namen eingeben:")
			poi_new = poi_namen[1] & "^NL^" & poi_namen[2] & "^NL^" & poi_namen[3] & "^NL^" & poi_namen[4] & "^NL^" & poi_namen[5] & "^NL^" & poi_namen[6] & "^NL^" & poi_namen[7] & "^NL^" & poi_namen[8] & "^NL^" & poi_namen[9] & "^NL^"
			WriteFile ("\Storage Card\Sokobana\MortScript\poi_namen.txt", %poi_new%)
			Run ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 copy=\My Flash Disk\Navigation\poi|\My Flash Disk\Navigation\Skin480x272\poi_2|2")
			Message ("Die aktuellen POI wurden übernommen")
			Exit
		Else
			Exit
		EndIf
	EndIf

# POI 3: 
Case (3)
	If (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_3"))
		Switch ( question (%poi_namen[3]% & "^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_3\*.*")
	  		poi_namen[3] = "Name 3"
    		poi_new = poi_namen[1] & "^NL^" & poi_namen[2] & "^NL^" & poi_namen[3] & "^NL^" & poi_namen[4] & "^NL^" & poi_namen[5] & "^NL^" & poi_namen[6] & "^NL^" & poi_namen[7] & "^NL^" & poi_namen[8] & "^NL^" & poi_namen[9] & "^NL^"
				WriteFile ("\Storage Card\Sokobana\MortScript\poi_namen.txt", %poi_new%)
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				DelTree ("My Flash Disk\Navigation\poi\*.*")
				Run ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 copy=\My Flash Disk\Navigation\Skin480x272\poi_3|\My Flash Disk\Navigation\poi|2")
				SleepMessage (3,"Bitte warten! System wird neu gestartet!")
				If ( WndExists ("GoPal Navigator") )
					SleepMessage (3,"Bitte warten! System wird neu gestartet!")
					CallScript ("\Storage Card\Sokobana\MortScript\sokobana_auto_restart.mscr")
				Endif
			Case (2) # Abbruch
				Exit
		EndSwitch
	Endif
	If not (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_3"))
		If( question( "Aktuelle POI in den POI-Tauscher übernehmen?" ) )
		  Run ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 sip=1")
			Sleep 50
		  poi_namen[3] = Input( "Bitte neuen Namen eingeben:")
			poi_new = poi_namen[1] & "^NL^" & poi_namen[2] & "^NL^" & poi_namen[3] & "^NL^" & poi_namen[4] & "^NL^" & poi_namen[5] & "^NL^" & poi_namen[6] & "^NL^" & poi_namen[7] & "^NL^" & poi_namen[8] & "^NL^" & poi_namen[9] & "^NL^"
			WriteFile ("\Storage Card\Sokobana\MortScript\poi_namen.txt", %poi_new%)
			Run ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 copy=\My Flash Disk\Navigation\poi|\My Flash Disk\Navigation\Skin480x272\poi_3|2")
			Message ("Die aktuellen POI wurden übernommen")
			Exit
		Else
			Exit
		EndIf
	EndIf

# POI 4: 
Case (4)
	If (DirExists ("\My Flash Disk\Navigation\Skin480x272\poi_4"))
		Switch ( question (%poi_namen[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\*.*")
	  		poi_namen[4] = "Name 4"
    		poi_new = poi_namen[1] & "^NL^" & poi_namen[2] & "^NL^" & poi_namen[3] & "^NL^" & poi_namen[4] & "^NL^" & poi_namen[5] & "^NL^" & poi_namen[6] & "^NL^" & poi_namen[7] & "^NL^" & poi_namen[8] & "^NL^" & poi_namen[9] & "^NL^"
				WriteFile ("\Storage Card\Sokobana\MortScript\poi_namen.txt", %poi_new%)
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				DelTree ("My Flash Disk\Navigation\poi\*.*")
				Run ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 copy=\My Flash Disk\Navigation\Skin480x272\poi_4|\My Flash Disk\Navigation\poi|2")
				If ( WndExists ("GoPal Navigator") )
					SleepMessage (3,"Bitte warten! System wird neu gestartet!")
					CallScript ("\Storage Card\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 ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 sip=1")
			Sleep 50
		  poi_namen[4] = Input( "Bitte neuen Namen eingeben:")
			poi_new = poi_namen[1] & "^NL^" & poi_namen[2] & "^NL^" & poi_namen[3] & "^NL^" & poi_namen[4] & "^NL^" & poi_namen[5] & "^NL^" & poi_namen[6] & "^NL^" & poi_namen[7] & "^NL^" & poi_namen[8] & "^NL^" & poi_namen[9] & "^NL^"
			WriteFile ("\Storage Card\Sokobana\MortScript\poi_namen.txt", %poi_new%)
			Run ("\Storage Card\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_namen[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\*.*")
	  		poi_namen[5] = "Name 5"
    		poi_new = poi_namen[1] & "^NL^" & poi_namen[2] & "^NL^" & poi_namen[3] & "^NL^" & poi_namen[4] & "^NL^" & poi_namen[5] & "^NL^" & poi_namen[6] & "^NL^" & poi_namen[7] & "^NL^" & poi_namen[8] & "^NL^" & poi_namen[9] & "^NL^"
				WriteFile ("\Storage Card\Sokobana\MortScript\poi_namen.txt", %poi_new%)
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				DelTree ("My Flash Disk\Navigation\poi\*.*")
				Run ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 copy=\My Flash Disk\Navigation\Skin480x272\poi_5|\My Flash Disk\Navigation\poi|2")
				SleepMessage (3,"Bitte warten! System wird neu gestartet!")
				If ( WndExists ("GoPal Navigator") )
					SleepMessage (3,"Bitte warten! System wird neu gestartet!")
					CallScript ("\Storage Card\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 ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 sip=1")
			Sleep 50
		  poi_namen[5] = Input( "Bitte neuen Namen eingeben:")
			poi_new = poi_namen[1] & "^NL^" & poi_namen[2] & "^NL^" & poi_namen[3] & "^NL^" & poi_namen[4] & "^NL^" & poi_namen[5] & "^NL^" & poi_namen[6] & "^NL^" & poi_namen[7] & "^NL^" & poi_namen[8] & "^NL^" & poi_namen[9] & "^NL^"
			WriteFile ("\Storage Card\Sokobana\MortScript\poi_namen.txt", %poi_new%)
			Run ("\Storage Card\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_namen[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\*.*")
	  		poi_namen[6] = "Name 6"
    		poi_new = poi_namen[1] & "^NL^" & poi_namen[2] & "^NL^" & poi_namen[3] & "^NL^" & poi_namen[4] & "^NL^" & poi_namen[5] & "^NL^" & poi_namen[6] & "^NL^" & poi_namen[7] & "^NL^" & poi_namen[8] & "^NL^" & poi_namen[9] & "^NL^"
				WriteFile ("\Storage Card\Sokobana\MortScript\poi_namen.txt", %poi_new%)
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				DelTree ("My Flash Disk\Navigation\poi\*.*")
				Run ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 copy=\My Flash Disk\Navigation\Skin480x272\poi_6|\My Flash Disk\Navigation\poi|2")
				SleepMessage (3,"Bitte warten! System wird neu gestartet!")
				If ( WndExists ("GoPal Navigator") )
					SleepMessage (3,"Bitte warten! System wird neu gestartet!")
					CallScript ("\Storage Card\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 ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 sip=1")
			Sleep 50
		  poi_namen[6] = Input( "Bitte neuen Namen eingeben:")
			poi_new = poi_namen[1] & "^NL^" & poi_namen[2] & "^NL^" & poi_namen[3] & "^NL^" & poi_namen[4] & "^NL^" & poi_namen[5] & "^NL^" & poi_namen[6] & "^NL^" & poi_namen[7] & "^NL^" & poi_namen[8] & "^NL^" & poi_namen[9] & "^NL^"
			WriteFile ("\Storage Card\Sokobana\MortScript\poi_namen.txt", %poi_new%)
			Run ("\Storage Card\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_namen[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\*.*")
	  		poi_namen[7] = "Name 7"
    		poi_new = poi_namen[1] & "^NL^" & poi_namen[2] & "^NL^" & poi_namen[3] & "^NL^" & poi_namen[4] & "^NL^" & poi_namen[5] & "^NL^" & poi_namen[6] & "^NL^" & poi_namen[7] & "^NL^" & poi_namen[8] & "^NL^" & poi_namen[9] & "^NL^"
				WriteFile ("\Storage Card\Sokobana\MortScript\poi_namen.txt", %poi_new%)
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				DelTree ("My Flash Disk\Navigation\poi\*.*")
				Run ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 copy=\My Flash Disk\Navigation\Skin480x272\poi_7|\My Flash Disk\Navigation\poi|2")
				SleepMessage (3,"Bitte warten! System wird neu gestartet!")
				If ( WndExists ("GoPal Navigator") )
					SleepMessage (3,"Bitte warten! System wird neu gestartet!")
					CallScript ("\Storage Card\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 ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 sip=1")
			Sleep 50
		  poi_namen[7] = Input( "Bitte neuen Namen eingeben:")
			poi_new = poi_namen[1] & "^NL^" & poi_namen[2] & "^NL^" & poi_namen[3] & "^NL^" & poi_namen[4] & "^NL^" & poi_namen[5] & "^NL^" & poi_namen[6] & "^NL^" & poi_namen[7] & "^NL^" & poi_namen[8] & "^NL^" & poi_namen[9] & "^NL^"
			WriteFile ("\Storage Card\Sokobana\MortScript\poi_namen.txt", %poi_new%)
			Run ("\Storage Card\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_namen[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\*.*")
	  		poi_namen[8] = "Name 8"
    		poi_new = poi_namen[1] & "^NL^" & poi_namen[2] & "^NL^" & poi_namen[3] & "^NL^" & poi_namen[4] & "^NL^" & poi_namen[5] & "^NL^" & poi_namen[6] & "^NL^" & poi_namen[7] & "^NL^" & poi_namen[8] & "^NL^" & poi_namen[9] & "^NL^"
				WriteFile ("\Storage Card\Sokobana\MortScript\poi_namen.txt", %poi_new%)
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				DelTree ("My Flash Disk\Navigation\poi\*.*")
				Run ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 copy=\My Flash Disk\Navigation\Skin480x272\poi_8|\My Flash Disk\Navigation\poi|2")
				SleepMessage (3,"Bitte warten! System wird neu gestartet!")
				If ( WndExists ("GoPal Navigator") )
					SleepMessage (3,"Bitte warten! System wird neu gestartet!")
					CallScript ("\Storage Card\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 ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 sip=1")
			Sleep 50
		  poi_namen[8] = Input( "Bitte neuen Namen eingeben:")
			poi_new = poi_namen[1] & "^NL^" & poi_namen[2] & "^NL^" & poi_namen[3] & "^NL^" & poi_namen[4] & "^NL^" & poi_namen[5] & "^NL^" & poi_namen[6] & "^NL^" & poi_namen[7] & "^NL^" & poi_namen[8] & "^NL^" & poi_namen[9] & "^NL^"
			WriteFile ("\Storage Card\Sokobana\MortScript\poi_namen.txt", %poi_new%)
			Run ("\Storage Card\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_namen[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\*.*")
	  		poi_namen[9] = "Name 9"
    		poi_new = poi_namen[1] & "^NL^" & poi_namen[2] & "^NL^" & poi_namen[3] & "^NL^" & poi_namen[4] & "^NL^" & poi_namen[5] & "^NL^" & poi_namen[6] & "^NL^" & poi_namen[7] & "^NL^" & poi_namen[8] & "^NL^" & poi_namen[9] & "^NL^"
				WriteFile ("\Storage Card\Sokobana\MortScript\poi_namen.txt", %poi_new%)
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				DelTree ("My Flash Disk\Navigation\poi\*.*")
				Run ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 copy=\My Flash Disk\Navigation\Skin480x272\poi_9|\My Flash Disk\Navigation\poi|2")
				SleepMessage (3,"Bitte warten! System wird neu gestartet!")
				If ( WndExists ("GoPal Navigator") )
					SleepMessage (3,"Bitte warten! System wird neu gestartet!")
					CallScript ("\Storage Card\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 ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 sip=1")
			Sleep 50
		  poi_namen[9] = Input( "Bitte neuen Namen eingeben:")
			poi_new = poi_namen[1] & "^NL^" & poi_namen[2] & "^NL^" & poi_namen[3] & "^NL^" & poi_namen[4] & "^NL^" & poi_namen[5] & "^NL^" & poi_namen[6] & "^NL^" & poi_namen[7] & "^NL^" & poi_namen[8] & "^NL^" & poi_namen[9] & "^NL^"
			WriteFile ("\Storage Card\Sokobana\MortScript\poi_namen.txt", %poi_new%)
			Run ("\Storage Card\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