home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / games / eamon0.zip / DATAINIT.BAS < prev    next >
BASIC Source File  |  1984-01-31  |  11KB  |  231 lines

  1. 10 DIM AD(8)
  2. 90 PRINT"FILLING EAMON.MON"
  3. 100 OPEN "O",#1,"EAMON.MON"
  4. 110 READ NM
  5. 111 PRINT#1,NM
  6. 115 FOR J=1 TO NM
  7. 120 READ MNAME$
  8. 130 PRINT#1,MNAME$
  9. 140 FOR I=1 TO 12
  10. 150 READ A:PRINT#1,A
  11. 160 NEXT I
  12. 170 NEXT J
  13. 180 CLOSE#1
  14. 190 REM
  15. 195 PRINT"FILLING EAMON.ART"
  16. 200 OPEN "O",#1,"EAMON.ART"
  17. 210 READ NA
  18. 211 PRINT#1,NA
  19. 215 FOR J=1 TO NA
  20. 220 READ ANAME$
  21. 225 PRINT#1,ANAME$
  22. 240 FOR I=1 TO 4
  23. 250 READ AD(I):PRINT#1,AD(I):NEXT I
  24. 260 IF AD(2)>1 THEN FOR I=5 TO 8:READ AD(I):PRINT#1,AD(I):NEXT I
  25. 270 NEXT J
  26. 280 CLOSE#1
  27. 290 REM
  28. 295 PRINT"FILLING ROOM.NAM"
  29. 300 OPEN "R",#1,"ROOM.NAM",32
  30. 310 FIELD 1,32 AS R1$
  31. 320 FOR I=1 TO 26
  32. 330 READ A$:LSET R1$=A$
  33. 340 PUT#1,I
  34. 350 NEXT I
  35. 360 CLOSE#1
  36. 390 REM
  37. 395 PRINT"FILLING EAMON.DES"
  38. 400 OPEN "R",#1,"EAMON.DES",255
  39. 410 FIELD 1,255 AS R2$
  40. 420 FOR I=1 TO 26
  41. 430 READ A$:RSET R2$="."+A$
  42. 440 PUT#1,I
  43. 450 NEXT I
  44. 460 CLOSE#1
  45. 490 REM
  46. 495 PRINT"FILLING EAMON.ROM"
  47. 500 OPEN "R",#1,"EAMON.ROM",64
  48. 505 FIELD 1,64 AS R3$
  49. 506 LSET R3$="26":PUT #1,1
  50. 510 FOR I=1 TO 26
  51. 515 B$=""
  52. 520 FOR J=1 TO 6
  53. 530 READ A$
  54. 540 B$=B$+A$+","
  55. 550 NEXT J
  56. 560 LSET R3$=LEFT$(B$,LEN(B$)-1)
  57. 570 PUT#1,I+1
  58. 580 NEXT I
  59. 590 CLOSE#1
  60. 595 REM
  61. 599 PRINT"FILLING EAMON.EFF"
  62. 600 OPEN "R",#1,"EAMON.EFF",255
  63. 610 FIELD 1,255 AS R1$
  64. 620 FOR I=1 TO 40
  65. 630 READ A$
  66. 640 RSET R1$="."+A$
  67. 650 PUT#1,I
  68. 660 NEXT I
  69. 670 CLOSE#1
  70. 680 REM
  71. 700 OPEN "O",#1,"EAMON.NAM"
  72. 710 PRINT#1,"THE BEGINNERS CAVE"
  73. 720 PRINT#1,"CAVE"
  74. 730 CLOSE#1
  75. 740 REM
  76. 750 END
  77. 999 DATA 10
  78. 1000 DATA BLACK RAT,2,10,0,10,3,5,0,0,0,30,1,1
  79. 1010 DATA BROWN RAT,2,10,0,10,3,5,0,0,0,30,1,1
  80. 1020 DATA TAN RAT,2,10,0,10,3,5,0,0,0,30,1,1
  81. 1030 DATA HERMIT,13,22,50,75,5,75,0,0,3,55,1,6
  82. 1040 DATA GORILLA,12,15,0,60,8,200,0,0,0,45,1,4
  83. 1050 DATA HEINRICH,15,5,65,100,6,100,0,1,5,12,1,8
  84. 1060 DATA MIMIC,5,5,0,100,0,300,0,0,0,40,1,3
  85. 1070 DATA PRIEST,10,6,0,100,18,75,0,1,8,25,1,4
  86. 1080 DATA CYNTHIA,3,20,95,5,18,50,0,0,-1,0,0,0
  87. 1090 DATA PIRATE,5,20,0,10,26,300,0,0,11,60,1,10
  88. 1999 DATA 24
  89. 2000 DATA SIGN,0,0,999,1
  90. 2005 DATA DIAMONDS,200,1,3,3
  91. 2010 DATA AXE,25,2,4,0,0,1,1,6
  92. 2020 DATA BOTTLE,50,1,2,5
  93. 2030 DATA SWORD,25,2,4,0,-10,5,1,8
  94. 2040 DATA GOLD COINS,50,0,2,8
  95. 2050 DATA RING,150,1,5,0
  96. 2060 DATA MACE,40,2,4,0,10,3,1,4
  97. 2070 DATA SPICES,100,1,3,18
  98. 2080 DATA BOOK,250,1,1,19
  99. 2085 DATA TROLLSFIRE,100,3,3,0,25,5,1,10
  100. 2090 DATA JEWELS,1000,1,5,26
  101. 2100 DATA CHEST,0,1,300,14
  102. 2110 DATA EMPTY BOTTLE,1,1,1,0
  103. 2120 DATA DEAD BLACK RAT,0,0,5,0
  104. 2130 DATA DEAD BROWN RAT,0,0,5,0
  105. 2140 DATA DEAD TAN RAT,0,0,5,0
  106. 2150 DATA DEAD HERMIT,0,0,75,0
  107. 2160 DATA DEAD GORILLA,0,0,200,0
  108. 2170 DATA DEAD HEINRICH,0,0,100,0
  109. 2180 DATA DEAD MIMIC,0,0,300,0
  110. 2190 DATA DEAD PRIEST,0,0,75,0
  111. 2200 DATA DEAD CYNTHIA,0,0,50,0
  112. 2210 DATA DEAD PIRATE,0,0,300,0
  113. 3000 DATA THE CAVE ENTRANCE
  114. 3010 DATA A DARK NORTH/SOUTH TUNNEL
  115. 3020 DATA THE WEST SIDE CHAMBER
  116. 3030 DATA A LARGE CHAMBER
  117. 3040 DATA THE EAST SIDE CHAMBER
  118. 3050 DATA THE WEST CELL
  119. 3060 DATA THE NORTH END OF A LONG PASSAGE
  120. 3070 DATA AN EAST CELL
  121. 3080 DATA A WEST CELL
  122. 3090 DATA THE MIDDLE OF A LONG PASSAGE
  123. 3100 DATA AN EAST CELL
  124. 3110 DATA A WEST CELL
  125. 3120 DATA THE SOUTH END OF A LONG PASSAGE
  126. 3130 DATA AN EAST CELL
  127. 3140 DATA A BROKEN/NORTH PASSAGE
  128. 3150 DATA AN E/W TUNNEL WITH FAINT MUSIC
  129. 3160 DATA AN E/W TUNNEL WITH LOUD MUSIC
  130. 3170 DATA THE TEMPLE
  131. 3180 DATA THE LIBRARY
  132. 3190 DATA A T-INTERSECTION-- N AND E/W
  133. 3200 DATA AN E/W TUNNEL
  134. 3210 DATA THE TOP OF A STAIRWAY
  135. 3220 DATA THE BOTTOM OF A STAIRWAY
  136. 3230 DATA AN E/W TUNNEL
  137. 3240 DATA AN E/W TUNNEL SMELLING OF SALT
  138. 3250 DATA THE PIRATE'S COVE
  139. 4000 DATA "You are at the entrance of a cave. To the South, over the tunnel entrance, are  the words 'BEGINNERS ONLY'.  To the North is a road back to town."
  140. 4010 DATA "You are in a dark North/South tunnel.  To the North you see bright light        streaming in form the outside.  To the South you see flickering torchlight,     but you cannot make out any details."
  141. 4020 DATA "You are in a small side chamber to the West of the large chamber.  It is very   cold here, and the only light comes in dimly from the large chamber."
  142. 4030 DATA "You are in a huge chamber, the roof rises out of sight.  Burning torches line   the walls, making it easy to see.  Tunnels lead North and South, and there are  small side chambers both to the East and West."
  143. 4040 DATA "You are in a small side chamber to the East of the large chamber.  It is very   cold here, and the only light comes in dimly from the large chamber."
  144. 4050 DATA "You are in a small, stark cell with a door on the East side of the room."
  145. 4060 DATA "You are at the North end of a long hall.  A tunnel goes North.  To the East and West are doors that are bolted shut (Locking something in?).  In the dim light  you can see that the hall goes South, but you cannot make out any deatails."
  146. 4070 DATA "You are in a small, stark cell with a door on the West side of the room."
  147. 4080 DATA "You are in a small, stark cell with a door on the East side."
  148. 4090 DATA "You're in the middle of the Long Hall.  Doors are bolted on both sides of you   (East and West).  The hall extends North and South."
  149. 4100 DATA "You are in a small, stark cell with a door on the West side."
  150. 4110 DATA "You are in a small, stark cell with a door on the East side."
  151. 4120 DATA "You are at the South end of the Long Hall.  To your great shock are two doors   on the East and West.  The hall goes North from here, and a broken tunnel goes  South."
  152. 4130 DATA "You are in a small stark cell with a door on the West side."
  153. 4140 DATA "You are in a tunnel going North and South.  The sides of the tunnel are very    broken and rough.  You see torchlight to the South."
  154. 4150 DATA "You are in a secret East/West passage.  You hear a faint melody coming from the East."
  155. 4160 DATA "You are in an East/West passage.  You can very clearly hear religious music     being played,  and can smell incense from the East."
  156. 4170 DATA "You are in the temple.  Pictures of great deeds cover the walls.  There are two altars here, one covered with gold paint and the other stained with blood.      The only exit leads to the West."
  157. 4180 DATA "You are in what was once obviously a library.  Most of the books have been      destroyed, with the scraps lying on the ground.  A door, torn from its hinges,  also lies on the ground.  The exit is to the East."
  158. 4190 DATA "You are in a t-intersection.  A brightly burning torch is bolted to the south   wall.  Dark tunnels lead North and East.  To the West is a place where once a   door stood,  but it has been torn from its hinges."
  159. 4200 DATA "You are in a dark East/West tunnel.  You can see torchlight in both directions."
  160. 4210 DATA "You are at the top of a flight of stairs.  A torch is on the wall.  It looks    very dark down there.  A tunnel heads West."
  161. 4220 DATA "You are at the bottom of a flight of stairs.  A light can be seen up at the top,and a very dim light can be seen down the tunnel to the East."
  162. 4230 DATA "You are in an East/West tunnel.  Dim light can be seen in both directions."
  163. 4240 DATA "You are in an East/West tunnel.  You see light to the East,  and feel a cool    wind coming from there.  In the wind you smell a hint of salt."
  164. 4250 DATA "You are in a small bay.  High walls surround you so that the only exit is back  in the tunnel to the West.  To the East, on the bank of the sea, is a broken oldboat."
  165. 5000 DATA 0,2,0,0,0,0
  166. 5010 DATA 1,4,0,0,0,0
  167. 5020 DATA 0,0,4,0,0,0
  168. 5030 DATA 2,7,5,3,0,0
  169. 5040 DATA 0,0,0,4,0,0
  170. 5050 DATA 0,0,7,0,0,0
  171. 5060 DATA 4,10,8,6,0,0
  172. 5070 DATA 0,0,0,7,0,0
  173. 5080 DATA 0,0,10,0,0,0
  174. 5090 DATA 7,13,11,9,0,0
  175. 5100 DATA 0,0,0,10,0,0
  176. 5110 DATA 0,0,13,0,0,0
  177. 5120 DATA 10,15,14,12,0,0
  178. 5130 DATA 0,0,0,13,0,0
  179. 5140 DATA 13,20,16,0,0,0
  180. 5150 DATA 0,0,17,15,0,0
  181. 5160 DATA 0,0,18,16,0,0
  182. 5170 DATA 0,0,0,17,0,0
  183. 5180 DATA 0,0,20,0,0,0
  184. 5190 DATA 15,0,21,19,0,0
  185. 5200 DATA 0,0,22,20,0,0
  186. 5210 DATA 0,0,0,21,0,23
  187. 5220 DATA 0,0,24,0,22,0
  188. 5230 DATA 0,0,25,23,0,0
  189. 5240 DATA 0,0,26,24,0,0
  190. 5250 DATA 0,0,0,25,0,0
  191. 6000 DATA "There is a sign to your left facing you."
  192. 6005 DATA "There is a pile of diamonds here!"
  193. 6010 DATA "There is a standard Marcos axe here."
  194. 6020 DATA "There is a bottle with a strange potion inside!"
  195. 6030 DATA "There is a poor quality Marcos sword here."
  196. 6040 DATA "There are 50 gold pieces here!"
  197. 6050 DATA "There is an unmarked gold ring here."
  198. 6060 DATA "There is a high quality Marcos mace here."
  199. 6070 DATA "There are several rare spices here."
  200. 6080 DATA "There is an old book here.  It glows in the darkness and is remarkably well     preserved."
  201. 6090 DATA "There is a beautiful sword here with intricate carving on the handle. Written   on the blade is the name, 'TROLLSFIRE'."
  202. 6100 DATA "There is a large pile of jewels here!"
  203. 6110 DATA "There is a large chest in the center of the room."
  204. 6115 DATA "There is an empty bottle here."
  205. 6120 DATA "There is a dead black rat here."
  206. 6130 DATA "There is a dead brown rat here."
  207. 6140 DATA "There is a dead tan rat here."
  208. 6150 DATA "The Hermit's body lies dead here."
  209. 6160 DATA "The shaggy corpse of a gorilla is here."
  210. 6170 DATA "The dead body of Heinrich lies here."
  211. 6180 DATA "The dead body of the chest-mimic is sprawled on the ground."
  212. 6190 DATA "The priest lies dead here, still with a look of maniacal hatred on his face."
  213. 6200 DATA "The dead body of the girl Cynthia lies here."
  214. 6205 DATA "The pirates dead body lies here."
  215. 6210 DATA "As you approach the chest, it suddenly becomes alive and two tentacles come out of the side, holding you fast.  Another tentacle rises from the top and attempts to hurt you."
  216. 6220 DATA "As the pirate mutters a word that you can't make out, bright green flame        surrounds the blade of his sword."
  217. 6230 DATA "As the pirate chokes and dies, the flame on his sword dies also."
  218. 6240 DATA "As you say the name (TROLLSFIRE), bright green flame appears around the sword's blade."
  219. 6250 DATA "Since you were wearing the sword when it flamed on,  you take some burn damage  until the sword (Hearing your cries of pain?) extinguishes its flame."
  220. 6260 DATA "As you say the sword's name, the bright green flame disappears from the sword."
  221. 6270 DATA "There is a huge black rat with sharp teeth here!"
  222. 6280 DATA "There is a huge brown rat with sharp teeth here!"
  223. 6290 DATA "There is a huge tan rat with sharp teeth here!"
  224. 6300 DATA "There is a grizzled old hermit (Who smells as if he hasn't taken a bath in      forty years) in the room."
  225. 6310 DATA "There is a huge, hairy, strong and angry gorilla in the room with you!"
  226. 6320 DATA "A human warrior stand before you, armed with a long sword and carrying a        sheild.  On his shield is a sticker which says, 'Hi! I'm Heinrich!'"
  227. 6330 DATA "A chest-shaped monster is in the room, holding you with two tentacles and       attempting to disassemble you with a third."
  228. 6340 DATA "There is a huge man in religous garb and an insane look on his face.  In his    right hand he carries a mace."
  229. 6350 DATA "You see a beautiful girl in a flowing white dress.  You recognize her as        Cynthia, Duke Luxom's not-to-bright daughter."
  230. 6360 DATA "You see a man with a beard and a brass ring in his ear.  He is wearing clothes  made of silk and is weilding a very fancily engraved sword."
  231. ith a beard and a brass ring in his ear.  He is wearing clothes  made of silk and is weilding a very fancily engraved s