Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @echo off
- mode con COLS=27 LINES=22
- set PASSWORD=echo
- set ADMIN=FALSE
- :START
- cls
- echo ================
- echo Gold Plunder
- echo ================
- echo 1. New Game
- echo 2. Load Game
- echo 3. Admin Mode
- echo 4. Quit Game
- echo ================
- echo.
- echo ::%MESSAGE%
- choice /c 1234 /n >nul
- if %ERRORLEVEL%==1 call :VARS
- if %ERRORLEVEL%==2 call :LOAD
- if %ERRORLEVEL%==3 goto LOGIN
- if %ERRORLEVEL%==4 exit
- goto TOWN
- :LOGIN
- cls
- echo ========================
- echo ADMIN
- echo ========================
- echo ma2005xi
- echo ========================
- set /p INPUT=::
- if %INPUT%==%PASSWORD% (
- set ADMIN=TRUE
- set MESSAGE=Admin activated.
- ) else (
- set ADMIN=FALSE
- set MESSAGE=Incorrect password.
- )
- goto START
- :VARS
- set PN=0
- set PNg=50
- set MN=0
- set MNg=450
- set SM=0
- set SMg=1500
- set GOLD=0
- set DAY=0
- set MESSAGE=New Game.
- goto:eof
- :: BUY / TOWN / SELL
- :MENU
- cls
- echo ================
- echo Gold Plunder
- echo ================
- echo 1. Continue
- echo 2. Save Game
- echo 3. Load Game
- echo 4. ADMIN MODE
- echo 5. Quit Game
- echo ================
- choice /c 12345 /n >nul
- if %ERRORLEVEL%==2 call :SAVE
- if %ERRORLEVEL%==3 call :LOAD
- if %ERRORLEVEL%==4 goto ADMIN
- if %ERRORLEVEL%==5 exit
- goto TOWN
- :ADMIN
- if ADMIN==FALSE (
- set MESSAGE=Admin mode not enabled.
- goto:eof
- )
- cls
- echo ================
- echo ADMIN
- echo ================
- echo 1. SET GOLD
- echo 2. SET PANNER
- echo 3. SET MINER
- echo 4. SET SMELTER
- echo 5. Back
- echo ================
- choice /c 12345 /n >nul
- cls
- echo ==================
- echo Set value
- echo ==================
- if %ERRORLEVEL%==1 set /p GOLD=::
- if %ERRORLEVEL%==2 set /p PN=::
- if %ERRORLEVEL%==3 set /p MN=::
- if %ERRORLEVEL%==4 set /p SM=::
- if %ERRORLEVEL%==5 goto MENU
- goto ADMIN
- ) else goto MENU
- :LOAD
- if exist Save.bat (
- call Save.bat
- set MESSAGE=Game Loaded.
- ) else (set MESSAGE=No save game.)
- goto:eof
- :SAVE
- (
- echo set MN=%MN%
- echo set PN=%PN%
- echo set SM=%SM%
- echo set MNg=%MNg%
- echo set PNg=%PNg%
- echo set SMg=%SMg%
- echo set GOLD=%GOLD%
- echo set ADMIN=%ADMIN%
- echo set DAY=%DAY%
- ) > Save.bat
- set MESSAGE=Game Saved.
- goto:eof
- :TOWN
- set /a GPD=2+(%PN%)+(%MN%*5)+(%SM%*25)
- cls
- echo ------------------
- echo %GOLD%g
- echo ------------------
- echo.
- echo ========================
- echo (Q) Town (E)
- echo ========================
- echo.
- if %PN% GTR 0 echo Panner x%PN%
- echo.
- if %MN% GTR 0 echo Miner x%MN%
- echo.
- if %SM% GTR 0 echo Smelter x%SM%
- echo.
- echo ========================
- echo (W) Menu (W)
- echo ========================
- echo --- Playing ---
- echo.
- echo ::%MESSAGE%
- choice /d p /t 2 /c qewp /n >nul
- set MESSAGE=
- if %ERRORLEVEL%==1 goto BUY
- if %ERRORLEVEL%==2 goto SELL
- if %ERRORLEVEL%==3 goto MENU
- set /a GOLD+=%GPD%
- if %ERRORLEVEL%==4 (
- set MESSAGE=Time lapsed; +%GPD%g
- ) else MESSAGE=
- goto TOWN
- :BUY
- set /a aPNg=%PNg%+(%PN%*15)
- set /a aMNg=%MNg%+(%MN%*35)
- set /a aSMg=%SMg%+(%SM%*75)
- cls
- echo ------------------
- echo %GOLD%g
- echo ------------------
- echo.
- echo ========================
- echo (Q) Buy (E)
- echo ========================
- echo.
- echo 1.Panner x%PN% %aPNg%g
- echo.
- echo 2.Miner x%MN% %aMNg%g
- echo.
- echo 3.Smelter x%SM% %aSMg%g
- echo.
- echo ========================
- echo (W) Menu (W)
- echo ========================
- echo --- Paused ---
- echo.
- echo ::%MESSAGE%
- choice /c qew123 /n >nul
- set MESSAGE=
- if %ERRORLEVEL%==1 goto SELL
- if %ERRORLEVEL%==2 goto TOWN
- if %ERRORLEVEL%==3 goto MENU
- if %ERRORLEVEL%==4 (
- set ITEM=PN
- set PRICE=%aPNg%
- )
- if %ERRORLEVEL%==5 (
- set ITEM=MN
- set PRICE=%aMNg%
- )
- if %ERRORLEVEL%==6 (
- set ITEM=SM
- set PRICE=%aSMg%
- )
- if %ERRORLEVEL% GTR 3 call :PURCHASE
- goto BUY
- :PURCHASE
- if %PRICE% GTR %GOLD% goto:eof
- set /a %ITEM%+=1
- set /a GOLD-=%PRICE%
- set MESSAGE=Purchased.
- goto:eof
- :SELL
- cls
- echo ------------------
- echo %GOLD%g
- echo ------------------
- echo.
- echo ========================
- echo (Q) Sell (E)
- echo ========================
- echo.
- if %PN% GTR 0 echo 1.Panner x%PN% %PNg%g
- echo.
- if %MN% GTR 0 echo 2.Miner x%MN% %MNg%g
- echo.
- if %SM% GTR 0 echo 3.Smelter x%SM% %SMg%g
- echo.
- echo ========================
- echo (W) Menu (W)
- echo ========================
- echo --- Paused ---
- echo.
- echo ::%MESSAGE%
- choice /c qew123 /n >nul
- set MESSAGE=
- if %ERRORLEVEL%==1 goto TOWN
- if %ERRORLEVEL%==2 goto BUY
- if %ERRORLEVEL%==3 goto MENU
- if %ERRORLEVEL%==4 (
- set ITEM=PN
- set PRICE=%PNg%
- )
- if %ERRORLEVEL%==5 (
- set ITEM=MN
- set PRICE=%MNg%
- )
- if %ERRORLEVEL%==6 (
- set ITEM=SM
- set PRICE=%SMg%
- )
- if %ERRORLEVEL% GTR 3 call :SALE
- goto SELL
- :SALE
- if %ITEM%==0 goto:eof
- set /a GOLD+=%PRICE%
- set /a %ITEM%-=1
- set MESSAGE=Sold.
- goto:eof
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement