xboxscene.org forums

Author Topic: Live Remover 0.1  (Read 1526 times)

flattspott

  • Archived User
  • Hero Member
  • *
  • Posts: 1220
Live Remover 0.1
« on: April 01, 2004, 10:23:00 PM »

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 <
Logged