plirof2

BASIC spectrum CSSCGC - Idle game v005 NOT SEND

Mar 2nd, 2022 (edited)
749
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 2 REM csscgc URL : https://spectrumcomputing.co.uk/forums/viewtopic.php?t=6092&start=80
  2. 5 PAPER 0: BORDER 0: INK 7: CLS
  3. 10 GO SUB 5000: REM intro
  4. 20 GO SUB 2000: REM variable set
  5. 30 CLS
  6. 80 IF INKEY$="1" THEN GO SUB 400
  7. 90 IF INKEY$="2" THEN GO SUB 300
  8. 100 IF INKEY$="0" THEN GO SUB 200
  9. 110 GO SUB 1000
  10. 120 GO TO 80
  11. 200 REM function manual() {
  12. 210 IF progress<100 THEN IF progress+speed>100 THEN LET progress=100
  13. 220 IF progress<100 THEN IF progress+speed<=100 THEN LET progress=progress+speed
  14. 230 GO SUB 1000
  15. 240 IF progress=100 THEN PRINT p$;" design is done! Go sell it!": LET isDone=1
  16. 250 RETURN
  17. 300 REM sellProduct() {
  18. 310 IF (isDone=1 AND progress=100) THEN LET progress=0: LET totalMoney=totalMoney+(quality*10): LET quality=quality+1: GO SUB 1000: LET isDone=0
  19. 320 IF isDone=0 THEN PRINT AT 13,0;"The ";p$;" design isn't done yet, keep up the work!"
  20. 325 PRINT AT 15,0;"SOLD For";quality*10
  21. 350 RETURN
  22. 400 REM buySpeed()
  23. 410 IF speed=10 THEN LET speedCost=5
  24. 420 REM if  speed > 1 THEN LET speedCost = Math.floor(10 * Math.pow(1.1,speed)): Go SUB 1000
  25. 430 IF speed>1 THEN LET speedCost=INT (10*1.1^speed): GO SUB 1000
  26. 450 IF totalMoney>=speedCost THEN LET totalMoney=totalMoney-speedCost: LET speed=speed+1
  27. 455 PRINT AT 15,0;"BOUGHT ";speedCost
  28. 460 GO SUB 1000
  29. 490 RETURN
  30. 1000 REM function refresh Display() { //this refreshes the display to update the numbers
  31. 1005 PAUSE 100: LET totalMoney=INT (totalMoney+INT (speed/10)): PAPER 0: INK 7: IF (totalMoney>1000000000) THEN GO TO 6000
  32.  
  33. 1007 REM Print at 3,0;"DESIGN="; totalMoney;
  34. 1010 PRINT AT 0,0; INK 4;"MONEY=";totalMoney
  35. 1020 PRINT AT 1,0;"PROGRESS=";progress;"%  "
  36. 1030 PRINT AT 2,0; INK 2;"SPEED=";speed;"  (Speedcost=";speedCost;" ) "
  37. 1035 PRINT AT 3,0; INK 2;"Employees=";speed
  38. 1040 REM PRINT AT 3,0;"Speedcost="; speedCost
  39. 1050 PRINT AT 5,0; INK 3;"1=Hire employees for more speed"'"2=Sell ";p$;'"0=Design ";p$
  40. 1055 PRINT AT 10,0;"First Design a ";p$;" and then SELL it"
  41. 1090 RETURN
  42. 2000 REM VARIABLES
  43. 2010 LET progress=0
  44. 2020 LET speed=10
  45. 2040 LET quality=1: REM // as quality increases, so does the $ made from selling a game
  46. 2050 LET isDone=0: REM  //checks to see if product is done.
  47. 2060 LET totalMoney=0
  48. 2070 LET speedCost=5
  49. 2100 LET p$="product"
  50. 2500 RETURN
  51. 5000 PRINT "Hello"
  52. 5010 PRINT "Each one of us always wanted to become a billionaire!": PAUSE 100
  53. 5020 PRINT INK 2; FLASH 1;"THIS IS YOUR CHANCE!"; INK 7; FLASH 0: PAUSE 100
  54. 5030 PRINT "This simulator will show you in EASY steps  what you must do!": PAUSE 100
  55. 5040 PRINT "Actually Bill gates used the    same technique and look at him  now!! (I mean look a photo of   him now -I don't think you can    actually see him)": PAUSE 100
  56. 5050 PRINT "Anyway, this is a proven method! ": PAUSE 100
  57. 5060 PRINT "I trust this method so much that I'm willing to try it too! ": PAUSE 100
  58. 5100 PRINT "PRESS ANY KEY": PAUSE 0
  59. 5200 RETURN
  60. 6000 REM WIN THE GAME - NOW YOU ARE READY FOR THE REAL LIFE!!!
  61. 6010 CLS : PRINT FLASH 1;"YOU WON !!!"'"YOU WON !!!"'"YOU WON !!!"'"YOU WON !!!"'"YOU WON !!!"'
  62. 6020 INPUT "PLEASE ENTER YOUR NAME:";b$
  63. 6030 PRINT "CONGRATULATIONS ";b$'"NOW YOU ARE READY FOR REAL LIFE!!!"'"SHUT DOWN YOUR COMPUTER"'"AND GO OUT TO THE REAL WORLD TO GET RICH!!! $$$$"
  64. 6040 STOP
  65.  
RAW Paste Data Copied