#########################################
# 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\Hepe\"))
If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.bsf" )
If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\H_Standard.de_DE.xml" )
Copy ("\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml", "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\H_Standard.de_DE.xml",1)
EndIf
EndIf
EndIf
If (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\GoPalWorld\"))
If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.bsf" )
If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW_Standard.de_DE.xml" )
Copy ("\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml", "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW_Standard.de_DE.xml",1)
EndIf
EndIf
EndIf
If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml" )
MkDir( "\My Flash Disk\Navigation\Skin480x272\Elemente" )
MkDir( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin" )
Copy ("\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml",1)
EndIf
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_Black_Pearl_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\PPSkin\Navirunner\"))
l=l+1
liste[l]="Navirunner_BP_New_Line_Skin"
If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\NL.bsf" )
Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\NL.bsf",1)
Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\NL.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)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
section[block] = auswahl
#Message("Original")
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)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.*")
section[block] = auswahl
#Message("Team")
ElseIf (Skin eq "Navirunner_Black_Pearl_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)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.*")
If (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_BP\"))
rename("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner", "\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_NL",1)
rename("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_BP", "\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner",1)
EndIf
section[block] = auswahl
#Message("Navirunner BP ")
ElseIf (Skin eq "Navirunner_BP_New_Line_Skin")
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\NL.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\NL.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\NL.*")
If (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_NL\"))
rename("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner", "\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_BP",1)
rename("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_NL", "\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner",1)
EndIf
section[block] = auswahl
#Message("Navirunner BP New Line")
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)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\H_Standard.de_DE.xml", "\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml",1)
Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.*")
section[block] = auswahl
Message("HePe")
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)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.*")
section[block] = auswahl
#Message("Pumuckel")
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)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW_Standard.de_DE.xml", "\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml",1)
Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.*")
section[block] = auswahl
#Message("GPW")
EndIf
# Gewählte Optionen zurückschreiben
Call("iniFile", "Write", "Skin Version")
#########################################
Alles anzeigen