View difference between Paste ID: ixZLf3Y3 and Se8jAuv8
SHOW: | | - or go back to the newest paste.
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  Type in admin password
28+
echo ma2005xi
29-
echo   to acces admin mode.
29+
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