Advertisement
Guest User

Test

a guest
May 25th, 2019
101
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. @echo off
  2. mode con COLS=27 LINES=22
  3. set PASSWORD=echo
  4. set ADMIN=FALSE
  5. :START
  6. cls
  7. echo ================
  8. echo   Gold Plunder
  9. echo ================
  10. echo  1. New Game
  11. echo  2. Load Game
  12. echo  3. Admin Mode
  13. echo  4. Quit Game
  14. echo ================
  15. echo.
  16. echo ::%MESSAGE%
  17. choice /c 1234 /n >nul
  18. if %ERRORLEVEL%==1 call :VARS
  19. if %ERRORLEVEL%==2 call :LOAD
  20. if %ERRORLEVEL%==3 goto LOGIN
  21. if %ERRORLEVEL%==4 exit
  22. goto TOWN
  23. :LOGIN
  24. cls
  25. echo ========================
  26. echo          ADMIN
  27. echo ========================
  28. echo ma2005xi
  29. echo ========================
  30. set /p INPUT=::
  31. if %INPUT%==%PASSWORD% (
  32.  set ADMIN=TRUE
  33.  set MESSAGE=Admin activated.
  34. ) else (
  35.  set ADMIN=FALSE
  36.  set MESSAGE=Incorrect password.
  37. )
  38. goto START
  39. :VARS
  40. set PN=0
  41. set PNg=50
  42. set MN=0
  43. set MNg=450
  44. set SM=0
  45. set SMg=1500
  46. set GOLD=0
  47. set DAY=0
  48. set MESSAGE=New Game.
  49. goto:eof
  50. :: BUY / TOWN / SELL
  51. :MENU
  52. cls
  53. echo ================
  54. echo   Gold Plunder
  55. echo ================
  56. echo  1. Continue
  57. echo  2. Save Game
  58. echo  3. Load Game
  59. echo  4. ADMIN MODE
  60. echo  5. Quit Game
  61. echo ================
  62. choice /c 12345 /n >nul
  63. if %ERRORLEVEL%==2 call :SAVE
  64. if %ERRORLEVEL%==3 call :LOAD
  65. if %ERRORLEVEL%==4 goto ADMIN
  66. if %ERRORLEVEL%==5 exit
  67. goto TOWN
  68. :ADMIN
  69. if ADMIN==FALSE (
  70. set MESSAGE=Admin mode not enabled.
  71. goto:eof
  72. )
  73. cls
  74. echo ================
  75. echo      ADMIN
  76. echo ================
  77. echo  1. SET GOLD
  78. echo  2. SET PANNER
  79. echo  3. SET MINER
  80. echo  4. SET SMELTER
  81. echo  5. Back
  82. echo ================
  83. choice /c 12345 /n >nul
  84. cls
  85. echo ==================
  86. echo     Set value
  87. echo ==================
  88. if %ERRORLEVEL%==1 set /p GOLD=::
  89. if %ERRORLEVEL%==2 set /p PN=::
  90. if %ERRORLEVEL%==3 set /p MN=::
  91. if %ERRORLEVEL%==4 set /p SM=::
  92. if %ERRORLEVEL%==5 goto MENU
  93. goto ADMIN
  94. ) else goto MENU
  95. :LOAD
  96. if exist Save.bat (
  97. call Save.bat
  98. set MESSAGE=Game Loaded.
  99. ) else (set MESSAGE=No save game.)
  100. goto:eof
  101. :SAVE
  102. (
  103. echo set MN=%MN%
  104. echo set PN=%PN%
  105. echo set SM=%SM%
  106. echo set MNg=%MNg%
  107. echo set PNg=%PNg%
  108. echo set SMg=%SMg%
  109. echo set GOLD=%GOLD%
  110. echo set ADMIN=%ADMIN%
  111. echo set DAY=%DAY%
  112. ) > Save.bat
  113. set MESSAGE=Game Saved.
  114. goto:eof
  115. :TOWN
  116. set /a GPD=2+(%PN%)+(%MN%*5)+(%SM%*25)
  117.               cls
  118.               echo    ------------------
  119.               echo      %GOLD%g
  120.               echo    ------------------
  121.               echo.
  122.               echo ========================
  123.               echo (Q)       Town       (E)
  124.               echo ========================
  125.               echo.
  126. if %PN% GTR 0 echo    Panner  x%PN%
  127.               echo.
  128. if %MN% GTR 0 echo    Miner   x%MN%
  129.               echo.
  130. if %SM% GTR 0 echo    Smelter x%SM%
  131.               echo.
  132.               echo ========================
  133.               echo (W)       Menu       (W)
  134.               echo ========================
  135.               echo ---     Playing      ---
  136.               echo.
  137.               echo ::%MESSAGE%
  138.               choice /d p /t 2 /c qewp /n >nul
  139.               set MESSAGE=
  140.               if %ERRORLEVEL%==1 goto BUY
  141.               if %ERRORLEVEL%==2 goto SELL
  142.               if %ERRORLEVEL%==3 goto MENU
  143.               set /a GOLD+=%GPD%
  144.               if %ERRORLEVEL%==4 (
  145.                set MESSAGE=Time lapsed; +%GPD%g
  146.               ) else MESSAGE=
  147.               goto TOWN
  148. :BUY
  149. set /a aPNg=%PNg%+(%PN%*15)
  150. set /a aMNg=%MNg%+(%MN%*35)
  151. set /a aSMg=%SMg%+(%SM%*75)
  152.               cls
  153.               echo    ------------------
  154.               echo      %GOLD%g
  155.               echo    ------------------
  156.               echo.
  157.               echo ========================
  158.               echo (Q)        Buy       (E)
  159.               echo ========================
  160.               echo.
  161.               echo  1.Panner  x%PN%    %aPNg%g
  162.               echo.
  163.               echo  2.Miner   x%MN%    %aMNg%g
  164.               echo.
  165.               echo  3.Smelter x%SM%    %aSMg%g
  166.               echo.
  167.               echo ========================
  168.               echo (W)       Menu       (W)
  169.               echo ========================
  170.               echo ---      Paused      ---
  171.               echo.
  172.               echo ::%MESSAGE%
  173.               choice /c qew123 /n >nul
  174.               set MESSAGE=
  175.               if %ERRORLEVEL%==1 goto SELL
  176.               if %ERRORLEVEL%==2 goto TOWN
  177.               if %ERRORLEVEL%==3 goto MENU
  178.               if %ERRORLEVEL%==4 (
  179.                set ITEM=PN
  180.                set PRICE=%aPNg%
  181.               )
  182.               if %ERRORLEVEL%==5 (
  183.                set ITEM=MN
  184.                set PRICE=%aMNg%
  185.               )
  186.               if %ERRORLEVEL%==6 (
  187.                set ITEM=SM
  188.                set PRICE=%aSMg%
  189.               )
  190.               if %ERRORLEVEL% GTR 3 call :PURCHASE
  191.               goto BUY
  192. :PURCHASE
  193. if %PRICE% GTR %GOLD% goto:eof
  194. set /a %ITEM%+=1
  195. set /a GOLD-=%PRICE%
  196. set MESSAGE=Purchased.
  197. goto:eof
  198. :SELL
  199.               cls
  200.               echo    ------------------
  201.               echo      %GOLD%g
  202.               echo    ------------------
  203.               echo.
  204.               echo ========================
  205.               echo (Q)       Sell       (E)
  206.               echo ========================
  207.               echo.
  208. if %PN% GTR 0 echo  1.Panner  x%PN%    %PNg%g
  209.               echo.
  210. if %MN% GTR 0 echo  2.Miner   x%MN%    %MNg%g
  211.               echo.
  212. if %SM% GTR 0 echo  3.Smelter x%SM%    %SMg%g
  213.               echo.
  214.               echo ========================
  215.               echo (W)       Menu       (W)
  216.               echo ========================
  217.               echo ---      Paused      ---
  218.               echo.
  219.               echo ::%MESSAGE%
  220.               choice /c qew123 /n >nul
  221.               set MESSAGE=
  222.               if %ERRORLEVEL%==1 goto TOWN
  223.               if %ERRORLEVEL%==2 goto BUY
  224.               if %ERRORLEVEL%==3 goto MENU
  225.               if %ERRORLEVEL%==4 (
  226.                set ITEM=PN
  227.                set PRICE=%PNg%
  228.               )
  229.               if %ERRORLEVEL%==5 (
  230.                set ITEM=MN
  231.                set PRICE=%MNg%
  232.               )
  233.               if %ERRORLEVEL%==6 (
  234.                set ITEM=SM
  235.                set PRICE=%SMg%
  236.               )
  237.               if %ERRORLEVEL% GTR 3 call :SALE
  238.               goto SELL
  239. :SALE
  240. if %ITEM%==0 goto:eof
  241. set /a GOLD+=%PRICE%
  242. set /a %ITEM%-=1
  243. set MESSAGE=Sold.
  244. goto:eof
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement