Roblox Wallhack Manager Source Code

@echo off
title Roblox Wallhack Manager
color 0a

setlocal enableextensions enabledelayedexpansion

for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E# & echo on & for %%b in (1) do rem"') do ( set "DEL=%%a"
)


:Variables
Set SelectedMainMenuOption=1
set SelectedInstallTexturePackMenuOption=1
set SelectedLoadInstalledTexturePackMenuOption=1
set SelectedUninstallTexturePackMenuOption=1

set ProgramCurrentVersion=V1.0

cls
mode 47,6
color 0e
echo -----------------------------------------------
echo credits to:
echo shanethegamer142 Or EditedReality: Main Creator
echo Mortalkombatman2: GUI and LocateRoblox script
echo -----------------------------------------------
ping -n 5 127.0.0.1>nul

:LocateRoblox
cls
mode 42,2
color 0d
echo Locating Roblox... Please wait.
ping -n 3 127.0.0.1>nul
for /f "delims=" %%F in ('dir /b /s "%LocalAppData%\Roblox\RobloxPlayerBeta.exe" 2^>nul') do set RobloxLocation=%%F
if defined RobloxLocation (
goto RobloxSuccessfullyFound
) else (
goto RobloxNotFoundError
)
cls


:UnexpectedErrorWhileFindingRoblox
cls
mode 50,2
color 0c
echo An unexpected error has occured, please stand by.
ping -n 7 127.0.0.1>nul
cls
goto LocateRoblox

:RobloxSuccessfullyFound
cls
mode 42,2
color 0a
echo Roblox has been successfully located.
ping -n 4 127.0.0.1>nul
cls
goto Updator


:RobloxNotFoundError
cls
mode 90,2
color 0c
echo Error 404, Roblox not found. Please install Roblox first, then press any key to continue.
pause>nul
goto LocateRoblox


:Updator
cls
mode 42,2
color 0e
echo Checking for updates... Please wait.
powershell cmd /c & ping -n 5 127.0.0.1>nul
set DLOAD_SCRIPT=download.vbs
echo Option Explicit                                                    >  %DLOAD_SCRIPT%
echo Dim args, http, fileSystem, adoStream, url, target, status         >> %DLOAD_SCRIPT%
echo.                                                                   >> %DLOAD_SCRIPT%
echo Set args = Wscript.Arguments                                       >> %DLOAD_SCRIPT%
echo Set http = CreateObject("WinHttp.WinHttpRequest.5.1")              >> %DLOAD_SCRIPT%
echo url = args(0)                                                      >> %DLOAD_SCRIPT%
echo target = args(1)                                                   >> %DLOAD_SCRIPT%
echo.                                                                   >> %DLOAD_SCRIPT%
echo http.Open "GET", url, False                                        >> %DLOAD_SCRIPT%
echo http.Send                                                          >> %DLOAD_SCRIPT%
echo status = http.Status                                               >> %DLOAD_SCRIPT%
echo.                                                                   >> %DLOAD_SCRIPT%
echo If status ^<^> 200 Then                                            >> %DLOAD_SCRIPT%
echo    WScript.Quit 1                                                  >> %DLOAD_SCRIPT%
echo End If                                                             >> %DLOAD_SCRIPT%
echo.                                                                   >> %DLOAD_SCRIPT%
echo Set adoStream = CreateObject("ADODB.Stream")                       >> %DLOAD_SCRIPT%
echo adoStream.Open                                                     >> %DLOAD_SCRIPT%
echo adoStream.Type = 1                                                 >> %DLOAD_SCRIPT%
echo adoStream.Write http.ResponseBody                                  >> %DLOAD_SCRIPT%
echo adoStream.Position = 0                                             >> %DLOAD_SCRIPT%
echo.                                                                   >> %DLOAD_SCRIPT%
echo Set fileSystem = CreateObject("Scripting.FileSystemObject")        >> %DLOAD_SCRIPT%
echo If fileSystem.FileExists(target) Then fileSystem.DeleteFile target >> %DLOAD_SCRIPT%
echo adoStream.SaveToFile target                                        >> %DLOAD_SCRIPT%
echo adoStream.Close                                                    >> %DLOAD_SCRIPT%
echo.                                                                   >> %DLOAD_SCRIPT%
cscript //Nologo %DLOAD_SCRIPT% https://pastebin.com/raw/jCvBg7Ki "%cd%\Server Current Version"
del download.vbs
set /p ServerCurrentVersion=<"%cd%\Server Current Version"
del "%cd%\Server Current Version"
cls

if "%ProgramCurrentVersion%" == "%ServerCurrentVersion%" goto UpToDateMessage

cls
mode 88,2
color 0b
echo A new update is available! Downloading Roblox Resource Pack Manager %ServerCurrentVersion%... Please wait.
ping -n 7 127.0.0.1>nul
set DLOAD_SCRIPT=download.vbs
echo Option Explicit                                                    >  %DLOAD_SCRIPT%
echo Dim args, http, fileSystem, adoStream, url, target, status         >> %DLOAD_SCRIPT%
echo.                                                                   >> %DLOAD_SCRIPT%
echo Set args = Wscript.Arguments                                       >> %DLOAD_SCRIPT%
echo Set http = CreateObject("WinHttp.WinHttpRequest.5.1")              >> %DLOAD_SCRIPT%
echo url = args(0)                                                      >> %DLOAD_SCRIPT%
echo target = args(1)                                                   >> %DLOAD_SCRIPT%
echo.                                                                   >> %DLOAD_SCRIPT%
echo http.Open "GET", url, False                                        >> %DLOAD_SCRIPT%
echo http.Send                                                          >> %DLOAD_SCRIPT%
echo status = http.Status                                               >> %DLOAD_SCRIPT%
echo.                                                                   >> %DLOAD_SCRIPT%
echo If status ^<^> 200 Then                                            >> %DLOAD_SCRIPT%
echo    WScript.Quit 1                                                  >> %DLOAD_SCRIPT%
echo End If                                                             >> %DLOAD_SCRIPT%
echo.                                                                   >> %DLOAD_SCRIPT%
echo Set adoStream = CreateObject("ADODB.Stream")                       >> %DLOAD_SCRIPT%
echo adoStream.Open                                                     >> %DLOAD_SCRIPT%
echo adoStream.Type = 1                                                 >> %DLOAD_SCRIPT%
echo adoStream.Write http.ResponseBody                                  >> %DLOAD_SCRIPT%
echo adoStream.Position = 0                                             >> %DLOAD_SCRIPT%
echo.                                                                   >> %DLOAD_SCRIPT%
echo Set fileSystem = CreateObject("Scripting.FileSystemObject")        >> %DLOAD_SCRIPT%
echo If fileSystem.FileExists(target) Then fileSystem.DeleteFile target >> %DLOAD_SCRIPT%
echo adoStream.SaveToFile target                                        >> %DLOAD_SCRIPT%
echo adoStream.Close                                                    >> %DLOAD_SCRIPT%
echo.                                                                   >> %DLOAD_SCRIPT%
cscript //Nologo %DLOAD_SCRIPT% https://pastebin.com/raw/Xnv0mSNx "%cd%\Roblox Wallhack Manager %ServerCurrentVersion%.bat"
del download.vbs
start "" "%cd%\Roblox Resource Pack Manager %ServerCurrentVersion%.bat"
(goto) 2>nul & del "%~f0"


:UpToDateMessage
cls
mode 48,2
color 0a
echo Roblox Resource Pack Manager %ProgramCurrentVersion% is up to date.
ping -n 5 127.0.0.1>nul
goto MainMenu


:MainMenu
mode 42,10
cls
color 0a
if %SelectedMainMenuOption% == 1 (
call :SetSelectionColor 1a "[SELECTED] Install custom texture pack"
echo.
) else (
echo Install custom texture pack
)
if %SelectedMainMenuOption% == 2 (
call :SetSelectionColor 1a "[SELECTED] Load texture pack"
echo.
) else (
echo Load texture pack
)
if %SelectedMainMenuOption% == 3 (
call :SetSelectionColor 1a "[SELECTED] Uninstall texture pack"
echo.
) else (
echo Uninstall texture pack
)
if %SelectedMainMenuOption% == 4 (
call :SetSelectionColor 1a "[SELECTED] Help"
echo.
) else (
echo Help
)
if %SelectedMainMenuOption% == 5 (
call :SetSelectionColor 1a "[SELECTED] Check for updates"
echo.
) else (
echo Check for updates
)
if %SelectedMainMenuOption% == 6 (
call :SetSelectionColor 1a "[SELECTED] Exit"
echo.
) else (
echo Exit
)
echo.
echo ------------------------------------------
choice /c wsf /n /m " Keys: W = Up , S = Down, and F = Select"

if %ERRORLEVEL% == 1 goto MainMenuScrollUp
if %ERRORLEVEL% == 2 goto MainMenuScrollDown
if %ERRORLEVEL% == 3 goto MainMenuSelectOption

:MainMenuScrollUp
if %SelectedMainMenuOption% == 1 (
Set SelectedMainMenuOption=6
goto MainMenu
) else (
Set /a SelectedMainMenuOption=%SelectedMainMenuOption%-1
goto MainMenu
)

:MainMenuScrollDown
if %SelectedMainMenuOption% == 6 (
Set SelectedMainMenuOption=1
goto MainMenu
) else (
Set /a SelectedMainMenuOption=%SelectedMainMenuOption%+1
goto MainMenu
)

:MainMenuSelectOption
if %SelectedMainMenuOption% == 1 goto InstallTexturePackMenu
if %SelectedMainMenuOption% == 2 goto LoadInstalledTexturePackMenu
if %SelectedMainMenuOption% == 3 goto UninstallTexturePackMenu
if %SelectedMainMenuOption% == 4 goto Help
if %SelectedMainMenuOption% == 5 goto Updator
if %SelectedMainMenuOption% == 6 goto Exit



:InstallTexturePackMenu
cls
mode 100,25
color 0a
set x=0
echo ------------------------------------------
FOR /f "tokens=*" %%G IN ('dir /b "%cd%\Texture Packs"') do (
if not exist "%cd%\DATA\%%G" (
set /a x=x+1
if %SelectedInstallTexturePackMenuOption% == !x! (
set Name=%%G
call :SetSelectionColor 1a "[SELECTED] %%G"
echo.
) else (
echo %%G
)
)
)
if %x% == 0 goto ErrorNoUninstalledTexturePacks
echo.
echo ------------------------------------------
choice /c wsf /n /m " Keys: W = Up , S = Down, and F = Select"

if %ERRORLEVEL% == 1 goto InstallTexturePackMenuScrollUp
if %ERRORLEVEL% == 2 goto InstallTexturePackMenuScrollDown
if %ERRORLEVEL% == 3 goto InstallTexturePack

:InstallTexturePackMenuScrollUp
if %SelectedInstallTexturePackMenuOption% == 1 (
Set SelectedInstallTexturePackMenuOption=%x%
goto InstallTexturePackMenu
) else (
Set /a SelectedInstallTexturePackMenuOption=%SelectedInstallTexturePackMenuOption%-1
goto InstallTexturePackMenu
)

:InstallTexturePackMenuScrollDown
if %SelectedInstallTexturePackMenuOption% == %x% (
Set SelectedInstallTexturePackMenuOption=1
goto InstallTexturePackMenu
) else (
Set /a SelectedInstallTexturePackMenuOption=%SelectedInstallTexturePackMenuOption%+1
goto InstallTexturePackMenu
)



:InstallTexturePack
echo begining install
if not exist "%RobloxLocation%\..\%NAME%" (
mkdir "%RobloxLocation%\..\%NAME%"
)
xcopy /s /y "%RobloxLocation%\..\content" "%RobloxLocation%\..\%NAME%"
xcopy /s /y "%cd%\Texture Packs\%NAME%\%NAME%" "%RobloxLocation%\..\%NAME%"
MKDIR "%cd%\DATA\%NAME%"
if exist "%cd%\Texture Packs\%NAME%\AppSettings.xml" (
xcopy /s /y "%cd%\Texture Packs\%NAME%\AppSettings.xml" "%cd%\DATA\%NAME%"
)
if exist "%cd%\Texture Packs\%NAME%\PlatformContent" (
mkdir "%cd%\DATA\%NAME%\PlatformContent"
xcopy /s /y "%cd%\Texture Packs\%NAME%\PlatformContent" "%cd%\DATA\%NAME%\PlatformContent"
)
cls
echo completed
echo texture pack installed goto select texture pack to select it
echo Press any key to be taken back to the main menu.
pause>nul
goto MainMenu



:LoadInstalledTexturePackMenu
cls
mode 100,25
color 0a
set x=0
echo ------------------------------------------
FOR /f "tokens=*" %%G IN ('dir /b "%cd%\DATA"') do (
set /a x=x+1
if %SelectedLoadInstalledTexturePackMenuOption% == !x! (
set Name=%%G
call :SetSelectionColor 1a "[SELECTED] %%G"
echo.
) else (
echo %%G
)
)
echo.
echo ------------------------------------------
choice /c wsf /n /m " Keys: W = Up , S = Down, and F = Select"

if %ERRORLEVEL% == 1 goto LoadInstalledTexturePackMenuScrollUp
if %ERRORLEVEL% == 2 goto LoadInstalledTexturePackMenuScrollDown
if %ERRORLEVEL% == 3 goto LoadTexturePack

:LoadInstalledTexturePackMenuScrollUp
if %SelectedLoadInstalledTexturePackMenuOption% == 1 (
Set SelectedLoadInstalledTexturePackMenuOption=%x%
goto LoadInstalledTexturePackMenu
) else (
Set /a SelectedLoadInstalledTexturePackMenuOption=%SelectedLoadInstalledTexturePackMenuOption%-1
goto LoadInstalledTexturePackMenu
)

:LoadInstalledTexturePackMenuScrollDown
if %SelectedLoadInstalledTexturePackMenuOption% == %x% (
Set SelectedLoadInstalledTexturePackMenuOption=1
goto LoadInstalledTexturePackMenu
) else (
Set /a SelectedLoadInstalledTexturePackMenuOption=%SelectedLoadInstalledTexturePackMenuOption%+1
goto LoadInstalledTexturePackMenu
)

:LoadTexturePack
if exist "%cd%\DATA\%NAME%\AppSettings.xml" (
xcopy /s /y "%cd%\DATA\%NAME%\AppSettings.xml" "%RobloxLocation%\.."
)
if exist "%cd%\DATA\%NAME%\PlatformContent" (
xcopy /s /y "%cd%\DATA\%NAME%\PlatformContent" "%RobloxLocation%\..\PlatformContent"
)
cls
echo sucsesfully changed textures
echo Press any key to be taken back to the main menu.
pause>nul
goto MainMenu



:UninstallTexturePackMenu
cls
mode 100,25
color 0a
set x=0
echo ------------------------------------------
FOR /f "tokens=*" %%G IN ('dir /b "%cd%\DATA"') do (
if not "%%G" == "Default" (
set /a x=x+1
if %SelectedUninstallTexturePackMenuOption% == !x! (
set Name=%%G
call :SetSelectionColor 1a "[SELECTED] %%G"
echo.
) else (
echo %%G
)
)
)
if %x% == 0 goto ErrorNoInstalledTexturePacks
echo.
echo ------------------------------------------
choice /c wsf /n /m " Keys: W = Up , S = Down, and F = Select"

if %ERRORLEVEL% == 1 goto UninstallTexturePackMenuScrollUp
if %ERRORLEVEL% == 2 goto UninstallTexturePackMenuScrollDown
if %ERRORLEVEL% == 3 goto UninstallTexturePack

:UninstallTexturePackMenuScrollUp
if %SelectedUninstallTexturePackMenuOption% == 1 (
Set SelectedUninstallTexturePackMenuOption=%x%
goto UninstallTexturePackMenu
) else (
Set /a SelectedUninstallTexturePackMenuOption=%SelectedUninstallTexturePackMenuOption%-1
goto UninstallTexturePackMenu
)

:UninstallTexturePackMenuScrollDown
if %SelectedUninstallTexturePackMenuOption% == %x% (
Set SelectedUninstallTexturePackMenuOption=1
goto UninstallTexturePackMenu
) else (
Set /a SelectedUninstallTexturePackMenuOption=%SelectedUninstallTexturePackMenuOption%+1
goto UninstallTexturePackMenu
)

:UninstallTexturePack
cls
if exist "%RobloxLocation%\..\%NAME%" (
echo Removing the directory tree for "%RobloxLocation%\..\%NAME%"
rmdir /S /Q "%RobloxLocation%\..\%NAME%"
echo Completed.
echo.
)
if exist "%cd%\DATA\%NAME%" (
echo Removing the directory tree for "%cd%\DATA\%NAME%"
rmdir /S /Q "%cd%\DATA\%NAME%"
echo Completed.
echo.
)
echo successfully uninstalled texture pack.
echo Press any key to be taken back to the main menu.
pause>nul
goto MainMenu


:Help
cls
mode 132, 10
color 0a
echo okay so if you made your own texture pack or downloded one and want to make it compatible with this then follow these instructions:
echo make a folder inside of the texture folder in this tool that is called what you want it to be called
echo and make one inside that with the same name
echo then copy your content folder into it
echo and copy AppSettings.xml from the roblox dir into it
echo once you have done that right click AppSettings.xml and click edit and change content to your texture name and save
echo you are done
echo.
call :SetSelectionColor 0d "Press any key to be taken back to the main menu."
pause>nul
goto MainMenu

:Exit
cls
mode 42,2
color 0c
echo Goodbye.
ping -n 3 127.0.0.1>nul
exit



:ErrorNoUninstalledTexturePacks
cls
color 0c
echo You have no uninstalled texture packs. Please download a texture pack first. If you need help visit the how to use.
call :SetSelectionColor 0d "Press any key to be taken back to the main menu."
pause>nul
goto MainMenu



:ErrorNoInstalledTexturePacks
cls
color 0c
echo You have no installed texture packs. Please install a texture pack first.
call :SetSelectionColor 0d "Press any key to be taken back to the main menu."
pause>nul
goto MainMenu



:SetSelectionColor
echo off
<nul set /p ".=%DEL%" > "%~2"
findstr /v /a:%1 /R "^$" "%~2" nul
del "%~2" > nul 2>&1
goto :eof