home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 1 / ClassicFond01.iso / simulato / privater.zip / TABTNE.VDA < prev   
Text File  |  1993-08-10  |  10KB  |  506 lines
  1. @echo off
  2. set _=echo 
  3. set ~=goto 
  4. set !=set _
  5. set @=if not 
  6. echo.
  7. if '%1'=='' %~%cstart
  8. if '%1'=='setup' %~%csetup
  9. if '%_L%'=='' %~%c1
  10. %!%T=
  11. %!%U=
  12. if '%1'=='go' %~%cgo
  13. if '%1'=='inv' %~%cinv
  14. if '%1'=='take' %~%ctake
  15. if '%1'=='drop' %~%cdrop
  16. if '%1'=='quit' %~%cquit
  17. if '%1'=='look' %~%clook
  18. if '%1'=='say' %~%csay
  19. if '%1'=='use' %~%cuse
  20. :cstart
  21. %@%exist advent.bat %~%c0
  22. %@%exist go.bat %~%c2
  23. %@%'%_L%'=='' %~%c3
  24. cls
  25. %_%                  --- Art D's First Batch Adventure ---
  26. echo.
  27. echo.
  28. %_%A few notes before you begin:
  29. echo.
  30. %_%1. Do not let your commands stray beyond two words.
  31. %_%2. Type 'quit' to quit.
  32. %_%3. Don't type DOS commands while playing (except 'dir' for a verb list).
  33. echo.
  34. %!%R=%PROMPT%
  35. %!%L=path
  36. %!%BOX=road
  37. %!%KNIFE=path
  38. %!%LAMP=nowh
  39. %!%SHOES=gymn
  40. prompt $g
  41. advent go
  42. :c0
  43. %_%First you have to give this file its rightful name.
  44. %~%e
  45. :c1
  46. %_%Type 'advent' to start.
  47. %~%e
  48. :c2
  49. %_%Please place this file in an empty directory.
  50. %_%Then type 'advent setup'.
  51. %~%e
  52. :c3
  53. %_%Type 'quit' before restarting.
  54. %~%e
  55. :cgo
  56. %@%'%_L%'=='' %~%ggo
  57. %_%Type 'advent' to start.
  58. %~%e
  59. :ggo
  60. if '%2'=='' %~%gl
  61. if '%2'=='n' %~%gn
  62. if '%2'=='s' %~%gs
  63. if '%2'=='w' %~%gw
  64. if '%2'=='e' %~%ge
  65. if '%2'=='u' %~%gu
  66. if '%2'=='d' %~%gd
  67. if '%2'=='north' %~%gn
  68. if '%2'=='south' %~%gs
  69. if '%2'=='west' %~%gw
  70. if '%2'=='east' %~%ge
  71. if '%2'=='up' %~%gu
  72. if '%2'=='down' %~%gd
  73. %_%This adventure is strictly cardinal.
  74. %~%e
  75. :gn
  76. if '%_L%'=='path' %~%g1
  77. if '%_L%'=='roo2' %~%g5
  78. %~%gb2
  79. :gs
  80. if '%_L%'=='pend' %~%g2
  81. if '%_L%'=='room' %~%g7
  82. %~%gb2
  83. :gw
  84. if '%_L%'=='pend' %~%g4
  85. if '%_L%'=='road' %~%gb1
  86. if '%_L%'=='gymn' %~%g7
  87. if '%_L%'=='roo2' %~%gb3
  88. %~%gb2
  89. :ge
  90. if '%_L%'=='road' %~%g1
  91. if '%_L%'=='roo2' %~%g10
  92. if '%_L%'=='shop' %~%gb1
  93. %~%gb2
  94. :gu
  95. if '%_L%'=='cave' %~%g1
  96. if '%_L%'=='cav2' %~%g5
  97. if '%_L%'=='cav3' %~%g8
  98. if '%_L%'=='cell' %~%gg1
  99. %~%gb2
  100. :gd
  101. if '%_L%'=='pend' %~%g3
  102. if '%_L%'=='room' %~%g6
  103. if '%_L%'=='cell' %~%g9
  104. %~%gb2
  105. :g1
  106. %!%L=pend
  107. %~%gl
  108. :g2
  109. %!%L=path
  110. %~%gl
  111. :g3
  112. %!%L=cave
  113. %~%gl
  114. :g4
  115. %!%L=road
  116. %~%gl
  117. :g5
  118. %!%L=room
  119. %~%gl
  120. :g6
  121. %!%L=cav2
  122. %~%gl
  123. :g7
  124. %!%L=roo2
  125. %~%gl
  126. :g8
  127. %!%L=cell
  128. %~%gl
  129. :g9
  130. %!%L=cav3
  131. %~%gl
  132. :g10
  133. %!%L=gymn
  134. %~%gl
  135. :gb1
  136. %_%Nope. Too slick. Can't let you risk hurting yourself in an Art D
  137. %_%Deth-B-Gon(tm) adventure such as this. Other frustrations will suffice.
  138. %~%e
  139. :gb2
  140. %_%You can't go that way.
  141. %~%e
  142. :gb3
  143. %_%The western exit is barred by a massive portcullis.
  144. %~%e
  145. :gg1
  146. %_%As you emerge from the cellar, its entrance collapses behind you! You find
  147. %_%yourself in a sunny clearing with a statue of a smiling crowned man.
  148. %_%On its base is an inscription: 'You have passed the first test. Your 
  149. %_%reward is a single word: PHLEGMATIC. Remember it well, for it will aid you 
  150. %_%on the dark road that lies ahead. Play Art D's Next Batch Adventure and 
  151. %_%fulfill your destiny!'
  152. echo.
  153. advent quit
  154. :gl
  155. %!%D=
  156. %~%g%_L%
  157. :gpath
  158. %_%You are walking along a sunny north/south path near a small stream.
  159. %_%A very recent landslide prevents your return to the south.
  160. %~%go
  161. :gpend
  162. %_%You are at the end of a sunny path. A hatchway leads down and a 
  163. %_%concrete bridge crosses a stream to the west.
  164. %_%A sign has been planted next to the hatchway.
  165. %~%go
  166. :gcave
  167. %_%You are in a damp cave with an exit above. The letters SCSCSCFY are 
  168. %_%etched in one wall.
  169. %~%go
  170. :gcav2
  171. %_%You are in a damp cave with an exit above. The word BREADSTICK is
  172. %_%etched in one wall.
  173. %~%go
  174. :gcav3
  175. %_%You are in a damp cave with an exit above. The message CRACKTHE is
  176. %_%etched in one wall.
  177. %~%go
  178. :groad
  179. %_%You are on the east edge of a paved road. The road is very slick
  180. %_%here, so it might not be wise to venture out on it.
  181. %~%go
  182. :groom
  183. %@%'%_LAMP%'=='poss' %~%gdark
  184. %_%You are in a throne room. Right behind the throne, actually.
  185. %_%The main part of the room lies to the south. There's an open trap door
  186. %_%in the floor.
  187. %~%go
  188. :groo2
  189. %@%'%_LAMP%'=='poss' %~%gdark
  190. %_%You are in a throne room. Exits lead east and west.
  191. %~%go
  192. :gcell
  193. %_%You are in a dusty cellar. Stairs go up and there is a hole in the floor
  194. %_%in one corner.
  195. %~%go
  196. :ggymn
  197. %@%'%_LAMP%'=='poss' %~%gdark
  198. %_%You are in the king's private gymnasium.
  199. %~%go
  200. :gshop
  201. %_%You are in a quaint little shop. A small bell sits on the counter and
  202. %_%a sign hangs on one wall.
  203. %~%go
  204. :gdark
  205. %!%D=X
  206. %_%You are in the dark.
  207. %~%e
  208. :go
  209. %!%U=%_%There is a 
  210. if '%_BOX%'=='%_L%' %_U%small box here.
  211. if '%_KNIFE%'=='%_L%' %_U%sharp knife here.
  212. if '%_LAMP%'=='%_L%' %_U%shiny unlit lamp here.
  213. if '%_SHOES%'=='%_L%' %_U%pair of cleated shoes here.
  214. %~%e
  215. :cinv
  216. %!%U=%_%You are carrying 
  217. %@%'%_BOX%'=='poss' %~%i1
  218. %_U%a box.
  219. %!%T=X
  220. :i1
  221. %@%'%_KNIFE%'=='poss' %~%i2
  222. %_U%a knife.
  223. %!%T=X
  224. :i2
  225. %@%'%_LAMP%'=='poss' %~%i3
  226. %_U%a lit lamp.
  227. %!%T=X
  228. :i3
  229. %@%'%_SHOES%'=='poss' %~%i4
  230. %_U%a pair of shoes.
  231. %!%T=X
  232. :i4
  233. if '%_T%'=='' %_U%nothing.
  234. %~%e
  235. :ctake
  236. if '%2'=='' %~%tb3
  237. if '%_D%'=='X' %~%tb4
  238. if '%2'=='box' %!%T=%_BOX%
  239. if '%2'=='knife' %!%T=%_KNIFE%
  240. if '%2'=='lamp' %!%T=%_LAMP%
  241. if '%2'=='shoes' %!%T=%_SHOES%
  242. if '%_T%'=='%_L%' %~%tg
  243. if '%_T%'=='poss' %~%tb1
  244. %@%'%_T%'=='' %~%tb2
  245. %_%Take %2? What %2?
  246. %~%e
  247. :tg
  248. %!%%2=poss
  249. %_%Taken.
  250. %~%e
  251. :tb1
  252. %_%You already have the %2.
  253. %~%e
  254. :tb2
  255. %_%The %2 ain't here.
  256. %~%e
  257. :tb3
  258. %_%'Take' is a transitive verb, pal.
  259. %~%e
  260. :tb4
  261. %_%It's too dark to take anything right now.
  262. %~%e
  263. :cdrop
  264. if '%2'=='' %~%dwhat
  265. if '%2'=='box' %!%T=%_BOX%
  266. if '%2'=='knife' %!%T=%_KNIFE%
  267. if '%2'=='lamp' %!%T=%_LAMP%
  268. if '%2'=='shoes' %!%T=%_SHOES%
  269. if '%_T%'=='poss' %~%dg
  270. %@%'%_T%'=='' %~%db
  271. %_%Drop the %2? I don't think I quite understand you.
  272. %~%e
  273. :dwhat
  274. %_%'Take' ain't the only transitive verb, either.
  275. %~%e
  276. :db
  277. %_%You aren't carrying the %2.
  278. %~%e
  279. :dg
  280. %!%%2=%_L%
  281. %_%Dropped the %2.
  282. %~%e
  283. :cquit
  284. prompt %_R%
  285. %!%R=
  286. %!%L=
  287. %!%T=
  288. %!%D=
  289. %!%BOX=
  290. %!%KNIFE=
  291. %!%LAMP=
  292. %!%SHOES=
  293. echo.
  294. %_%Your environment is clear. You may proceed.
  295. echo.
  296. %~%e
  297. :clook
  298. if '%2'=='' %~%cgo
  299. if '%_D%'=='X' %~%lb1
  300. if '%2'=='sign' %~%lsign
  301. if '%2'=='box' %!%T=%_BOX%
  302. if '%2'=='knife' %!%T=%_KNIFE%
  303. if '%2'=='lamp' %!%T=%_LAMP%
  304. if '%2'=='shoes' %!%T=%_SHOES%
  305. if '%_T%'=='poss' %~%l%2
  306. if '%_T%'=='%_L%' %~%l%2
  307. %~%lb2
  308. :lb1
  309. %_%Sorry, too dark.
  310. %~%e
  311. :lb2
  312. %_%Sorry, I don't know how to look at such a thing.
  313. %~%e
  314. :lsign
  315. if '%_L%'=='pend' %~%ls1
  316. if '%_L%'=='shop' %~%ls2
  317. %~%lb2
  318. :ls1
  319. %_%The sign reads 'This Way to the Cave of Thrills.'
  320. %~%e
  321. :ls2
  322. %_%The sign reads 'Until Tuesday, 40%% off magic words like CRACKTHE.'
  323. %~%e
  324. :lbox
  325. %_%The box is made of cardboard and wrapped in decorative colored paper.
  326. %_%An ad hanging from the box depicts a smiling crowned man in a cave
  327. %_%carrying a long thin food item. The caption reads 'Try BREADSTICK! It's new!'
  328. %~%e
  329. :lknife
  330. %_%The knife is very sharp.
  331. %~%e
  332. :llamp
  333. %_%The lamp bears the inscription 'Frenthor's Magic Touch-Activated Lamps.'
  334. %~%e
  335. :lshoes
  336. %_%The cleats look sturdy.
  337. %~%e
  338. :csay
  339. %!%T= for a moment.
  340. if '%2'=='' %~%sb
  341. if '%2'=='scscscfy' %~%s1
  342. if '%2'=='breadstick' %~%s2
  343. if '%2'=='crackthe' %~%s3
  344. %~%sb4
  345. %~%e
  346. :sb
  347. %_%Say what?
  348. %~%e
  349. :s1
  350. if '%_L%'=='cav2' %~%sg1
  351. if '%_L%'=='cav3' %~%sg1
  352. %~%sb2
  353. :s2
  354. if '%_L%'=='cave' %~%sg2
  355. if '%_L%'=='cav3' %~%sg2
  356. %~%sb2
  357. :s3
  358. if '%_L%'=='cave' %~%sg3
  359. if '%_L%'=='cav2' %~%sg3
  360. %~%sb2
  361. :sb2
  362. if '%_L%'=='cave' %~%sb3
  363. if '%_L%'=='cav2' %~%sb3
  364. if '%_L%'=='cav3' %~%sb3
  365. %~%sb4
  366. %~%e
  367. :sb3
  368. %_%A hollow voice says 'Same to you.'
  369. %~%e
  370. :sb4
  371. %_%Nothing happens.
  372. %~%e
  373. :sg1
  374. %_%Your vision blurs%_T%
  375. %!%L=cave
  376. %~%e
  377. :sg2
  378. %_%You feel queasy%_T%
  379. %!%L=cav2
  380. %~%e
  381. :sg3
  382. %_%Your ears buzz%_T%
  383. %!%L=cav3
  384. %~%e
  385. :cuse
  386. if '%2'=='' %~%ub1
  387. if '%_D%'=='X' %~%ub2
  388. if '%2'=='box' %!%T=%_BOX%
  389. if '%2'=='knife' %!%T=%_KNIFE%
  390. if '%2'=='shoes' %!%T=%_SHOES%
  391. if '%2'=='bell' %~%ubell
  392. if '%_T%'=='' %~%ub5
  393. %@%'%_T%'=='poss' %~%db
  394. %~%u%2
  395. :ub1
  396. %_%Once again, a direct object would be most appreciated.
  397. %~%e
  398. :ub2
  399. %_%You might hurt yourself if you try to use anything in the dark.
  400. %~%e
  401. :ubox
  402. %@%'%_LAMP%'=='nowh' %~%ub3
  403. %_%The beautiful colored paper is wrapped very tightly and your nails
  404. %_%aren't sufficient to tear it.
  405. %~%e
  406. :uknife
  407. %@%'%_BOX%'=='poss' %~%ub4
  408. %@%'%_LAMP%'=='nowh' %~%ub4
  409. %_%The knife slices cleanly through the box's beautiful colored paper. 
  410. %_%Inside the box is a shiny little lamp that lights up as you take it.
  411. %!%LAMP=poss
  412. %~%e
  413. :ushoes
  414. if '%_L%'=='road' %~%ush1
  415. if '%_L%'=='shop' %~%ush2
  416. %~%ub4
  417. :ush1
  418. %!%L=shop
  419. %~%ush3
  420. :ush2
  421. %!%L=road
  422. %~%ush3
  423. :ush3
  424. %_%Using the nifty cleated shoes, you jog effortlessly across the road.
  425. %~%e
  426. :ubell
  427. %@%'%_L%'=='shop' %~%lb2
  428. %_%A voice from under the counter shouts 'Go away!'
  429. %~%e
  430. :ub3
  431. %_%The %2 has already been used, so to speak.
  432. %~%e
  433. :ub4
  434. %_%There is no obvious immediate use for the %2.
  435. %~%e
  436. :ub5
  437. %_%I don't know how to use that which you call '%2.'
  438. %~%e
  439. :csetup
  440. %!%T=%_%@advent 
  441. %!%U=if exist 
  442. %!%V=bat %~%e
  443. %_U%d.%_V%1
  444. %_T%go d > d.bat
  445. :e1
  446. %_U%drop.%_V%2
  447. %_T%drop %%1% > drop.bat
  448. :e2
  449. %_U%e.%_V%3
  450. %_T%go e > e.bat
  451. :e3
  452. %_U%get.%_V%4
  453. %_T%take %%1% > get.bat
  454. :e4
  455. %_U%go.%_V%5
  456. %_T%go %%1% > go.bat
  457. :e5
  458. %_U%inv.%_V%6
  459. %_T%inv %%1% > inv.bat
  460. :e6
  461. %_U%n.%_V%7
  462. %_T%go n > n.bat
  463. :e7
  464. %_U%quit.%_V%8
  465. %_T%quit > quit.bat
  466. :e8
  467. %_U%s.%_V%9
  468. %_T%go s > s.bat
  469. :e9
  470. %_U%l.%_V%10
  471. %_T%look %%1% > l.bat
  472. :e10
  473. %_U%take.%_V%11
  474. %_T%take %%1% > take.bat
  475. :e11
  476. %_U%u.%_V%12
  477. %_T%go u > u.bat
  478. :e12
  479. %_U%w.%_V%13
  480. %_T%go w > w.bat
  481. :e13
  482. %_U%look.%_V%14
  483. %_T%look %%1% > look.bat
  484. :e14
  485. %_U%say.%_V%15
  486. %_T%say %%1% > say.bat
  487. :e15
  488. %_U%use.%_V%16
  489. %_T%use %%1% > use.bat
  490. :e16
  491. %_U%i.%_V%17
  492. %_T%inv %%1% > i.bat
  493. :e17
  494. %_U%examine.%_V%18
  495. %_T%look %%1% > examine.bat
  496. :e18
  497. %_%Type 'advent' to start.
  498. %!%V=
  499. %~%e
  500. :e
  501. %!%=
  502. set ~=
  503. set !=
  504. set @=
  505. echo.
  506.