Advertisement
plirof2

Basic ZX CSSCGC RetroWars -SEND ok

Apr 26th, 2022 (edited)
2,580
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Buy a Retro Machine AND Sell it FOR more money in another place simulator! (OR BARMASIFMMIAPS )
  2.  
  3. Introduction
  4. ------------
  5. Thank you FOR buying "Buy a Retro Machine and Sell it for more money in another place simulator!".
  6. This is an amazing game that is NOT based in any other game you ever played. NOT even DOS DopeWars!
  7.  
  8. The story so far
  9. ----------------
  10. It "Buy a Retro Machine and Sell it for more money in another place simulator!" you are Jason Slartibartslow. A guy that spend most of his life entering in AND out of mental institutions. The reason : he learned in a very young age the true story behind Santa Claws AND the Easter Bunny [1].
  11. This game starts with you -Jason- just having stole 1000$ from a elder guy! Inside the institutions you have thought AND planned your NEXT steps in your life AND this was the first STEP!
  12. The second STEP was TO make the 1000$ you stole more! You know that you must buy something AND sell it TO crazy person FOR a crazy ammount of money...
  13. From your experience you know that most crazy people will want spend much money on 3 things:
  14. 1.Drugs
  15. 2.Matchboxes
  16. 3.Shoelaces
  17. After a lot of thinking you decided TO throw a dice TO decide. You throwed a 4! Since you didn't know what option was 4 you decided to buy and sell retro computers[2]!
  18.  
  19. Game
  20. ----
  21. In "Buy a Retro Machine and Sell it for more money in another place simulator!" you start with 1000$ in the city that you woke up this morning AND looking TO buy a retro computer so you can sell it in a more expensive price. In each city you are presented with an easy-to-understand menu where you select IF you want TO Buy Sell Of Travel. TO buy you must press 'b' , to Sell you must press 's' and to travel you must press -as you have already guessed- 'm'. Then you select item,quantity or location from an other -easy-to-understand user interface.
  22.  
  23. Features
  24. --------
  25. -The best game you've ever played with the name "Buy a Retro Machine and Sell it for more money in another place simulator!"[3]
  26. -The game features 5 unique locations. Don't worry if you don't have enough movey in real life. In this game you will visit these locations and feel like you realy travel
  27. -You get 1000$ free in the start of the game
  28. -You owe 1000$ in the start of the game -but you can ignore them!
  29. -Traveling between location is free!
  30. -Like real life, the game does NOT END. You can play it AS much AND AS LONG AS you like!
  31.  
  32. Known Issues
  33. ------------
  34. -I didn't write this game in the 80s!
  35. -All other issues have moved in the "features" sction.
  36. -IF you get a negative price don't panic!
  37.  
  38. Spoilers/Hints
  39. --------------
  40. Don't read the next lines!!!
  41. ---Try TO sell an item in a higher price that you bought!!!---
  42.  
  43.  
  44. [1] : FOR more information about these stories check the manual of the two amazing games named "Find Santa" AND "Find the Easter Bunny". Also, you could check the "Find the Book" which is also amazing. All of them can be bought from itch.io OR IF you are cheapskate you can just find them AS CSSCGC 2021 entries.
  45. [2] : Retro computer: a computer that someone bought -during PI times (Pre-Internet) because he thought it was the best but THEN he found out that there were much better models in the market!
  46. [3] : Shorter game name in "BARMASIFMMIAPS".
  47. ----------------------------------
  48.  
  49. 1 REM A$=ITEMS, C=cash, D=debt, U=holding qty, B=base price $, P=pricing, F=cur location,T=day, I=int rate
  50. 2 REM L$=Location names,(note P:current price)
  51. 3 REM To DO : 1.Change Prices between cities,2.Fix Move (don t show Quantity questions  before travel) ,3.End in 30 days
  52. 4 PRINT "WELCOME TO "'"Buy a Retro Machine and Sell it for more money in another place simulator!":FOR I=1 TO 100 :PAPER RND*7:BORDER RND*7:NEXT I :PAUSE 0
  53. 8 REM Initialize game state and vars
  54. 9 PAPER 4:INK 3 :BORDER 2
  55. 10 LET ITEMS=6: DATA "ZX",175,"Amstrad",250,"C64",595,"AMIGA",1000,"MSX",550,"Atari ST",999
  56. 11 LET D=1000: LET C=D: LET T=1: LET F=5: DIM A$(ITEMS,8): DIM B(ITEMS): DIM P(ITEMS): DIM L$(5,8): DIM U(ITEMS)
  57. 12 FOR X=1 TO ITEMS: READ A$(X): READ B(X): NEXT X
  58. 20 FOR X=1 TO ITEMS: LET P(X)=(RND*1+0.1)*B(X): NEXT X
  59. 21 DATA "London","Dallas","Athens","Paris","Berlin"
  60. 22 FOR X=1 TO 5: READ L$(X): NEXT X
  61. 30 CLS
  62. 31 PRINT "---";L$(F);"---"'"Day:";T;"  Cash:";C;" Owe:";D:
  63. 32 PRINT "Holding","For Sale"
  64. 35 FOR X=1 TO ITEMS: PRINT X;") ";A$(X);:
  65. 37 PRINT ;"["; U(X);: PRINT "] $";(STR$ P(X))(1 TO 5):
  66. 39 NEXT X
  67. 40 PRINT "";:
  68. 41 INPUT "(B)uy, (S)ell, (M)ove";I$:
  69. 42 IF I$="b" OR I$="s" THEN INPUT "Type=";G: INPUT "Qty=";Q:LET H=G:
  70. 60 IF I$="m" THEN GOSUB 500 : REM TRAVEL
  71. 70 IF I$="b" THEN GOSUB 600 : REM BUY
  72. 80 IF I$="s" THEN GOSUB 700 : REM SELL
  73. 100 GO TO 30
  74.  
  75. 500 REM Travel Routine
  76. 510 CLS
  77. 520 FOR X=1 TO 5: PRINT X;"- ";L$(X): NEXT X:
  78. 530 INPUT "Where to? (1-5)";F: LET T=T+1: LET D=D*1.06:
  79. 540 FOR X=1 TO ITEMS: LET SIGN=1
  80. 550 IF(RND*10)<5 THEN LET SIGN=-1 : REM reduce price
  81. 560 LET P(X)=(RND*1+0.1*SIGN )*B(X): REM change item price
  82.  
  83. 580 NEXT X
  84.  
  85. 599 RETURN
  86.  
  87. 600 REM Buying routine
  88.  
  89. 610 LET X=Q*P(H): IF X>C OR P(H)=0 OR U(H)+Q>100 THEN BEEP 1,1: GO TO 63
  90. 620 LET U(H)=U(H)+Q: LET C=C-(Q*P(H)):
  91. 699 RETURN
  92.  
  93.  
  94. 700 REM Selling routine
  95. 710 IF Q>U(H) THEN BEEP 1,1: RETURN
  96. 720 LET U(H)=U(H)-Q: LET C=C+(Q*P(H))
  97. 799 RETURN
  98.  
  99. 800 REM Bank routine NOT Done yet
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement