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 |