mirror of
https://github.com/superjamie/alphaman-src.git
synced 2025-05-05 15:32:54 +00:00
329 lines
22 KiB
Plaintext
329 lines
22 KiB
Plaintext
' 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
|
|
|