home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / cheatmachine.amos / cheatmachine.amosSourceCode < prev    next >
AMOS Source Code  |  1991-06-13  |  19KB  |  218 lines

  1. ' *****************************************
  2. ' *                                       *
  3. ' *      THE CHEAT MACHINE  Sept.1991     *  
  4. ' *                                       *
  5. ' *       by The Walking Dude...          *
  6. ' *                                       *
  7. ' *  Add fresh cheats as data statements  *
  8. ' * and increase value of x to match      *
  9. ' * number of data items.....watch out    *
  10. ' * version 1.2 - coming your way soon!!  *
  11. ' *                                       *
  12. ' *****************************************
  13. Screen Open 1,320,300,16,Lowres
  14. Close Editor : Close Workbench : Curs Off : Cls 0
  15. Paper 1
  16. Music 1
  17. Unpack 9 To 1
  18. Paper 0
  19. Locate 29,15 : Print "(Now)"
  20. Do 
  21. If Key State(55)=True Then Music Off 
  22. If Mouse Key=1 Then Cls 0 : Exit 
  23. Loop 
  24. Cls 0
  25.  Curs Off : Cls 0
  26. Unpack 6 To 1
  27. Screen Display 1,128,35,320,256
  28. Paper 0 : Pen 1
  29. Menu$(1)="Help"
  30. Menu$(1,1)="Please type first 5 letters"
  31. Menu$(1,2)="incl.spaces, use a '.' as"
  32. Menu$(1,3)="appropriate to make up to 5"
  33. Menu$(1,4)="Don't start with a space."
  34. Menu$(1,5)="If first 5 don't show try"
  35. Menu$(1,6)="last five letters in title"
  36. Menu Base 0,165
  37. Menu On 
  38. Menu$(2)="Info."
  39. Menu$(2,1)="Programmed in Amos 1.3"
  40. Menu$(2,2)="for Asgard Software"
  41. Pen 8 : Paper 0
  42. Wind Open 1,16,46,17,3,2 : Border 1,0,0
  43. Pen 8 : Paper 0
  44. Wind Open 2,16,149,35,9,2 : Pen 1 : Paper 0
  45. BEGIN:
  46. Curs On 
  47. Window 1
  48. Clw 
  49. Pen 1 : Paper 0
  50. Do 
  51. Input QUESTION$
  52. If Left$(QUESTION$,2)="  " Then Goto BEGIN
  53. If QUESTION$="" Then Goto BEGIN
  54. QUESTION$=Upper$(QUESTION$)
  55. Window 2
  56. Clw 
  57. Rem - Increase this value (x) if adding fresh data 
  58. For X=1 To 153
  59. Read B$
  60. Left$(B$,5)=Upper$(B$)
  61. If Left$(QUESTION$,5)=Left$(B$,5) Then Print B$ : Restore : Goto BEGIN
  62. Next X
  63. If Left$(QUESTION$,5)<>Left$(B$,5) Then Print "Unknown title!" : For X=1 To 6 : Sam Loop On : Sam Play 1 : Bob 1,170,110,1 : Wait 15 : Bob Clear : Next X : Sam Loop Off : Wait 50 : Bob Off : Window 1
  64. Restore 
  65. Loop 
  66. Data "toki.: Type 'Killer' on main game screen for inf. lives"
  67. Data "Robocop 2: Type 'serial interface' with spaces on title screen.Use F keys to skip levels"
  68. Data "chuck rock:On 1st screen press 'Escape' then type 'uncle sams 'for inf. energy. Type 'estrano' to fly.type 'turn frame' for levels.Type while playing"
  69. Data "army moves:Level 1 hold down alt,1,d for immunity.level 2 hold down alt,1,j."
  70. Data "voyager:Cheat mode activate by typing 'WHEN THE SWEET SHOWERS OF APRIL FALL' on options screen"
  71. Data "blood money:pause game/press 'help' for inf. lives"
  72. Data "gremlins2: enter name as 'SINATRA' on high score chart for inf. lives"
  73. Data "golden axe:play in 1 play mode but 2 joysticks.When you die press 'fire' on other joystick for 3 lives"
  74. Data "elite:type 'SARA' on copy protect screen as word from manual.On 2nd attempt proceed as normal.Now press '+' to change cargo and weaponry"
  75. Data "CHASE HQ 2 : On the title screen type 'IN A GARDEN' Then Start game and press 't' for TIME 'n' For LEVEL "
  76. Data "logical: first ten passwords are welcome/the other side/quadri quadra/stone road/nice colors/more colors/real fun/pink and pink/green path/bad direction"
  77. Data "lemmings:dig ground from under blockers to change to walkers.Level 10 code -fun -okhmdlckcj/level 20 -hlflconedy/level 10 tricky - cononliej/level 15-omicgkonev"
  78. Data "speedball 2:Save up and buy star players!"
  79. Data "virus:pause and unpause game while holding down 'enter'.Press 'c' to toggle effects.'l'-free missile.'f'-fuel.'d'-demo.'n'-cheat mode."
  80. Data "populous: entry codes:timmehole/hurtuslog/veryqueer/swathole/saddilow/swakoppal"
  81. Data "kick off 2:run fingers over function keys while playing to sub 1 player of own for oppos goalie!"
  82. Data "falcon:Hold down 'x','ctrl' and shift for in-fight rearming"
  83. Data "indianapolis 500:always put 10 gallons of fuel in before qualifying.set turbocharger to max."
  84. Data "pang.:on the map screen type 'what a nice cheat' then select level."
  85. Data "chip's challenge:start game & press 'f'.enter cheats -'sagittarians make better lovers'-'09/12/87 '-'I think therefore i am'"
  86. Data "line of fire:on joystick select screen type 'operation ferrit'"
  87. Data "maniac mansion:after the glass has broken in the piano room by Bernard,go into sitting room, put tape in m/c.chandelier will break revealing key."
  88. Data "nightbreed:type 'RISEN FROM THE DEAD' for inf.lives"
  89. Data "brat.:level codes - bishiamo/mihemoto/sasuto 20"
  90. Data "awesome:at energy swop screen,pointer to shield icon.Hold down + on num. pad and press fire. Use 'f' keys for cheats"
  91. Data "exolon:type in' ad astra' on high score tabel for inf.lives"
  92. Data "r-type:enter 'sumita.'(with full stop) on high score tabel"
  93. Data "e-swat:pause game and type 'justified ancients of mu mu' for 99 lives"
  94. Data "sorcerer's apprentice:press tab key after 1 st title screen and type 'wizard,spells,arcane,druid"
  95. Data "forgotten worlds:for levels and indistructability type 'arc' on title screen, hit 'return'.'s' calls up shop.'n' skips levels."
  96. Data "total recall:type in 'listen to the whales'with spaces on high score for inf. lives."
  97. Data "interceptor:the only way to destroy sub is to fire all missiles at turret."
  98. Data "sade.:indy jones & the last/ on high score table enter name as 'sillynam' for inf. lives."
  99. Data "killing game show:while the replay is playing press 'help' key.You restart from that point with 5 lives."
  100. Data "x-out:buy most expensive ship &place on grid.Cheapest sattelite on money indicator.Get 50,0000 credits! Press'esc' for levels."
  101. Data "stealth fighter:press 'alt-h' to get pitch lines on hud.turn upside down,altitude 10 degrees - you can climb without using fuel."
  102. Data "venus the fly trap:type in 'mars,mercury,jupiter,pluto ' or 'saturn' for weapons & effects."
  103. Data "last ninja 2:enter 2nd room and kill man there.run to far wall & punch panel.white square should turn black.return to 1st room & go through trap door."
  104. Data "strider:press'f9' to pause game.hold down 'help' key ,left shift and 1 together.unpause & use 1 -5 to skip levels.f1 and f2 change stages."
  105. Data "prince of persia:skip levels - hold down caps lock and press 'l'.(Doesn't work on bottle section in level 1)"
  106. Data "spy who loved me:pause game; type'miss moneypenny' for inf.lives"
  107. Data "narc.:when game starts - go right until 1st dustbin appears.Kneel in front of it.keep shooting. bin turns blue when cheat active."
  108. Data "horror zombies from the crypt:type' cheatmode' during play for level skip option.f10 quits next level.hold down 'm' and '.' for inf lives."
  109. Data "torvak the warrior:enter word 'cheat' on high score table .when game reloading hold down number of stage to skip to."
  110. Data "car-vup:type 'pussycat' for 9 lives. 'bumper' for inf. bumpers. 'barmy car' gives 10,000 points.'woaarrggh' gives inf. fast turns.'whoopsie' starts prehistoric stage."
  111. Data "st dragon:activate cheat with caps lock and typing 'decaffeinated'"
  112. Data "toyota celica rally:when prompted to start enginepress 'ctrl' and 'c' to freeze timer."
  113. Data "fantasy world dizzy:to get past broken bridge carry 3 boulders use to raise water level."
  114. Data "z-out:press 'j' and corresponding no. for level jump or 'h' and 'j' for invincibility."
  115. Data "dragon's lair:when credits have finished hold down 'esc','r','i','l' and 'n' at same time - game will complete itself."
  116. Data "silkworm:on option screen type 'scrap 29' for inf jeeps and helis."
  117. Data "beach volley:type in' daddybracey' while playing.use f1 to skip levels."
  118. Data "unreal:on dragon spheres screen type in 'ordilogicus' to activate cheat mode.press return for levels."
  119. Data "kid gloves:pause game with f1.type in 'rhiannon' then move joystick to choose levels.on level 2 stage 11 lose all lives and press backspace for inf.lives."
  120. Data "nitro:enter name as 'maj' on high score table for fuel and money"
  121. Data "sci..:type in' in a garden in' on title screen then press 't' during game for time."
  122. Data "back to the future 2:type in during story before each level ; level 1'rotten cheat'. ;level 2'lousy cheat';level 3'low down cheat'"
  123. Data "night shift:C=Cherry. B=Banana. L=Lemon  Pl=Plum P=Pineapple. Level codes are: 2-CBB. 3-BCPP 4-PLPP 5-PPLC  6-CPlPlP 7-CPLB 8-PBPC 9-PLLC 10-LBPlPl "
  124. Data "monty python:on high score tabel enter name as 'SEMPRINI' to restart from level you died."
  125. Data "teenage mutant etc:on protection routine type 8859 1st time,1506 2nd time and correct no. 3rd time.Help then toggles invincibility.Press 'HELP' to restore energy."
  126. Data "james pond:type in 'junkyard' while playing followed by return.Press 'd' or 'return' for effects."
  127. Data "  rick dangerous:enter your name as 'POOKY' for a level select scree"
  128. Data "lotus esprit turbo:Select 2 player game,enter player 1 as 'IN A BIG COUNTRY' and player 2 as 'FIELDS OF FIRE ' for easy qualifying"
  129. Data "midnight resistance:Type in 'ITS EASY WHEN YOU KNOW HOW' for infinite everything!"
  130. Data "time machine:enter name as 'DIZZY' on score tabel to have infinite lives and zone access. Press 'A' or 'S' to access zones."
  131. Data "shadow ofthe beast 2:Run to righ side,talk to pygmy in forest, then press 'A' and type '10 PINTS ' for inf.lives"
  132. Data "bocop:Robocop - start game,press pause then type 'BEST KEPT SECRET' for inf. energy."
  133. Data "batman:type in 'JAM' on the title screen and keep hitting 'M' screen will flip for inf.lives"
  134. Data "nebulus:type 'HELLOIAMJMP'on title screen.Us e F1 to F8 to select starting tower with inf. lives"
  135. Data "carrier command:Pause game and type 'GROWOLD ALONG WITH ME'.Toggle immunity with + & -"
  136. Data "dungeon master:Go through door in front of monsters, when they follow repeatedly close door on their heads!"
  137. Data "ultima V:Search crypts carefully for magic wands.Save all characters twice in case of mishaps."
  138. Data "new zealand story:On title screen type 'MOTHERFUCKENKIWIBASTARD' for inf.lives and skip levels with 'HELP' key."
  139. Data "paradroid 90:Don't go shooting everything.Transference is best."
  140. Data "typhoon thompson:On the later levels shoot lots of islands at a time."
  141. Data "klax.:press '4' during the game to go to final wave."
  142. Data "swiv.:Pause game and type 'NCC-1701' for inf.lives"
  143. Data "f-19 stealth fighter:Carry as many Maverick missiles as poss."
  144. Data "vaxine:While playing type 'WILDBEESTE' then F1 and F3 will advance 1 or 10 levels.F2 or F4 - back levels."
  145. Data "interphase:During play type 'Fenny' to acces object viewer utility."
  146. Data "ang on: Super hang-on - enter '750J' on high score table to improve position."
  147. Data "starglider 2:Star game and press 'F', slow craft to standstill then press 'DEL' to pause. Type 'WERE ON A MISSION FROM GOD' and press '1' -press 'K' to arm ship."
  148. Data "shangai: If you can help it don't move tiles you can see 3 of."
  149. Data "arkanoid 2:Hold down left mouse  button while loading for unusual effect."
  150. Data "battle squadron:Start game and type 'CASTOR' for invincibility.F6 to F10 will now choose weapons.F1 to F5 varies power."
  151. Data "tower of babel:When getting klondikes get grabber to face them, prog. with fire,right,right,right,right, and fire again - to fool game."
  152. Data "cadaver:Level 3-go to Royal Court - touch Wulf for quest.Fulfil quest and return to Wulf for new quest and key."
  153. Data "bubble bobble:plug in 2 joysticks.when 1 player about to lose last life press alternative joystick."
  154. Data "leisure suit larry:When you get divorce papers read them before you give them to Patti."
  155. Data "archipelagos:At start chosse level 8421 then press 'Enter' twice to access any island from 1 to 9999."
  156. Data "helter skelter:Some level codes - SPIN - level 11. FLIP-level 21. GOAL-level 41. LEFT -level 51. TWIN-level 61. PLAY-level 71."
  157. Data "IK+..:When knocked down press 'Space' followed by fire button for invulnerability that round."
  158. Data "midwinter:Don't bother with recruitment - head for enemy base with dynamite and blow it up.If you start every game by clicking in same place you get same setup."
  159. Data "balance of power:Listen to advisers. You CAN win in situations they don't like but its not worth it!"
  160. Data "loom:Listen carefully to the Guild of Glassmakers.They cast spells which you canhear and use."
  161. Data "quartz:When energy gets low stand still and don't fire to rebuild."
  162. Data "flood:When asked for password type 'MEEK' then return. Move joystick left and right to access levels & press fire."
  163. Data "pipemania:Levels codes - BALL,blob,WILD,dock,GRIP,ooze."
  164. Data "lipse:Total eclipse-Hold down 1 and 9 and press fire for a surprise!!"
  165. Data "breed:Dragon Breed - Pause and type 'IREM' for inf lives.select levels with N key."
  166. Data "Distant armies:Make sure you collect lotsa power-ups before end of level guardian on the Chaturanga level."
  167. Data "treasure trap:Make use of keys by dropping them on floor to deflect monsters."
  168. Data "rcars:Supercars - Enter name as RICH to start with ï¿½500,000"
  169. Data "monty pythons:Enter 'SEMPRINI' on high score table for new options."
  170. Data "ghouls'n'goblins:Type 'KAREN BROADHURST' during play for invincibility."
  171. Data "xybots:Enter 'ALF' on high score tabel for add-ons in next game."
  172. Data "air 2:Dragons Lair 2;Type 'GET MORDOROC DIRK' on title screen and game will complete itself."
  173. Data "Hard Drivin 2:Take car up to top speed and then into neutral for collision free slide ,free driving."
  174. Data "dynamite dux:Type in 'CHEAT NUDE' on the title screen for inf.lives"
  175. Data "Defender of the Crown: Press 'K' while game is loading for 1024 knights and soldiers."
  176. Data "immortal:Level codes - 2 CDDFF10006F70/ 3-OADDA21000EI0/ 4-BFDF31001EB0/ 5-09DE443000EB0"
  177. Data "Predator 2:Pause game and type 'YOUR ONE UGLY MOTHER' for inf.lives."
  178. Data "viz..:On character selections screen type 'WHAT A GREAT LOAD OF BOLLOCKS' to skip levels use 1-5."
  179. Data "PP HAMMER: Enter name as Hammer then level codes are 1-BEVDESRR  2-UDICGRAJ  20-SSVJECRV  40-RBHGJICB  62-IERBDSGD."
  180. Data "DYTER 7: Type 'GIBB' on title screen. Press 'W' for weapons. 'S' for shields. 'L' for levels."
  181. Data "CHAOS STRIKES BACK:Find dragon/cast 'MO ZO GOR SAR' spell.'esc' twice to pause.Keep 'alt' down and enter 'LORD LIBRASULUS SMITHES THEE DOWN'.Unpause,kill dragon get fire staff"
  182. Data " Lair:Dragons Lair(1):To watch game play itself,hold down 'ESC','R','/','L','N', and '7' keys & fire during credits."
  183. Data "sword of sodam:Type 'RAD' into hiscore for inf.lives."
  184. Data "Populous:Codes - 99-TIMQAZAL 400-BADMEILL 170-MORILAS 490-MORASPIL 62-SUZTT 273-IMMEED 34-JASTME 438-BINEAT 291-TIMYICK"
  185. Data "barbarian 2:If creature on other side of pit.Leave room,wait a little,return- creature vanisehed."
  186. Data "flying shark:Hold down 5 on keypad and enter 'RLH' for acid. 'JGL' for full fire. 'KDJ' for lives. 'RAB' for invulnerability."
  187. Data "outrun:While playing type 'RED BARCHETTA' then press 'S' for next stage.'T' for seconds added, 'B' to restart the stage."
  188. Data "Roadblasters:While playing type 'LAVILLASTRANGIATO' then press 1-4 for different weapons,'S' for next stage and 'F' for fuel."
  189. Data "Hybris: On High Score Table Type 'COMMANDER' and Press Fire,'F10' gives invincibility.F2-F6 for weapons.F9 finishes level."
  190. Data "BETTER DEAD THAN ALIEN:type in one of following when asked for ref.type :ELEKTRA SYZYGY DRAMBUIE PLUG SOPRANO MAYONNAISE FAUCET POTATO WOOMERA FIRKIN ACOUSTIC"
  191. Data "RVF Honda:Get plenty of practice.learn each circuit.Follow other bikes if left at start."
  192. Data "afterburner:Type 'TOGETHER IN ELECTRIC DREAMS', and press 'T' to reduce missiles.'G' to inc. missiles. '<' to return a stage. '>' to advance stage."
  193. Data "arkanoid 2:Type 'ROBOCOPPETER' on title screen to enable continue mode."
  194. Data "Microprose soccer:Use low banana power.At kick-off straight up pitch avoiding tackles.When half way to goal go slightly right and shoot banana power"
  195. Data "Rainbow Islands:To start game with magic bonuses, type in following codes to the credit: Fast Feet-BLRBJSBJ Double Rainbows-RJSBJSBR Fast Rainbows-SSSLLRRS Continue all rounds-LBSJRWL"
  196. Data "venus Flytrap:codes level 1- none. level 2-Mantids. 3-Cicadas.  4-Psyllids."
  197. Data "Star Wars:When flying down trench don't shoot at all to acheive 'use of force' bonus."
  198. Data "Empire strikes back:On title screen hold down 'help' key and type 'XIFARGROTCEV' now try 'L','C' and 'D' keys!"
  199. Data "Return of the Jedi:Type 'DARTH VADER' on the top score table ,now use F2 to skip levels."
  200. Data "F29-Retaliator:Enter name during enrolment as 'CIARAN'.Press return it will change to OCEAN OK for loadsa extra weaponry!"
  201. Data "dance:Shadow Dancer-Pause game and type 'GIVE ME INFINITES' to be indestructible..."
  202. Data "lotus esprit:Enter player one's name as 'MONSTER' & player two as 'SEVENTEEN' you'll get an extra shoot-em-up game..."
  203. Data "days of Thunder:Pause game and type 'COMEFLYWITHME' to sprout wings and fly!"
  204. Data "gem'x:Level B code/ EARTHIAN. Level C/KENICHI Level D/INOKUMA  Level E/BURAI Level F/BADMAN  Level G/NETWORK  Level H/YOKOHOMA Level I/Exact...(Type GEM2. for more levl codes)"
  205. Data "gem2.:Level J/X68000  Level K /TURRICAN Level L/REDMOON  Level M/CAMPAIGN Level N/MEGAMANN  Leven O/SYVALION  level P/FMTOWNS  LevelQ/CHIERIE Level R/GAMERION LevelS/ZAWAS."
  206. Data "apprentice:Codes are WIZARD,SPELLS,ARCANE,DRUID,FAERIE."
  207. Data "Ghostbusters 2:Press ' Control' ,'ALTERNATE','S' and 'U' for inf.courage level 1 and inf.slime level 2."
  208. Data "adron:BATTLE SQUADRON - Type in 'CASTOR' at any time to activate the cheat mode."
  209. Data "untouchables:Type in 'SOUTHAMPTONGAZETTE' and then press F10 to skip levels. Press HELP on levels 2,3 and 6 puts you half way thro'"
  210. Data "Double Dragon:Plug in two joysticks,start 2 player game  then press both fire buttons and 'ESC' for inf. credits."
  211. Data "Ninja Warriors:Hold down ALTERNATE and type 'MAY THE FORCE BE WITH YOU' for inf.energy.While playing press CAPS LOCK and type in 'CHEDDAR' release CAPS LOCK and you get inf.credits."
  212. Data "Ghost 'n' Goblins: Type in 'DELBOY' on credit screen for cheat mode."
  213. Data "Drivin' Force:On the main menu click on the 2 i's of Drivin' and your car will stick to the track like glue!"
  214. Data "damocles:To Gaea then Ur city.Location 07 01 find Profs Lab.Use B key to get in/collect sideboard.Turn it on/it becomes the Nova Trigger.Fly to loc. 09 02 for NOVA BOMB."
  215. Data "continental Circus:Make start faster by pushing & holding joystick forward when 1st erd light shows.On 2nd red light release joystick then on green light push joystick forward again.Got that?"
  216. Data "stormlord:Type in 'DRAGONBRIDGE' and start game.Press space to pause and then 'L' to advance a level."
  217. Data "Light Corridor:Type in these codes for levels...10 - '3305'.  20- '6811'  30-'5518'  level 40-'1825'.level 50-'9932'."
  218. Data "Operation Thunderbolt:On screen press F8/fire at same time for laser sight.On high score type 'WIGANNINJA' for inf.continues.Also-type 'SPECCY MODE' on high score table."