Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Buy a Retro Machine AND Sell it FOR more money in another place simulator! (OR BARMASIFMMIAPS )
- Introduction
- ------------
- Thank you FOR buying "Buy a Retro Machine and Sell it for more money in another place simulator!".
- This is an amazing game that is NOT based in any other game you ever played. NOT even DOS DopeWars!
- The story so far
- ----------------
- 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].
- 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!
- 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...
- From your experience you know that most crazy people will want spend much money on 3 things:
- 1.Drugs
- 2.Matchboxes
- 3.Shoelaces
- 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]!
- Game
- ----
- 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.
- Features
- --------
- -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]
- -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
- -You get 1000$ free in the start of the game
- -You owe 1000$ in the start of the game -but you can ignore them!
- -Traveling between location is free!
- -Like real life, the game does NOT END. You can play it AS much AND AS LONG AS you like!
- Known Issues
- ------------
- -I didn't write this game in the 80s!
- -All other issues have moved in the "features" sction.
- -IF you get a negative price don't panic!
- Spoilers/Hints
- --------------
- Don't read the next lines!!!
- ---Try TO sell an item in a higher price that you bought!!!---
- [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.
- [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!
- [3] : Shorter game name in "BARMASIFMMIAPS".
- ----------------------------------
- 1 REM A$=ITEMS, C=cash, D=debt, U=holding qty, B=base price $, P=pricing, F=cur location,T=day, I=int rate
- 2 REM L$=Location names,(note P:current price)
- 3 REM To DO : 1.Change Prices between cities,2.Fix Move (don t show Quantity questions before travel) ,3.End in 30 days
- 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
- 8 REM Initialize game state and vars
- 9 PAPER 4:INK 3 :BORDER 2
- 10 LET ITEMS=6: DATA "ZX",175,"Amstrad",250,"C64",595,"AMIGA",1000,"MSX",550,"Atari ST",999
- 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)
- 12 FOR X=1 TO ITEMS: READ A$(X): READ B(X): NEXT X
- 20 FOR X=1 TO ITEMS: LET P(X)=(RND*1+0.1)*B(X): NEXT X
- 21 DATA "London","Dallas","Athens","Paris","Berlin"
- 22 FOR X=1 TO 5: READ L$(X): NEXT X
- 30 CLS
- 31 PRINT "---";L$(F);"---"'"Day:";T;" Cash:";C;" Owe:";D:
- 32 PRINT "Holding","For Sale"
- 35 FOR X=1 TO ITEMS: PRINT X;") ";A$(X);:
- 37 PRINT ;"["; U(X);: PRINT "] $";(STR$ P(X))(1 TO 5):
- 39 NEXT X
- 40 PRINT "";:
- 41 INPUT "(B)uy, (S)ell, (M)ove";I$:
- 42 IF I$="b" OR I$="s" THEN INPUT "Type=";G: INPUT "Qty=";Q:LET H=G:
- 60 IF I$="m" THEN GOSUB 500 : REM TRAVEL
- 70 IF I$="b" THEN GOSUB 600 : REM BUY
- 80 IF I$="s" THEN GOSUB 700 : REM SELL
- 100 GO TO 30
- 500 REM Travel Routine
- 510 CLS
- 520 FOR X=1 TO 5: PRINT X;"- ";L$(X): NEXT X:
- 530 INPUT "Where to? (1-5)";F: LET T=T+1: LET D=D*1.06:
- 540 FOR X=1 TO ITEMS: LET SIGN=1
- 550 IF(RND*10)<5 THEN LET SIGN=-1 : REM reduce price
- 560 LET P(X)=(RND*1+0.1*SIGN )*B(X): REM change item price
- 580 NEXT X
- 599 RETURN
- 600 REM Buying routine
- 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
- 620 LET U(H)=U(H)+Q: LET C=C-(Q*P(H)):
- 699 RETURN
- 700 REM Selling routine
- 710 IF Q>U(H) THEN BEEP 1,1: RETURN
- 720 LET U(H)=U(H)-Q: LET C=C+(Q*P(H))
- 799 RETURN
- 800 REM Bank routine NOT Done yet
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement