-
Notifications
You must be signed in to change notification settings - Fork 6
/
MODAM6.BAS.txt
328 lines (311 loc) · 21.6 KB
/
MODAM6.BAS.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
' Copyright (c) 1995 Jeffrey R. Olson
'
' Permission is hereby granted, free of charge, to any person obtaining a copy
' of this software and associated documentation files (the "Software"), to deal
' in the Software without restriction, including without limitation the rights
' to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
' copies of the Software, and to permit persons to whom the Software is
' furnished to do so, subject to the following conditions:
'
' The above copyright notice and this permission notice shall be included in all
' copies or substantial portions of the Software.
'
' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
' IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
' FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
' AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
' LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
' OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
' SOFTWARE.
DECLARE SUB modam6 ()
CALL modam6
END
SUB modam6
CONST max = 294
DIM j(1 TO max) AS STRING * 74
j(1) = "A Lava Lamp will help illuminate during darkness"
j(2) = "A Backpack can hold up to 10 reasonably-sized items"
j(3) = "A Gas Mask will protect completely from poison gas"
j(4) = "A Medkit will restore some lost hit points and poison damage"
j(5) = "Tape Recorders reveal a variety of information about your mission"
j(6) = "Power Packs recharge devices which require energy"
j(7) = "Chemical Analyzers reveal the potential effects of unknown berries"
j(8) = "A VisiScope allows you to see long distances"
j(9) = "Tylenol can restore lost hit points"
j(10) = "A Tip O'Neill mask will frighten creatures away when worn"
j(11) = "ServoBoots greatly reduce the effects of encumberance"
j(12) = "An Answering Machine will occasionally receive messages"
j(13) = "A Force Field Generator will help protect you from attacks"
j(14) = "A Bionic Cranium Implant can raise your Mental Resistance & Intelligence"
j(15) = "A Bionic Muscle Implant can raise your Strength and Dexterity"
j(16) = "Duct Tape can incapitate creatures, and repair damaged armor and suits"
j(17) = "Toilet Paper is an effective weapon against Dung Beetles and Seagulls"
j(18) = "Sunscreen provides some protection against laser attacks"
j(19) = "An ID Card will unlock most locked doors, and can deactivate some robots"
j(20) = "Flares will illuminate the outdoors when dark, but cause damage indoors"
j(21) = "A Mirror can be used to reflect laser attacks"
j(22) = "A Mr. Misty provides nourishment, and also is an effective freeze grenade"
j(23) = "A Tricorder will map castles and lairs, and can reveal creature specifics"
j(24) = "A Hand Massager will reduce fatigue"
j(25) = "Coffee will boost your constitution temporarily, and can keep you awake"
j(26) = "A Grenade Launcher can fire grenades and berries accurately at long range"
j(27) = "Brandy will boost your strength temporarily, but may make you sleepy"
j(28) = "A Microcomputer can reveal a variety of useful information"
j(29) = "A Breathalyzer will reveal your blood alcohol content"
j(30) = "Alza-seltzer relieves sickness, and can get rid of tapeworms"
j(31) = "A MindWeb Generator will protect you from mental attacks"
j(32) = "Cap'n Crunch gives you a sugar high and speeds you up temporarily"
j(33) = "A Motion Sensor will reveal the location of invisible creatures"
j(34) = "A Pencil Sharpener can sharpen pointy weapons so they are more effective"
j(35) = "A Knife Sharpener can sharpen blade weapons so they are more effective"
j(36) = "ArmorAll will restore armor to pristine condition, and may even improve it"
j(37) = "A UV Helmet helps greatly when searching for hidden things"
j(38) = "A Geiger Counter reveals nearby radiation zones outdoors, or traps indoors"
' 1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76
j(39) = "A Cannister Grenade inflicts modest shrapnel damage (kinetic damage type)."
j(40) = "A Neutrino Grenade inflicts moderate damage."
j(41) = "An Incendiary Grenade inflicts moderate heat damage."
j(42) = "A Psychosis Grenade inflicts variable mental-type damage."
j(43) = "A Gas Grenade inflicts poison damage and leaves poisonous gas."
j(44) = "A Photon Grenade inflicts tremendous laser-type damage."
j(45) = "A Fission Grenade inflicts substantial radiation damage."
j(46) = "A Vial of Acid inflicts modest damage."
j(47) = "A Stun Grenade paralyzes and inflicts minor damage in a large area."
j(48) = "A Disintegration Grenade is lethal to almost everything."
j(49) = "A Lightning Grenade inflicts modest electrical damage in a large area."
j(50) = "A Glue Grenade will imobilize anything in its sizable blast area."
j(51) = "A Fusion Grenade inflicts tremendous damage in a large area."
j(52) = "A Flash Grenade can blind everything in a large area."
j(53) = "A Blowtorch does moderate heat damage."
j(54) = "A Staple Gun does minimal kinetic damage."
j(55) = "A Shock Rod does modest electrical damage."
j(56) = "A Shotgun does substantial kinetic damage."
j(57) = "A Laser Pistol does substantial laser damage."
j(58) = "A Phaser can stun (putting enemy to sleep) or kill (doing heat damage)."
j(59) = "A Fusion Rifle does substantial radiation damage."
j(60) = "A Tickle Feather Gun (from the UnderDog show) inflicts tremendous damage."
j(61) = "A Weedeater is effective against plants."
j(62) = "A Missile Launcher does substantial damage in a large blast area."
j(63) = "Raid is particularly effective against insects."
j(64) = "A Flamethrower does substantial heat damage in line with the target."
j(65) = "A Light Sabre inflicts moderate laser-type damage."
j(66) = "A Freeze Gun does substantial cold damage in line with the target."
j(67) = "A Can of Mace does modest poison damage and makes the target flee."
j(68) = "Mr. Clean is especially effective against slimes, molds, etc."
j(69) = "A Squirt Gun does minimal damage except against Fire Ants, Phoenixes, etc."
j(70) = "A Chainsaw inflicts horrible wounds."
j(71) = "A Blaster can fire many shots at a time, inflicting modest heat damage."
j(72) = "Silly String will immobilize a target."
j(73) = "A Stun Gun will paralyze a target."
j(74) = "A Salt Shaker can be a grenade, but is only useful on Slugs-like things."
j(75) = "A Pepper Shaker can be a grenade, and makes targets sneeze."
' 1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76
j(76) = "A Boise Souvenir Ashtray is useless"
j(77) = "Sunglasses protect against blindness & give added influence over robots"
j(78) = "A Toaster is useless"
j(79) = "A Cheese Grater is useless"
j(80) = "A Bionic Spleen Implant can raise your Constitution & Radiation Resistance"
j(81) = "A Sony Watchman can map levels in some of the special castles"
j(82) = "A Slinky is useless"
j(83) = "A Veg-O-Matic can injure nearby creatures, especially edible ones"
j(84) = "A Kalediscope is useless"
j(85) = "A Fountain Pen is useless"
j(86) = "The flash from a Pocket Instamatic can blind creatures that see it"
j(87) = "A Hammock will put you to sleep immediately"
j(88) = "A Voodoo Doll will kill all nearby creatures of a specific type"
j(89) = "A Turbocharger will speed up any vehical"
j(90) = "A Chia Pet is useless"
j(91) = "A Wrist Watch will tell you how much time remains to complete your mission"
j(92) = "A Radar Gun will reveal how fast a creature can move"
j(93) = "A Radar Detector is useless"
' 1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76
j(94) = "A Radiation Suit will reduce the damage caused by radiation"
j(95) = "A Thermal Suit will reduce the damage caused by heat and cold"
j(96) = "A Reflective Suit will reduce the damage caused by lasers"
j(97) = "A Hovercraft provides very fast transportation over any terrain"
j(98) = "A Computer Workstation can reveal a plethota of useful information"
j(99) = "A Microwave Oven can prematurely ripen berries, and makes food tastier"
' 1 6 11 16 21 26 31 36 41 46 51 56 61 66
' 1 6 11 16 21 26 31 36 41 46 51 56 61 66
j(100) = "A Wetsuit allows water movement, and will reduce acid and shock damage"
j(101) = "A Safe will protect up to 10 items, and can be left outside of castles"
j(102) = "A Transmogrifier will polymorph creatures, and can change berry types"
j(103) = "A TK-5 AntiTank Gun is an extremely effective long-range weapon"
j(104) = "A Jetpack gives rapid movement for short periods of time"
j(105) = "A Golf Cart provides transportation at a faster pace than walking"
j(106) = "A Pogo Stick provides an alternative form of transportation"
j(107) = "A Cloaking Device renders you temporarily invisible"
j(108) = "A Kayak can be used to move through water"
j(109) = "A Rubber Raft can be used to move through water"
j(110) = "A Home Movie Projector will put creatures to sleep"
j(111) = "A Camoflage Suit makes you somewhat harder to detect"
j(112) = "A Pinstripe Suit gives added influence over robots when an ID card is used"
j(113) = "A Bulletproof Suit lowers your AC and reduces damage from kinetic attacks"
j(114) = "A Repulsion Generator will prevent creatures from moving next to you"
j(115) = "A Displacer allows you to teleport over short distances"
j(116) = "A Jackhammer can blast through walls, and is an effective weapon"
j(117) = "A Tent will allow you to sleep in relative safety outdoors at night"
j(118) = "A Neutron Suit irradiates nearby critters each turn but hurts you somewhat"
' 1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76
j(119) = "A Cigarette Machine is useless"
j(120) = "A Cabinet is useless"
j(121) = "A Liposuction Device will remove an udder"
j(122) = "A Still will distill berries to nectar, and nectar to extract"
j(123) = "A Cyclotron just might win you the Nobel Prize in physics"
j(124) = "A Laser Printer is useless"
j(125) = "A Wide Screen TV can map levels in some of the special castles"
j(126) = "A Prosthetic Leg is useless"
j(127) = "A Dialysis Machine will cure you and remove poison effects, tapeworms, etc"
j(128) = "A Porta-Potty is useless"
j(129) = "A Sousaphone can make critters stand still, run away, become confused, etc"
j(130) = "A Kevorkian Machine is useless"
j(131) = "A Leafblower is useless"
' 1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76
j(150) = "The color of a berry reveals its degree of ripeness. The six colors"
j(151) = "a berry can have are red, orange, yellow, green, blue, and purple,"
j(152) = "in increasing order of ripeness. Berries which are more ripe are"
j(153) = "more potent, and will have effects which last longer. For example,"
j(154) = "purple exploding berries do much more damage than orange ones, and"
j(155) = "forcefields created by blue berries last longer than those created"
j(156) = "by red ones. In addition, if a berry can have either a good or bad"
j(157) = "effect, the ripe berries are more likely to cause the good effects."
j(158) = "Thus, a blue berry that alters speed tends to speed you up, while a"
j(159) = "red one is likely to slow you down. Berries that alter your stats"
j(160) = "are particularly important examples of this, wherein red and purple"
j(161) = "ones change your stats permanantly, purple usually raising, and red"
j(162) = "usually lowering; the effect of the orange-blue ones is temporary."
j(163) = "Berries will ripen with time; using X(amine) can be illuminating."
j(164) = "This is the Grinch, a crazed psychotic intent upon destroying the"
j(165) = "world. He has obtained a deadly toxin capable of eradicating all"
j(166) = "life and intends to release it at noon on September 8th, just a week"
j(167) = "away. He lives in a castle hidden within a radiation zone. Your"
j(168) = "mission, should you choose to accept it, is to stop the Grinch and"
j(169) = "destroy his nerve toxin. This tape will self-destruct in 5 seconds."
j(170) = "Here is the first castle you should infiltrate, the secret hideout"
j(171) = "of Elvis, thought by some to be dead for many years. He is an agent"
j(172) = "like you who holds for you a secret device you'll need to cross the"
j(173) = "bottomless chasm. Be wary of counterspies, "
j(174) = "This is the second stronghold you must visit, 1313 Mockingbird Lane."
j(175) = "You must retrieve a map showing the location of the Grinch's castle."
j(176) = "The map is known to be guarded by Grampa, a dangerous enemy who will"
j(177) = "require special measures to neutralize. Good luck, "
j(178) = "Here is the third castle you should visit, the castaways' fortress."
j(179) = "Here the impervious Gilligan holds an anti-viral serum you will need"
j(180) = "to ward off the effects of the Grinch's nerve toxin. It isn't known"
j(181) = "what forces, if any, Gilligan is susceptible to. Consult the lore of"
j(182) = "the computer if you can. This tape will self-destruct in 5 seconds."
j(183) = "This is the fourth castle you should visit, the Trump Castle. Held"
j(184) = "within, in the posession of the Trump King, is the only surviving"
j(185) = "Presidential ID Card, which you will need to gain access to the"
j(186) = "Grinch's stronghold. This tape will self-destruct in 5 seconds."
j(187) = "Here is the final castle you should attempt to infiltrate, the"
j(188) = "castle of Those Who Came In Second. The cult leader, Buzz Aldrin,"
j(189) = "has a space suit necessary to ward off the powerful radiation which"
j(190) = "protects the Grinch. This tape will self-destruct in 5 seconds."
j(191) = "This is the Grinch's stronghold, hidden in a radiation zone and"
j(192) = "protected by nerve toxin. It's locked and encircled by a bottomless"
j(193) = "chasm. The Grinch is tremendously powerful and psychotic. He may"
j(194) = "have a weakness, however. Be careful, "
' 1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76
j(195) = " Congratulations! You have successfully completed AlphaMan!"
j(196) = "Now would be an excellent time to register this software. By doing this,"
j(197) = "you will help support the ShareWare concept which allows users to try out"
j(198) = "software before paying for it. You will also help to support the author"
j(199) = "financially, allowing him to continue to create new products."
j(200) = "Anyone sending $15 or more will receive the most recent version, and will"
j(201) = "receive notification of updates (which will include lots of new features)."
j(202) = "Updates will cost just $4 to cover shipping and handling, but will be free"
j(203) = "if serious bugs are found. You will also receive answers to any questions."
j(204) = "Send check, disk type and version number (shown on opening screen) to:"
j(205) = "Jeffrey R. Olson, 214 E. Sherwin Dr., Urbana, IL 61801"
j(206) = "Please send any suggestions, comments or bugs to the above address, even"
j(207) = "if you don't intend to register your copy. The author will consider all"
j(208) = "ideas for incorporation into the game, will credit you if an idea is used,"
j(209) = "and guarantees a response if you include a self-addresed stamped envelope."
j(210) = " Please distribute this game widely."
' 1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76
j(211) = "Weapons, armor and shields are of varying effectiveness depending on the"
j(212) = "type and condition of the item. Specifics such as the base damage done,"
j(213) = "base armor class provided, etc, of specific items can be obtained using a"
j(214) = "computer. Using 'X'(amine) will reveal the condition an item:"
j(215) = " Weapons may have bonuses to hit and/or to damage; for example, a +1 to"
j(216) = "hit dagger will hit more often than a normal dagger, and a -1 damage flail"
j(217) = "will do less damage than a normal flail."
j(218) = " Armor and shields can sustain a varying number of 'damaging' attacks"
j(219) = "before they are destroyed, and may have modifiers to the defense that they"
j(220) = "provide; for example, a +1 shield protects better, while -1 armor protects"
j(221) = "worse than average for that specific type of shield or armor."
' 1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76
j(222) = "Jeffrey Olson is a member of the Association of Shareware Professionals"
j(223) = "(ASP). ASP wants to make sure that the shareware principle works for you."
j(224) = "If you are unable to resolve a shareware-related problem with an ASP"
j(225) = "member by contacting the member directly, ASP may be able to help. The"
j(226) = "ASP Ombudsman can help you resolve a dispute or problem with an ASP member"
j(227) = "but does not provide technical support for members' products. Please write"
j(228) = "to the ASP Ombudsman at 545 Grover Road, Muskegon, MI 49442-9427 USA"
j(229) = "FAX 616-788-2765 or send a CompuServe message via CompuServe Mail to:"
j(230) = "ASP Ombudsman 70007,3536."
' 1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76
j(231) = "Exploding berries are effective grenades with a blast radius of 1 square."
j(232) = "Radiating berries are effective grenades with a blast radius of 1 square."
j(233) = "These berries provide significant nourishment, and can make critters burp."
j(234) = "Refresh berries make you well-rested and temporarily help keep you rested."
j(235) = "Poison berries can be thrown to do poison damage if they hit a critter."
j(236) = "Curing berries will restore some hit points, and some reduced by poison."
j(237) = "These berries are like normal curing berries, only more potent."
j(238) = "These berries will add or subtract experience points depending on color."
j(239) = "Strength-altering berries raise or lower strength, depending on color."
j(240) = "Dexterity-altering berries raise or lower dexterity, depending on color."
j(241) = "Constitution-altering berries raise or lower CON, depending on color."
j(242) = "Radiation Resistance-altering berries modify RR, depending on color."
j(243) = "Mental Resistance-altering berries modify MR, depending on color."
j(244) = "Intelligence-altering berries modify intelligence, depending on color."
j(245) = "Speed-altering berries will make you fast or slow, depending on color."
j(246) = "Berries that toughen skin will permanantly lower your armor class."
j(247) = "Intoxicating berries will confuse you if eaten, or a critter if thrown."
j(248) = "Cleverness berries make you better at figuring out and using tech devices."
j(249) = "Berries which add body parts are generally useless except for nourishment."
j(250) = "These berries quench or heighten a mutation, depending on color."
j(251) = "These berries help you see invisible things, and will map a castle level."
j(252) = "These berries will blind you if eaten, but work on critters if thrown."
j(253) = "These berries make you burp or sneeze, but work on critters if thrown."
j(254) = "These berries make you forget things but will confuse creatures if thrown."
j(255) = "These berries will frighten critters away temporarily."
j(256) = "Detoxifying berries will remove the lingering adverse effects of poisons."
j(257) = "These berries give you a Rambo complex, making you strong but dumb."
j(258) = "These berries will make you temporarily invisible."
j(259) = "Teleport berries randomly teleport you, and work on critters too."
j(260) = "Relax berries will put you or a creature to sleep."
j(261) = "Klutz berries will make you extremely clumsy, but work on critters too."
j(262) = "While regenerating, you regain lost hit points much faster."
j(263) = "These berries give you an odor that attracts creatures."
j(264) = "While protected by a forcefield, you'll sustain reduced damage."
j(265) = "These berries are effective weapons if thrown."
' 1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76
j(280) = "You are an agent who must use all available means to save the world from"
j(281) = "disaster. These means include arms and armor, technological items you can"
j(282) = "find and figure out, mutated berries which bestow special powers and your"
j(283) = "own mutations. You can learn your mission by using a Tape Recorder which"
j(284) = "can be found nearby at the start of the game. See the file README.TXT for"
j(285) = "additional information regarding AlphaMan. Press '?' at any time to see"
j(286) = "a list of commands or for context-sensitive help."
' 1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76
j(287) = "You can 'u'se most items in the game. If you use a weapon, shield or armor"
j(288) = "it will be in use until it is destroyed or you 'U'nuse it (that is, it's"
j(289) = "not necessary to use one repeatedly). You can also use most tech devices"
j(290) = "after you've figured them out (some will stay in use until Unused, such as"
j(291) = "a Radiation Suit or Lava Lamp), although you throw grenades. You must eat"
j(292) = "Spam, Beef-a-Roni, and most berries. You also use many mutations, such as"
j(293) = "Laser Generation or Hypnosis. Some mutations, however, such as Heightened"
j(294) = "Dexterity or Military Genius, are constantly in use."
OPEN "alphaman.6" FOR BINARY AS #1: CLS
OPEN "items.txt" FOR OUTPUT AS #2
FOR i = 1 TO max
PRINT #2, RTRIM$(j(i))
FOR k = 1 TO 74
MID$(j(i), k, 1) = CHR$(ASC(MID$(j(i), k, 1)) XOR (ABS(i * 17 + k * 31) MOD 256))
NEXT k
PUT #1, , j(i): LOCATE 1, 1: PRINT i;
NEXT i
CLOSE
END SUB