Kann mir bitte mal jemand beim MortScript auf die Sprünge helfen , ich stehe irgendwie im dunklen ?
Wenn ich 5 Skins zur Auswahl habe und keiner dazwischen wegfällt passt alles aber wenn ich z. B. TeamSkin (TS) nicht habe rücken die unteren drei eine Position höher das passt auch , zumindest die Anzeige .
Aber im unteren Teil des Script bei der Auswahl müsste in diesem Fall wenn ein Skin dazwischen wegfällt die Nummerierung auch ein höher rücken , im diesem Fall müsste If (auswahl=(3)) zu If (auswahl=(2)) werden und so weiter .
Irgendwie komme ich nicht dahinter , habe schon so ähnlich wie in oberen Teil einiges versucht , es wurde nur schlimmer .
Ich sehe manchmal vor lauter Bäume den Wald nicht .
Edit:
Zum besseren nachvollziehen hänge ich mal die relevanten Dateien mit dran , sind ja die Skin-Daten des jeweiligen Skin , so wie der Skiner sie zur Verfügung gestellt hat .
RAR ist doppelt gepackt , so passt es grade noch zum anhängen .
Edit:
Ach so , Build 94xxx
Gruß Manni
#########################################
# Skin Version Auswahl by Navirunner #
#########################################
Include( "IniReadWrite.mscr" )
# Pfad\Name der ini-Datei
iniDatei = "NR-Skin.ini"
# Vorbelegungen einlesen
Call("iniFile", "Read","Skin Version")
#########################################
block = "Skin"
vorbelegung = section[block]
l=1
liste[l]="GoPal original Skin"
If (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\TS\"))
l=l+1
liste[l]="Team_Skin"
If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.bsf" )
Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.bsf",1)
Endif
If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.xml" )
Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.xml",1)
Endif
EndIf
If (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner\"))
l=l+1
liste[l]="Navirunner_Skin"
If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.bsf" )
Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.bsf",1)
Endif
If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.xml" )
Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.xml",1)
Endif
EndIf
If (DirExists("\My Flash Disk\Navigation\Skin480x272\Hepe\"))
l=l+1
liste[l]="HePe_Skin"
If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.bsf" )
Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.bsf",1)
Endif
If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.xml" )
Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.xml",1)
Endif
EndIf
If (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\PS\"))
l=l+1
liste[l]="Pumuckel_Skin"
If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.bsf" )
Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.bsf",1)
Endif
If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.xml" )
Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.xml",1)
Endif
EndIf
SetChoiceEntryFormat ( 30 , 20 , Arial )
auswahl=Choice ("Version","Wähle aus:^NL^ Welchen Skin du benutzen möchtest!",vorbelegung,0,liste)
##############################################################
[COLOR='#FF0000']If (auswahl=(1))
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
section[block] = auswahl
EndIf
If (auswahl=(2))
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.*")
section[block] = auswahl
EndIf
If (auswahl=(3))
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.*")
section[block] = auswahl
EndIf
If (auswahl=(4))
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.*")
section[block] = auswahl
EndIf
If (auswahl=(5))
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.*")
section[block] = auswahl
EndIf
[/COLOR]
# Gewählte Optionen zurückschreiben
Call("iniFile", "Write", "Skin Version")
#########################################
Alles anzeigen