home *** CD-ROM | disk | FTP | other *** search
/ GameStar 2000 November / Gamestar_24_2000-11_cd1.bin / PROGRAMY / gotfree.zip / GOTRES.DAT / SPEAK1 < prev    next >
Text File  |  1994-11-02  |  22KB  |  1,398 lines
  1. |10099
  2. SAY
  3. "Hey there, young man!
  4. "I'm the local ~1Golden Apple~0
  5. "merchant. I have the ~1best
  6. "prices ~0in the ~1entire realm.
  7. ""
  8. "~0I'll sell these DEE-licious
  9. "~1Golden Apples~0 fer a mere
  10. "~15 jewels~0 apiece. Ya sure
  11. "look like ya could use a
  12. "few!
  13. j=0
  14. a=0
  15. ASK a,"How many ya want?",1
  16. "I'll Take 5"
  17. "Fill 'er Up!"
  18. "None, thank you"
  19. if a=0 then end
  20. else if a=1 then b=5: gosub EATEM
  21. else if a=2 then b=150: gosub EATEM
  22. else if a=3 then GOTO JUSTKID
  23. if j=0 then end
  24. SAY
  25. ""
  26. "Thanks, buddy!"
  27. "Come back anytime."
  28. ""
  29. end
  30.  
  31. EATEM:
  32. if @health > 149 then gosub ALLNEED: return
  33. if @jewels > 6 then sound @GULP:pause 20:addjewels -7:addhealth 5:j=j+1
  34. else gosub NOMONEY: return
  35. b=b-1
  36. if b=0 then return
  37. goto EATEM
  38.  
  39. ALLNEED:
  40. SAY
  41. ""
  42. "You have all the apples
  43. "that you need."
  44. ""
  45. return
  46. NOMONEY:
  47. SAY
  48. ""
  49. "You don't have enough
  50. "jewels...Come back later.
  51. ""
  52. end
  53. JUSTKID:
  54. SAY
  55. ""
  56. "Thanks anyway, bud.
  57. "Come on back anytime.
  58. ""
  59. end
  60. |STOP
  61. '---------
  62. |502
  63. ITEMSAY 2
  64. "You've found a child's doll.
  65. ""
  66. "Put it under your shirt...
  67. "and ~1P-L-E-A-S-E~0 don't let
  68. "anyone see you carrying it!
  69. |STOP
  70. //-----
  71. |501
  72. ITEMSAY 1
  73. "You've found a ~1Shrub~0.
  74. ""
  75. ""
  76. ""
  77. ""
  78. "And does it ever smell ~1BAD!~0
  79. |STOP
  80. //-----
  81. |5502
  82. ITEMSAY 2
  83. "~1WILL YOU PUT THAT AWAY!~0
  84. ""
  85. "What would Hercules think
  86. "if he saw you playing with
  87. "that?
  88. |STOP
  89. //-----
  90. |5501
  91. sound @gulp
  92. pause 30
  93. ITEMSAY 1
  94. "Why would you go and eat
  95. "a ~3poisonous~0 shrub?
  96. addhealth -150
  97. |STOP
  98. //-----
  99. |516
  100. ITEMSAY 16
  101. "You've found the ~1Enchanted
  102. "Apple~0.
  103. ""
  104. "This item will heal your
  105. "wounds.
  106. "Hold down [Ctrl] to use it.
  107. |STOP
  108. //-----
  109. |517
  110. ITEMSAY 17
  111. "You've found the power of
  112. "~1Lightning~0!
  113. "Use it when you become
  114. "surrounded by enemies to
  115. "destroy them all!
  116. |STOP
  117. //-----
  118. |1001
  119. ITEMSAY 3
  120. "~0Congratulations, my son.
  121. "You have defeated vile
  122. "~2Jormangund, the Serpent~0!
  123. "The people of this land
  124. "are now free!
  125. "As a reward, I give you
  126. "this suit of armor, made
  127. "by the royal blacksmiths
  128. "of ~1Asgard~0. It will lessen
  129. "the effect of enemy blows.
  130. "I will also enhance your
  131. "hammer. You will need this
  132. "if you are to defeat the
  133. "mighty ~2Nognir~0.
  134. |STOP
  135. |1002
  136. SAY
  137. "Now cross ~1Bifrost~0, the
  138. "Rainbow Bridge to rest and
  139. "rejuvenate for your next
  140. "mission!
  141. |STOP
  142. //-----
  143. |2001
  144. SAY
  145. "Sound card with support for
  146. "digitized sound not found.
  147. ""
  148. "See the GOT.DOC file.
  149. |STOP
  150. //-----
  151. |2002
  152. SAY
  153. "Sound card not found.
  154. ""
  155. "See the GOT.DOC file.
  156. |STOP
  157. //-----
  158. |2003
  159. SAY
  160. "You need a ~1KEY~0 to open
  161. "this door.
  162. |STOP
  163. //-----
  164. |2004
  165. SAY
  166. "You must gather ~1100 JEWELS~0
  167. "to remove this door.
  168. |STOP
  169. //-----
  170. |2005
  171. SAY
  172. "You must gather ~110 JEWELS~0
  173. "to remove this door.
  174. |STOP
  175. //-----
  176. |2006
  177. SAY
  178. "You do not have enough
  179. "magic to use this item.
  180. |STOP
  181. //-----
  182. |2007
  183. SAY
  184. "You cannot carry any more
  185. "of this item.
  186. |STOP
  187. //-----
  188. |2008
  189. ltoa @screen,s$
  190. a$="  ~1Hint Reference: ~4"+s$
  191. SAY
  192. "Press:"
  193. "~1  Arrows - ~0Move
  194. "~1  ALT    - ~0Throw Hammer
  195. "~1  SPACE  - ~0Select Item
  196. "~1  CTRL   - ~0Use Item
  197. "~1  ESC    - ~0Options Menu
  198. "~1  D      - ~0Die
  199. "~1  S      - ~0Save Game
  200. "~1  L      - ~0Load Game
  201. a$
  202. |STOP
  203. //-----
  204. |2009
  205. SAY
  206. ""
  207. "Your Game Has Been Saved.
  208. |STOP
  209. //-----
  210. |2010
  211. SAY
  212. "My son, I know it is fun
  213. "to shoot people, but if
  214. "you kill all the good
  215. "guys you'll never complete
  216. "your mission.
  217. "You lose points, too!
  218. |STOP
  219. //-----
  220. |100
  221. SAY
  222. "~1Good afternoon, Sir!~0
  223. "Would you like to buy some
  224. "~1Golden Apples~0?
  225. "I'll sell you all you need
  226. "for only ~47~0 jewels each.
  227. ""
  228. "You'd better fill up now
  229. "so you don't faint while
  230. "working in the ~3Teflor~0
  231. "mine!
  232. j=0
  233. a=0
  234. ASK a,"How many would like?",1
  235. "I'll Take 5"
  236. "Fill 'er Up!"
  237. "None, thank you"
  238. if a=0 then end
  239. else if a=1 then b=5: gosub EATEM
  240. else if a=2 then b=150: gosub EATEM
  241. else if a=3 then GOTO JUSTKID
  242. if j=0 then end
  243. SAY
  244. ""
  245. "Thank you Sir,"
  246. "Come back anytime."
  247. ""
  248. end
  249.  
  250. EATEM:
  251. if @health > 149 then gosub ALLNEED: return
  252. if @jewels > 6 then sound @GULP:pause 20:addjewels -7:addhealth 5:j=j+1
  253. else gosub NOMONEY: return
  254. b=b-1
  255. if b=0 then return
  256. goto EATEM
  257.  
  258. ALLNEED:
  259. SAY
  260. ""
  261. "You have all the apples
  262. "that you need."
  263. ""
  264. return
  265. NOMONEY:
  266. SAY
  267. ""
  268. "You don't have enough
  269. "jewels...Come back later.
  270. ""
  271. end
  272. JUSTKID:
  273. SAY
  274. ""
  275. "Thank you anyway.
  276. "You may come back anytime.
  277. end
  278. |STOP
  279. |13003
  280. SAY
  281. "You must be the one sent
  282. "down by ~1Almighty Odin~0.
  283. "The one who will free us
  284. "from ~2Jormangund's~0 rule.
  285. ""
  286. "~2Loki~0 sent him to rule our
  287. "land in his stead. ~2Loki~0 is
  288. "the ~2God of Mischief~0, but
  289. "I'm not sure anyone could
  290. "be as cruel as ~2Jormangund~0!
  291. "I wouldn't want to be in
  292. "your shoes!
  293. |STOP
  294. //----------
  295. |21003
  296. TEXT
  297. "   ~3Welcome to Spegville~0
  298. ""
  299. "      Population: ~423~0
  300. |STOP
  301. //----------
  302. |21005
  303. SAY
  304. "Are you the one spoken of
  305. "by the prophets? The one
  306. "who will free us from the
  307. "tyranny of ~2Jormangund~0?
  308. ""
  309. "The one who was sent down
  310. "from ~1Asgard~0 by ~1Odin~0 to
  311. "break the cast iron grip
  312. "of...
  313. ""
  314. "Naaaa, it couldn't be you.
  315. "All you have is a little
  316. "hammer. You must be ~1Relg's~0
  317. "new helper.
  318. |STOP
  319. //----------
  320. |23004
  321. SAY
  322. "My son, you must find and
  323. "destroy ~2Jormangund~0! His
  324. "evil rule must be put to
  325. "an end.
  326. ""
  327. "When you see one of these
  328. "glowing oracles, touch it,
  329. "and I will help you if I
  330. "can.
  331. ""
  332. "I have dispatched some of
  333. "my most trusted angels to
  334. "help you along the way.
  335. ""
  336. "~1Good Luck, my son!~0
  337. |STOP
  338. //----------
  339. |34009
  340. SAY
  341. "~1Leave me alone!~0"
  342. ""
  343. "I'm looking for something!
  344. |STOP
  345. //----------
  346. |40003
  347. SAY
  348. "G'evin to ya misha!  How
  349. "shlary day! <hic>
  350. "~1Blarg~0 serves fany moul
  351. "bevarageses, but this <hic>
  352. "brew is starpickularly
  353. "prong. I <hic> seem to
  354. "have ingrested bwite a
  355. "crit of it. I think ya
  356. "thay <hic> may wanna talk
  357. "to ~1Blarg~0.
  358. |STOP
  359. //----------
  360. |40004
  361. TEXT
  362. "  ~3The Low Key Bar & Grill~0
  363. ""
  364. "     Dancers Nightly
  365. |STOP
  366. //----------
  367. |41003
  368. SAY
  369. "These guards were sent by
  370. "~2Jormangund~0 to keep us from
  371. "leaving the village.
  372. ""
  373. ""
  374. "They even tore down the
  375. "bridge on the east side
  376. "of town!
  377. |STOP
  378. //----------
  379. |42004
  380. TEXT
  381. "     ~3Hermit's Bridge
  382. ""
  383. "     ~1Private Property
  384. ""
  385. "         ~0Go Away!
  386. |STOP
  387. //----------
  388. |49005
  389. TEXT
  390. "          ~3Warning!~0
  391. ""
  392. " Tempting preview of the
  393. " registered version ahead!
  394. |STOP
  395. //----------
  396. |49004
  397. SAY
  398. "Get yer registered ~1God of
  399. "Thunder!~0 Only ~1$29.95~0 a
  400. "copy, and ~1three~0 times the
  401. "size of the shareware
  402. "version!
  403. "Sure, you beat ~2Jormangund~0
  404. "but you can't let ~2Nognir~0
  405. "and ~2Loki~0 get away with
  406. "all their evil deeds, can
  407. "you?
  408. ""
  409. "What kind of ~1God of Thunder~0
  410. "would you be if you did
  411. "that? Besides, you ~4GOTTA~0
  412. "try that cool new armor!
  413.  
  414. ASKLOOP:
  415. ASK a,"How we gonna do this?",1
  416. "I want to order by phone"
  417. "I want to order by mail"
  418. if a=0 then end
  419. if a=2 then goto BYMAIL
  420.  
  421. SAY
  422. "Call Software Creations
  423. ""
  424. "Order line: 1-508-368-8654
  425. "       FAX: 1-508-365-7214
  426. "VISA/MC Accepted!
  427. goto ASKLOOP
  428.  
  429. BYMAIL:
  430. SAY
  431. "Write to:
  432. ""
  433. "   Software Creations
  434. "   26 Harris Street
  435. "   Clinton, MA 01510
  436. goto ASKLOOP
  437. |STOP
  438. //============================================================================
  439. // BY PHONE
  440. |3028
  441. Call Software Creations
  442.  
  443. Order line: 1-508-368-8654
  444.        FAX: 1-508-365-7214
  445. VISA/MC Accepted!
  446. :END
  447. //----------
  448. |49003
  449. SAY
  450. ""
  451. "How did you like being the
  452. "~1God of Thunder~0?
  453. ""
  454. ""
  455. "See ~1Dan, the Apple Seller~0
  456. "about continuing your
  457. "adventure in the registered
  458. "version!
  459. |STOP
  460. //----------
  461. |50003
  462. SAY
  463. "Nice day today! Or at least
  464. "it would be if someone
  465. "would free us from that
  466. "tyrant ~2Jormangund~0.
  467. |STOP
  468. //----------
  469. |51003
  470. TEXT
  471. "         ~3McElroy's~0
  472. ""
  473. "    Fresh Food Product
  474. ""
  475. |STOP
  476. //----------
  477. |52003
  478. if @flag1=1 then goto SEENIT
  479.  
  480. TEXT
  481. "      ~3Creekin's Bridge~0
  482. ""
  483. "DANGER: Bridge is Broken!
  484. ""
  485. setflag 5
  486. end
  487.  
  488. SEENIT:
  489. TEXT
  490. "      ~3Creekin's Bridge~0
  491. ""
  492. " Another fine job done by
  493. "~1Relg's TV and Bridge Repair~0!
  494. |STOP
  495. //----------
  496. |54009
  497. run 10099
  498. |STOP
  499. //----------
  500. |60003
  501. TEXT
  502. "     ~3Sorcery & Such~0
  503. ""
  504. " Our 33rd year of going
  505. "    out of business
  506. |STOP
  507. //----------
  508. |62005
  509. SAY
  510. "Hi, I'm ~1Berlida~0!  I live
  511. "by ~1Sorcery and Such~0!  I can
  512. "stand on my head!  My
  513. "brother ~1Bevil~0 can too, but
  514. "I can do it longer!
  515. "He fell on our ~1shrub~0 once!
  516. "He's such a goof! We had 
  517. "the best ~1shrub~0 in town!  
  518. "But he squashed it, so we 
  519. "sold it to some stranger!  
  520. "There are a lot of 
  521. "strangers around town
  522. "lately!  My mom says they
  523. "were sent by ~2Lucky~0!  I'm
  524. "gonna go swim!  I can swim
  525. "better than my brother!
  526. "Can you swim mister? If
  527. "you can't, I could teach
  528. "you!
  529. |STOP
  530. //----------
  531. |62004
  532. SAY
  533. "Hey mister!  Want to go
  534. "swimming with us?"
  535. ""
  536. ""
  537. ""
  538. "Well, that's ok. Just
  539. "watch out for ~1Berlida's~0
  540. "cannonball, you might get
  541. "a bit soaked!
  542. |STOP
  543. //----------
  544. |64005
  545. SAY
  546. "Hmmmmm, I'm stumped too!
  547. "Maybe we should use
  548. "something that lets us
  549. "kill things through walls?
  550. |STOP
  551. //----------
  552. |68013
  553. SAY
  554. "I know ~2Jormangund~0 is just
  555. "past that door...I just
  556. "can't figure out how to
  557. "get there.
  558. ""
  559. "And I'm not real sure that
  560. "I want to, now that you're
  561. "here.
  562. ""
  563. ""
  564. "I heard that ~2Jormangund~0
  565. "uses a crown to cover his
  566. "only weak spot, so I
  567. "brought a board with a
  568. "nail in it to kill him,
  569. "but your hammer looks much
  570. "more powerful.
  571. |STOP
  572. //----------
  573. |71003
  574. SAY
  575. "Greetings, stranger!  Don't
  576. "mind my wife, she's a bit
  577. "upset that we had to sell
  578. "our ~1shrub~0.  Personally,
  579. "I didn't really care for
  580. "the darn thing.  The town
  581. "drunk bought it for his
  582. "aunt, but why is anyone's
  583. "guess.
  584. |STOP
  585. //----------
  586. |71007
  587. SAY
  588. "Oooh, hooh, hooh!
  589. "Raaahhh! haaa haaa!
  590. "<sob> Please excuse me
  591. "stranger. I am very upset
  592. "that <sob> we had to sell
  593. "our ~1shrub~0. Those ~2Rock
  594. "Trolls~0 <sob> would come
  595. "around at night and try
  596. "to steal it. It was just
  597. "too dangerous to keep.
  598. |STOP
  599. //----------
  600. |72004
  601. if @item=2 then goto GIVEDOLL
  602. if @flag4=0 then goto NODOLL
  603. goto ASKHERM
  604.  
  605. GIVEDOLL:
  606. ITEMSAY 2
  607. "~1Where did you find ~4Miss
  608. "Muffy~0!
  609. ""
  610. "I've been looking for
  611. "her for months!
  612. "I can't thank you enough,
  613. "stranger!
  614. "Is there anything I can
  615. "do for you?
  616. setflag 4
  617. itemtake
  618.  
  619. ASKHERM:
  620. if @flag42=1 then goto ALLDONE
  621. ASK a,"What would you like to know?",1
  622. "What's with the doll?"
  623. "How do I find ~1Jormangund~0?"
  624. "Nothing"
  625. if a=1 then goto DOLLFOR
  626. if a=2 then goto FINDHIM
  627. end
  628.  
  629. DOLLFOR:
  630. random r,500
  631. if r<100 then a$="Mind your own business!"
  632. else if r<200 then a$="It's a personal matter."
  633. else If r<300 then a$="~1Miss Muffy~0 is ~4NOT~0 a doll!"
  634. else if r<400 then a$="She's my only friend."
  635. else a$="Shhh...she might hear you!"
  636. SAY
  637. a$
  638. goto ASKHERM
  639.  
  640. FINDHIM:
  641. if @flag1=0 then goto INFO1
  642. if @flag2=0 then goto INFO2
  643. if @flag3=0 then goto INFO3
  644.  
  645. ALLDONE:
  646. SAY
  647. "That's about all I can
  648. "tell you. You're on your
  649. "own now...~1Good Luck~0!
  650. end
  651.  
  652. INFO1:
  653. SAY
  654. "You must first get someone
  655. "to fix the bridge just
  656. "south of here. ~2Jormangund's~0
  657. "guards tore it down to
  658. "keep us from leaving.
  659. "~1Relg~0, who lives on the
  660. "northwest side of town may
  661. "be able to help you.
  662. ""
  663. ""
  664. "Come back when you're
  665. "done and I will tell
  666. "you more.
  667. ""
  668. ""
  669. "Come now Miss Muffy, you
  670. "must be starved!
  671. setflag 40
  672. goto ASKHERM
  673.  
  674. INFO2:
  675. SAY
  676. "You must now get through
  677. "the barrier the ~2Rock Trolls~0
  678. "have put up to keep you
  679. "from reaching ~2Jormangund~0.
  680. ""
  681. "I can't tell you exactly
  682. "how to get through the
  683. "barrier, but I will tell
  684. "what I know:
  685. ""
  686. "There are some rocks just
  687. "southwest of the lake that
  688. "are not what they appear
  689. "to be.
  690. ""
  691. "I believe there must be
  692. "something on the other
  693. "side of those rocks that
  694. "will help you get through
  695. "the barrier.
  696. goto ASKHERM
  697.  
  698. INFO3:
  699. SAY
  700. "I believe that ~2Rock Trolls~0
  701. "like to eat a certain
  702. "type of shurbbery.
  703. "~1Miss Elgmar~0 who lives near
  704. "the center of town used
  705. "to have one.
  706. setflag 41
  707. goto ASKHERM
  708.  
  709. NODOLL:
  710. SAY
  711. "I know it appears that I
  712. "am walking around randomly,
  713. "But I am actually looking
  714. "for something very, very
  715. "important to me.
  716. "~1Go Away!~0
  717. ""
  718. "I can't help you until
  719. "I've found what I'm
  720. "looking for.
  721. setflag 6
  722. end
  723.  
  724. |STOP
  725. //----------
  726. |80004
  727. SAY
  728. "Greetings, Thor!  We are
  729. "all-knowing seers of
  730. "destiny!
  731. ""
  732. ""
  733. "I have a vision...  There
  734. "is a foul presence in our
  735. "town!  It is infesting a
  736. "hut by the eastern entrance
  737. "of town!
  738. |STOP
  739. //----------
  740. |80003
  741. SAY
  742. "Greetings, Thor!  We are
  743. "all-knowing seers of
  744. "destiny!
  745. ""
  746. ""
  747. "~1Blarg~0, the barkeep has
  748. "some important information
  749. "for you. Go see him!
  750. |STOP
  751. //----------
  752. |80006
  753. SAY
  754. "I have something in my eye.
  755. "I can't see anything.
  756. |STOP
  757. //----------
  758. |80007
  759. SAY
  760. "You can make out nothing
  761. "in the swirling contents
  762. "of the ball.
  763. |STOP
  764. //----------
  765. |80008
  766.  
  767. run 80007
  768. |STOP
  769. //----------
  770. |80005
  771.  
  772. run 80007
  773. |STOP
  774. //----------
  775. |81007
  776. SAY
  777. "Be wary of these mystical
  778. "arts, my son.  Even those
  779. "with much knowledge and
  780. "power are but slaves to
  781. "its control...
  782. |STOP
  783. //----------
  784. |81004
  785. if @magic<150 then goto NOMAGIC
  786. if @flag7=1 then goto NODEAL
  787.  
  788. SAY
  789. "Hello there, stranger!
  790. "If you're looking for magic
  791. "you won't find any here.
  792. ""
  793. ""
  794. "Matter of fact, I'm buying
  795. "magic right now. Did you
  796. "see my ad in the paper?
  797. ""
  798. ""
  799. "Tell you what, I'll give
  800. "you 200 jewels for the
  801. "magic you have on you.
  802. "How's that sound?
  803. ""
  804. "You say you don't need any
  805. "jewels? Ok then, How bout
  806. "I give you the key to my
  807. "house?
  808. ""
  809. "You can take anything you
  810. "find there, I just need
  811. "magic. What's a sorcery
  812. "shop without magic to sell?
  813. ""
  814.  
  815. ASKHIM:
  816. ASK a,"Do you want to trade?",1
  817. "Yes
  818. "No
  819. "Will you throw in the jewels?
  820. if a=1 then goto YES
  821. if a=2 then goto NO
  822. if a=3 then goto NOWAY
  823. end
  824.  
  825. YES:
  826. SAY
  827. "Here is your key.
  828. "Be careful not to hurt
  829. "any of my pets!
  830. setflag 7
  831. addmagic -150
  832. addkeys 1
  833. sound @YAH
  834. end
  835.  
  836. NO:
  837. SAY
  838. "Come back if you change
  839. "your mind!
  840. ""
  841. ""
  842. ""
  843. "And you will!
  844. end
  845.  
  846. NOWAY:
  847. SAY
  848. "Hey, I'm trying to do you
  849. "a favor here!
  850. "You need this key to finish
  851. "the game, so quit being
  852. "such a tight-wad!
  853. goto ASKHIM
  854. end
  855.  
  856. NODEAL:
  857. SAY
  858. "I have all the magic
  859. "that I need.
  860. end
  861.  
  862. NOMAGIC:
  863. SAY
  864. "You don't have enough
  865. "magic. Come back when
  866. "you have more and we can
  867. "do business.
  868. |STOP
  869. //----------
  870. |83003
  871. if @item=1 then goto HASSHRUB
  872. if @flag3=1 then goto PASSED
  873.  
  874. SAY
  875. "If you want to pass, bring
  876. "me something to eat.
  877. setflag 2
  878. end
  879.  
  880. HASSHRUB:
  881. ITEMSAY 1
  882. "Hey! that ~1shrub~0 smells
  883. "good. Can I have it?
  884. ASK a,"Can I have it?",1
  885. "Yes"
  886. "No"
  887. if a=1 then goto YES
  888. if a=2 then goto NO
  889. end
  890.  
  891. YES:
  892. itemtake
  893. sound @gulp
  894. SAY
  895. "Just because I let you
  896. "pass, doesn't mean my
  897. "brothers will!
  898. ""
  899. "~4<Har> <Har> <Har>~0
  900. exec 5
  901. setflag 3
  902. end
  903.  
  904. NO:
  905. SAY
  906. "Then ~4GO AWAY~0, little man,
  907. "before I eat ~4YOU~0!
  908. end
  909.  
  910. PASSED:
  911. SAY
  912. "Get going, shrimp!
  913. "Before I decide that I'm
  914. "still hungry!
  915. |STOP
  916.  
  917. //----------
  918. |85003
  919. if @jewels<100 then goto NOMONEY
  920.  
  921. ASK a,"Can I have 100 jewels?",2
  922. "Yes"
  923. "No"
  924. if a=1 then goto THANKS
  925. end
  926.  
  927. THANKS:
  928. SAY
  929. "Thanks!
  930. addjewels -100
  931. end
  932.  
  933. NOMONEY:
  934. SAY
  935. "Nice day today!
  936.  
  937. |STOP
  938. //----------
  939. |85005
  940. SAY
  941. "My son, know that if you
  942. "find yourself surrounded
  943. "on all sides by one of
  944. "~2Jormangund's~0 diabolical
  945. "traps, you can call down
  946. "the ~1Valkyries~0 from ~1Asgard~0
  947. "to give you a second chance
  948. "at life.
  949. ""
  950. ""
  951. "(in other words, if you go
  952. "and trap yourself, press
  953. "[D] to die and restart the
  954. "screen.)
  955. |STOP
  956. //----------
  957. |85004
  958. TEXT
  959. "~3Turn back...or ~1Die!
  960. ""
  961. "   Yours Truly,
  962. "       ~2Jormangund
  963. |STOP
  964. //----------
  965. |91004
  966. if @flag1=1 then goto CLOSED
  967. if @flag40=0 then goto NOTOPEN
  968.  
  969. SAY
  970. "Hi and welcome to ~1Relg's
  971. "TV and Bridge Repair~0.
  972. ""
  973. "We can fix ~4ABSOLUTELY
  974. "ANYTHING~0.
  975. "(as long as it's a TV
  976. "or a bridge.)
  977.  
  978. ASKHIM:
  979. ASK a,"What needs fixin'?",1
  980. "MY TV"
  981. "A bridge"
  982. "Nothing"
  983. if a=1 then goto FIXTV
  984. if a=2 then goto FIXBR
  985. end
  986.  
  987. FIXTV:
  988. ASK a,"What's wrong with your TV?",1
  989. "It don't work.
  990. "I don't know, you tell me.
  991. "Nothing"
  992. if a=1 then goto FIXTV1
  993. if a=2 then goto FIXTV2
  994. goto ASKHIM
  995.  
  996. FIXTV1:
  997. SAY
  998. "Gee...that was ~4REAL~0
  999. "informative.
  1000. goto FIXTV
  1001.  
  1002. FIXTV2:
  1003. SAY
  1004. "Listen bud, I take enough
  1005. "of that stuff from my wife!
  1006. goto FIXTV
  1007.  
  1008. FIXBR:
  1009.  
  1010. if @flag5=1 then goto FIX2BR:
  1011. ASK a,"Which bridge needs fixed?",1
  1012. "My dental bridge.
  1013. "London Bridge.
  1014. "The one I need to cross.
  1015. "I don't know."
  1016. if a=1 then goto FIXBR1
  1017. if a=2 then goto FIXBR2
  1018. if a=3 then goto FIXBR3
  1019. goto ASKHIM
  1020.  
  1021. FIXBR1:
  1022. SAY
  1023. "Dammit Thor, I'm a TV and
  1024. "bridge repairman, not a
  1025. "dentist!
  1026. goto FIXBR
  1027.  
  1028. FIXBR2:
  1029. SAY
  1030. "Sorry, we only work within
  1031. "a 50 mile radius.
  1032. goto FIXBR
  1033.  
  1034. FIXBR3:
  1035. SAY
  1036. "And who do I look like...
  1037. "the ~1Amazing Zambini~0?
  1038. ""
  1039. ""
  1040. ""
  1041. "I need a ~4NAME~0!
  1042. goto FIXBR
  1043.  
  1044. FIX2BR:
  1045.  
  1046. ASK a,"Which bridge needs fixed?",1
  1047. "My dental bridge.
  1048. "London Bridge.
  1049. "Creekin's Bridge.
  1050. if a=1 then goto FIXBR1
  1051. if a=2 then goto FIXBR2
  1052. if a=3 then goto FIXBR31
  1053. goto ASKHIM
  1054.  
  1055. FIXBR31:
  1056. SAY
  1057. "Ok...I'll send my crew
  1058. "right over. It'll be
  1059. "fixed before you know it!
  1060. placetile 52,138,147
  1061. placetile 52,158,148
  1062. setflag 1
  1063. end
  1064.  
  1065. NOTOPEN:
  1066. SAY
  1067. "We're not open yet...
  1068. "Come back later.
  1069. end
  1070.  
  1071. CLOSED:
  1072. SAY
  1073. "Sorry, we close at noon
  1074. "on Arbor day...
  1075. ""
  1076. "Union Rules.
  1077. |STOP
  1078. //----------
  1079. |100003
  1080. run 10099
  1081. |STOP
  1082. //----------
  1083. |100005
  1084. SAY
  1085. "Greetings, and welcome to
  1086. "~1McElroy's~0!  I haven't seen
  1087. "you around town before,
  1088. "have you moved here or are
  1089. "you passing through?
  1090. "If you've chosen to reside
  1091. "in our fair town, I must
  1092. "warn you that it may be a
  1093. "grave mistake.
  1094. ""
  1095. "The cruel ~2Jormandgund~0
  1096. "torments us to no end!
  1097. |STOP
  1098. //----------
  1099. |101004
  1100. SAY
  1101. "Be you lookin' for my hubby
  1102. "~1Relg~0?  Well he's working on
  1103. "those silly gadgets of his,
  1104. "just like always.  When is
  1105. "he going to spend some time
  1106. "with his wife?  Heh?  Every
  1107. "day he's in that room with
  1108. "his toys while I slave to
  1109. "put a decent meal in front
  1110. "of his ungrateful face.
  1111. "And you, comin' in and
  1112. "encouraging him.  Well go
  1113. "on, get down there and get
  1114. "yer business done.  Don't
  1115. "worry about me, working my
  1116. "fingers to the bone for
  1117. "that undeserving man...
  1118. |STOP
  1119. //----------
  1120. |102003
  1121. SAY
  1122. "Are you here to defeat
  1123. "~2Jormangund~0 and free us
  1124. "from his rule?
  1125. ""
  1126. ""
  1127. "The hermit who lives just
  1128. "southeast of here can help
  1129. "you. Go see him.
  1130. ""
  1131. ""
  1132. "But be careful and don't
  1133. "let ~2Jormangund's~0 guards see
  1134. "you.
  1135. |STOP
  1136. //----------
  1137. |110003
  1138. if @flag41=1 then goto CANASK
  1139.  
  1140. SAY
  1141. "Hello young man, I'm
  1142. "~1Miss Elgmar...~0
  1143. "You say you're going to rid
  1144. "this town of ~2Jormangund~0 and
  1145. "those nasty ~2Rock trolls~0?
  1146. "Well, good luck to you!
  1147. end
  1148.  
  1149. CANASK:
  1150. SAY
  1151. "My ~1Shrub~0? Oh, I don't
  1152. "have that anymore."
  1153. ""
  1154. ""
  1155. ""
  1156. "Those mean ~2Rock Trolls~0
  1157. "love to eat shrubs, and
  1158. "they would stalk my house
  1159. "at night, hoping to steal
  1160. "mine from me.
  1161. "It was just too dangerous
  1162. "to keep around so I hid it
  1163. "deep underground, out past
  1164. "the bridge on the east side
  1165. "of town.
  1166. setflag 42
  1167. |STOP
  1168. //----------
  1169. |112003
  1170. if @flag43=1 then goto ALONE
  1171. if @flag6=1 then goto ENOUGH
  1172.  
  1173.  
  1174. SAY
  1175. "I'm telling you, I DIDN'T
  1176. "take it. How many times
  1177. "do I have to say it?!?
  1178. "I've never even ~4SEEN~0 the
  1179. "~1Hermit's~0 stupid little...
  1180. "Hey! Who are you?
  1181. end
  1182.  
  1183. ENOUGH:
  1184. SAY
  1185. "Ok! Enough already! I admit
  1186. "it! I took it! What's an
  1187. "old man want with something
  1188. "like that, anyway?
  1189. ""
  1190. "I hid it in my old room at
  1191. "my mother's house on the
  1192. "northwest side of town.
  1193. "She should be home from the
  1194. "market by now.
  1195. placetile 30,145,224
  1196. setflag 43
  1197. end
  1198.  
  1199. ALONE:
  1200. SAY
  1201. "I told you where it was,
  1202. "now ~4LEAVE ME ALONE~0!
  1203. ""
  1204. "~1Jack~0! Come over here and
  1205. "punch this guy!
  1206. |STOP
  1207. //----------
  1208. |112004
  1209. SAY
  1210. "Hey! What are you doing
  1211. "in my house?!?
  1212. sound @punch
  1213. pause 30
  1214. sound @ow
  1215. pause 30
  1216. addhealth -5
  1217. pause 30
  1218. |STOP
  1219. //----------
  1220. |113003
  1221. SAY
  1222. "Hold on to your money belt
  1223. "when you talk to ~1Blarg~0!
  1224. |STOP
  1225. //----------
  1226. |113007
  1227.  
  1228. if @flag9=1 then goto NOMORE
  1229. if @jewels<100 then goto NOMONEY
  1230. ASK a,"Can I have 100 Jewels?",2
  1231. "Yes"
  1232. "No"
  1233. if a=1 then goto YES
  1234. end
  1235.  
  1236. YES:
  1237. if @flag8=1 then goto YES1
  1238. SAY
  1239. "I have heard it spoken in
  1240. "the legends that ~2Jormangund~0
  1241. "wears a crown to cover his
  1242. "only weak spot!
  1243. setflag 8
  1244. addjewels -100
  1245. end
  1246.  
  1247. YES1:
  1248. SAY
  1249. "Throw your hammer above
  1250. "~2Jormangund~0, then make him
  1251. "strike. Guide your hammer
  1252. "on it's way back to you to
  1253. "hit his weak spot.
  1254. setflag 9
  1255. addjewels -100
  1256. end
  1257.  
  1258. NOMORE:
  1259. SAY
  1260. "I have told you all I know.
  1261. ""
  1262. ""
  1263. ""
  1264. ""
  1265. "But, you could still give
  1266. "me the 100 jewels if you
  1267. "wanted to!
  1268. end
  1269.  
  1270. NOMONEY:
  1271. SAY
  1272. "You don't have enough
  1273. "jewels...Come back later.
  1274. |STOP
  1275. |19003
  1276. if @flag44=1 then goto HASKEY
  1277.  
  1278. SAY
  1279. "and then papa bear said...
  1280. ""
  1281. "Oh, Hi Thor! A body sure
  1282. "could get lost in all
  1283. "these caverns!
  1284. "Here, take this key. You
  1285. "will need it later.
  1286. addkeys 1
  1287. sound @YAH
  1288. pause 30
  1289. setflag 44
  1290. end
  1291.  
  1292. HASKEY:
  1293. SAY
  1294. "Get going, Thor! you
  1295. "don't have a moment
  1296. "to spare!
  1297. |STOP
  1298. |20004
  1299. TEXT
  1300. "~3Relg's TV & Bridge Repair~0
  1301. ""
  1302. "    If I can't fix it,
  1303. "      it ain't broke
  1304. |STOP
  1305. |26003
  1306.  
  1307. run 10099
  1308. |STOP
  1309. |83005
  1310.  
  1311. run 83003
  1312. |STOP
  1313. |83006
  1314.  
  1315. run 83003
  1316. |STOP
  1317. |83004
  1318.  
  1319. run 83003
  1320. |STOP
  1321. |82003
  1322.  
  1323. addhealth -150
  1324. |STOP
  1325. |82004
  1326. run 82003
  1327.  
  1328. |STOP
  1329. |82005
  1330. run 82003
  1331. |STOP
  1332. |82006
  1333. run 82003
  1334.  
  1335. |STOP
  1336. |82011
  1337. run 82003
  1338. |STOP
  1339. |82012
  1340. run 82003
  1341.  
  1342. |STOP
  1343. |82013
  1344. run 82003
  1345. |STOP
  1346. |82014
  1347. run 82003
  1348. |STOP
  1349. |82007
  1350. run 82003
  1351. |STOP
  1352. |82008
  1353. run 82003
  1354. |STOP
  1355. |82009
  1356. run 82003
  1357. |STOP
  1358. |82010
  1359. run 82003
  1360. |STOP
  1361. |99003
  1362. SAY
  1363. "How ~4DARE~0 you accuse my
  1364. "daughter of stealing!
  1365. ""
  1366. "Why, I've got half a mind
  1367. "to smack your face!
  1368. |STOP
  1369. |92005
  1370.  
  1371. 'random r,500
  1372. 'if r<100 then goto WIT1
  1373. 'if r<200 then goto WIT2
  1374. 'if r<300 then goto WIT3
  1375. 'if r<400 then goto WIT4
  1376. 'if r<500 then goto WIT5
  1377. '
  1378. WIT1:
  1379. SAY
  1380. "A man who says little is
  1381. "a man who speaks two
  1382. "syllables!
  1383. 'goto DONE
  1384. '
  1385. 'WIT2:
  1386. 'SAY
  1387. '
  1388. 'goto DONE
  1389. '
  1390. '
  1391. 'DONE:
  1392. 'SAY
  1393. '"Come back later...
  1394. '"I got a ton of 'em!
  1395. 'end
  1396. |STOP
  1397. |EOF
  1398.