Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on September 01, 2020, 06:08:32 pm

Title: Lemonade Stand 2
Post by: SierraKen on September 01, 2020, 06:08:32 pm
A year ago I posted on here a Lemonade Stand game simulation that I made back in the 1990's. It has over 200 lines of code and I never liked the in-code sequence it uses for each turn. So today I decided to make Lemonade Stand 2. This one is very similar to the last one, but less than 100 lines of code and a bit easier to play I believe. This one also uses a DO/LOOP on the coding so any programmer could figure out the flow of commands. It uses a lot of RND statements but don't let that throw you off, I just wanted to make it as real as I could. I'll post the URL to last years's here too in case you want to have both. Tell me what you think. Enjoy!

Here is today's:

Code: QB64: [Select]
  1. _TITLE "Lemonade Stand 2"
  2. SCREEN _NEWIMAGE(800, 600, 32)
  3. begin:
  6. PRINT "                                        Lemonade Stand 2"
  8. PRINT "                                         by  SierraKen"
  10. PRINT "You start with $20."
  11. PRINT "There are 5 cups per pitcher."
  12. PRINT "There are 30 cups per package of cups."
  13. PRINT "There will be weather, donations, and advertising."
  14. PRINT "Cup packages and pitchers can only be used for one day."
  16. INPUT "                                    Press Enter to begin.", a$
  18. money = 20
  19. ads = 0
  20. day = 0
  23.     day = day + 1
  24.     LOCATE 1, 1: PRINT "Day: "; day
  25.     weather = INT(RND * 8) + 1
  26.     IF weather = 1 THEN w$ = "Hot"
  27.     IF weather = 2 THEN w$ = "Sunny"
  28.     IF weather = 3 THEN w$ = "Cloudy"
  29.     IF weather = 4 THEN w$ = "Windy"
  30.     IF weather = 5 THEN w$ = "Rainy"
  31.     IF weather = 6 THEN w$ = "Cold"
  32.     IF weather = 7 THEN w$ = "Snowy"
  33.     IF weather = 8 THEN w$ = "Hail"
  34.     LOCATE 2, 1: PRINT "Weather: "; w$
  35.     pitcher = INT(5 / weather) + 2
  36.     LOCATE 4, 1: PRINT "Cost Of One Pitcher Of Lemonade Today: $"; pitcher
  37.     cups = INT(RND * 7) + 2
  38.     LOCATE 5, 1: PRINT "Cost Of One Package Of Cups Today: $"; cups
  39.     LOCATE 6, 1: INPUT "Price Of Each Glass $", price
  40.     sales1 = INT((INT(RND * 92) + 8) / weather)
  41.     donations = INT(RND * 4) + 1
  42.     IF donations = 2 THEN
  43.         donatedmoney = INT(RND * 20) + 1
  44.         money = money + donatedmoney
  45.     END IF
  46.     LOCATE 7, 1: INPUT "Amount to spend on advertising: $", ads
  47.     sales2 = (INT(RND * sales1) / price) + sales1
  48.     sales3 = INT(RND * (ads * 2)) + 3
  49.     sales4 = INT(sales2 + sales3)
  50.     sales5 = sales4 * price
  51.     LOCATE 9, 1: PRINT "Cups Of Lemonade Sold: "; sales4; " glasses today."
  52.     pitchersused = INT(sales4 / 5) + 1
  53.     LOCATE 10, 1: PRINT "Pitchers Used"; pitchersused
  54.     pitchersold = pitchersused * pitcher
  55.     cupsold = INT(sales4 / 30) + 1
  56.     LOCATE 11, 1: PRINT "Cup Packages Used:"; cupsold
  57.     LOCATE 12, 1: PRINT "You have made $"; sales5 - pitchersold
  58.     money = money + sales5 - ads
  59.     money = money - pitchersold
  60.     money = money - (cupsold * cups)
  61.     LOCATE 13, 1: PRINT "Donations: "; donatedmoney
  62.     LOCATE 14, 1: PRINT "Total Income: $"; money
  63.     IF money = 0 OR money < 0 THEN GOTO done:
  64.     LOCATE 16, 1: PRINT "Do you want to sell tomorrow (Y/N)?"
  65.     yesno:
  66.     yn$ = INKEY$
  67.     IF yn$ = "Y" OR yn$ = "y" THEN GOTO more:
  68.     IF yn$ = "N" OR yn$ = "n" THEN GOTO done:
  69.     GOTO yesno:
  70.     more:
  71.     CLS
  73. done:
  75. PRINT "Your Total Days: "; day
  76. PRINT "Your Total Money: "; money
  78. PRINT "Do you want to play again (Y/N)"
  79. again:
  80. again$ = INKEY$
  81. IF again$ = "y" OR again$ = "Y" THEN GOTO begin:
  82. IF again$ = "n" OR again$ = "N" THEN END
  83. GOTO again:
  84.  

Here is last year's: https://www.qb64.org/forum/index.php?topic=1523.msg107319#msg107319 (https://www.qb64.org/forum/index.php?topic=1523.msg107319#msg107319)
Title: Re: Lemonade Stand 2
Post by: bplus on September 01, 2020, 06:19:41 pm
Hi @SierraKen

Wow nice reduction of Lines Of Code, did you have to sacrifice any of it functions?

I remember that was a pretty cute game.
Title: Re: Lemonade Stand 2
Post by: SierraKen on September 01, 2020, 07:09:01 pm
It's funny B+, I made this today without even trying out my old version and I probably did that many months ago. So I just tried it out and the old one has 2 steps per turn. One step to buy the lemonade (or advertisements, etc from the menu) and the next one to sell it. Today's version only has 1 step per turn and you automatically buy as much lemonade and cups as you need to sell. So they are very different, but also very similar. I like today's better because it's more simple and basic. Today's one is also more realistic I believe because I added cups to buy and it also uses random weather in which the lemonade pitchers you buy cost more when it's hotter outside. But also you can raise the price and get more people on hotter days. :) But it's also random, just like the real world. Oh, I also tossed in random donations from people. LOL
Title: Re: Lemonade Stand 2
Post by: bplus on September 01, 2020, 10:17:47 pm
Yeah! It's funny I did a similar thing with DANILIN's "rebus". I wrote the program writer from scratch after seeing DANILIN's example and trying about 3 by hand. I kept saying to myself, "dang this is familiar.", but it was like from 3 years ago or more. I dug around for the code but didnt find anything except stuff similar but not quite same. Then I dug really deep and found the old code and now I have a much better idea to do the inputs for the Program Writer, my next project for tonight.

It's just funny how deeply this stuff gets set in your brain.
Title: Re: Lemonade Stand 2
Post by: SierraKen on September 01, 2020, 10:42:36 pm
Yep B+. That's one of the best reasons I like programming, because it's factual, black and white. It's teaching our minds logical steps to create some awesome things. And those things build on top of older things and it goes from there. That is why we remember it.
Title: Re: Lemonade Stand 2
Post by: johnno56 on September 02, 2020, 12:09:08 am
You had to use the word, "remember".

This is completely off topic... but I thought it was funny...

An elderly couple were have a get-together with a bunch of friends. Having a good time and remembering past experiences.

One friend asked the old guy, "How have you been and what have you been doing with yourself?"

He replied, "Getting on just fine. I've started some classes on how to improve the memory."

"That's great! Which school are you going to?"

A few um's and ah's and the old guy mutters to himself, "Flower... Long stem... um... Thorns..."

His friend interrupts, "You mean a rose?"

"That's it!", says the old guy and turns to his wife... "Hey, Rose! What's the name of that school I'm attending?"
Title: Re: Lemonade Stand 2
Post by: bplus on September 02, 2020, 02:38:51 am
I hear that's what happens when you eat swiss cheese you get holes in your memory. :-))
Title: Re: Lemonade Stand 2
Post by: bplus on September 02, 2020, 03:40:09 am
@SierraKen

It seems you are NOT deducting the cost of the cups when calculating net for day.

You know what the real big pain of the Lemonade business is predicting how many pitchers you will need.
Order too many and have a slow day or order a few and be sold out before noon! Yikes

Wait we don't have to pre-order or make up the pitchers before going to the stand???
Title: Re: Lemonade Stand 2
Post by: bplus on September 02, 2020, 01:03:38 pm
Here is a tip to save more lines of code (LOC).

Code: QB64: [Select]
  1. _TITLE "Choose from multiple items with 2 lines of code" ' b+ 2020-09-02
  2.  
  3. weather = INT(RND * 8) + 1
  4. IF weather = 1 THEN w$ = "Hot"
  5. IF weather = 2 THEN w$ = "Sunny"
  6. IF weather = 3 THEN w$ = "Cloudy"
  7. IF weather = 4 THEN w$ = "Windy"
  8. IF weather = 5 THEN w$ = "Rainy"
  9. IF weather = 6 THEN w$ = "Cold"
  10. IF weather = 7 THEN w$ = "Snowy"
  11. IF weather = 8 THEN w$ = "Hail"
  12.  
  13.  
  14. '                    Get random choice of multiple items in 2 lines of code!
  15.  
  16. 'Setup: 11 items seperate them by equal amount, this is one more than longest 6 chars so can read items
  17. '           12345671234567123456712345671234567123456712345671234567123456712345671234567
  18. weather$ = "Hot    Sunny  Cloudy Windy  Rainy  Stormy Cold   Snowy  Hail   Sleet  Foggy"
  19.  
  20.  
  21. FOR i = 1 TO 20 '    demo random choice
  22.  
  23.     ' In the Run, call for an random item  MID$ gets the section in the string, _TRIM$ removes spaces
  24.  
  25.     '                          length      * items    length
  26.     w$ = _TRIM$(MID$(weather$, 7 * INT(RND * 11) + 1, 7)) '<< dial weather report
  27.  
  28.     PRINT "Weather forecast: "; w$
  30.  
  31.  
Title: Re: Lemonade Stand 2
Post by: SierraKen on September 02, 2020, 01:08:48 pm
B+, it deducts the price of the cups with line 60:  money = money - (cupsold * cups)

Yeah, I think I will work on this app a bit more soon to make a second step like my old Lemonade Stand did where you have to choose how much lemonade and cups to buy before you sell them. In this one I just deducted the cost based on how many you sell. But you are right, it's part of a business to keep inventory flowing. I'll add that soon, thanks for the tip!

Wow, that's a pretty cool trick for RND and text using MID$. I'll put that on a Notepad and try to use that instead on the next upgrade.
Title: Re: Lemonade Stand 2
Post by: SierraKen on September 02, 2020, 01:13:37 pm
Oh wait, I can't use that weather trick because I need the weather numbers to add to the equations later on with less and more lemonade being sold and also the price of lemonade goes higher when it's hotter outside. And if I use both, it would actually be more code than what I have now.
Title: Re: Lemonade Stand 2
Post by: bplus on September 02, 2020, 01:25:23 pm
Quote from: SierraKen on September 02, 2020, 01:13:37 pm
Oh wait, I can't use that weather trick because I need the weather numbers to add to the equations later on with less and more lemonade being sold and also the price of lemonade goes higher when it's hotter outside.

So do the random number outside the string lookup:

weatherNum = Int(Rnd * nItems) ' this will be 0 to (nItems - 1)    '  = nItems random weather conditions
w$ = _TRIM$(MID$(weather$, 7 * weatherNum +1 , 7))  ' for weather name string

The first MID$ item has to start at 1 but 7 * 0 = 0 so add 1 in MID$ call.

Oh boy, that is getting confusing I bet!  :)

Title: Re: Lemonade Stand 2
Post by: bplus on September 02, 2020, 01:35:13 pm
OK I am looking at my net Sales for the day and there the price of cups has not been deducted.

You should take gross sales = cups sold * price

then subtract expenses:

- whole pitchers dipped into * cost (no partial credit for unused part of pitcher)
This is where having a pitcher count at start of day helps you have you cost calc'd, you don't have to figure if cups sold mod 5 = 0 then pitcher cost = cups/5 * cost of pitcher but if cups mod 5 <> 0 then total pitcher cost =( int(cups/5) + 1) * pitcher$ (if you started a pitcher you used the whole thing)

- cups for whole packs used to cover pitchers made I assume, since cup packs cant be used next day according to your rules. Me, I'd go 5 cents per cup sold because you can use leftover cups the next day.


- ads  I think ad expense is spead out over several days since ads have to be placed well before time of sales.
====                         You could have all expenses calc'd before you sell 1 cup of lemonade!

net sales for day

and for money: money = money + netsales

You seem to be making 2 sets of calculations.

Hey do I sound like I managed a restuarant? ;-))

Title: Re: Lemonade Stand 2
Post by: SierraKen on September 02, 2020, 02:08:07 pm
Edit: Skip this and the next post, I finally figured it out. lol

cupsold is a package of 30. cups is the price of the package so it times it together to get the price overall of how many packages you had to buy. Then it deducts that from your total amount from the money variable. money = money - (cupsold * cups)

It works differently than buying the lemonade in which one pitcher costs this:  pitcher = INT(5 / weather) + 2
Then pitchers used is this: pitchersused = INT(sales4 / 5) + 1
So pitcher price total old is this: pitchersold = pitchersused * pitcher
 money = money - pitchersold
Title: Re: Lemonade Stand 2
Post by: SierraKen on September 02, 2020, 02:09:38 pm
But I'm going to re-work some of this later on and make it so you can first buy the cups and lemonade before you sell it. So don't worry about it. :) I got a lot on my mind today. Thanks though!
Title: Re: Lemonade Stand 2
Post by: SierraKen on September 02, 2020, 02:21:24 pm
Oh I see what I forgot to do! You were right. I didn't deduct the cups from the daily amounts.

line 57 (now line 58): LOCATE 12, 1: PRINT "You have made $"; sales5 - pitchersold

This should deduct the cups amount too... I will change that.... Here we go, this should work:

Edit: I also forgot the advertisement cost in the daily amounts. So I just deducted that price as well. It seems to work fine now. Thank you again for telling me.
line 57 (now line 58): LOCATE 12, 1: PRINT "You have made $"; sales5 - pitchersold - ads

Code: QB64: [Select]
  1. _TITLE "Lemonade Stand 2"
  2. SCREEN _NEWIMAGE(800, 600, 32)
  3. begin:
  6. PRINT "                                        Lemonade Stand 2"
  8. PRINT "                                         by  SierraKen"
  10. PRINT "You start with $20."
  11. PRINT "There are 5 cups per pitcher."
  12. PRINT "There are 30 cups per package of cups."
  13. PRINT "There will be weather, donations, and advertising."
  14. PRINT "Cup packages and pitchers can only be used for one day."
  16. INPUT "                                    Press Enter to begin.", a$
  18. money = 20
  19. ads = 0
  20. day = 0
  23.     day = day + 1
  24.     LOCATE 1, 1: PRINT "Day: "; day
  25.     weather = INT(RND * 8) + 1
  26.     IF weather = 1 THEN w$ = "Hot"
  27.     IF weather = 2 THEN w$ = "Sunny"
  28.     IF weather = 3 THEN w$ = "Cloudy"
  29.     IF weather = 4 THEN w$ = "Windy"
  30.     IF weather = 5 THEN w$ = "Rainy"
  31.     IF weather = 6 THEN w$ = "Cold"
  32.     IF weather = 7 THEN w$ = "Snowy"
  33.     IF weather = 8 THEN w$ = "Hail"
  34.     LOCATE 2, 1: PRINT "Weather: "; w$
  35.     pitcher = INT(5 / weather) + 2
  36.     LOCATE 4, 1: PRINT "Cost Of One Pitcher Of Lemonade Today: $"; pitcher
  37.     cups = INT(RND * 7) + 2
  38.     LOCATE 5, 1: PRINT "Cost Of One Package Of Cups Today: $"; cups
  39.     LOCATE 6, 1: INPUT "Price Of Each Glass $", price
  40.     sales1 = INT((INT(RND * 92) + 8) / weather)
  41.     donations = INT(RND * 4) + 1
  42.     IF donations = 2 THEN
  43.         donatedmoney = INT(RND * 20) + 1
  44.         money = money + donatedmoney
  45.     END IF
  46.     LOCATE 7, 1: INPUT "Amount to spend on advertising: $", ads
  47.     sales2 = (INT(RND * sales1) / price) + sales1
  48.     sales3 = INT(RND * (ads * 2)) + 3
  49.     sales4 = INT(sales2 + sales3)
  50.     sales5 = sales4 * price
  51.     LOCATE 9, 1: PRINT "Cups Of Lemonade Sold: "; sales4; " glasses today."
  52.     pitchersused = INT(sales4 / 5) + 1
  53.     LOCATE 10, 1: PRINT "Pitchers Used"; pitchersused
  54.     pitchersold = pitchersused * pitcher
  55.     cupsold = INT(sales4 / 30) + 1
  56.     cupsdeduct = cupsold * cups
  57.     LOCATE 11, 1: PRINT "Cup Packages Used:"; cupsold
  58.     LOCATE 12, 1: PRINT "You have made $"; sales5 - pitchersold - cupsdeduct - ads
  59.     money = money + sales5 - ads
  60.     money = money - pitchersold
  61.     money = money - cupsdeduct
  62.     LOCATE 13, 1: PRINT "Donations: "; donatedmoney
  63.     LOCATE 14, 1: PRINT "Total Income: $"; money
  64.     IF money = 0 OR money < 0 THEN GOTO done:
  65.     LOCATE 16, 1: PRINT "Do you want to sell tomorrow (Y/N)?"
  66.     yesno:
  67.     yn$ = INKEY$
  68.     IF yn$ = "Y" OR yn$ = "y" THEN GOTO more:
  69.     IF yn$ = "N" OR yn$ = "n" THEN GOTO done:
  70.     GOTO yesno:
  71.     more:
  72.     CLS
  74. done:
  76. PRINT "Your Total Days: "; day
  77. PRINT "Your Total Money: "; money
  79. PRINT "Do you want to play again (Y/N)"
  80. again:
  81. again$ = INKEY$
  82. IF again$ = "y" OR again$ = "Y" THEN GOTO begin:
  83. IF again$ = "n" OR again$ = "N" THEN END
  84. GOTO again:
  85.  
Title: Re: Lemonade Stand 2
Post by: bplus on September 02, 2020, 03:24:07 pm
Man I am tempted to open a stand and go in competition with you ;-))

Least lines of code and yet clearly presented. When the weather gets bad I will also sell hot coffee and umbrellas or snow shovels. Ha! actually a lunch truck might be interesting.
Title: Re: Lemonade Stand 2
Post by: SierraKen on September 02, 2020, 04:46:06 pm
ROFL that would be awesome! B+'s Wild and Crazy Lunch Truck!
Text Only | Text with Attachments