home *** CD-ROM | disk | FTP | other *** search
/ Shareware 1 2 the Maxx / sw_1.zip / sw_1 / GAMES / GSLITE.ZIP / GSLITE.ARC / SAMPLE.IN3 < prev    next >
Text File  |  1992-10-15  |  11KB  |  688 lines

  1. >REMAR
  2. SAMPLE ADVENTURE-- COMMAND SECTION.
  3. SEE ALSO SAMPLE.IN1 AND SAMPLE.IN2
  4. <
  5.  
  6. >COMND                       NOTE FOR USERS OF VERSION 3.0:  COMMAS,
  7. * *                          COLONS: AND "QUOTES" ARE NOW ALLOWED IN
  8. IF                           COMMENTS!  "AINT, THAT: GREAT?"
  9. FLAG>                        
  10. 101                          
  11. 50                           If more than 50 moves game is lost.
  12. DO
  13. PRINT                        IMPORTANT NOTE!  Always write down on a
  14. 20                           list somewhere (or comment in your code)
  15. END                          exactly what purpose you're assigning to
  16. <                            your flags.  You'll never remember without it!
  17.  
  18. >COMND
  19. S *
  20. IF
  21. AT
  22. 5
  23. FLAG=
  24. 2
  25. 0
  26. DO
  27. GOTO
  28. 1
  29. SHOW
  30. <
  31.  
  32. >COMND
  33. N *
  34. IF
  35. AT                           If told to go north from lit energy room 
  36. 6                            then go to central room!
  37. DO
  38. GOTO
  39. 1
  40. SHOW
  41. <
  42.  
  43. >COMND
  44. N *
  45. IF
  46. AT
  47. 1
  48. FLAG=                        If energy is not on (fuse fixed)
  49. 1                            tell them it is dark and leave them
  50. 0                            in room 1
  51. DO
  52. PRINT
  53. 17
  54. <
  55.  
  56. >COMND
  57. DROP * 
  58. DO                           Drop any item anywhere
  59. DROP
  60. <
  61.  
  62. >COMND
  63. N *
  64. IF
  65. AT
  66. 1                            If north from center room
  67. FLAG=
  68. 1                            and fuse is in and door closed
  69. 1
  70. FLAG=
  71. 3
  72. 0
  73. DO                           go to computer room
  74. GOTO
  75. 5
  76. SHOW
  77. <
  78.  
  79. >COMND
  80. E *
  81. IF
  82. AT
  83. 1                            If east from center room
  84. DO                           go to security room
  85. GOTO
  86. 4
  87. SHOW
  88. <
  89.  
  90. >COMND
  91. S *
  92. IF
  93. AT
  94. 1                                 If go south from central room
  95. FLAG=                             and energy is on go to room 6
  96. 3                                 instead of room 3!
  97. 0
  98. FLAG=
  99. 1
  100. 1
  101. DO
  102. GOTO
  103. 6
  104. SHOW
  105. <
  106.  
  107. >COMND
  108. S *
  109. IF
  110. AT                           If south from center room
  111. 1                            go to work room
  112. DO
  113. GOTO
  114. 3
  115. SHOW
  116. <
  117.  
  118. >COMND
  119. W *
  120. IF
  121. AT
  122. 1                            If west from center room
  123. DO                           go to observatory
  124. GOTO
  125. 2
  126. SHOW
  127. <
  128.  
  129. >COMND
  130. E *
  131. IF
  132. AT
  133. 2
  134. DO                           If east from observatory
  135. GOTO                         go to center room
  136. 1
  137. SHOW
  138. <
  139.  
  140. >COMND
  141. N *
  142. IF
  143. AT
  144. 3                            If north from work room
  145. DO                           go to center room
  146. GOTO
  147. 1
  148. SHOW
  149. <
  150.  
  151. >COMND
  152. W *
  153. IF
  154. AT
  155. 4
  156. DO                           If west from security room
  157. GOTO                         go to center room
  158. 1
  159. SHOW
  160. <
  161.  
  162. >COMND
  163. SEARCH TELESCOPE
  164. IF
  165. AT                           If key doesn't exist yet and
  166. 2                            telescope is searched tell them
  167. NOTEXIST                     they've found a key and move the
  168. 1                            key into the room
  169. DO
  170. PRINT
  171. 3
  172. PRINT
  173. 4
  174. OBJ
  175. 1
  176. 2
  177. <
  178.  
  179. >COMND
  180. SEARCH TELESCOPE
  181. IF
  182. AT                           If they search the telescope after they've
  183. 2                            found the key show them stars instead.
  184. PRESENT
  185. 1
  186. DO
  187. PRINT
  188. 6
  189. <
  190.  
  191. >COMND
  192. OPEN FUSEBOX
  193. IF
  194. AT                           If they open a closed fusebox
  195. 3                            tell them they did so!
  196. FLAG=
  197. 3
  198. 0
  199. DO
  200. FLAGSET
  201. 3
  202. 1
  203. PRINT
  204. 7
  205. <
  206.  
  207. >COMND
  208. OPEN FUSEBOX
  209. IF
  210. AT                           If they try to open an open fusebox
  211. 3                            tell them they're senile.
  212. FLAG=
  213. 3
  214. 1
  215. DO
  216. PRINT
  217. 8
  218. <
  219.  
  220. >COMND
  221. SEARCH FUSEBOX
  222. IF                                If the fusebox is searched
  223. AT                                and the fusebox is closed
  224. 3                                 and the fusebox hasn't been
  225. FLAG=                             replaced then tell them the
  226. 3                                 fusebox is closed.
  227. 0
  228. FLAG=
  229. 1
  230. 0
  231. DO
  232. PRINT
  233. 25
  234. <
  235.  
  236. >COMND
  237. SEARCH FUSEBOX
  238. IF
  239. AT                                If the fusebox is searched
  240. 3                                 after the fuse is replaced
  241. FLAG=                             and if the fusebox is still
  242. 1                                 open tell them the fusebox
  243. 1                                 is open and looking good.
  244. FLAG=
  245. 3
  246. 1
  247. DO
  248. PRINT
  249. 26
  250. <
  251.  
  252. >COMND
  253. SEARCH FUSEBOX
  254. IF
  255. AT
  256. 3
  257. FLAG=
  258. 3
  259. 1                            If they search an open fusebox
  260. FLAG=                        
  261. 4                            and they haven't seen the blown fuse yet
  262. 0                            
  263. DO
  264. PRINT                        tell them a fuse is blown and
  265. 9
  266. FLAGSET
  267. 4                            set flag for having seen blown fuse.
  268. 1
  269. <
  270.  
  271. >COMND
  272. SEARCH FUSEBOX
  273. IF
  274. AT
  275. 3
  276. FLAG=                        If they search the fusebox
  277. 3                            and it is open
  278. 1
  279. FLAG=
  280. 4                            and they've already seen a fuse is blown
  281. 1
  282. DO
  283. PRINT                        tell them so!
  284. 10
  285. <
  286.  
  287. >COMND
  288. SEARCH FUSEBOX
  289. IF                           If they search the fusebox
  290. AT
  291. 3
  292. FLAG=                        and the fusebox is open
  293. 3
  294. 1
  295. FLAG=
  296. 1                            and they've fixed the fuse
  297. 1
  298. DO
  299. PRINT                        tell them they see an open fusebox.
  300. 23
  301. <
  302.  
  303. >COMND
  304. OPEN BOXES
  305. IF
  306. AT
  307. 3
  308. FLAG=
  309. 1
  310. 0
  311. NOTEXIST
  312. 3
  313. DO
  314. PRINT
  315. 35
  316. <
  317.  
  318. >COMND
  319. SEARCH BOXES
  320. IF
  321. AT
  322. 3                            If they search boxes and a fuse
  323. NOTEXIST                     does not exist tell them they find
  324. 3                            a fuse and move the fuse into the room.
  325. DO
  326. PRINT
  327. 11
  328. OBJ
  329. 3
  330. 3
  331. <
  332.  
  333. >COMND
  334. SEARCH BOXES
  335. IF                           If they search the boxes but they've
  336. AT                           already picked up the fuse tell
  337. 3                            them they're looped.
  338. EXIST
  339. 3
  340. 302
  341. DO
  342. PRINT
  343. 12
  344. <
  345.  
  346. >COMND
  347. REPLACE FUSE
  348. IF                           If they replace the fuse
  349. AT
  350. 3
  351. EXIST                        and they have the fuse to use
  352. 3
  353. 302
  354. FLAG=
  355. 3                            and fusebox is open
  356. 1
  357. DO
  358. PRINT
  359. 5                            tell them they've fixed the fuse
  360. FLAGSET
  361. 1                            set the fuse as being replaced
  362. 1
  363. OBJ                         
  364. 3                            and move the fuse to limbo.
  365. 301
  366. <
  367.  
  368. >COMND
  369. REPLACE FUSE
  370. IF
  371. AT                           If they replace the fuse but the
  372. 3                            fusebox is closed then tell them
  373. FLAG=                        the fusebox is closed.
  374. 3
  375. 0
  376. EXIST
  377. 3
  378. 302
  379. DO
  380. PRINT
  381. 25
  382. <
  383.  
  384. >COMND
  385. REPLACE FUSE                 If they try to replace a fuse they
  386. IF                           don't own let them know.
  387. AT
  388. 3
  389. NOTEXIST
  390. 3
  391. DO
  392. PRINT
  393. 24
  394. <
  395.  
  396. >COMND
  397. CLOSE FUSEBOX
  398. IF
  399. AT
  400. 3                            If they close the fusebox
  401. FLAG=                        and it is open
  402. 3
  403. 1
  404. FLAG=                        and fuse hasn't been replaced
  405. 1
  406. 0
  407. DO
  408. FLAGSET
  409. 3                            shut the fusebox door
  410. 0
  411. PRINT                        and tell them OK you've shut it!
  412. 5
  413. <
  414.  
  415. >COMND
  416. CLOSE FUSEBOX
  417. IF
  418. AT
  419. 3                            If try to close the fusebox
  420. FLAG=                        and the fusebox is open
  421. 3
  422. 1
  423. FLAG=
  424. 1                            and the fuse is in place
  425. 1
  426. DO
  427. PRINT                        turn the power ON...
  428. 13
  429. FLAGSET
  430. 3                            and close the fusebox
  431. 0
  432. GOTO                         and send them to room 6.
  433. 6
  434. <
  435.  
  436. >COMND
  437. OPEN SAFE
  438. IF
  439. AT
  440. 4                            If they open the safe
  441. EXIST
  442. 1                            and have the key
  443. 302
  444. DO
  445. PRINT                        tell them they've done so and
  446. 14
  447. OBJ                          move the disk into the safe.
  448. 2
  449. 4
  450. <
  451.  
  452. >COMND
  453. OPEN SAFE
  454. IF
  455. AT                           If they open the safe and
  456. 4
  457. NOTEXIST                     the key doesn't exist
  458. 1
  459. DO                           tell them they need a key.
  460. PRINT
  461. 15
  462. <
  463.  
  464. >COMND
  465. GET DISKETTE
  466. IF
  467. NOTEXIST                     If they get the disk and it's not around
  468. 2
  469. DO                           tell them they're screwy.
  470. PRINT
  471. 16
  472. <
  473.  
  474. >COMND
  475. INSERT DISKETTE
  476. IF
  477. AT                           If they insert the disk
  478. 5
  479. FLAG=                        and the fuse is replaced
  480. 1
  481. 1
  482. FLAG=                        and the fusebox door closed
  483. 3
  484. 0
  485. EXIST
  486. 2                            and the disk exists
  487. 302
  488. DO
  489. PRINT                        Tell them the place is live with energy
  490. 18
  491. FLAGSET
  492. 2                            Set the teleport flag on.
  493. 1
  494. <
  495.  
  496. >COMND
  497. EXAM COMPUTER                If exam computer describe.
  498. IF
  499. AT
  500. 5
  501. DO
  502. PRINT
  503. 37
  504. <
  505.  
  506. >COMND
  507. INVENTORY *                  List their inventory.
  508. DO
  509. INVEN
  510. <
  511.  
  512. >COMND
  513. LOOK *
  514. DO                           Show the current location.
  515. SHOW
  516. <
  517.  
  518. >COMND
  519. END *
  520. DO                           End the game.
  521. END
  522. <
  523.  
  524. >COMND
  525. QUIT *                       Quit the game.
  526. DO
  527. QUIT
  528. <
  529.  
  530. >COMND
  531. S *
  532. IF
  533. AT
  534. 5
  535. FLAG=                        If they go south and
  536. 2                            the teleporter is on
  537. 1                            tell them they win the game.
  538. DO
  539. CLS
  540. PRINT
  541. 1
  542. PRINT
  543. 2
  544. END
  545. <
  546.  
  547. >COMND
  548. HELP *                            Display the help screen.
  549. DO
  550. PRINT
  551. 21
  552. PRINT
  553. 36
  554. <
  555.  
  556. >COMND
  557. GET TELESCOPE                    If they try to get the
  558. IF                           telescope, tell them it's
  559. DO                           too durn heavy!
  560. PRINT
  561. 32
  562. <
  563.  
  564. >COMND
  565. GET BOXES
  566. IF
  567. AT                           If they try to get the boxes
  568. 3                            tell them they rattel.
  569. NOTEXIST
  570. 3
  571. DO
  572. PRINT
  573. 31
  574. <
  575.  
  576. >COMND
  577. SEARCH DESK
  578. IF                           If they search the desk tell them
  579. AT                           they are wasting their time.
  580. 4
  581. DO
  582. PRINT
  583. 22
  584. <
  585.  
  586. >COMND
  587. OPEN DESK
  588. IF
  589. AT                           Does the same thing as SEARCH DESK
  590. 4                            only it works with OPEN DESK instead.
  591. DO                           It's not often this is needed but once
  592. PRINT                        in a while it's the only way to cover
  593. 22                           all bases!
  594. <
  595.  
  596. >COMND
  597. SEARCH SAFE
  598. IF
  599. AT                           If they search the safe and
  600. 4                            the diskettes don't exist, tell them
  601. NOTEXIST                     there's a big, heavy safe
  602. 2
  603. DO
  604. PRINT
  605. 27
  606. PRINT
  607. 28
  608. PRINT
  609. 29
  610. <
  611.  
  612. >COMND
  613. SEARCH SAFE
  614. IF                           If they search the safe after
  615. AT                           finding the disk show them the
  616. 4                            room (which will also display that
  617. PRESENT                      the disk is now present).
  618. 2
  619. DO
  620. SHOW
  621. <
  622.  
  623. >COMND
  624. SEARCH BLONDE
  625. IF                           If they search the blonde
  626. AT                           tell them they're a pervert.
  627. 2
  628. EXIST
  629. 1
  630. 302
  631. DO
  632. PRINT
  633. 33
  634. <
  635.  
  636. >COMND
  637. GET BLONDE
  638. IF                           If they get the blonde, kill them.
  639. AT
  640. 2
  641. DO
  642. PRINT
  643. 34
  644. END
  645. <
  646.  
  647. >COMND
  648. SEARCH KEYHOLE
  649. IF                           If they search the keyhole, tell them
  650. AT                           it's dark.
  651. 4
  652. DO
  653. PRINT
  654. 30
  655. <
  656.  
  657. >COMND
  658. SAVE *
  659. DO                           Save the game
  660. SAVE
  661. <
  662.  
  663. >COMND
  664. LOAD *
  665. DO
  666. LOAD                         Load a previous game
  667. <
  668.  
  669. >COMND
  670. GET *
  671. DO
  672. OBJ                          STANDARD GET FUNCTION
  673. 0
  674. 302
  675. INVEN
  676. <
  677.  
  678.  
  679. >COMND
  680. * *
  681. DO
  682. PRINT                        If words OK but illogical
  683. 19                           tell them about it.
  684. <
  685.  
  686. >ENDIN
  687.  
  688.