DISCLAIMER
The script was written using the WIP 1166 Build so it may not work for you.
UPDATE Version 3
Changed the main dialog box a bit
Changed the controls
Added check to see if NewsFeeds.xml is missing
Added help screen
Added back 1 feed
Added move forward 5 feeds
Added move back 5 feeds
Fixed a mistake in the NewsFeeds.xml
Save as - NewsChanger.xas
CODE |
;########################################################### ;# Name: News Changer ;# Author: flattspott ;# Date: 02-09-2004 ;# Version: 3.0 ;# 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 the MXM folder for your info. ;# ;# ;# NewsChanger ;# Callfile $ActualPath$\Scripts\NewsChanger.xas ;# ;############################################################ ;---------------- 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 XMLOPEN NewsXML $ActualPath$\Scripts\NewsFeeds.xml XMLSetNodePtr NewsXML !.NewsList.Feed XMLGetValue NewsXML FeedName1 !.NewsList.Feed:0.Name XMLGetValue NewsXML FeedName2 !.NewsList.Feed:1.Name XMLGetValue NewsXML FeedName3 !.NewsList.Feed:2.Name XMLGetValue NewsXML FeedName4 !.NewsList.Feed:3.Name XMLGetValue NewsXML FeedName5 !.NewsList.Feed:4.Name XMLGetValue NewsXML FeedName6 !.NewsList.Feed:5.Name XMLGetValue NewsXML FeedName7 !.NewsList.Feed:6.Name XMLGetValue NewsXML FeedName8 !.NewsList.Feed:7.Name XMLGetValue NewsXML FeedName9 !.NewsList.Feed:8.Name XMLGetValue NewsXML FeedName10 !.NewsList.Feed:9.Name XMLGetValue NewsXML FeedName11 !.NewsList.Feed:10.Name XMLGetValue NewsXML FeedName12 !.NewsList.Feed:11.Name XMLGetValue NewsXML FeedName13 !.NewsList.Feed:12.Name XMLGetValue NewsXML FeedName14 !.NewsList.Feed:13.Name XMLGetValue NewsXML FeedName15 !.NewsList.Feed:14.Name XMLGetValue NewsXML FeedName16 !.NewsList.Feed:15.Name XMLGetValue NewsXML FeedName17 !.NewsList.Feed:16.Name XMLGetValue NewsXML FeedName18 !.NewsList.Feed:17.Name XMLGetValue NewsXML FeedName19 !.NewsList.Feed:18.Name XMLGetValue NewsXML FeedName20 !.NewsList.Feed:19.Name XMLGetValue NewsXML FeedName21 !.NewsList.Feed:20.Name XMLGetValue NewsXML FeedName22 !.NewsList.Feed:21.Name XMLGetValue NewsXML FeedName23 !.NewsList.Feed:22.Name XMLGetValue NewsXML FeedName24 !.NewsList.Feed:23.Name XMLGetValue NewsXML FeedName25 !.NewsList.Feed:24.Name XMLGetValue NewsXML FeedName26 !.NewsList.Feed:25.Name XMLGetValue NewsXML FeedName27 !.NewsList.Feed:26.Name XMLGetValue NewsXML FeedName28 !.NewsList.Feed:27.Name XMLGetValue NewsXML FeedName29 !.NewsList.Feed:28.Name XMLGetValue NewsXML FeedName30 !.NewsList.Feed:29.Name XMLGetValue NewsXML FeedName31 !.NewsList.Feed:30.Name XMLGetValue NewsXML FeedName32 !.NewsList.Feed:31.Name XMLGetValue NewsXML FeedName33 !.NewsList.Feed:32.Name XMLGetValue NewsXML FeedName34 !.NewsList.Feed:33.Name XMLGetValue NewsXML FeedName35 !.NewsList.Feed:34.Name XMLGetValue NewsXML FeedName36 !.NewsList.Feed:35.Name XMLGetValue NewsXML FeedName37 !.NewsList.Feed:36.Name XMLGetValue NewsXML FeedName38 !.NewsList.Feed:37.Name XMLGetValue NewsXML FeedName39 !.NewsList.Feed:38.Name XMLGetValue NewsXML FeedName40 !.NewsList.Feed:39.Name XMLGetValue NewsXML FeedName41 !.NewsList.Feed:40.Name XMLGetValue NewsXML FeedName42 !.NewsList.Feed:41.Name XMLGetValue NewsXML FeedName43 !.NewsList.Feed:42.Name XMLGetValue NewsXML FeedName44 !.NewsList.Feed:43.Name XMLGetValue NewsXML FeedName45 !.NewsList.Feed:44.Name XMLGetValue NewsXML FeedName46 !.NewsList.Feed:45.Name XMLGetValue NewsXML FeedName47 !.NewsList.Feed:46.Name XMLGetValue NewsXML FeedName48 !.NewsList.Feed:47.Name XMLGetValue NewsXML FeedName49 !.NewsList.Feed:48.Name XMLGetValue NewsXML FeedURL1 !.NewsList.Feed:0.URL XMLGetValue NewsXML FeedURL2 !.NewsList.Feed:1.URL XMLGetValue NewsXML FeedURL3 !.NewsList.Feed:2.URL XMLGetValue NewsXML FeedURL4 !.NewsList.Feed:3.URL XMLGetValue NewsXML FeedURL5 !.NewsList.Feed:4.URL XMLGetValue NewsXML FeedURL6 !.NewsList.Feed:5.URL XMLGetValue NewsXML FeedURL7 !.NewsList.Feed:6.URL XMLGetValue NewsXML FeedURL8 !.NewsList.Feed:7.URL XMLGetValue NewsXML FeedURL9 !.NewsList.Feed:8.URL XMLGetValue NewsXML FeedURL10 !.NewsList.Feed:9.URL XMLGetValue NewsXML FeedURL11 !.NewsList.Feed:10.URL XMLGetValue NewsXML FeedURL12 !.NewsList.Feed:11.URL XMLGetValue NewsXML FeedURL13 !.NewsList.Feed:12.URL XMLGetValue NewsXML FeedURL14 !.NewsList.Feed:13.URL XMLGetValue NewsXML FeedURL15 !.NewsList.Feed:14.URL XMLGetValue NewsXML FeedURL16 !.NewsList.Feed:15.URL XMLGetValue NewsXML FeedURL17 !.NewsList.Feed:16.URL XMLGetValue NewsXML FeedURL18 !.NewsList.Feed:17.URL XMLGetValue NewsXML FeedURL19 !.NewsList.Feed:18.URL XMLGetValue NewsXML FeedURL20 !.NewsList.Feed:19.URL XMLGetValue NewsXML FeedURL21 !.NewsList.Feed:20.URL XMLGetValue NewsXML FeedURL22 !.NewsList.Feed:21.URL XMLGetValue NewsXML FeedURL23 !.NewsList.Feed:22.URL XMLGetValue NewsXML FeedURL24 !.NewsList.Feed:23.URL XMLGetValue NewsXML FeedURL25 !.NewsList.Feed:24.URL XMLGetValue NewsXML FeedURL26 !.NewsList.Feed:25.URL XMLGetValue NewsXML FeedURL27 !.NewsList.Feed:26.URL XMLGetValue NewsXML FeedURL28 !.NewsList.Feed:27.URL XMLGetValue NewsXML FeedURL29 !.NewsList.Feed:28.URL XMLGetValue NewsXML FeedURL30 !.NewsList.Feed:29.URL XMLGetValue NewsXML FeedURL31 !.NewsList.Feed:30.URL XMLGetValue NewsXML FeedURL32 !.NewsList.Feed:31.URL XMLGetValue NewsXML FeedURL33 !.NewsList.Feed:32.URL XMLGetValue NewsXML FeedURL34 !.NewsList.Feed:33.URL XMLGetValue NewsXML FeedURL35 !.NewsList.Feed:34.URL XMLGetValue NewsXML FeedURL36 !.NewsList.Feed:35.URL XMLGetValue NewsXML FeedURL37 !.NewsList.Feed:36.URL XMLGetValue NewsXML FeedURL38 !.NewsList.Feed:37.URL XMLGetValue NewsXML FeedURL39 !.NewsList.Feed:38.URL XMLGetValue NewsXML FeedURL40 !.NewsList.Feed:39.URL XMLGetValue NewsXML FeedURL41 !.NewsList.Feed:40.URL XMLGetValue NewsXML FeedURL42 !.NewsList.Feed:41.URL XMLGetValue NewsXML FeedURL43 !.NewsList.Feed:42.URL XMLGetValue NewsXML FeedURL44 !.NewsList.Feed:43.URL XMLGetValue NewsXML FeedURL45 !.NewsList.Feed:44.URL XMLGetValue NewsXML FeedURL46 !.NewsList.Feed:45.URL XMLGetValue NewsXML FeedURL47 !.NewsList.Feed:46.URL XMLGetValue NewsXML FeedURL48 !.NewsList.Feed:47.URL XMLGetValue NewsXML FeedURL49 !.NewsList.Feed:48.URL 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_UP" GOTO BACKFEED If %MSG_ID% == "UI_DN" 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_UP" GOTO BACK5 IF %MSG_ID% == "KEY_DN" 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 XMLSetNodePtr mxmXML !.Newsfeed.URL XMLSetValue mxmXML !.Newsfeed.URL %FeedURL{index}% XMLSave mxmXML ::MXM XMLClose mxmXML GOTO RESULTS ;---------------- Save End ------------------------------ :DONE QUIT
|
Save as - NewsFeeds.xml
CODE |
Xbox-Scene http://www.xbox-scene.com/xbox1data/xbox-scene.xml
Xbins http://xbins.org/xbins.xml
All Xbox Skins - MXM http://www.allxboxskins.com/rssmxm.xml
All Xbox Skins - 10 Most Recent http://www.allxboxskins.com/rssskins.xml
Max Console http://www.maxconsole.com/rss/xboxfeed.rss
ArsTechnica http://arstechnica.com/etc/rdf/ars.rdf
Another Useless Website http://anotheruselesswebsite.com/backend.php
Slashdot http://www.slashdot.org/slashdot.rdf
AllHeadlineNews - Top http://www.allheadlinenews.com/cgi-bin/news/xml/newsxml.cgi?cat=top
AllHeadlineNews - Business http://www.allheadlinenews.com/cgi-bin/news/xml/newsxml.cgi?cat=business
AllHeadlineNews - Entertainment http://www.allheadlinenews.com/cgi-bin/news/xml/newsxml.cgi?cat=entertainment
AllHeadlineNews - Health http://www.allheadlinenews.com/cgi-bin/news/xml/newsxml.cgi?cat=health
AllHeadlineNews - Offbeat http://www.allheadlinenews.com/cgi-bin/news/xml/newsxml.cgi?cat=offbeat
AllHeadlineNews - Politics http://www.allheadlinenews.com/cgi-bin/news/xml/newsxml.cgi?cat=politics
AllHeadlineNews - Sports http://www.allheadlinenews.com/cgi-bin/news/xml/newsxml.cgi?cat=sports
AllHeadlineNews - Technology http://www.allheadlinenews.com/cgi-bin/news/xml/newsxml.cgi?cat=technology
AllHeadlineNews - World http://www.allheadlinenews.com/cgi-bin/news/xml/newsxml.cgi?cat=world
News4Sites - Television http://www.news4sites.com/service/newsfeed.php?tech=rss&id=146
News4Sites - Wrestling http://www.news4sites.com/service/newsfeed.php?tech=rss&id=835
News4Sites - Weather http://www.news4sites.com/service/newsfeed.php?tech=rss&id=2095
News4Sites - TV Shows http://www.news4sites.com/service/newsfeed.php?tech=rss&id=774
News4Sites - Religion http://www.news4sites.com/service/newsfeed.php?tech=rss&id=2299
News4Sites - Police http://www.news4sites.com/service/newsfeed.php?tech=rss&id=2298
News4Sites - Rugby http://www.news4sites.com/service/newsfeed.php?tech=rss&id=713
News4Sites - Radio http://www.news4sites.com/service/newsfeed.php?tech=rss&id=148
News4Sites - Opera http://www.news4sites.com/service/newsfeed.php?tech=rss&id=2024
News4Sites - Technology http://www.news4sites.com/service/newsfeed.php?tech=rss&id=14
News4Sites - World at a Glance http://www.news4sites.com/service/newsfeed.php?tech=rss&id=546
News4Sites - Students http://www.news4sites.com/service/newsfeed.php?tech=rss&id=727
News4Sites - National Parks http://www.news4sites.com/service/newsfeed.php?tech=rss&id=2297
News4Sites - Musicals http://www.news4sites.com/service/newsfeed.php?tech=rss&id=1898
News4Sites - Music http://www.news4sites.com/service/newsfeed.php?tech=rss&id=149
News4Sites - Motorsports http://www.news4sites.com/service/newsfeed.php?tech=rss&id=296
News4Sites - Martial Arts http://www.news4sites.com/service/newsfeed.php?tech=rss&id=300
News4Sites - FBI http://www.news4sites.com/service/newsfeed.php?tech=rss&id=1471
News4Sites - FARC http://www.news4sites.com/service/newsfeed.php?tech=rss&id=1067
News4Sites - Extraterrestrial http://www.news4sites.com/service/newsfeed.php?tech=rss&id=2004
News4Sites - Earthquakes http://www.news4sites.com/service/newsfeed.php?tech=rss&id=2523
News4Sites - Disease Outbreaks http://www.news4sites.com/service/newsfeed.php?tech=rss&id=2398
News4Sites - Cub Scouts http://www.news4sites.com/service/newsfeed.php?tech=rss&id=2559
News4Sites - College Sports http://www.news4sites.com/service/newsfeed.php?tech=rss&id=850
News4Sites - College Football http://www.news4sites.com/service/newsfeed.php?tech=rss&id=848
News4Sites - College Baseball http://www.news4sites.com/service/newsfeed.php?tech=rss&id=849
News4Sites - CIA http://www.news4sites.com/service/newsfeed.php?tech=rss&id=1473
News4Sites - Astrology http://www.news4sites.com/service/newsfeed.php?tech=rss&id=1072
News4Sites - Artificial Intelligence http://www.news4sites.com/service/newsfeed.php?tech=rss&id=60
News4Sites - Amusement Parks http://www.news4sites.com/service/newsfeed.php?tech=rss&id=143
News4Sites - Airlines Commercial News http://www.news4sites.com/service/newsfeed.php?tech=rss&id=2365
News4Sites - Aerospace http://www.news4sites.com/service/newsfeed.php?tech=rss&id=692
|
This post has been edited by flattspott: Feb 9 2004, 05:37 PM <