API tools faq
paste
Advertisement
plirof2

CSSCGC_Competition5024judges.BAS v06c_OK_SEND

plirof2
Sep 22nd, 2024 (edited)
115
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
JavaScript 10.40 KB | None | 0 0
raw download clone embed print report
  1. 5 REM Crap Games Competition 4011 (err.. 5024 I mean) - The Simulator Adventure v0.6c
  2. 10 REM A game written using advanced assembly techniques.
  3. 11 REM Source code is written in HiDDeN BASIC (TM) - You can't see all the program lines.
  4. 12 REM (c) Firelord Quality Games LTD (g.iatoula+zx\@gmail.com - Put the word "SPECTRUM" somewhere in the subject line if you mail me )
  5. 13 CLS
  6. 14 REM ****Intro coding***
  7. 15 RANDOMIZE
  8. 50 PAPER 4: FLASH 1: PRINT "  Crap Games Competition 5024   ": FLASH 0: PRINT " - The Simulator Adventure -    ": PAPER 7
  9. 54 PAPER 5: PRINT "Will you be a crap judge or a   good judge of crapness ?": PAPER 7
  10. 56 PRINT "A game that transfers all the   excitement of being a judge of  CSSCGC from the safety of your       HOME. "
  11. 65 INK 6: PAPER 0: PRINT "Written by Firelord!": INK 0: PAPER 7: PAUSE 0
  12. 66 PRINT
  13. 68 REM *****initialise control selection menu****
  14. 69 CLS : PRINT "Please select judge / year : "
  15. 70 GO SUB 4200: REM *****Judge selection menu*****
  16. 72 GO SUB 4400: REM *****wait for INPUT *****
  17. 73 PRINT "Your Character stats are : STR:";INT (RND*9);" ,AGI:";INT (RND*9);", INT:";INT (RND*9);" ,CHA:";INT (RND*9);", LUCK: ";INT (RND*9);" "
  18. 74 PRINT " MH :";INT (RND*15);" ,AT :";INT (RND*15);" ,DE:";INT (RND*15);" ,CA :";INT (RND*9);" "
  19. 75 PRINT " (MH:Mental Health,AT : Alcohol Tolerance ,DE :Drug Endurance ,CA :Crap awareness "
  20. 80 REM INPUT "Please select judge / year : " ,j$
  21. 81 PAPER 7: INK 0:
  22. 83 INK 3: PRINT "Now press any key": INK 0: PAUSE 0
  23. 90 CLS : REM ***************GAMES SELECTION****************************
  24. 91 LET c=1: FLASH 1: PRINT "****Let the JUDGING BEGIN****": FLASH 0: PAUSE 50: REM game counter
  25. 93 REM ***Init Random Buttons ***
  26. 99 REM ****Games comments *****
  27. 100 REM GO SUB 5000 :REM
  28. 101 INVERSE 1: PRINT "--------------------------------": PRINT "You see a new game in front of  you. It's name seems to be      ": PRINT "        GAME #";c;"        ":: INVERSE 0
  29. 110 INK 0: PAPER 4: PRINT "Description : ": PAPER 7
  30. 120 GO SUB 4090
  31. 140 INK 0: PAPER 4: PRINT "Graphics can be described as : ": PAPER 7
  32. 150 GO SUB 5090
  33. 160 INK 0: PAPER 4: PRINT "Gameplay is : ": PAPER 7
  34. 170 GO SUB 5090
  35. 175 INK 0: PAPER 4: PRINT "Coding seems to be : ": PAPER 7
  36. 177 GO SUB 5090
  37. 180 INK 0: PAPER 4: PRINT "Documentation seems to be : ": PAPER 7
  38. 190 GO SUB 5090
  39. 1200 INK 0: BRIGHT 1: PRINT n$;" . How many crap points do you give to this game? :": INPUT "How many crap points do you give to this game? :",P$: BRIGHT 0
  40. 1201 LET c=c+1
  41. 1950 PAUSE 20: INK 0: PAPER 7
  42. 1952 IF c=10 THEN GO TO 2000
  43. 1960 GO TO 100
  44. 2010 FLASH 1: PRINT n$;: PRINT "You have voted. What is your verdict ?": FLASH 0
  45. 2015 INPUT "Enter the name of this year CSSCGC winner? ",w$
  46. 2020 CLS : INK 5: FLASH 1: PRINT " THE WINNER IS GAME # ";w$: FLASH 0
  47. 2030 PRINT "You can restart the experience by typing RUN & (ENTER)"
  48. 2100 STOP
  49. 3000 STOP
  50. 4089 REM *** Advanced Algorithm that calculates the game description ****
  51. 4090 PAPER 7: INK 0: GO TO 4100+10*INT (RND*7)
  52. 4095 REM *** Language configuration ***
  53. 4100 INK 4: PRINT "Another brilliant game that you can't exactly understand what it is, what to do and the manual has pictures of another game..": RETURN
  54. 4110 INK 4: PRINT "OMG , another game by FIRELORD!!! RUUUNNNNNNN!!! ": RETURN
  55. 4120 INK 4: PRINT "It's a very original title that is a hack/ripoff of manic miner!": RETURN
  56. 4130 INK 4: PRINT "A lawnmower simulator! From the author description seems very original.": RETURN
  57. 4140 INK 4: PRINT "It's an exact copy of a game that was submitted last year and had the name changed from 2008 to 5024...": RETURN
  58. 4150 INK 4: PRINT "It's a game based on another game based on another game ,that was originaly based on another game.": RETURN
  59. 4160 INK 4: PRINT "It's one of those pointless games that you must press a key to do nothing (possible winner).": RETURN
  60. 4170 INK 4: PRINT "It's a game that... never mind. You're really bored and don't even load it. You could put a random rank in this game and still be ok.": RETURN
  61. 4199 REM *** Judge selection list ***
  62. 4200 CLS : PAPER 3: PRINT "  Crap Games Competition 5024  ": PAPER 7
  63. 4205 PAPER 7: INK 0
  64. 4206 PRINT "The Judges :": RANDOMIZE
  65. 4207 PRINT " 1996 Judge Blood.": BRIGHT 1
  66. 4208 PRINT " 1998 Judge Barry Salter.": BRIGHT 0
  67. 4209 PRINT " 1999 Judges Alistair Nelson & Graham Goring.": BRIGHT 1
  68. 4210 PRINT " 2000 Judge Graham Goring .": BRIGHT 0
  69. 4211 PRINT " 2001 Judge Adam D. Moss .": BRIGHT 1
  70. 4212 PRINT " 2002 Judge P.Equinox Collins": BRIGHT 0
  71. 4213 PRINT " 2003 Judge Dave the Lurker .": BRIGHT 1
  72. 4214 PRINT " 2004 Judge Jim Langmead .": BRIGHT 0
  73. 4315 PRINT " 2005 Judge Starglider .": BRIGHT 1
  74. 4316 PRINT " 2006 Judge Matt Rudge .": BRIGHT 0
  75. 4317 PRINT " 2007 Judges Chris Young & Phillip Lake .": BRIGHT 1
  76. 4318 PRINT " 2008 Judge Digital Prawn .": BRIGHT 0
  77. 4319 PRINT " 2009 Judge Guesser .": BRIGHT 1
  78. 4320 PRINT " 2010 Judge BloodBaz .": BRIGHT 0
  79. 4321 PRINT " 2011 Judge The Mojon Twins.": BRIGHT 1
  80. 4322 PRINT " 2012 Judge Arda .": BRIGHT 0
  81. 4323 PRINT " 2013 Judge R-Tape .": BRIGHT 1
  82. 4324 PRINT " 2014 Judge MykeP .": BRIGHT 0
  83. 4325 PRINT " 2015 Judge Lee Prince .": BRIGHT 1
  84. 4326 PRINT " 2016 Judge Gabriele Amore (Italy) / Simon M. Ferre .": BRIGHT 0
  85. 4327 PRINT " 2017 Judge GReW .": BRIGHT 1
  86. 4328 PRINT " 2018 Judge Shaun Bebbington .": BRIGHT 0
  87. 4329 PRINT " 2019 Judge Anomaly Detector .": BRIGHT 1
  88. 4330 PRINT " 2020 Judge John Connolly .": BRIGHT 0
  89. 4331 PRINT " 2021 Judge Jim Waterman .": BRIGHT 1
  90. 4332 PRINT " 2022 Judge uglifruit .": BRIGHT 0
  91. 4333 PRINT " 2023 Judge Jbizzel .": BRIGHT 1
  92. 4334 PRINT " 2024 Judge Ed Toovey, JBizzel .": BRIGHT 0
  93. 4340 PRINT " 5024. 5024 Judge GOD .": BRIGHT 1
  94. 4341 PRINT "   17. Vah-Ka the Almighty .": BRIGHT 0: INK 0
  95. 4350 RETURN
  96. 4400 REM *** accept judge selection ***
  97. 4405 INPUT "Please select Judge by typing the CORRECT YEAR NUMBER!! : ",j$
  98. 4407 PAPER 0: INK 6
  99. 4410 IF j$="1996" THEN PRINT "You selected year 1996 & you are Judge Blood.": LET n$="Judge Blood": RETURN
  100. 4411 IF j$="1997" THEN PRINT "You selected year 1997 & you are Judge Blood.": LET n$="Judge Blood": RETURN
  101. 4412 IF j$="1998" THEN PRINT "You selected year 1998 & you are Judge Barry Salter.": LET n$="Judge Barry Salter": RETURN
  102. 4413 IF j$="1999" THEN PRINT "You selected year 1999 & you are Judges Alistair Nelson & Graham Goring.": LET n$="Judges Alistair Nelson & Graham Goring": RETURN
  103. 4450 IF j$="2000" THEN PRINT "You selected year 2000 & you are Judge Graham Goring .": LET n$="Judge Graham Goring": RETURN
  104. 4451 IF j$="2001" THEN PRINT "You selected year 2001 & you are Judge Adam D. Moss .": LET n$="Judge Adam D. Mos": RETURN
  105. 4452 IF j$="2002" THEN PRINT "You selected year 2002 & you are Judge Paul Equinox Collins .": LET n$="Judge Paul Equinox Collins": RETURN
  106. 4453 IF j$="2003" THEN PRINT "You selected year 2003 & you are Judge Dave the Lurker .": LET n$="Judge Dave the Lurker": RETURN
  107. 4454 IF j$="2004" THEN PRINT "You selected year 2004 & you are Judge Jim Langmead .": LET n$="Judge Jim Langmead": RETURN
  108. 4455 IF j$="2005" THEN PRINT "You selected year 2005 & you are Judge Starglider .": LET n$="Judge Starglider": RETURN
  109. 4456 IF j$="2006" THEN PRINT "You selected year 2006 & you are Judge Matt Rudge .": LET n$="Judge Matt Rudge": RETURN
  110. 4457 IF j$="2007" THEN PRINT "You selected year 2007 & you are Judges Chris Young & Phillip Lake .": LET n$="Judges Chris Young & Phillip Lake": RETURN
  111. 4458 IF j$="2008" THEN PRINT "You selected year 2008 & you are Judge Digital Prawn .": LET n$="Judge Digital Prawn": RETURN
  112. 4459 IF j$="2009" THEN PRINT "You selected year 2009 & you are Judge Guesser .": LET n$="Judge Guesser": RETURN
  113. 4460 IF j$="2010" THEN PRINT "You selected year 2010 & you are Judge BloodBaz .": LET n$="Judge BloodBaz": RETURN
  114. 4461 IF j$="2011" THEN PRINT "You selected year 2011 & you are The Mojo Twins ??? (Dual Personality) .": LET n$="MojoTwins": RETURN
  115. 4462 IF j$="2012" THEN PRINT "You selected year 2012 & you are Judge Arda .": LET n$="Judge Arda": RETURN
  116. 4463 IF j$="2013" THEN PRINT "You selected year 2013 & you are Judge R-Tape .": LET n$="Judge R-Tape": RETURN
  117. 4464 IF j$="2014" THEN PRINT "You selected year 2014 & you are Judge MykeP .": LET n$="Judge MykeP": RETURN
  118. 4465 IF j$="2015" THEN PRINT "You selected year 2015 & you are Judge Lee Prince .": LET n$="Judge Lee Prince": RETURN
  119. 4466 IF j$="2016" THEN PRINT "You selected year 2016 & you are Judge Gabriele Amore (Italy) / Simon M. Ferre .": LET n$="Judge Gabriele Amore (Italy) / Simon M. Ferre": RETURN
  120. 4467 IF j$="2017" THEN PRINT "You selected year 2017 & you are Judge GReW .": LET n$="Judge GReW": RETURN
  121. 4468 IF j$="2018" THEN PRINT "You selected year 2018 & you are Judge Shaun Bebbington .": LET n$="Judge Shaun Bebbington": RETURN
  122. 4469 IF j$="2019" THEN PRINT "You selected year 2019 & you are Judge Anomaly Detector .": LET n$="Judge Anomaly Detector": RETURN
  123. 4470 IF j$="2020" THEN PRINT "You selected year 2020 & you are Judge John Connolly .": LET n$="Judge John Connolly": RETURN
  124. 4471 IF j$="2021" THEN PRINT "You selected year 2021 & you are Judge Jim Waterman .": LET n$="Judge Jim Waterman": RETURN
  125. 4472 IF j$="2022" THEN PRINT "You selected year 2022 & you are Judge uglifruit .": LET n$="Judge uglifruit": RETURN
  126. 4473 IF j$="2023" THEN PRINT "You selected year 2023 & you are Judge Jbizzel .": LET n$="Judge Jbizzel": RETURN
  127. 4474 IF j$="2024" THEN PRINT "You selected year 2024 & you are Judge Ed Toovey, JBizzel .": LET n$="Judge Ed Toovey, JBizzel": RETURN
  128. 4483 IF j$="4010" THEN PRINT "You selected year 5024 & you are GOD .": LET n$="-Mr. Judge GOD-": RETURN
  129. 4485 IF j$="17" THEN PRINT "You selected year 4011 & you are Vah-Ka the Almighty (TM).": LET n$="-Vah-Ka the Almighty-": RETURN
  130. 4496 REM PRINT "Your Character stats are : STR:";INT(RND*9);" ,AGI:";INT(RND*9);", INT:";INT(RND*9);" ,CHA:";INT(RND*9);", LUCK: ";INT(RND*9);" "
  131. 4497 REM PRINT " MH :";INT(RND*9);" ,AT :";INT(RND*9);" ,DE:";INT(RND*9);" ,CA :";INT(RND*9);" "
  132. 4498 REM PRINT " (MH:Mental Health,AT : Alcohol Tolerance ,DE :Drug endurance ,CA :Crap awareness "
  133. 4499 GO TO 4400
  134. 5089 REM *** Advanced Algorithm that calculates the game statement ****
  135. 5090 PAPER 7: INK (RND*6): GO TO 5100+10*INT (RND*7)
  136. 5095 REM ***  ***
  137. 5100 PRINT "more than crap.": RETURN
  138. 5110 PRINT "crap. ": RETURN
  139. 5120 PRINT "awful.": RETURN
  140. 5130 PRINT "Sitting in a white room with    white clothes for 2 years seems more interesting!": RETURN
  141. 5140 PRINT "incredibly bad.": RETURN
  142. 5150 PRINT "can't even describe.": RETURN
  143. 5180 PRINT "not worth mentioning.": RETURN
  144.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!