Hi Pitter
Das wäre natürlich eleganter und vor allem zweckmäßiger .
Den File-Namen in eine Array einlesen habe ich irgendwo in MortScript gesehen , ich glaube bei den Navirunner Script , muss ich mal schauen.
Gruß Manni
Hi Pitter
Das wäre natürlich eleganter und vor allem zweckmäßiger .
Den File-Namen in eine Array einlesen habe ich irgendwo in MortScript gesehen , ich glaube bei den Navirunner Script , muss ich mal schauen.
Gruß Manni
Da hat sich doch glatt der GoPalWorld Skin dazu gesellt .:icon_mrgreen:
Zum glück haben Sie auch ihre PNG im eigenen Ordner , war aber trotzdem nicht so einfach aber wie ihr seht kein Problem .
Gruß Manni
mit GPW Skin :icon_mrgreen:
#########################################
# 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)
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)
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)
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)
Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.xml",1)
Endif
EndIf
If (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\GoPalWorld\"))
l=l+1
liste[l]="GoPalWorld_Skin"
If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.bsf" )
Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.bsf",1)
Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.xml",1)
Endif
EndIf
SetChoiceEntryFormat ( 30 , 20 , Arial )
auswahl=Choice ("Version","Wähle aus:^NL^ Welchen Skin du benutzen möchtest!",vorbelegung,0,liste)
##############################################################
Skin=liste[auswahl]
# Message(Skin)
If (Skin eq "GoPal original Skin")
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
ElseIf (Skin eq "Team_Skin")
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
ElseIf (Skin eq "Navirunner_Skin")
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
ElseIf (Skin eq "HePe_Skin")
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
ElseIf (Skin eq "Pumuckel_Skin")
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
ElseIf (Skin eq "GoPalWorld_Skin")
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.*")
section[block] = auswahl
EndIf
# Gewählte Optionen zurückschreiben
Call("iniFile", "Write", "Skin Version")
#########################################
Alles anzeigen
Ja stimmt ist der gleiche Name aber das Icon hat ein Kreisel .:icon_mrgreen:
Muss ich vorm nächsten Update eindeutig ändern .
MapColor Editor müsste mit den neuen Builds klappen , ich habe es aber noch nicht getestet .
Gruß Manni
Ich wollte das mal so in unserm Skin einsetzen , die Skin Ordner sind ja Original von Skiner so angelegt außer unser TeamSkin und Pumuckel Skin aber das war kein Problem das zu ändern .
So können die User sich einfach mehrere Skins hintereinander aufziehen und tauschen und wen sie nicht so gern möchten lassen Sie einfach weg , die Reihenfolge passt sich ja jetzt selbst an .
Alle Skins müssen natürlich für die Build der Original gedacht sein .
Und wenn mal eine neue PFSkin.skn oder von Skiner als PFSkin.bsf kommt wird diese nach dem testen und nächsten Skin Tausch in Elemente gesichert , deswegen das Löschern der ***.bsf und ***.xml aus Elemente des aktiven Skin ., außer Original Skin .
Edit:
Die Skins selbst müssen nach wie vor vom Skiner bezogen werden , das würde sonst auch keinen Sinn machen , ich liefere nur das Script für SkinTausch .
Und je nach dem welches StartMenü der Skins man haben möchte , dieser Skin muss dann eben zum Schluss installiert werden .
Falls sich bei den StartMenüs was vermischt muss man ein bisschen nachkorrigieren , das habe ich noch nicht getestet .
All das geht natürlich nur wenn der Skiner seine Bilder Icons ( PNG) in einem eigenen Ordner hat , so wie Nanirunner und HePe und jetzt GoPalWorld , wir mit dem TeamSkin und Pumuckel Skin sind da noch nicht so weit , ich habe unsere TeamSkin und Pumuckel die PFSkin.skn erst mal nur für meinen Zweck angepasst , das müssten dann schon die Skiner machen sonst würde das auch keinen Sinn machen.
Gruß Manni
Mit ElseIf im unteren Teil , im oberen klappt das nicht mit ElseIf , dann bekomme ich nur den ersten und letzten Skin zu sehen , so ist es aber schon sehrgut .
#########################################
# 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)
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)
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)
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)
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)
##############################################################
Skin=liste[auswahl]
# Message(Skin)
If (Skin eq "GoPal original Skin")
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
ElseIf (Skin eq "Team_Skin")
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
ElseIf (Skin eq "Navirunner_Skin")
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
ElseIf (Skin eq "HePe_Skin")
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
ElseIf (Skin eq "Pumuckel_Skin")
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
# Gewählte Optionen zurückschreiben
Call("iniFile", "Write", "Skin Version")
#########################################
Alles anzeigen
Danke danke Ralf
Klappt hervorragend , so kann man Skins auch mitten drin weg lassen . :top_002: :Respekt:
Habe im oberen Teil noch einige If not FileExists und EndIf raus genommen einmal pro Skin If not FileExists reicht , es betrifft ja auf jeden Fall beide Files die ***.bsf und ***.xml , das stammte noch aus der Entwicklung .
Auch Pitter und Pumuckel ein goßen Dank .
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)
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)
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)
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)
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)
##############################################################
Skin=liste[auswahl]
# Message(Skin)
If (Skin eq "GoPal original Skin")
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 (Skin eq "Team_Skin")
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 (Skin eq "Navirunner_Skin")
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 (Skin eq "HePe_Skin")
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 (Skin eq "Pumuckel_Skin")
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
# Gewählte Optionen zurückschreiben
Call("iniFile", "Write", "Skin Version")
#########################################
Alles anzeigen
Wild herumgeklickt ?
Das wäre eine Möglichkeit , das der Tauscher es vielleicht nicht geschafft hat die Farbe fertig zu tauschen und das GoPal dann aus der mapconfig_default_0.mxf eine neue mapconfig_default_0.mbf erzeugt und dabei auch was nicht geklappt hat und das alles während der Navigation .
Gruß Manni
Ja stimmt , da hast du schon recht.
Gruß Manni
Die INI bekommt für Skin Tausch nur diesen einen Eintrag .
[Skin Version]
SKIN=2
Ich könnt das auch in AHK umsetzen aber so ein Aufwand wollte ich für ein paar Files tauschen eigentlich nicht treiben , zumal das Script von Navirunner ja sein Zweck erfüllt
@ Pumuckel
im oberen Teil ist nicht das Problem , da klappt ja alles auch wenn ein Skin dazwischen weg bleibt , im unteren Teil muss ich es anders angehen .
Gruß Manni
Hallo Pitter
MortScript Anleitung in PDF hier.
Gruß Manni
Micha das kann eigentlich nicht an den Map-Farben liegen , meine ich .
Edit:
Habe jetzt auch mit Pumuckel Map-Farben bis Hamburg simuliert , geht .
Gruß Manni
In etwa passt er schon biss auf ein paar Kleinigkeiten .
Aber ich würde noch warten biss Navirunner aus dem Uhrlaub wieder zurück ist , er hat schon den neuen Skin für 94xxx so gut wie fertig ( schon getestet ) , der geht sogar auf der neusten Build 94809 .
Ich hoffe nur das ich dies schon verraten durfte .
Gruß Manni
Kein Problem Micha , geht , Altena nach Hamburg , nur Simulation , aber Simu. braucht meistens mehr an Speicher als im wirklichen Leben.
Oder mit Höhenprofil ?
Edit:
Wenn mit den Map-Farben was nicht passt müsste es eigentlich sofort zu sehen sein , war jedenfalls bis jetzt immer so .
Gruß Manni
Hallo Micha
Welche Map-Farben meinst du ?
Im Skin sind doch nur die Map-Farben die schon im Ordner MapConfigs sind .
In SkinMenü die tauschbaren Map-Farben müssen doch extra aus dem Downloadbereich geladen werden , die gehen alle , das hatte ich als die erste Build 94xxx kam sofort getestet und jetzt auch noch mal , die Map-Farben gehen selbst mit der neusten Build 94809.
Da musst du was verkehrtes im Tauscher gehabt haben .
Gruß Manni
Hast Recht Ralf.
GoMan läuft jetzt so gut da sollte man nicht was einbringen was eh nur zwei drei Mann benutzen , da hat man sich schnell was verbogen was man irgendwann mal feststellt .
So oft brauch man es auch nicht umbenennen .
Gruß Manni
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