[Windows Mobile Themes] j101399j:
iPT comeplet screen swap

[EDIT] I edited the end of the script and fixed an error. Correct file has been reuploaded

I have modified mickael91210's screen swap script. Here is another version; and this one will allow you to have multiple icon swaps (programs, settings, address book...)

Thank you mickael91210 for the start script

To create a new iPhoneToday screen

This script will completely swap your icons.xml file with a new one.

1.	MAKE SURE TO BACK UP YOUR ICONS.XML; IF YOU MESS UP, YOU CAN ENDUP MESSING UP YOUR ICONS.XML FILE AND HAVE TO START OVER!!!!

2.	Download and unzip the addached file. Then copy the contents into your “\iPhoneToday” folder

3.	Rename the phone-swap.mscr script; (it is in the \iPhoneToday\ icons-xml_backup\ folder) to one that resembles what it switches to.

. a.	For example, for my settings I use the name swap-settings.mscr and for my address book, I use swap-contact.mscr

4.	Now that you have your files setup, it is time to edit the script

5.	There are only 6 entries you need to edit

. a.	Change the two “ RegKey1” to a name that resembles what is changing

. i.	For example, for my settings I use the name “settings” ; and for my address book, I use “address”

. b.	Change the four “icons-swap.xml” entries to a new file name.

. i.	For example, for my settings I use the name icons-settings.xml; and for my address book, I use icons-contact.xml

6.	If you do not change the names in step 5 (all 6 of them); you will overwrite your files.

7.	Now create a new icon and set it to the new phone-swap.mscr file (whatever you named it). Tap the icon to goto the new screen. Then on the new screen, create another icon and set it to the same phone-swap.mscr. The file will automatically switch back and forth between the normal screen and the new one.

8.	For now you cannot go from the normal page, to a new page to another new page. You must always return to your normal page before you go to another new page (if you have multiple pages). Doing this would require custom coding and a lot more; it can be done however is only good for one phone.

If you want, you can create an icons.xml file to swap to so you do not need to remake all your icons. Just give it a new name and place it in the backup folder. Then change the file name in the script to that name. And you are good to go. I had 4 pages of phone numbers and pictures, now they are just 1 icon on my normal page. Then when I need to call, I don't have to deal with all my other icons. So far I have 3 of these and they work great :):)

Here is a script that swaps the icons.xml with icons-swap.xml B]

#iPT screen swap, original script by mickael91210 rewritten into one file by j101399j

#get current state, 1=Normal, 2 =Address Book; "" means 1st run
state = Regread("HKLM","Software\iPhoneToday\PhoneSwap"," RegKey1")

#If reg does not exist (or somehow < 1), then this is the 1st run and state needs to be set
if (state < 1)
state = 1
EndIf
#I love vibration, tells you the script is working
Vibrate (200)
#Tests if new icon.xml file exists, if not copy over the basic one
FileTest = FileExists("\IphoneToday\icons-xml_backup\icons- swap.xml”)
If((FileTest = “FALSE”)
Copy("\IphoneToday\icons-xml_backup\icons-basic.xml ", "\IphoneToday\icons-xml_backup\icons-swap.xml”, TRUE )
EndIf

#Time to switch, if state = 1; then you are going from the normal screen to the new screen.
#And if state is = 2, then you are going from the new screen back home.
If (state = 1)
#"state" = "1"; so switch to phone book state
Copy("\IphoneToday\icons.xml", "\IphoneToday\icons-xml_backup\icons-main.xml", TRUE )
sleep(200)
#copy over phone icon.xml file
Copy("\IphoneToday\icons-xml_backup\icons- swap.xml", "\IphoneToday\icons.xml", TRUE )
sleep(200)
RedrawToday
state = 2
ElseIf (state = 2)
#"state" = "2" go back to normal
Copy("\IphoneToday\icons.xml", "\IphoneToday\icons-xml_backup\icons- swap.xml", TRUE )
sleep(200)
#copy back main icon.xml file
Copy("\IphoneToday\icons-xml_backup\icons-main.xml", "\IphoneToday\icons.xml", TRUE )
sleep(200)
RedrawToday
#set state back to normal
state = 1
EndIf
RegWriteDword("HKLM","Software\iPhoneToday\PhoneSwap","RegKey1", state)