Lemonade Stand 2

[SierraKen]

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:
4. CLS
5. PRINT: PRINT: PRINT
6. PRINT "                                        Lemonade Stand 2"
7. PRINT: PRINT
8. PRINT "                                         by  SierraKen"
9. PRINT: PRINT
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."
15. PRINT: PRINT
16. INPUT "                                    Press Enter to begin.", a$
17. CLS
18. money = 20
19. ads = 0
20. day = 0
21. RANDOMIZE TIMER
22. DO
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
73. LOOP
74. done:
75. CLS
76. PRINT "Your Total Days: "; day
77. PRINT "Your Total Money: "; money
78. PRINT: PRINT
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.  

[bplus]

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.

[SierraKen]

ROFL that would be awesome! B+'s Wild and Crazy Lunch Truck!