################################################
###                                          ###
#######         Touren-Tauscher          #######
###                                          ###
#######                                  #######
###         (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           ###
############################################################
# nach einem Script von hsuelzen
# Version 1.0
#
# Änderung am 20.08.08: Erstellung
# 
# 
#
# --------------------------------------------------------------------

Run ("\My Flash Disk\navigation\Setting.exe")
Sleep (1000)
MouseClick ("Settings", 385, 105)
If NOT (FileExists ("\My Flash Disk\Sokobana\MortScript\touren.ini"))
			IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_1", "Name", "Name 1")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_2", "Name", "Name 2")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_3", "Name", "Name 3")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_4", "Name", "Name 4")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_5", "Name", "Name 5")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_6", "Name", "Name 6")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_7", "Name", "Name 7")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_8", "Name", "Name 8")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_9", "Name", "Name 9")																					
EndIf

tour_1 = IniRead ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_1", "Name")
tour_2 = IniRead ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_2", "Name")
tour_3 = IniRead ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_3", "Name")
tour_4 = IniRead ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_4", "Name")
tour_5 = IniRead ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_5", "Name")
tour_6 = IniRead ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_6", "Name")
tour_7 = IniRead ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_7", "Name")
tour_8 = IniRead ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_8", "Name")
tour_9 = IniRead ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_9", "Name")


TOURENAUSWAHL[1] = "Tour 1: " & %tour_1%
TOURENAUSWAHL[2] = "Tour 2: " & %tour_2%
TOURENAUSWAHL[3] = "Tour 3: " & %tour_3%
TOURENAUSWAHL[4] = "Tour 4: " & %tour_4%
TOURENAUSWAHL[5] = "Tour 5: " & %tour_5%
TOURENAUSWAHL[6] = "Tour 6: " & %tour_6%
TOURENAUSWAHL[7] = "Tour 7: " & %tour_7%
TOURENAUSWAHL[8] = "Tour 8: " & %tour_8%
TOURENAUSWAHL[9] = "Tour 9: " & %tour_9%

Choice ("Touren-Auswahl","Bitte wählen Sie die gewünschte Tour aus:", TOURENAUSWAHL)

# Tour 1:
Case (1)
	If (FileExists ("\My Flash Disk\settings\Navigation\1_tourplan.xml"))
		Switch ( question (%tour_1% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Diese Tour übernehmen" & "^CR^" & "No = Diese Tour löschen" & "^CR^" & "X = Abbruch","Auswahl","YesNoCancel"))
				Case (0) # Löschen
				Delete ("\My Flash Disk\settings\Navigation\1_tourplan.xml")
				IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_1", "Name", "Name 1")
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				Copy ("\My Flash Disk\settings\Navigation\1_tourplan.xml","\My Flash Disk\settings\Navigation\tourplan.xml",1)
				Call RestartGoPal
			Case (2) # Abbruch
				Show ("GoPal Navigator")
		EndSwitch
	EndIf
	If NOT (FileExists ("\My Flash Disk\settings\Navigation\1_tourplan.xml"))
		If( question( "Aktuelle Tour als Tour 1 in den Tourentauscher übernehmen?" ) )
		  	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
				Sleep 50
		  	tour_1 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%tour_1%)
				IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_1", "Name", %tour_1%)
				Copy ("\My Flash Disk\settings\Navigation\tourplan.xml","\My Flash Disk\settings\Navigation\1_tourplan.xml",1)
				Message ("Die aktuelle Tour wurde übernommen")
				Show ("GoPal Navigator")
			Else
				Show ("GoPal Navigator")
		EndIf
	EndIf

# Tour 2:
Case (2)
	If (FileExists ("\My Flash Disk\settings\Navigation\2_tourplan.xml"))
		Switch ( question (%tour_2% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Diese Tour übernehmen" & "^CR^" & "No = Diese Tour löschen" & "^CR^" & "X = Abbruch","Auswahl","YesNoCancel"))
				Case (0) # Löschen
				Delete ("\My Flash Disk\settings\Navigation\2_tourplan.xml")
				IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_2", "Name", "Name 2")
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				Copy ("\My Flash Disk\settings\Navigation\2_tourplan.xml","\My Flash Disk\settings\Navigation\tourplan.xml",1)
				Call RestartGoPal
			Case (2) # Abbruch
				Show ("GoPal Navigator")
		EndSwitch
	EndIf
	If NOT (FileExists ("\My Flash Disk\settings\Navigation\2_tourplan.xml"))
		If( question( "Aktuelle Tour als Tour 2 in den Tourentauscher übernehmen?" ) )
		  	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
				Sleep 50
		  	tour_2 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%tour_2%)
				IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_2", "Name", %tour_2%)
				Copy ("\My Flash Disk\settings\Navigation\tourplan.xml","\My Flash Disk\settings\Navigation\2_tourplan.xml",1)
				Message ("Die aktuelle Tour wurde übernommen")
				Show ("GoPal Navigator")
			Else
				Show ("GoPal Navigator")
		EndIf
	EndIf

# Tour 3:
Case (3)
	If (FileExists ("\My Flash Disk\settings\Navigation\3_tourplan.xml"))
		Switch ( question (%tour_3% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Diese Tour übernehmen" & "^CR^" & "No = Diese Tour löschen" & "^CR^" & "X = Abbruch","Auswahl","YesNoCancel"))
				Case (0) # Löschen
				Delete ("\My Flash Disk\settings\Navigation\3_tourplan.xml")
				IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_3", "Name", "Name 3")
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				Copy ("\My Flash Disk\settings\Navigation\3_tourplan.xml","\My Flash Disk\settings\Navigation\tourplan.xml",1)
				Call RestartGoPal
			Case (2) # Abbruch
				Show ("GoPal Navigator")
		EndSwitch
	EndIf
	If NOT (FileExists ("\My Flash Disk\settings\Navigation\3_tourplan.xml"))
		If( question( "Aktuelle Tour als Tour 3 in den Tourentauscher übernehmen?" ) )
		  	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
				Sleep 50
		  	tour_3 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%tour_3%)
				IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_3", "Name", %tour_3%)
				Copy ("\My Flash Disk\settings\Navigation\tourplan.xml","\My Flash Disk\settings\Navigation\3_tourplan.xml",1)
				Message ("Die aktuelle Tour wurde übernommen")
				Show ("GoPal Navigator")
			Else
				Show ("GoPal Navigator")
		EndIf
	EndIf

# Tour 4:
Case (4)
	If (FileExists ("\My Flash Disk\settings\Navigation\4_tourplan.xml"))
		Switch ( question (%tour_4% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Diese Tour übernehmen" & "^CR^" & "No = Diese Tour löschen" & "^CR^" & "X = Abbruch","Auswahl","YesNoCancel"))
				Case (0) # Löschen
				Delete ("\My Flash Disk\settings\Navigation\4_tourplan.xml")
				IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_4", "Name", "Name 4")
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				Copy ("\My Flash Disk\settings\Navigation\4_tourplan.xml","\My Flash Disk\settings\Navigation\tourplan.xml",1)
				Call RestartGoPal
			Case (2) # Abbruch
				Show ("GoPal Navigator")
		EndSwitch
	EndIf
	If NOT (FileExists ("\My Flash Disk\settings\Navigation\4_tourplan.xml"))
		If( question( "Aktuelle Tour als Tour 4 in den Tourentauscher übernehmen?" ) )
		  	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
				Sleep 50
		  	tour_4 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%tour_4%)
				IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_4", "Name", %tour_4%)
				Copy ("\My Flash Disk\settings\Navigation\tourplan.xml","\My Flash Disk\settings\Navigation\4_tourplan.xml",1)
				Message ("Die aktuelle Tour wurde übernommen")
				Show ("GoPal Navigator")
			Else
				Show ("GoPal Navigator")
		EndIf
	EndIf

# Tour 5:
Case (5)
	If (FileExists ("\My Flash Disk\settings\Navigation\5_tourplan.xml"))
		Switch ( question (%tour_5% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Diese Tour übernehmen" & "^CR^" & "No = Diese Tour löschen" & "^CR^" & "X = Abbruch","Auswahl","YesNoCancel"))
				Case (0) # Löschen
				Delete ("\My Flash Disk\settings\Navigation\5_tourplan.xml")
				IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_5", "Name", "Name 5")
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				Copy ("\My Flash Disk\settings\Navigation\5_tourplan.xml","\My Flash Disk\settings\Navigation\tourplan.xml",1)
				Call RestartGoPal
			Case (2) # Abbruch
				Show ("GoPal Navigator")
		EndSwitch
	EndIf
	If NOT (FileExists ("\My Flash Disk\settings\Navigation\5_tourplan.xml"))
		If( question( "Aktuelle Tour als Tour 5 in den Tourentauscher übernehmen?" ) )
		  	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
				Sleep 50
		  	tour_5 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%tour_5%)
				IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_5", "Name", %tour_5%)
				Copy ("\My Flash Disk\settings\Navigation\tourplan.xml","\My Flash Disk\settings\Navigation\5_tourplan.xml",1)
				Message ("Die aktuelle Tour wurde übernommen")
				Show ("GoPal Navigator")
			Else
				Show ("GoPal Navigator")
		EndIf
	EndIf

# Tour 6:
Case (6)
	If (FileExists ("\My Flash Disk\settings\Navigation\6_tourplan.xml"))
		Switch ( question (%tour_6% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Diese Tour übernehmen" & "^CR^" & "No = Diese Tour löschen" & "^CR^" & "X = Abbruch","Auswahl","YesNoCancel"))
				Case (0) # Löschen
				Delete ("\My Flash Disk\settings\Navigation\6_tourplan.xml")
				IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_6", "Name", "Name 6")
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				Copy ("\My Flash Disk\settings\Navigation\6_tourplan.xml","\My Flash Disk\settings\Navigation\tourplan.xml",1)
				Call RestartGoPal
			Case (2) # Abbruch
				Show ("GoPal Navigator")
		EndSwitch
	EndIf
	If NOT (FileExists ("\My Flash Disk\settings\Navigation\6_tourplan.xml"))
		If( question( "Aktuelle Tour als Tour 6 in den Tourentauscher übernehmen?" ) )
		  	Run ("\My Flash Disk\Sokobana\Koord\koord466.exe", "window=0 sip=1")
				Sleep 50
		  	tour_6 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%tour_6%)
				IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_6", "Name", %tour_6%)
				Copy ("\My Flash Disk\settings\Navigation\tourplan.xml","\My Flash Disk\settings\Navigation\6_tourplan.xml",1)
				Message ("Die aktuelle Tour wurde übernommen")
				Show ("GoPal Navigator")
			Else
				Show ("GoPal Navigator")
		EndIf
	EndIf

# Tour 7:
Case (7)
	If (FileExists ("\My Flash Disk\settings\Navigation\7_tourplan.xml"))
		Switch ( question (%tour_7% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Diese Tour übernehmen" & "^CR^" & "No = Diese Tour löschen" & "^CR^" & "X = Abbruch","Auswahl","YesNoCancel"))
				Case (0) # Löschen
				Delete ("\My Flash Disk\settings\Navigation\7_tourplan.xml")
				IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_7", "Name", "Name 7")
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				Copy ("\My Flash Disk\settings\Navigation\7_tourplan.xml","\My Flash Disk\settings\Navigation\tourplan.xml",1)
				Call RestartGoPal
			Case (2) # Abbruch
				Show ("GoPal Navigator")
		EndSwitch
	EndIf
	If NOT (FileExists ("\My Flash Disk\settings\Navigation\7_tourplan.xml"))
		If( question( "Aktuelle Tour als Tour 7 in den Tourentauscher übernehmen?" ) )
		  	Run ("\My Flash Disk\Sokobana\Koord\koord477.exe", "window=0 sip=1")
				Sleep 50
		  	tour_7 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%tour_7%)
				IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_7", "Name", %tour_7%)
				Copy ("\My Flash Disk\settings\Navigation\tourplan.xml","\My Flash Disk\settings\Navigation\7_tourplan.xml",1)
				Message ("Die aktuelle Tour wurde übernommen")
				Show ("GoPal Navigator")
			Else
				Show ("GoPal Navigator")
		EndIf
	EndIf

# Tour 8:
Case (8)
	If (FileExists ("\My Flash Disk\settings\Navigation\8_tourplan.xml"))
		Switch ( question (%tour_8% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Diese Tour übernehmen" & "^CR^" & "No = Diese Tour löschen" & "^CR^" & "X = Abbruch","Auswahl","YesNoCancel"))
				Case (0) # Löschen
				Delete ("\My Flash Disk\settings\Navigation\8_tourplan.xml")
				IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_8", "Name", "Name 8")
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				Copy ("\My Flash Disk\settings\Navigation\8_tourplan.xml","\My Flash Disk\settings\Navigation\tourplan.xml",1)
				Call RestartGoPal
			Case (2) # Abbruch
				Show ("GoPal Navigator")
		EndSwitch
	EndIf
	If NOT (FileExists ("\My Flash Disk\settings\Navigation\8_tourplan.xml"))
		If( question( "Aktuelle Tour als Tour 8 in den Tourentauscher übernehmen?" ) )
		  	Run ("\My Flash Disk\Sokobana\Koord\koord488.exe", "window=0 sip=1")
				Sleep 50
		  	tour_8 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%tour_8%)
				IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_8", "Name", %tour_8%)
				Copy ("\My Flash Disk\settings\Navigation\tourplan.xml","\My Flash Disk\settings\Navigation\8_tourplan.xml",1)
				Message ("Die aktuelle Tour wurde übernommen")
				Show ("GoPal Navigator")
			Else
				Show ("GoPal Navigator")
		EndIf
	EndIf

# Tour 9:
Case (9)
	If (FileExists ("\My Flash Disk\settings\Navigation\9_tourplan.xml"))
		Switch ( question (%tour_9% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Diese Tour übernehmen" & "^CR^" & "No = Diese Tour löschen" & "^CR^" & "X = Abbruch","Auswahl","YesNoCancel"))
				Case (0) # Löschen
				Delete ("\My Flash Disk\settings\Navigation\9_tourplan.xml")
				IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_9", "Name", "Name 9")
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				Copy ("\My Flash Disk\settings\Navigation\9_tourplan.xml","\My Flash Disk\settings\Navigation\tourplan.xml",1)
				Call RestartGoPal
			Case (2) # Abbruch
				Show ("GoPal Navigator")
		EndSwitch
	EndIf
	If NOT (FileExists ("\My Flash Disk\settings\Navigation\9_tourplan.xml"))
		If( question( "Aktuelle Tour als Tour 9 in den Tourentauscher übernehmen?" ) )
		  	Run ("\My Flash Disk\Sokobana\Koord\koord499.exe", "window=0 sip=1")
				Sleep 50
		  	tour_9 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%tour_9%)
				IniWrite ("\My Flash Disk\Sokobana\MortScript\touren.ini", "TOUR_9", "Name", %tour_9%)
				Copy ("\My Flash Disk\settings\Navigation\tourplan.xml","\My Flash Disk\settings\Navigation\9_tourplan.xml",1)
				Message ("Die aktuelle Tour wurde übernommen")
				Show ("GoPal Navigator")
			Else
				Show ("GoPal Navigator")
		EndIf
	EndIf
Case (0)
	Show ("GoPal Navigator")
EndChoice

Sub RestartGoPal
				RunWait ("\My Flash Disk\Sokobana\MortScript\sokobana_auto_restart.mscr")
				#Close ( "GoPal Navigator" )
				#sleep ("2000")
				#RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.mscr")
				#Run ("\My Flash Disk\Sokobana\MortScript\startfrommenu.exe")
EndSub