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