SOURCE: MC Mod Chooser

::This file will contain the latest version of MC Mod Chooser.
::http://dl.dropbox.com/u/17987530/mcmodchooser.bat
@echo off
color 0a
SETLOCAL ENABLEEXTENSIONS
if errorlevel 1 echo this shouldnt happen
SETLOCAL ENABLEDELAYEDEXPANSION
if errorlevel 1 echo this shouldnt happen
set execdir=%0
::you have to change more than the two numbers below to change number of mod slots
set modmin=1
set modmax=9
if exist %1 goto fastmodinstall
    :start
cd "%appdata%\.minecraft"
echo ============Welcome to Minecraft Mod Chooser============
echo.
echo Version 1.4 UNSTABLE
echo build number %random%
echo.
echo.
echo Bug reports go to riking28@gmail.com
echo.
echo.
echo.
echo This program is released under a Creative Commons "CC0" License.
echo.
echo.
pause
if not exist jarmodloader (
    echo.
    echo.
    echo.
    echo It appears this is your first time running the program.
    set section=
    echo Starting Guided Setup.
    goto firstrun
)
cd jarmodloader
if exist setup.lck (
    echo.
    echo.
    echo.
    echo It appears that Guided Setup was cancelled last time you ran it.
    echo MC Mod chooser will now resume Guided Setup.
    for /F "delims=" %%i in (setup.lck) do set section=%%i
    goto firstrun
)
goto loadsettings
    :firstrun
cd "%execdir%"
pause
call guidedsetup.bat %section%
::guidedsetup.bat, on a successful run, sets errorlevel to 205.
::on error 206, you wanted to restart it.
::on error 200, you have winrar trial. shame.
if %errorlevel% EQU 205 (
    cls
    color 0a
    ::restore color
    echo Success! Guided Setup has executed correctly. You can now use the program.
    cd "%appdata%\.minecraft\jarmodloader"
    goto loadsettings
) else (
    ::restart
    if %errorlevel% EQU 206 (
        cls
        color 0a
        echo Guided Setup has indicated that it requires a restart.
        set section=start
        goto firstrun
    )
    if %errorlevel% EQU 200 exit /B 200
    ::
    if errorlevel 1 (
        color 0a
        echo.
        echo It appears Guided Setup had an abnormal exit.
        echo Please see above for any details available, and possibly file a bug report.
        echo.
        echo If the problem persists, try deleting the %appdata%\.minecraft\jarmodloader folder and retrying.
        echo.
        set inp=
        set /P inp=An alternative is Manual Setup. To view instructions for this, type 1 and hit enter. If you want to try Guided Setup again, just hit enter.
        if '%inp%'=='1' goto tutorials/c2
        echo.
        echo To rerun Guided Setup, run MCModChooser.bat again.
        echo Thank you for using this program, and we are sorry you are having problems.
        echo.
        echo.
        echo MC Mod Chooser will now terminate.
        echo.
        pause
        exit /B 2
)
    :loadsettings
echo loading settings...
cd "%appdata%\.minecraft\jarmodloader"
set num=0
for /F "eol=# delims=" %%i in (options.txt) do (
    set /A num=!num!+1
    set s!num!=%%i
)
set ej=%s1%
set mcpath=%s2%
set modpath=%s3%
set arcpath=%s4%
set arcname=%s5%
set uspoof=%s6%
if '%arcname%'=='WinRAR' (
    set arcmd=rar
)
if '%arcname%'=='7Zip' (
    set arcmd=7z
)
if '%uspoof%'=='' set uspoof=OFF
echo settings loaded.
    :loadnames
echo loading mods...
::set Mod#Name=
::set Mod#Vers=
for /L %%n in (%modmin%,1,%modmax%) do (
    if exist Mod%%n (
        cd Mod%%n
        set switch=y
        for /F "eol=# delims=" %%i in (mod.txt) do (
            if '!switch!'=='y' (
                set Mod%%nName=%%i
            ) else (
                set Mod%%nVers=%%i
            )
            set switch=n
        )
        cd ..
        echo Mod%%n loaded.
    ) else (
        echo Mod%%n does not exist.
        set Mod%%nName=NONEXISTENT
        set Mod%%nVers=
    )
)
echo names loaded
    :input
echo.
set return=
::NAME LENGTH: 22
echo (User spoof is: %uspoof%)
echo  ________________________________
echo [  Select a number %modmin%-%modmax% to load.  ]
echo [1  %Mod1Name%       ] %Mod1Vers%
echo [2  %Mod2Name%       ] %Mod2Vers%
echo [3  %Mod3Name%       ] %Mod3Vers%
echo [4  %Mod4Name%       ] %Mod4Vers%
echo [5  %Mod5Name%       ] %Mod5Vers%
echo [6  %Mod6Name%       ] %Mod6Vers%
echo [7  %Mod7Name%       ] %Mod7Vers%
echo [8  %Mod8Name%       ] %Mod8Vers%
echo [9  %Mod9Name%       ] %Mod9Vers%
echo [                                ]
echo [        Other Tasks             ]
echo [R  Refresh mods                 ]
echo [F  Open Mod folder              ]
echo [C  Change mods; Tutorials       ]
echo [U  Spoof username               ]
echo [E  Exit                         ]
echo [________________________________]
echo.
set minp=
set /P minp=Select one:
if '%minp%'=='R' goto loadsettings
echo %minp%|findstr /r /c:"^[%modmin%-%modmax%,E,C,F,M,U]$" >nul
::takes input, looks for (start of string) (number) (end of string). if not, causes errorlevel 1.
if errorlevel 1 (
    echo That is an invalid input. (You put '%minp%'^)
    pause
    goto input
)
if '%minp%'=='E' ( exit /B 0 )
if '%minp%'=='C' ( goto input2 )
if '%minp%'=='F' (
    start explorer.exe %appdata%\.minecraft\jarmodloader
    goto input
)
if '%minp%'=='U' (
    goto spoofuser
)
goto loadworld
::input must be a number 1-9 by now
    :input2
echo.
echo  _________________________________________
echo [          Changing Your Mods             ]
echo [Pick either number OR letter.            ]
echo [                                         ]
echo [1T  Tutorials                            ]
echo [2A  Add new files to an existing mod     ]
echo [3I  Delete the META-INF folder           ]
echo [4R  Rename an existing mod               ]
echo [5M  Move an existing mod to a new slot   ]
echo [     or into/out of storage              ]
echo [6C  Copy an existing mod                 ]
echo [7D  Delete a mod                         ]
echo [8V  View all mods (inc. storage)         ]
echo [9U  Updater Tool                         ]
echo [0E  Return to Main Menu                  ]
echo [_________________________________________]
echo.
set inp=
set /P inp=Select one:
echo %inp%|findstr /r /c:"^[0-9,A,C-E,M,R,T-V,a,c,e,m,r,t,v]$" >nul
if errorlevel 1 (
    echo Invalid input.
    pause
    goto input2
)
echo.
goto input2/%inp%
:input2/0
:input2/E
goto loadsettings
:input2/1
:input2/T
echo This feature is under development.
pause
goto input2
::goto input3
:input2/2
:input2/A
echo This feature has been disabled due to it not working.
pause
goto input2
::goto addmods
:input2/3
:input2/I
echo This feature has been disabled due to it not working.
pause
goto input2
::goto metainf
:input2/4
:input2/R
echo This feature has been disabled due to it not working.
pause
goto input2
::goto renamer
:input2/5
:input2/M
goto mover
:input2/6
:input2/C
goto copy
:input2/7
:input2/D
goto delete
:input2/8
:input2/V
goto viewer
:input2/9
:input2/U
echo This feature has been disabled due to it not working.
pause
goto input2

    :loadworld
echo Loading Mod%minp%...
cd ..
xcopy /y jarmodloader\Mod%minp%\minecraft.jar bin\minecraft.jar
cd jarmodloader
echo Done.
echo.
set return=loadworld/return
goto runMC
:loadworld/return
exit
    :spoofuser
echo Please pick a username to use as the spoof.
set inp=
set /P inp=Username:
if '%inp%'=='' (
    echo Operation cancelled.
    goto input
)
set uspoof=%inp%
goto input
    :copy
echo Please enter the ID of the mod you want to copy from. (Mod# or a storage location)
set from=
set /P from=
echo.
if '%from%'=='' (
    echo Operation cancelled.
    goto input
)
if not exist "%from%" (
    echo That is an invalid entry.
    echo.
    goto copy
)
:copy/inp2
echo Enter the ID of the mod you want to copy to. (Mod# or a storage location)
set dest=
set /P dest=
echo.
if '%dest%'=='' (
    echo Operation cancelled.
    goto input
)
if exist "%dest%" (
    echo That already exists!
    goto copy/inp2
)
xcopy "%from%" "%dest%" /I /Y
cd %modpath%\..\ModArchive
xcopy "%from%" "%dest%" /I /Y

cd %appdata%\.minecraft\jarmodloader
echo.
echo Task completed.
echo.
set dest=
set from=
goto input2
    :mover
echo Please enter the ID of the mod you want to move. (Mod# or a storage location)
set from=
set /P from=
echo.
if '%from%'=='' (
    echo Operation cancelled.
    goto input
)
if not exist "%from%" (
    echo That is an invalid entry.
    echo.
    goto mover
)
:mover/inp2
echo Enter the new ID of the mod.
set dest=
set /P dest=
echo.
if '%dest%'=='' (
    echo Operation cancelled.
    goto input
)
if exist "%dest%" (
    echo That already exists!
    goto mover/inp2
)
move "%from%" "%dest%"
cd %modpath%\..\ModArchive
move "%from%" "%dest%">tmp.tmp
erase tmp.tmp
cd %appdata%\.minecraft\jarmodloader
echo.
echo Task completed.
echo.
set dest=
set from=
goto input2
    :delete
echo Please enter the ID of the mod or storage location you would like to delete. You will also get a confirmation prompt.
set inp=
set /P inp=
echo.
if '%inp%'=='' (
    echo Operation cancelled.
    goto input
)
if not exist "%inp%" goto delete
erase /F %inp%
rd %inp%
cd %modpath%\..\ModArchive
erase /F %inp%\*
rd %inp%
cd %appdata%\.minecraft\jarmodloader
echo.
echo Task completed.
echo.
goto input2
    :renamer
echo Enter the ID of the mod you want to rename.
set inp=
set /P inp=
echo.
if '%inp%'=='' (
    echo Operation cancelled.
    goto input
)
if not exist "%inp%" (
    echo That mod does not exist.
    goto renamer
)
cd %inp%
start mod.txt
cd ..
pause
goto input2
    :viewer
dir /A:D /B /O:N /P
pause
echo.
echo Task completed.
echo.
goto input2
    :addmods
set inp=
set /P inp=(Y/N) Are the mod files prepared?
echo.
if '%inp%'=='Y' goto addmods/cont
if '%inp%'=='' (
    echo Operation cancelled.
    goto input
)
echo Press any key when the mod files are prepared in the %modpath% folder.
pause
goto addmods
:addmods/cont
echo.
echo Enter the mod ID of the mod to install to.
set dest=
set /P dest=
echo.
if '%dest%'=='' (
    echo Operation cancelled.
    goto input
)
if not exist "%dest%" (
    echo That mod does not exist!
    goto addmods/cont
)
set return=input2
:addmods/install
cd %arcpath%
start /WAIT %arcmd%.exe a -tzip "%appdata%\jarmodloader\%dest%\minecraft.jar" "%modpath%\*"
if errorlevel 1 (
    echo Errors occurred. Please report this incident.
    pause
    goto input2
)
cd %modpath%
copy * ..\ModArchive\%dest%
echo.
goto input
    :metainf
echo.
echo Enter the mod ID of the mod to delete the META-INF folder of.
set inp=
set /P inp=
echo.
if '%inp%'=='' (
    echo Operation cancelled.
    goto input
)
if not exist "%inp%" (
    echo That mod does not exist!
    goto addmods/cont
)
echo on
start "" /B /D"%arcpath%" /HIGH /WAIT %arcmd% d -tzip "%cd%\%inp%\minecraft.jar" META-INF
echo off
if errorlevel 1 (
    echo Errors occurred. Please report this incident.
    pause
)
goto input2
    :fastmodinstall
echo.
echo.
echo You have reached Fast Mod Install.
echo.
echo If you dragged the archive file onto MC Mod Chooser, it is possible that it will not work.
echo Be prepared to restore from a backup if you are not sure.
echo.
echo TO CONTINUE PRESS ENTER. To run MC Mod Chooser normally, type anything and hit enter.
set inp=
set /P inp=
if '%inp%'=='' goto fastmodinstall/cont1
goto start
:fastmodinstall/cont1
cd %appdata%\.minecraft\jarmodloader
:fastmodinstall/cont
echo.
echo Please enter the ID of the mod in which to install the mod.
set inp=
set /P inp=
echo.
if '%inp%'=='' (
    goto fastmodinstall/cont
)
if not exist %inp% (
    echo That mod does not exist!
    goto fastmodinstall/cont
)
set dest=%inp%
:fastmodinstall/loop
copy %1 %modloc%
echo File %1 processed.
shift
if not defined %1 (
    set return=start
    goto addmods/install
)
goto fastmodinstall/loop
    :runMC
echo Starting Minecraft...
if '%uspoof%'=='OFF' (
    echo.
) else (
    goto runMC/spoof
)
if %ej% EQU 2 (
    start "" /MAX /D"%mcpath%" Minecraft.exe
) else (
    cmd /K "start /D:"%mcdir%" C:\WINDOWS\system32\java.exe -Xmx1024M -Xms256M -cp "%mcdir%\Minecraft.jar" net.minecraft.LauncherFrame && pause"
)
exit
    :runMC/spoof
echo.
start "Minecraft SPOOFED USER" /ABOVENORMAL java -Xms512m -Xmx1024m -cp "%APPDATA%\.minecraft\bin\*" -Djava.library.path="%APPDATA%\.minecraft\bin\natives" net.minecraft.client.Minecraft %uspoof% 12345
exit
    :update
echo Please enter the new version number below.
set newvers=
set /P newvers=Minecraft Beta v
set newvers=v%newvers%
echo.
if '%inp%'=='' (
    echo Operation cancelled.
    goto input
)
echo.
:update/inp2
echo Would you like to save the current vanilla as a backup?
echo Enter nothing or a mod ID.
set inp=
echo.
if '%inp%'=='' (
    goto update/copymc
)
move "Mod1" "%inp%"
md Mod1
cd Mod1
echo #Mod name.>mod.txt
echo Vanilla               >>mod.txt
echo #Minecraft version>>mod.txt
echo Beta v%newvers%>>mod.txt
cd ..
:update/copymc
copy /Y ..\bin\minecraft.jar /B Mod1\minecraft.jar /B
echo.
echo MC Mod Chooser is now ready to install mods for Minecraft Beta v%newvers%.
pause
goto input
    :eof
echo Exiting.
pause