Hallo Panik
So sieht es aus wenn aufgeräumt ist und sparen tut es auch noch aber es ist bestimmt noch mehr drin , ich bin immer noch der Anfänger der Koord und Mort Script-Geschichte . 
// Koord-Steuerungsdatei// in Ordner SkinMenu2// Das ist Zeile 3 window=0 SendKey=\l\My Flash Disk\programme\MortScript\MortScript.exe:"\My Flash Disk\programme\MortScript\M_Menu_Karten_Navi_Changer_Buttons.mscr" Parameter="StartMenu" |window=0 SendKey=\l\My Flash Disk\programme\MortScript\MortScript.exe:"\My Flash Disk\programme\MortScript\M_Back_Splasch_Scheinw_Panel.mscr" Parameter="Splaschsreens" |window=0 SendKey=\l\My Flash Disk\programme\MortScript\MortScript.exe:"\My Flash Disk\programme\MortScript\M_Menu_Karten_Navi_Changer_Buttons.mscr" Parameter="NavuButtons" |window=0 SendKey=\l\My Flash Disk\programme\MortScript\MortScript.exe:"\My Flash Disk\programme\MortScript\M_Menu_Karten_Navi_Changer_Buttons.mscr" Parameter="KartenButtons" |window=0 SendKey=\l\My Flash Disk\programme\MortScript\MortScript.exe:"\My Flash Disk\programme\MortScript\M_Back_Splasch_Scheinw_Panel.mscr" Parameter="Backrounds" |window=0 SendKey=\l\My Flash Disk\programme\MortScript\MortScript.exe:"\My Flash Disk\programme\MortScript\M_Menu_Karten_Navi_Changer_Buttons.mscr" Parameter="SkinButtons" |*include=\My Flash Disk\programme\SkinMenu\SkinMenu\SkinMenu1.txt*~// Das ist Zeile 12
das ist die M_Menu_Karten_Navi_Changer_Buttons.mscr
############################################# StartMenu-Buttons-Tauscher für GoPal 5 #############################################Sound = "\Storage Card\Changer\sounds"If (Parameter eq "StartMenu")Dirliste = "MENU"call("Pfadliste")auswahl = Choice ("Menütauscher","StartMenü Tauscher^NL^Diese Version wurde für den TEAMSKIN erstellt", Standard, 0, liste)If (auswahl) XCopy ("\Storage Card\Changer\Menu" \ liste[auswahl] \ "*.*", "\My Flash Disk\Startmenue\",1,1) sleep (300) Playsound(%Sound%&"\INFBEG.WAV")EndIfEndIf##################################### Karten-Button-Tauscher #####################################If (Parameter eq "KartenButtons")Dirliste = "Buttons"call("Pfadliste") auswahl = Choice ("Kartenbuttontauscher","Kartenbutton Tauscher^NL^Diese Version wurde für den TEAMSKIN erstellt", Standard, 0, liste)If (auswahl) XCopy ("\Storage Card\Changer\Buttons" \ liste[auswahl] \ "*.*", "\My Flash Disk\navigation\Skin480x272\PPSkin\480x272\PPSkin\",1) sleep (300) Playsound(%Sound%&"\INFBEG.WAV")EndIfEndIf###################################################### Navigations-Button-Tauscher für GoPal 5 ######################################################If (Parameter eq "NavuButtons")Dirliste = "Navigation"call("Pfadliste") auswahl = Choice ("Navigationbuttontauscher","Navigationbutton Tauscher^NL^Diese Version wurde für den TEAMSKIN erstellt", Standard, 0, liste)If (auswahl) XCopy ("\Storage Card\Changer\Navigation" \ liste[auswahl] \ "*.*", "\My Flash Disk\navigation\Skin480x272\PPSkin\480x272\",1,1) sleep (300) Playsound(%Sound%&"\INFBEG.WAV")EndIfEndIf################################################# SkinMenu-Buttons-Tauscher für GoPal 5 #################################################If (Parameter eq "SkinButtons")Dirliste = "Changer Menu"call("Pfadliste")auswahl = Choice ("Menütauscher","SkinMenü Tauscher^NL^Diese Version wurde für den TEAMSKIN erstellt", Standard, 0, liste)If (auswahl) XCopy ("\Storage Card\Changer\Changer Menu" \ liste[auswahl] \ "*.*", "\My Flash Disk\programme\SkinMenu\",1,1) XCopy ("\Storage Card\Changer\Changer Menu" \ liste[auswahl] \ "*.*", "\My Flash Disk\programme\SkinMenu\SkinMenu\",1,1) sleep (300) Playsound(%Sound%&"\INFBEG.WAV")EndIfEndIfsub Pfadlisteclear (liste)ForEach path in directories ("\Storage Card\Changer\" & Dirliste & "\*.*" ) dir = Part(path, "\", -1) liste[MaxIndex(liste) + 1] = Part(dir, "\", -1)EndForEachEndSub
Man könnte die Variable Dirliste auch noch von der Koord-Steuerungsdatei als zweiten Parameter übergeben lassen aber wozu , dadurch würde die Koord-Steuerungsdatei für uneingeweihte wieder undurchsichtig .
Der Ordner MortScript ist jetzt von 220 auf 99 Files geschrumpft und von 1.46 MB auf 628 KB , ich denke schon das sich das gelohnt hat.
Ein bisschen geht ja noch was.
Gruß Manni