################################################
###                                          ###
#######           Menutauscher           #######
###                                          ###
#######                                  #######
###         (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.2
#
# Änderung am 14.09.07: Txt-file mit den Namen erzeugen, wenn nicht vorhanden
# Änderung am 03.10.07: Verbesserte Abfrage eingebaut
# Änderung am 10.11.07: Umstellung auf INI-Datei
#
# --------------------------------------------------------------------

If not (FileExists ("\My Flash Disk\Sokobana\MortScript\menu.ini"))
			IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_1", "Name", "Name 1")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_2", "Name", "Name 2")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_3", "Name", "Name 3")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_4", "Name", "Name 4")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_5", "Name", "Name 5")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_6", "Name", "Name 6")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_7", "Name", "Name 7")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_8", "Name", "Name 8")
			IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_9", "Name", "Name 9")																					
EndIf

menu_1 = IniRead ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_1", "Name")
menu_2 = IniRead ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_2", "Name")
menu_3 = IniRead ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_3", "Name")
menu_4 = IniRead ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_4", "Name")
menu_5 = IniRead ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_5", "Name")
menu_6 = IniRead ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_6", "Name")
menu_7 = IniRead ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_7", "Name")
menu_8 = IniRead ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_8", "Name")
menu_9 = IniRead ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_9", "Name")

MENUAUSWAHL[1] = "Menü 1: " & %menu_1%
MENUAUSWAHL[2] = "Menü 2: " & %menu_2%
MENUAUSWAHL[3] = "Menü 3: " & %menu_3%
MENUAUSWAHL[4] = "Menü 4: " & %menu_4%
MENUAUSWAHL[5] = "Menü 5: " & %menu_5%
MENUAUSWAHL[6] = "Menü 6: " & %menu_6%
MENUAUSWAHL[7] = "Menü 7: " & %menu_7%
MENUAUSWAHL[8] = "Menü 8: " & %menu_8%
MENUAUSWAHL[9] = "Menü 9: " & %menu_9%

Choice ("Startmenue-Auswahl","Bitte wählen Sie das gewünschte Startmenü aus:", MENUAUSWAHL)

# Menü 1:
Case (1)
	If (FileExists ("\My Flash Disk\Navigation\menu\menu_01.xml"))
		Switch ( question (%menu_1% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Dieses Menü anzeigen" & "^CR^" & "No = Dieses Menü löschen" & "^CR^" & "Cancel = Abbruch","Auswahl","YesNoCancel"))
				Case (0) # Löschen
				Message ("Nicht erlaubt!")
			Case (1) # Wechseln
				Copy ("\My Flash Disk\Navigation\menu\menu_01.xml","\My Flash Disk\Navigation\menu\menu.xml",1)
				DelTree ("My Flash Disk\Navigation\menu\480272\*.*")
				XCopy ("\My Flash Disk\Navigation\menu\480272_01\*.*","\My Flash Disk\Navigation\menu\480272\",1)
				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 (FileExists ("\My Flash Disk\Navigation\menu\menu_01.xml"))
		If( question( "Aktuelles Menü als Menü 1 in den Menütauscher übernehmen?" ) )
		  	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
				Sleep 50
		  	menu_1 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%menu_1%)
				IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_1", "Name", %menu_1%)
				Copy ("\My Flash Disk\Navigation\menu\menu.xml","\My Flash Disk\Navigation\menu\menu_01.xml",1)
				XCopy ("\My Flash Disk\Navigation\menu\480272\*.*","\My Flash Disk\Navigation\menu\480272_01\",1)
				Message ("Das aktuelle Menü wurde übernommen")
				Exit
			Else
				Exit
		EndIf
	EndIf

# Menü 2:
Case (2)
	If (FileExists ("\My Flash Disk\Navigation\menu\menu_02.xml"))
		Switch ( question (%menu_2% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Dieses Menü anzeigen" & "^CR^" & "No = Dieses Menü löschen" & "^CR^" & "Cancel = Abbruch","Auswahl","YesNoCancel"))
				Case (0) # Löschen
				Delete ("\My Flash Disk\Navigation\menu\menu_02.xml")
				DelTree ("My Flash Disk\Navigation\menu\480272_02\*.*")
				IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_2", "Name", "Name 2")
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				Copy ("\My Flash Disk\Navigation\menu\menu_02.xml","\My Flash Disk\Navigation\menu\menu.xml",1)
				DelTree ("My Flash Disk\Navigation\menu\480272\*.*")
				XCopy ("\My Flash Disk\Navigation\menu\480272_02\*.*","\My Flash Disk\Navigation\menu\480272\",1)
				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 (FileExists ("\My Flash Disk\Navigation\menu\menu_02.xml"))
		If( question( "Aktuelles Menü als Menü 2 in den Menütauscher übernehmen?" ) )
		  	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
				Sleep 50
		  	menu_2 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%menu_2%)
				IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_2", "Name", %menu_2%)
				Copy ("\My Flash Disk\Navigation\menu\menu.xml","\My Flash Disk\Navigation\menu\menu_02.xml",1)
				XCopy ("\My Flash Disk\Navigation\menu\480272\*.*","\My Flash Disk\Navigation\menu\480272_02\",1)
				Message ("Das aktuelle Menü wurde übernommen")
				Exit
			Else
				Exit
		EndIf
	EndIf

# Menü 3:
Case (3)
	If (FileExists ("\My Flash Disk\Navigation\menu\menu_03.xml"))
		Switch ( question (%menu_3% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Dieses Menü anzeigen" & "^CR^" & "No = Dieses Menü löschen" & "^CR^" & "Cancel = Abbruch","Auswahl","YesNoCancel"))
				Case (0) # Löschen
				Delete ("\My Flash Disk\Navigation\menu\menu_03.xml")
				DelTree ("My Flash Disk\Navigation\menu\480272_03\*.*")
				IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_3", "Name", "Name 3")
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				Copy ("\My Flash Disk\Navigation\menu\menu_03.xml","\My Flash Disk\Navigation\menu\menu.xml",1)
				DelTree ("My Flash Disk\Navigation\menu\480272\*.*")
				XCopy ("\My Flash Disk\Navigation\menu\480272_03\*.*","\My Flash Disk\Navigation\menu\480272\",1)
				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 (FileExists ("\My Flash Disk\Navigation\menu\menu_03.xml"))
		If( question( "Aktuelles Menü als Menü 3 in den Menütauscher übernehmen?" ) )
		  	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
				Sleep 50
		  	menu_3 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%menu_3%)
				IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_3", "Name", %menu_3%)
				Copy ("\My Flash Disk\Navigation\menu\menu.xml","\My Flash Disk\Navigation\menu\menu_03.xml",1)
				XCopy ("\My Flash Disk\Navigation\menu\480272\*.*","\My Flash Disk\Navigation\menu\480272_03\",1)
				Message ("Das aktuelle Menü wurde übernommen")
				Exit
			Else
				Exit
		EndIf
	EndIf

# Menü 4:
Case (4)
	If (FileExists ("\My Flash Disk\Navigation\menu\menu_04.xml"))
		Switch ( question (%menu_4% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Dieses Menü anzeigen" & "^CR^" & "No = Dieses Menü löschen" & "^CR^" & "Cancel = Abbruch","Auswahl","YesNoCancel"))
				Case (0) # Löschen
				Delete ("\My Flash Disk\Navigation\menu\menu_04.xml")
				DelTree ("My Flash Disk\Navigation\menu\480272_04\*.*")
				IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_4", "Name", "Name 4")
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				Copy ("\My Flash Disk\Navigation\menu\menu_04.xml","\My Flash Disk\Navigation\menu\menu.xml",1)
				DelTree ("My Flash Disk\Navigation\menu\480272\*.*")
				XCopy ("\My Flash Disk\Navigation\menu\480272_04\*.*","\My Flash Disk\Navigation\menu\480272\",1)
				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 (FileExists ("\My Flash Disk\Navigation\menu\menu_04.xml"))
		If( question( "Aktuelles Menü als Menü 3 in den Menütauscher übernehmen?" ) )
		  	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
				Sleep 50
		  	menu_4 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%menu_4%)
				IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_4", "Name", %menu_4%)
				Copy ("\My Flash Disk\Navigation\menu\menu.xml","\My Flash Disk\Navigation\menu\menu_04.xml",1)
				XCopy ("\My Flash Disk\Navigation\menu\480272\*.*","\My Flash Disk\Navigation\menu\480272_04\",1)
				Message ("Das aktuelle Menü wurde übernommen")
				Exit
			Else
				Exit
		EndIf
	EndIf

# Menü 5:
Case (5)
	If (FileExists ("\My Flash Disk\Navigation\menu\menu_05.xml"))
		Switch ( question (%menu_5% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Dieses Menü anzeigen" & "^CR^" & "No = Dieses Menü löschen" & "^CR^" & "Cancel = Abbruch","Auswahl","YesNoCancel"))
				Case (0) # Löschen
				Delete ("\My Flash Disk\Navigation\menu\menu_05.xml")
				DelTree ("My Flash Disk\Navigation\menu\480272_05\*.*")
				IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_5", "Name", "Name 5")
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				Copy ("\My Flash Disk\Navigation\menu\menu_05.xml","\My Flash Disk\Navigation\menu\menu.xml",1)
				DelTree ("My Flash Disk\Navigation\menu\480272\*.*")
				XCopy ("\My Flash Disk\Navigation\menu\480272_05\*.*","\My Flash Disk\Navigation\menu\480272\",1)
				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 (FileExists ("\My Flash Disk\Navigation\menu\menu_05.xml"))
		If( question( "Aktuelles Menü als Menü 3 in den Menütauscher übernehmen?" ) )
		  	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
				Sleep 50
		  	menu_5 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%menu_5%)
				IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_5", "Name", %menu_5%)
				Copy ("\My Flash Disk\Navigation\menu\menu.xml","\My Flash Disk\Navigation\menu\menu_05.xml",1)
				XCopy ("\My Flash Disk\Navigation\menu\480272\*.*","\My Flash Disk\Navigation\menu\480272_05\",1)
				Message ("Das aktuelle Menü wurde übernommen")
				Exit
			Else
				Exit
		EndIf
	EndIf

# Menü 6:
Case (6)
	If (FileExists ("\My Flash Disk\Navigation\menu\menu_06.xml"))
		Switch ( question (%menu_6% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Dieses Menü anzeigen" & "^CR^" & "No = Dieses Menü löschen" & "^CR^" & "Cancel = Abbruch","Auswahl","YesNoCancel"))
				Case (0) # Löschen
				Delete ("\My Flash Disk\Navigation\menu\menu_06.xml")
				DelTree ("My Flash Disk\Navigation\menu\480272_06\*.*")
				IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_6", "Name", "Name 6")
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				Copy ("\My Flash Disk\Navigation\menu\menu_06.xml","\My Flash Disk\Navigation\menu\menu.xml",1)
				DelTree ("My Flash Disk\Navigation\menu\480272\*.*")
				XCopy ("\My Flash Disk\Navigation\menu\480272_06\*.*","\My Flash Disk\Navigation\menu\480272\",1)
				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 (FileExists ("\My Flash Disk\Navigation\menu\menu_06.xml"))
		If( question( "Aktuelles Menü als Menü 3 in den Menütauscher übernehmen?" ) )
		  	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
				Sleep 50
		  	menu_6 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%menu_6%)
				IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_6", "Name", %menu_6%)
				Copy ("\My Flash Disk\Navigation\menu\menu.xml","\My Flash Disk\Navigation\menu\menu_06.xml",1)
				XCopy ("\My Flash Disk\Navigation\menu\480272\*.*","\My Flash Disk\Navigation\menu\480272_06\",1)
				Message ("Das aktuelle Menü wurde übernommen")
				Exit
			Else
				Exit
		EndIf
	EndIf

# Menü 7:
Case (7)
	If (FileExists ("\My Flash Disk\Navigation\menu\menu_07.xml"))
		Switch ( question (%menu_7% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Dieses Menü anzeigen" & "^CR^" & "No = Dieses Menü löschen" & "^CR^" & "Cancel = Abbruch","Auswahl","YesNoCancel"))
				Case (0) # Löschen
				Delete ("\My Flash Disk\Navigation\menu\menu_07.xml")
				DelTree ("My Flash Disk\Navigation\menu\480272_07\*.*")
				IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_7", "Name", "Name 7")
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				Copy ("\My Flash Disk\Navigation\menu\menu_07.xml","\My Flash Disk\Navigation\menu\menu.xml",1)
				DelTree ("My Flash Disk\Navigation\menu\480272\*.*")
				XCopy ("\My Flash Disk\Navigation\menu\480272_07\*.*","\My Flash Disk\Navigation\menu\480272\",1)
				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 (FileExists ("\My Flash Disk\Navigation\menu\menu_07.xml"))
		If( question( "Aktuelles Menü als Menü 3 in den Menütauscher übernehmen?" ) )
		  	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
				Sleep 50
		  	menu_7 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%menu_7%)
				IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_7", "Name", %menu_7%)
				Copy ("\My Flash Disk\Navigation\menu\menu.xml","\My Flash Disk\Navigation\menu\menu_07.xml",1)
				XCopy ("\My Flash Disk\Navigation\menu\480272\*.*","\My Flash Disk\Navigation\menu\480272_07\",1)
				Message ("Das aktuelle Menü wurde übernommen")
				Exit
			Else
				Exit
		EndIf
	EndIf

# Menü 8:
Case (8)
	If (FileExists ("\My Flash Disk\Navigation\menu\menu_08.xml"))
		Switch ( question (%menu_8% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Dieses Menü anzeigen" & "^CR^" & "No = Dieses Menü löschen" & "^CR^" & "Cancel = Abbruch","Auswahl","YesNoCancel"))
				Case (0) # Löschen
				Delete ("\My Flash Disk\Navigation\menu\menu_08.xml")
				DelTree ("My Flash Disk\Navigation\menu\480272_08\*.*")
				IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_8", "Name", "Name 8")
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				Copy ("\My Flash Disk\Navigation\menu\menu_08.xml","\My Flash Disk\Navigation\menu\menu.xml",1)
				DelTree ("My Flash Disk\Navigation\menu\480272\*.*")
				XCopy ("\My Flash Disk\Navigation\menu\480272_08\*.*","\My Flash Disk\Navigation\menu\480272\",1)
				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 (FileExists ("\My Flash Disk\Navigation\menu\menu_08.xml"))
		If( question( "Aktuelles Menü als Menü 3 in den Menütauscher übernehmen?" ) )
		  	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
				Sleep 50
		  	menu_8 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%menu_8%)
				IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_8", "Name", %menu_8%)
				Copy ("\My Flash Disk\Navigation\menu\menu.xml","\My Flash Disk\Navigation\menu\menu_08.xml",1)
				XCopy ("\My Flash Disk\Navigation\menu\480272\*.*","\My Flash Disk\Navigation\menu\480272_08\",1)
				Message ("Das aktuelle Menü wurde übernommen")
				Exit
			Else
				Exit
		EndIf
	EndIf

# Menü 9:
Case (9)
	If (FileExists ("\My Flash Disk\Navigation\menu\menu_09.xml"))
		Switch ( question (%menu_9% & "^CR^" & "Bitte wählen Sie eine Aktion:" & "^CR^" & "Yes = Dieses Menü anzeigen" & "^CR^" & "No = Dieses Menü löschen" & "^CR^" & "Cancel = Abbruch","Auswahl","YesNoCancel"))
				Case (0) # Löschen
				Delete ("\My Flash Disk\Navigation\menu\menu_09.xml")
				DelTree ("My Flash Disk\Navigation\menu\480272_09\*.*")
				IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_9", "Name", "Name 9")
				Message ("Daten wurden gelöscht")
			Case (1) # Wechseln
				Copy ("\My Flash Disk\Navigation\menu\menu_09.xml","\My Flash Disk\Navigation\menu\menu.xml",1)
				DelTree ("My Flash Disk\Navigation\menu\480272\*.*")
				XCopy ("\My Flash Disk\Navigation\menu\480272_09\*.*","\My Flash Disk\Navigation\menu\480272\",1)
				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 (FileExists ("\My Flash Disk\Navigation\menu\menu_09.xml"))
		If( question( "Aktuelles Menü als Menü 3 in den Menütauscher übernehmen?" ) )
		  	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
				Sleep 50
		  	menu_9 = Input( "Bitte neuen Namen eingeben:","Name ?","","",%menu_9%)
				IniWrite ("\My Flash Disk\Sokobana\MortScript\menu.ini", "MENU_9", "Name", %menu_9%)
				Copy ("\My Flash Disk\Navigation\menu\menu.xml","\My Flash Disk\Navigation\menu\menu_09.xml",1)
				XCopy ("\My Flash Disk\Navigation\menu\480272\*.*","\My Flash Disk\Navigation\menu\480272_09\",1)
				Message ("Das aktuelle Menü wurde übernommen")
				Exit
			Else
				Exit
		EndIf
	EndIf


Case (0)
	Exit
EndChoice