home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1995 February / 1995-02b.d64 / hurricane (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  115 lines
  1. 10 ifa=0thena=1:load"graphic",8,1
  2. 20 clr:dima$(15):a=rnd(-ti/37)
  3. 30 az=int(rnd(1)*3):ps=1:be=53280
  4. 40 ifaz=0thened$="being hid near the sea.":sc=1:b(3)=2:b(6)=1
  5. 50 ifaz=1thened$="being held in the house.":sc=3:b(2)=2:b(4)=1
  6. 60 ifaz=2thened$="right here.":sc=5:b(1)=1:b(3)=2
  7. 70 fori=0to15:reada$(i):next:data "[188]","[187]"
  8. 80 data "[190]","[172]","[184]","[184][146]","[161]","[161][146]","[191]","[191][146]","[190][146]","[188][146]","[187][146]","[172][146]"," "," [146]"
  9. 90 fori=0to2:readb$(i):next:data nothing,a pouch with gold,a mallet
  10. 100 fori=1to6:readn$(i),d1$(i),d2$(i):next
  11. 110 data beach,,e,tree,w,n,house,s,e,road,w,e,steep cliff,w,s,river,n,
  12. 115 i=1
  13. 117 readew:ifew=-1theni=i+1:onigoto117,117,117,117,117,117,140
  14. 119 c$(i)=c$(i)+chr$(ew-7):goto117
  15. 121 data 90,76,72,89,74,79,-1,74,83,80,84,73,-1,82,85,86,74,82,-1
  16. 123 data 83,86,86,82,-1,91,79,89,86,94,-1,90,94,80,84,-1
  17. 140 fori=0to2:readhe$(i):next
  18. 150 data "what took you so long?"
  19. 160 data "i'm sure glad you found me. thanks!"
  20. 170 data "nice job saving me.  this makes up for  everything i've done for you."
  21. 180 fori=0to1:readsa$(i):next
  22. 190 data "wrong-now i'm going to feed your sister to some crocodiles."
  23. 200 data "wrong-now your sister is my slave."
  24. 210 fori=1to6:readrs$(i):next
  25. 220 data "you're looking.  you find"
  26. 230 data "there's a small dwarf up here.  you givehim gold.  he offers you"
  27. 240 data "a man here feeds you some stew.  you    hand him gold.  he offers"
  28. 250 data "you search around.  there's"
  29. 260 data "you have revealed an opening.  there's aman behind the opening."
  30. 270 data "this feels good.  wait, you feel some-  thing on your feet.  oh, it's"
  31. 280 fori=1to6:readhi$(i):next
  32. 290 data "this is a long, sandy stretch of empty  land."
  33. 300 data "there's supposed to be a great view of  the valley here."
  34. 310 data "you wonder if anyone is home."
  35. 320 data "there seems to be something sparkling   in the grass."
  36. 330 data "you look like you need to release some  tension."
  37. 340 data "it sure is hot out here!"
  38. 350 rem end setup
  39. 360 pokebe,3:poke53265,peek(53265)and239:print"[147] your sister"
  40. 365 print"[145][145]"tab(27)"[144]carrying:"
  41. 370 print"    has"
  42. 380 print" disappeared";:ifhv>0thenprinttab(28)"[151]pouch/gold";
  43. 390 print:print"   and you"
  44. 400 print"  must find";:ifhv=2thenprinttab(30)"[151]mallet";
  45. 410 print:print"     her."
  46. 420 print"[150]"tab(7)"[165][167] [165][167] [207][208] [207][208] [208][183] [206][183] [206][205][167][205] [165][207][183]"
  47. 430 printtab(7)"[207][208] [165][167] [204][206] [204][206] [167]  [165]  [204][186][167] [165][165][207]"
  48. 440 printtab(7)"[165][167] [204][186] [165][205] [165][205] [186][175] [205][175] [165][167][167] [205][165][204][175]"
  49. 445 printtab(12)"[153]by: david garner"
  50. 450 poke53281,1:print""tab(14);
  51. 460 print"[144][172]          [146][187]";:fori=1to9:print"[157] [146]";:next:print"[157][157][157][157][157][157][157][157][157][157][157][157]";
  52. 470 print"[188]          [146][190][157][157][157][157][157][157][157][157][157][157][157]";:fori=1to9:print"[145][157] [146]";:next
  53. 480 gf=49062+ps*90:printtab(15);:fori=0to8:pokebe,(peek(be)and15)+lc:forj=0to9
  54. 490 gd=peek(gf):gf=gf+1
  55. 500 poke646,gdand15:printa$((gdand240)/16);:next
  56. 510 lc=1-lc:printspc(30);:next
  57. 520 print"[155]you have come to a "n$(ps)".":print"[159]*[155]"hi$(ps)
  58. 523 poke53265,(peek(53265)and239)+16:pokebe,4
  59. 525 ifhf=1andsc=psthengoto890
  60. 530 print"recommended directions of travel:[144]  "d1$(ps)" "d2$(ps)
  61. 535 poke53265,(peek(53265)and239)+16:poke53280,4
  62. 540 poke198,0:rs$="":print"[129]: [215]"
  63. 541 getnv$:ifnv$=""then541
  64. 542 ifnv$=chr$(13)then550
  65. 543 ifnv$=chr$(20)andlen(rs$)>0thenrs$=left$(rs$,len(rs$)-1):goto547
  66. 544 iflen(rs$)>8then541
  67. 545 if(asc(nv$)<65)or(asc(nv$)>90)then541
  68. 546 rs$=rs$+nv$
  69. 547 print"[129][145]"rs$"[215] [155]":goto541
  70. 550 ifrs$=d1$(ps)thenifrs$<>""thenps=ps-1:goto360
  71. 560 ifrs$=d2$(ps)thenifrs$<>""thenps=ps+1:goto360
  72. 570 ifrs$<>c$(ps)thenprint"[145]                       ":print"what?[157][157][157][157][157][145]";:goto540
  73. 580 fori=1663to2023:pokei,32:next
  74. 590 ifhv<>1and(ps=2orps=3)orps=5andhv<2thengoto6000
  75. 600 print"[145][145][145][145][145]"rs$(ps):printb$(b(ps))
  76. 610 ifb(ps)>0thenhv=hv+1:b(ps)=0:gosub7000
  77. 615 print"[145]";
  78. 620 ifps<>5then530
  79. 630 print"he tells you that if you answer this    riddle, you can have your ";
  80. 640 print"sister back.":fori=1to5000:next
  81. 650 fori=1663to2023:pokei,32:next:print"[145][145][145][145]";
  82. 660 i=int(rnd(1)*3):onigoto720,770
  83. 670 print"you won't know what i am until you feel"
  84. 680 print"me first hand.  when you first feel of"
  85. 690 print"me, you will jump back amazed."
  86. 700 inputg$:ifg$=chr$(70)+chr$(73)+chr$(82)+chr$(69)thengoto830
  87. 710 goto870
  88. 720 print"everything you see or do is a part of   ";
  89. 730 print"this.  it can seem very short or really ";
  90. 740 print"long, depending on what you make of it."
  91. 750 inputg$:ifg$=chr$(76)+chr$(73)+chr$(70)+chr$(69)thengoto830
  92. 760 goto870
  93. 770 print"a man scrawled his first name on the top";
  94. 780 print"of a document and then signed his name  ";
  95. 790 print"at the bottom.  he had sincere feelings ";
  96. 800 print"for everybody he knew.  what is this    man's name?"
  97. 810 inputg$:ifg$=chr$(87)+chr$(73)+chr$(76)+chr$(76)thengoto830
  98. 820 goto870
  99. 830 hf=1:fori=1663to2023:pokei,32:next
  100. 840 print"correct!  your sister is ":printed$
  101. 850 ifsc=5thengoto890
  102. 860 goto530
  103. 870 fori=1663to2023:pokei,32:next
  104. 880 i=int(rnd(1)*2):print"[145][145][145][145]";sa$(i):goto910
  105. 890 fori=1663to2023:pokei,32:next
  106. 900 i=int(rnd(1)*3):print"[145][145]";he$(i)
  107. 910 print"(a)nother game or (r)eset computer"
  108. 920 geti$:ifi$="a"thengoto20
  109. 930 ifi$="r"thensys64738
  110. 940 goto920
  111. 6000 print"[145][145][145][145][145]nothing happens right now.":goto530
  112. 7000 print"";:ifhv>0thenprinttab(28)"[151]pouch/gold[155]"
  113. 7010 print"";:ifhv=2thenprinttab(30)"[145][151]mallet[155]"
  114. 7020 print"";:return
  115.