| CODE |
| ;################################################## ;# Name: Name Changer ;# Author:koldfuzion updated by Jezz ;# Date: 15-2-2004 ;# File Name:NameChanger2.xas ;# Version: 1.0 ;# Purpose: Allow user to change the xbox name. ;########################################################## ;-------- check for MXM.XML ----------- SETFUNC XMLOK FileExists MXM.XML IF# %XMLOK% == 1 GOTO XMLGOOD IF# %XMLOK% == 0 GOTO XMLBAD GOTO QUIT :XMLGOOD XMLOPEN TestXML $actualpath$\mxm.xml XMLGetNodePtr TestXML XMLPtr XMLGetValue TestXML Nickname !.Preferences.Nickname IF "%Nickname%" != "" GOTO CONTINUENAME IF "%Nickname%" == "" GOTO CREATENODE :CREATENODE XMLCreateNode TestXML NickName XMLSetValue TestXML !.Preferences.Nickname "$Name$" :CONTINUENAME XMLSetNodePtr TestXML !.Preferences.Nickname XMLGetNodePtr TestXML XMLPtr XMLGetValue TestXML Nickname !.Preferences.Nickname SET _kbInput "%Nickname%" StringInput _kbInput SINGLE "Your Current XBox NickName is %Nickname%$eol$ Enter a new title or leave the same to exit" IF "%_kbInput%" == "%Nickname%" GOTO QUIT :ACCEPTED XMLSetValue TestXML !.Preferences.Nickname "%_kbInput%" XMLSAVE TestXML $actualpath$\mxm.xml XMLCLOSE TestXML BeginDraw UseCurrent MessageBox "Your new xbox name is %_kbInput%$eol$$eol$The Name Change will take effect$eol$when MXM is restarted$eol$$eol$Press X to Reboot Now$eol$Press ANY OTHER Button to Reboot Later" EndDraw Input If %_GP_X% == "1" GOTO REBOOT QUIT :REBOOT reboot quit :QUIT QUIT :XMLBAD MsgBox "No MXM.xml found$eol$unable to proceed" QUIT |
| CODE |
| ;########################################################### ;# Name: News Changer ;# Author: flattspott - edited by LarryX ;# Date: 03-11-2004 ;# Version: 3.1 ;# FileName: NewsChanger.xas ;# ;# Purpose: ;# Allows you to change your current newsfeed to any one of ;# almost 50 predfined ones. ;# ;# Installation: ;# Upload both, the NewsChanger.xas file and the NewsFeeds.xml files ;# to your Xbox,(Both files should go into your scripts folder) ;# then add something like this somewhere in your Menu.xml. ;# $ActualPath$ is where MXM starts from. ;# ;# Change Log 03-11-2004: ;# you can now edit NewsFeeds.xml to add or subtract as you like ;# included ;# ;# ;# ;# ;# ;############################################################ ;---------------- Check if NewsFeeds.xml Exist Start -------- SETFUNC FeedXML FILEEXISTS $ActualPath$\Scripts\NewsFeeds.xml IF# %FeedXML% == "0" GOTO ERROR ;---------------- Check if NewsFeeds.xml Exist End ---------- ;---------------- XML Loading Start --------------------- SET index 1 SET indexa 1 SET indexb 0 XMLOPEN NewsXML $ActualPath$\Scripts\NewsFeeds.xml XMLSetNodePtr NewsXML !.NewsList XMLGetNodeCount NewsXML totalcount XMLSetNodePtr NewsXML !.NewsList.Feed :STARTLOOP IF# %Indexa% > %totalcount% GOTO ENDLOOP XMLGetValue NewsXML FeedName%indexa% !.NewsList.Feed:%indexb%.Name XMLGetValue NewsXML FeedURL%indexa% !.NewsList.Feed:%indexb.URL ADD indexa 1 ADD indexb 1 GOTO STARTLOOP :ENDLOOP XMLClose NewsXML GOTO DISPLAY ;---------------- XML Loading End ----------------------- ;---------------- Message Output Start ------------------ :ERROR CallScript _DisplayMessageBox "NewsFeeds.xml not found, unable to proceed" GOTO DONE :DISPLAY BeginDraw UseCurrent MessageBox "Name: %FeedName{index}%$eol$NewsFeed # %index%$eol$ (A) to Save (B) to Exit (White) for Help " GOTO GETINPUT :RESULTS CallScript _RenderMessageBox "Newsfeed Changed to: $eol$ %FeedName{index}% $eol$ Changes will occur after rebooting" EndDraw DELAYMS 1500 GOTO DONE :HELP MsgBox "::DEFAULT GAMEPAD CONTROLS::$eol$Up or Right - moves forward 1 feed$eol$Down or Left - moves back 1 feed$eol$RTrig + Up or Right - moves forward 5 feeds$eol$RTrig + Down or Left - moves back 5 feeds$eol$A - saves the current feed$eol$B - exits out of NewsChanger$eol$White - displays this help screen" RETURN ;---------------- Message Output End -------------------- ;---------------- Gamepad Input Start ------------------- :GETINPUT IQWaitMsg UI_LF UI_UP UI_DN UI_RT UI_SELECT UI_BACK SYS_HELP SYS_GAMEHELP KEY_LF KEY_RT KEY_UP KEY_DN If %MSG_ID% == "UI_LF" GOTO BACKFEED If %MSG_ID% == "UI_DN" GOTO BACKFEED If %MSG_ID% == "UI_UP" GOTO NEXTFEED If %MSG_ID% == "UI_RT" GOTO NEXTFEED If %MSG_ID% == "KEY_LF" GOTO BACK5 If %MSG_ID% == "KEY_RT" GOTO NEXT5 IF %MSG_ID% == "KEY_DN" GOTO BACK5 IF %MSG_ID% == "KEY_UP" GOTO NEXT5 If %MSG_ID% == "UI_SELECT" GOTO CHANGEFEED If %MSG_ID% == "UI_BACK" GOTO DONE If %MSG_ID% == "SYS_HELP" GOTO HELP GOTO GETINPUT ;---------------- Gamepad Input End --------------------- ;---------------- Next Feed Start ----------------------- :NEXTFEED IF# %index% == "49" THEN SET index 1 ELSE ADD index 1 ENDIF GOTO DISPLAY ;---------------- Next Feed End ------------------------- ;---------------- Back Feed Start ----------------------- :BACKFEED IF# %index% == "1" THEN SET index 49 ELSE SUB index 1 ENDIF GOTO DISPLAY ;---------------- Back Feed End ------------------------- ;---------------- Next 5 Feeds Start ----------------------- :NEXT5 IF# %index% >= "45" THEN SET index 4 ELSE ADD index 5 ENDIF GOTO DISPLAY ;---------------- Next 5 Feeds End ------------------------- ;---------------- Back 5 Feeds Start ----------------------- :BACK5 IF# %index% <= "4" THEN SET index 48 ELSE SUB index 5 ENDIF GOTO DISPLAY ;---------------- Back 5 Feeds End ------------------------- ;---------------- Save Start ---------------------------- :CHANGEFEED XMLOPEN mxmXML ::MXM XMLGetValue mxmXML mxmnewsname !.Newsfeed.Name IF "%mxmnewsname%" != "" GOTO CONTINUE IF "%mxmnewsname" == "" GOTO CREATENODE :CONTINUE XMLSetNodePtr mxmXML !.Newsfeed XMLSetNodePtr mxmXML !.Newsfeed.URL XMLSetValue mxmXML !.Newsfeed.URL %FeedURL{index}% XMLSetNodePtr mxmXML !.Newsfeed XMLSetNodePtr mxmXML !.Newsfeed.Name XMLSetValue mxmXML !.Newsfeed.Name %FeedName{index}% XMLSave mxmXML ::MXM XMLClose mxmXML GOTO RESULTS :CREATENODE XMLSetNodePtr mxmXML !.Newsfeed XMLCreateNode mxmXML Name XMLSetValue mxmXML !.Newsfeed.Name "Name" GOTO CONTINUE ;---------------- Save End ------------------------------ :DONE QUIT |
| CODE |
;########################################################### ;# Name: Skin Switcher ;# Author: flattspott ;# Date: 03-29-2004 ;# Version: 0.2 ;# FileName: SkinSwitcher.xas ;# ;# Disclaimer: ;# This is a WIP script only (Tested and made with the 1191 Build) ;# ;# Purpose: ;# Will create a list of all your skins (not the internal ones) and step though the list ;# on bootup each time, setting your skin to the next one in the list ;# ;# Installation: ;# Upload SkinSwitcher.xas file to your Xbox,(into your scripts folder) ;# then add something like this somewhere in your MXM.xml. ;# $ActualPath$ is where MXM starts from. ;# Also note that below I have the xas file inside a subfolder from the main scripts folder ;# This is a personal preference, change it if need be. ;# ;# ;# ;# CallFile $ActualPath$\Scripts\SkinSwitcher\SkinSwitcher.xas ;# ;# ;############################################################ Set Temp 0 Set SkinList E:\UDATA\00004321\skinlist.xml :LookUp XMLOpen SomeXML ::MXM XMLGetValue SomeXML spName !.Main^SkinsPath SetFunc sPath FileExists %spName% If# %sPath% == 0 Goto Error If# %sPath% == 1 Goto Begin :Begin SetFunc Used FileExists %SkinList% If# %Used% == 0 Goto New If# %Used% == 1 Goto Old :New XMLCreate RandomXML Main XMLSetValue RandomXML !.Status^LastSkin "0" Goto Search :Old XMLOpen RandomXML %SkinList% XMLGetValue RandomXML Current !.Status^LastSkin Add Current 1 XMLClose RandonXML XMLCreate RandomXML Main XMLSetValue RandomXML !.Status^LastSkin "%Current%" Goto Search :Search BeginSearch %spName%\* :StartSearch SEARCHTYPE s_type SEARCHITEM s_name IF "%s_name%" == "" Goto DoneSearch IF %s_type% == "dir" Goto ListSkin IF %s_type% == "file" Goto SearchContinue :SEARCHCONTINUE SEARCHNEXT GOTO STARTSEARCH :ListSkin SetFunc SkinName Replace %spName% "" %search_name% XMLSetValue RandomXML !.Skins.Skin:%Temp%~Name "%SkinName%" Add Temp 1 Goto SearchContinue :DoneSearch ENDSEARCH Goto Finish :Error MsgBox "Skin Switcher can't find:$eol$%spName%$eol$Please make sure it exists" 0 3500 Goto End :Finish XMLSetNodePtr RandomXML !.Skins XMLGetNodeCount RandomXML Count If %Current% == %Count% Goto New XMLGetValue RandomXML NextSkin !.Skins.Skin:%Current%~Name XMLOpen SkinXML %spName%\%NextSkin%\MXM_Skin.xml XMLGetValue SkinXML RealName !~name XMLClose SkinXML XMLOpen PrefXML ::Prefs XMLSetValue PrefXML !.UserSetting^Skin "%RealName%" XMLSave PrefXML ::Prefs MsgBox "When you reboot your skin will be$eol$%RealName%" 0 2000 XMLSave RandomXML %SkinList% XMLClose RandomXML XMLClose SomeXML XMLClose PrefXML :End Quit |
| CODE |
;########################################################### ;# Name: Live Remover ;# Author: flattspott ;# Date: 04-02-2004 ;# Version: 0.2 ;# FileName: LiveRemover.xas ;# ;# Disclaimer: ;# This is a WIP script only (Made and tested with the 1191 Build) ;# ;# Purpose: ;# Will scan folders for any Xbox Live files and delete them ;# ;# Installation: ;# Upload LiveRemover.xas file to your Xbox,(into your scripts folder) ;# then add something like this somewhere in your Menu.xml. ;# $ActualPath$ is where MXM starts from. ;# Also note that below I have the xas file inside a subfolder from the main scripts folder ;# This is a personal preference, change it if need be. ;# ;# ;# :# ;# CallFile $ActualPath$\Scripts\LiveRemover\LiveRemover.xas "E:\\HDDLoader" ;# CallFile $ActualPath$\Scripts\LiveRemover\LiveRemover.xas "E:\\Games" ;# CallFile $ActualPath$\Scripts\LiveRemover\LiveRemover.xas "F:\\HDDLoader" ;# CallFile $ActualPath$\Scripts\LiveRemover\LiveRemover.xas "F:\\Games" ;# CallFile $ActualPath$\Scripts\LiveRemover\LiveRemover.xas "G:\\HDDLoader" ;# CallFile $ActualPath$\Scripts\LiveRemover\LiveRemover.xas "G:\\Games" :# ;# ;# ;# Note: ;# You don't need to have all the CallFiles above. Just the one(s) you need. ;# If you don't specify the path in the argument then the path will default to F:\Games. ;############################################################ If %1% == "" Then Set Path F:\Games Else Set Path %1% EndIf SetFunc PathStatus FileExists %Path% If# %PathStatus% == 1 Then Goto Begin Else Goto Error EndIf :Begin MsgBox "Current Path is:$eol$%Path%" 0 1000 Set Live0 dashupdate.xbe Set Live1 update.xbe Set Live2 downloader.xbe Set Count 0 :Search BeginSearch %Path%\* :StartSearch SEARCHTYPE s_type SEARCHITEM s_name IF "%s_name%" == "" Goto DoneSearch IF %s_type% == "dir" Goto Check IF %s_type% == "file" Goto SearchContinue :SearchContinue SEARCHNEXT Goto StartSearch :DoneSearch ENDSEARCH Goto Finish :Check SetFunc GameName Replace %Path% "" %search_name% MsgBox "Checking %GameName%..." 0 1500 SetFunc File0 FileExists %Path%\%GameName%\%Live0% SetFunc File1 FileExists %Path%\%GameName%\%Live1% SetFunc File2 FileExists %Path%\%GameName%\%Live2% CD %Path%\%GameName% For i = 0 to 3 If# %File{i}% == 1 Then MsgBox "%Live{i}% found$eol$Removing now..." 0 1500 Attr %Path%\%GameName%\%Live{i}% rw Delete %Path%\%GameName%\%Live{i}% Add Count 1 EndIf Next Goto SearchContinue :Error MsgBox "Live Remover can't find:$eol$%Path%$eol$Please make sure it exists" 0 3500 Goto End :Finish MsgBox "Live Remover Completed$eol$%Count% files removed from %Path%" 0 3500 :End Quit |
| CODE |
;########################################################### ;# Name: News Changer ;# Author: flattspott ;# Date: 03-13-2004 ;# Version: 4.0 ;# FileName: NewsChanger.xas ;# ;# Disclaimer: ;# This will not work with MXM 0.9n6 ;# ;# Purpose: ;# Allows you to change your current newsfeed to any one of ;# an unlimited predfined ones. If you want more just add them to the NeesFeeds.xml ;# appropriatly. You can also remove any you don't want. ;# ;# Installation: ;# Upload all files, NewsChanger.xas, NewsChanger.xml and the NewsFeeds.xml files ;# to your Xbox,(All files should go into your scripts folder and preferably a sub folder) ;# then add something like this somewhere in your Menu.xml. ;# $ActualPath$ is the MXM folder for your info. If you do it differently you may need to ;# edit the paths in the script too. ;# ;# ;# ;# ;# ;############################################################ ;---------------- Check if NewsFeeds.xml Exist Start -------- SetFunc CheckXML FileExists $ActualPath$\Scripts\NewsChanger\NewsFeeds.xml If# %CheckXML% == "0" Then Goto Error Else Goto Continue EndIf ;---------------- Check if NewsFeeds.xml Exist End ---------- ;---------------- Error Start -------- :Error MsgBox "Cannot find NewsFeeds.xml$eol$Unable to continue!" Goto End ;---------------- Error End -------- ;---------------- Read NewsFeeds.xml Feeds Start -------- :Continue XMLOpen mxmXML ::MXM XMLGetValue mxmXML CurrentFeed !.NewsFeed~Name XMLOpen FeedXML $ActualPath$\Scripts\NewsChanger\NewsFeeds.xml XMLSetNodePtr FeedXML !.NewsList XMLGetNodeCount FeedXML Count XMLSetNodePtr FeedXML !.NewsList^Feed For X = 0 to %Count% XMLGetValue FeedXML feedName%X% !.NewsList.Feed:%X%^Name XMLGetValue FeedXML feedURL%X% !.NewsList.Feed:%X%^URL Next XMLClose FeedXML ;---------------- Read NewsFeeds.xml Feeds End -------- ;---------------- Populate ListBox with Feeds Start -------- OnEvent EventHandler LoadDialogFromFile NewsDLG $ActualPath$\Scripts\NewsChanger\NewsChanger.xml For Item = 0 to %Count% Set @NewsDLG.Control?CtrlID=103.Item:%Item%^Text "%feedName{Item}%" Next XMLSetValue NewsDLG !.Control?CtrlID=101^Text "News Changer: %Count% Feeds" XMLSetValue NewsDLG !.Control?CtrlID=102^Text "Current: %CurrentFeed%" ;---------------- Populate ListBox with Feeds End -------- ;---------------- Dialog Input Start -------- ExecuteUIOBject NewsDLG :EventHandler Switch %UITriggerID% Case 103 If "%@NewsDLG.Control?CtrlID=103.Item:{UIParam1}.Selected%" == "True" Then Set Name "%feedName{UIParam1}%" Set URL "%feedURL{UIParam1}%" EndIf EndCase Case 104 XMLSetNodePtr mxmXML !.NewsFeed XMLSetValue mxmXML !.NewsFeed~Name %Name% XMLSetValue mxmXML !.NewsFeed^Global "True" XMLSetValue mxmXML !.NewsFeed^RotateChannels "True" XMLSetValue mxmXML !.NewsFeed^URL %URL% XMLSetValue mxmXML !.NewsFeed^UpdateIntervalMin "15" XMLSetValue mxmXML !.NewsFeed^RotateItemInterval "1" XMLSave mxmXML ::MXM XMLClose mxmXML MsgBox "Newsfeed changed successfully to:$eol$%Name%$eol$The change will take effect after rebooting" EndCase Case 105 MsgBox "Scroll through the list and press A on $eol$ the feed you want to use$eol$Then scroll back up or down to the end of$eol$the list till you can choose to save" EndCase Default EndCase EndSwitch Return ;---------------- Dialog Input End -------- :End Quit |
| CODE |
| CODE |