Update: Live Remover 0.2
- Made the script completly automated
- Added a MsgBox at the start to tell you what drive it's scanning
- Added error checking to the path argument
Save As - LiveRemover.xas
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. ;# ;# ;# Live Remover :# ;# 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
|
This post has been edited by flattspott: Apr 2 2004, 04:46 PM <