installpath=SystemPath("ScriptPath")
current_theme = Regread( "HKLM", "Software\Microsoft\CHome", "CPRFile")
CurrCPRport = "current_theme" & "_" & "240x400"
CurrCPRland = "current_theme" & "_" & "400x240"
SetFileAttribs("\Windows\bronzeres.dll", FALSE, FALSE)
Run (installpath \ "disableTitanium.mscr")
Neo_Titanium = '<Plugins Order=\"JMLToday;JMLLauncher;CMyPhotos;CMusic;CWindowsLive\" CPRFileName=\"Titanium\" DisplayStyle=\"Titanium\" />'
ShadowNeo_Titanium = '<Plugins Order=\"JMLToday;JMLLauncher;CMyPhotos;CMusic;CWindowsLive\" CPRFileName=\"ShadowNeo\" DisplayStyle=\"Titanium\" />'
WM7_Titanium = '<Plugins Order=\"JMLToday;JMLLauncher;CMyPhotos;CMusic;CWindowsLive\" CPRFileName=\"WM7\" DisplayStyle=\"Titanium\" />'
Default_Titanium = '<Plugins Order=\"JMLToday;JMLLauncher;CMyPhotos;CMusic;CWindowsLive\" CPRFileName=\"Titanium\" DisplayStyle=\"Titanium\" />'
Lizzy_Titanium = '<Plugins Order=\"JMLToday;JMLLauncher;CMyPhotos;CMusic;CWindowsLive\" CPRFileName=\"Lizzy\" DisplayStyle=\"Titanium\" />'
Buffed_Titanium = '<Plugins Order=\"JMLToday;JMLLauncher;CMyPhotos;CMusic;CWindowsLive\" CPRFileName=\"Buffed\" DisplayStyle=\"Titanium\" />'
Bliss_Titanium = '<Plugins Order=\"JMLToday;JMLLauncher;CMyPhotos;CMusic;CWindowsLive\" CPRFileName=\"Bliss\" DisplayStyle=\"Titanium\" />'
Josito_Titanium = '<Plugins Order=\"JMLToday;JMLLauncher;CMyPhotos;CMusic;CWindowsLive\" CPRFileName=\"Josito\" DisplayStyle=\"Titanium\" />'
Hero_Titanium = '<Plugins Order=\"JMLToday;JMLLauncher;CMyPhotos;CMusic;CWindowsLive\" CPRFileName=\"Hero\" DisplayStyle=\"Titanium\" />'
TitaniumLTD_Titanium = '<Plugins Order=\"CHero;ATContacts;CLauncher\" CPRFileName=\"TitaniumLTD\" DisplayStyle=\"Titanium\" />'
Neo_TitaniumSwitch=("DragonWorld Neo Titanium")
ShadowNeo_TitaniumSwitch=("Greatbal ShadowNeo Titanium")
WM7_TitaniumSwitch=("Ibrythill WM7 Titanium")
Default_TitaniumSwitch=("Titanium")
Lizzy_TitaniumSwitch=("Ebsbow Lizzy Titanium")
Buffed_TitaniumSwitch=("Ebsbow Buffed Titanium")
Bliss_TitaniumSwitch=("Rpereira Bliss Titanium")
Josito_TitaniumSwitch=("Josito Chanante Titanium")
Hero_TitaniumSwitch=("Titanium_Hero_by_Chriscsh")
TitaniumLTD_TitaniumSwitch=("TitaniumLTD_by_Idawg214")
Cancel=("Cancel")
SaveCurrent=("Backup current theme")
# Set switches according to current settings
SettingOptions[1]=Neo_TitaniumSwitch
SettingOptions[2]=ShadowNeo_TitaniumSwitch
SettingOptions[3]=WM7_TitaniumSwitch
SettingOptions[4]=Default_TitaniumSwitch
SettingOptions[5]=Lizzy_TitaniumSwitch
SettingOptions[6]=Buffed_TitaniumSwitch
SettingOptions[7]=Bliss_TitaniumSwitch
SettingOptions[8]=Josito_TitaniumSwitch
SettingOptions[9]=Hero_TitaniumSwitch
SettingOptions[10]=TitaniumLTD_TitaniumSwitch
SettingOptions[11]=SaveCurrent
SettingOptions[12]=Cancel
SetChoiceEntryFormat(28,14)
Choice("Titanium Theme Changer","Choose CPR for CHome",SettingOptions)
Case(1)
RegWriteString("HKLM","Software\Microsoft\CHome","ExtensibilityXML", Neo_Titanium)
RegWriteString( "HKLM", "Software\Microsoft\CHome", "CPRFile", Neo)
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Neo_240x400.cpr", "\Windows\Neo_240x400.cpr", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Neo_400x240.cpr", "\Windows\Neo_400x240.cpr", TRUE )
Case(2)
RegWriteString("HKLM","Software\Microsoft\CHome","ExtensibilityXML", ShadowNeo_Titanium)
RegWriteString( "HKLM", "Software\Microsoft\CHome", "CPRFile", ShadowNeo)
Copy(installpath \ "TitaniumShadowNeo" \ "bronzeres.dll", "\Windows\bronzeres.dll", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "ShadowNeo_240x400.cpr", "\Windows\ShadowNeo_240x400.cpr", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "ShadowNeo_400x240.cpr", "\Windows\ShadowNeo_400x240.cpr", TRUE )
Case(3)
RegWriteString("HKLM","Software\Microsoft\CHome","ExtensibilityXML", WM7_Titanium)
RegWriteString( "HKLM", "Software\Microsoft\CHome", "CPRFile", WM7)
Copy(installpath \ "WM7" \ "bronzeres.dll", "\Windows\bronzeres.dll", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "WM7_240x400.cpr", "\Windows\WM7_240x400.cpr", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "WM7_400x240.cpr", "\Windows\WM7_400x240.cpr", TRUE )
Case(4)
RegWriteString("HKLM","Software\Microsoft\CHome","ExtensibilityXML", Default_Titanium)
RegWriteString( "HKLM", "Software\Microsoft\CHome", "CPRFile", Titanium)
Copy(installpath \ "DefaultTheme" \ "bronzeres.dll", "\Windows\bronzeres.dll", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Titanium_240x400.cpr", "\Windows\Titanium_240x400.cpr", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Titanium_400x240.cpr", "\Windows\Titanium_400x240.cpr", TRUE )
Case(5)
RegWriteString("HKLM","Software\Microsoft\CHome","ExtensibilityXML", Lizzy_Titanium)
RegWriteString( "HKLM", "Software\Microsoft\CHome", "CPRFile", Lizzy)
Copy(installpath \ "Lizzy" \ "bronzeres.dll", "\Windows\bronzeres.dll", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Lizzy_240x400.cpr", "\Windows\Lizzy_240x400.cpr", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Lizzy_400x240.cpr", "\Windows\Lizzy_400x240.cpr", TRUE )
Case(6)
RegWriteString("HKLM","Software\Microsoft\CHome","ExtensibilityXML", Buffed_Titanium)
RegWriteString( "HKLM", "Software\Microsoft\CHome", "CPRFile", Buffed)
Copy(installpath \ "TitaniumBuffed" \ "bronzeres.dll", "\Windows\bronzeres.dll", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Buffed_240x400.cpr", "\Windows\Buffed_240x400.cpr", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Buffed_400x240.cpr", "\Windows\Buffed_400x240.cpr", TRUE )
Case(7)
RegWriteString("HKLM","Software\Microsoft\CHome","ExtensibilityXML", Bliss_Titanium)
RegWriteString( "HKLM", "Software\Microsoft\CHome", "CPRFile", Bliss)
Copy(installpath \ "Bliss" \ "bronzeres.dll", "\Windows\bronzeres.dll", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Bliss_240x400.cpr", "\Windows\Bliss_240x400.cpr", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Bliss_400x240.cpr", "\Windows\Bliss_400x240.cpr", TRUE )
Case(8)
RegWriteString("HKLM","Software\Microsoft\CHome","ExtensibilityXML", Josito_Titanium)
RegWriteString( "HKLM", "Software\Microsoft\CHome", "CPRFile", Josito)
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Josito_240x400.cpr", "\Windows\Josito_240x400.cpr", TRUE )
Case(9)
RegWriteString("HKLM","Software\Microsoft\CHome","ExtensibilityXML", Hero_Titanium)
RegWriteString( "HKLM", "Software\Microsoft\CHome", "CPRFile", Hero)
Copy(installpath \ "Hero" \ "bronzeres.dll", "\Windows\bronzeres.dll", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Hero_240x400.cpr", "\Windows\Hero_240x400.cpr", TRUE )
Case(10)
RegWriteString("HKLM","Software\Microsoft\CHome","ExtensibilityXML", TitaniumLTD_Titanium)
RegWriteString( "HKLM", "Software\Microsoft\CHome", "CPRFile", TitaniumLTD)
Copy(installpath \ "TitaniumLTD" \ "bronzeres.dll", "\Windows\bronzeres.dll", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "TitaniumLTD_240x400.cpr", "\Windows\TitaniumLTD_240x400.cpr", TRUE )
Case(11)
Run (installpath \ "save_current.mscr")
sleepMessage(3,"backup complete")
Case(12)
Run (installpath \ "exit.mscr")
EndChoice
Run ("Archivos de programa \ JMLPanex \ ClearCacheAll.mscr")
RunWait ("Archivos de programa \ JMLPanex \ JMLOffset.mscr")
sleepMessage(2,"complete")
Run (installpath \ "activateTitanium.mscr")
RedrawToday
Delete("\Windows"\CurrCPRport)
Delete("\Windows"\CurrCPRland)