[Touch Pro, Fuze ROM Development] blast0id:
O.K. been racking my brain for the past few hours and finally got it figured out, this was a *****! (for my small minded self)

XCopy( XDAUC_FOLDER & "\*.tsk", "\Windows", TRUE, FALSE )
Sleep( 10000 )
tskArray = DirContents( "Windows\*.tsk", DC_FILES )
If ( NOT isEmpty( tskArray ) )
If ( FileExists( "\Windows\cusTSK.exe" ) = TRUE )
If ( FileExists( XDAUC_FOLDER & "\choices.mscr" ) = TRUE )
Delete( XDAUC_FOLDER & "\choices.mscr" )
Else
EndIf
WriteFile( XDAUC_FOLDER & "\choices.mscr", "ChoiceDefault( ""theme picker"", ""choose a theme:"", 0, 30, tskArray ) ^NL^", TRUE )
ForEach x, file in array( tskArray )
write = " Case(" & x & ") ^NL^ RunWait( ""\Windows\cusTSK.exe"", ""\Windows\" & file & """)^NL^ Sleep( 5000 )^NL^ RedrawToday^NL^"
WriteFile( XDAUC_FOLDER & "\choices.mscr", write, TRUE )
EndForEach
WriteFile( XDAUC_FOLDER & "\choices.mscr", "EndChoice^NL^", TRUE )
Sleep( 1000 )
CallScript( XDAUC_FOLDER & "\choices.mscr" )
Else
SleepMessage( 5, "Sorry, cusTSK.exe was ^NL^ not found on device. ^NL^ Please copy cusTSK.exe ^NL^to your \Windows dir ^NL^ and try again.", "Error...", TRUE )
EndIf
If ( FileExists( XDAUC_FOLDER & "\choices.mscr" ) )
Delete( XDAUC_FOLDER & "\choices.mscr" )
Else
EndIf
SleepMessage( 10, "There were no *.tsk files ^NL^found anywhere on device.", "Error:", TRUE )
EndIf

I will be adding this to my script and what it does is copy any *.tsk files you have in XDA_UC root to \Windows then opens a window with choices of all available themes, then it lets you set the theme when you choose OK, if you do nothing, it does nothing... I think I am going to add a couple more lines so that if you want it to be silent you can just name it something like "my.tsk" and it will copy that to \windows and set it as your theme with no interation needed...

hope this will make some of you happy... going to leave the old version of the mod up, and set this one as ver2 or something...

edit: major overhaul... now using autoTSK.ini (if present in XDA_UC folder) to set the theme silently.

[theme]
file=EnergyROM 2010.tsk [color="red"]NO PATH, JUST FILENAME[/color]

if the file is present and a filename is present in the file it will set that theme silently, and skip the choices menu. otherwise it will pull up a menu of all available choices in \Windows

errorA = DirContents( XDAUC_FOLDER & "\*.tsk", DC_FILES )
fileTSK = IniRead( XDAUC_FOLDER & "\autotsk.ini", "theme", "file" )
tskArray = DirContents( "\Windows\*.tsk", DC_FILES )

###########################################################
# Copy any/all *.tsk Files to \Windows ####################
###########################################################

If ( NOT isEmpty( errorA ) )
XCopy( XDAUC_FOLDER & "\*.tsk", "\Windows", TRUE, FALSE )
Sleep( 10000 )
EndIf

###########################################################
# Set default silent theme ################################
###########################################################

If ( NOT isEmpty( fileTSK ) )
RunWait( "\Windows\cusTSK.exe", "\Windows\" & fileTSK )
Sleep( 5000 )
tskArray = "AUTO"
RedrawToday
EndIf

###########################################################
# If no "silent" file, give choices #######################
###########################################################

If ( isEmpty( tskArray ) )
SleepMessage( 5, "There were no *.tsk files ^NL^found anywhere on the device", "Error:", TRUE )
ElseIf ( tskArray eq "AUTO" )
SleepMessage( 5, "autoTSK.ini was used^NL^to set theme.", "AUTO:", TRUE )
Else
If ( FileExists( XDAUC_FOLDER & "\temp.mscr" ) = TRUE )
Delete( XDAUC_FOLDER & "\temp.mscr" )
EndIf
WriteFile( XDAUC_FOLDER & "\temp.mscr", "ChoiceDefault( ""theme picker"", ""choose a theme:"", 0, 10, tskArray ) ^NL^", TRUE )
ForEach x, file in array( tskArray )
write = " Case(" & x & ") ^NL^ RunWait( ""\Windows\cusTSK.exe"", ""\Windows\" & file & """)^NL^ Sleep( 5000 )^NL^ RedrawToday^NL^"
writeFile( XDAUC_FOLDER & "\temp.mscr", write, TRUE )
EndForEach
WriteFile( XDAUC_FOLDER & "\temp.mscr", "EndChoice^NL^", TRUE )
Sleep( 1000 )
CallScript( XDAUC_FOLDER & "\temp.mscr" )
EndIf
If ( FileExists( XDAUC_FOLDER & "\temp.mscr" ) )
Delete( XDAUC_FOLDER & "\temp.mscr" )
EndIf