Lemonade Stand

[SierraKen]

Do you guys remember this simulation back in the mid-80's? In 1999 I re-created it using ASIC 5.0 making my own version and today I enhanced it a little bit and changed it for QB64. :)
There's no time limit on this game, you can play as long as you still have money, kinda like Monopoly lol.
It might be too easy, it might be too hard, it's very random, but buying advertisements does help as well as selling for a cheap price. But there's also a 15% chance per round that a huge gust of wind will come and destroy one of your advertisements. hehehe

Code: QB64: [Select]

1. ' This program was made after midnight on May 17, 1999
2. ' It was created because about 10 years before that I played a similar
3. ' program when computer games had hardly any graphics on them.
4. ' This program has no graphics, but is really fun!
5. ' This game was adapted for QB64 on July 21, 2019.
6. _TITLE "Lemonade Stand"
7. m = 20
8. CLS
9. PRINT "                   Lemonade Stand"
10. PRINT
11. PRINT "                     By Ken G."
12. PRINT
13. PRINT "This program is a business simulation for all ages."
14. PRINT "Learn how to spend and keep money to make more money by"
15. PRINT "selling lemonade. The buyers come mostly at random, but also"
16. PRINT "are effected on how much advertising you do."
17. PRINT "You are started out with $20, a table, a chair, free unlimited"
18. PRINT "water to mix the lemonade, a fairly good street to sell to,"
19. PRINT "a glass pitcher, and a friend to help you go buy lemonade and put"
20. PRINT "up ads on sign posts and to yell for customers."
21. PRINT "Plus this is a pretend world so you can sell as long as you want or"
22. PRINT "sell until your money runs out. At the end, it will total your money."
23. PRINT "Hint: The more ad signs you put up, the more customers you will get."
24. PRINT "If you don't get any customers for a long time, well sometimes"
25. PRINT "people just don't want something to drink!"
26. PRINT "Remember that the higher you charge, the less customers you will have."
27. PRINT "Also, city ordinances say no more than 4 advertisements per game."
28. PRINT
29. INPUT "Press enter to begin.", a$
30. l = 0
31. go:
32. CLS
33. PRINT "                          Lemonade Stand"
34. PRINT
35. RANDOMIZE TIMER
36. wind = INT(RND * 100) + 1
37. IF wind > 85 AND aa > 0 THEN
38.     PRINT "A huge gust of wind just came and blew over 1 of your advertisements"
39.     PRINT "and a vehicle ran over it making it useless."
40.     aa = aa - 1
41.     PRINT "You now have "; aa; " advertisements left."
42. END IF
43. PRINT
44. PRINT "Money: ";
45. PRINT m
46. IF l < 1 THEN GOTO lll:
47. PRINT "Type your price per glass you will charge here (only numbers):";
48. INPUT ch
49. IF ch > 10 THEN
50.     PRINT "Your price is way too high, I will set it at $10 per glass."
51.     ch = 10
52. END IF
53. IF ch < 1 THEN
54.     PRINT "Your price is under $1 which these days isn't very profitable."
55.     PRINT "I will set it as $1."
56.     ch = 1
57. END IF
58. PRINT "Glasses Of Lemonade To Sell: ";
59. PRINT l
60. PRINT "Amount of Advertisements you have: ";
61. PRINT aa
62. PRINT "------------------------------------------------------------"
63. GOTO am:
64.  
65. lll:
66. IF l < 1 THEN
67.     PRINT "You currently have no lemonade."
68.     IF m < 3 THEN
69.         PRINT "You also don't have enough money to buy lemonade that could cost"
70.         PRINT "as much as $3 a pitcher."
71.         PRINT "Press enter to quit the game.";
72.         INPUT qgg$
73.         GOTO done:
74.     END IF
75.     PRINT "Press enter to go buy lemonade.";
76.     INPUT gb$
77.     GOTO buylemonade:
78. END IF
79.  
80. am:
81. RANDOMIZE TIMER
82. r = INT(RND * 20) + 1
83. IF ch > 6 THEN
84.     w = 7
85.     GOTO nex:
86. END IF
87. w = ch
88. nex:
89. r = r + s
90. r = INT(r - w)
91. IF r < 10 THEN
92.     r = 0
93. END IF
94. PRINT "You have ";
95. PRINT r;
96. IF r > 1 THEN PRINT " customers at the moment."
97. IF r = 1 THEN PRINT " customer at the moment."
98. IF r = 0 THEN PRINT " customers at the moment."
99. PRINT "------------------------------------------------------------"
100.  
101. IF r > l THEN
102.     r = l
103.     PRINT "You just ran out of lemonade, but you were able to sell"
104.     PRINT "to "; r; " customers."
105.     mm = ch * r
106.     m = m + mm
107.     PRINT "You now have "; m;
108.     IF m > 1 THEN PRINT " dollars."
109.     IF m < 2 THEN PRINT " dollar."
110.     l = 0
111.     GOTO lll:
112. END IF
113. mm = ch * r
114. m = m + mm
115. l = INT(l - r)
116. PRINT "Now you have: ";
117. PRINT m;
118. PRINT " dollars."
119. PRINT "Now you have: ";
120. PRINT l;
121. PRINT " glasses of lemonade left."
122. check:
123. PRINT "(1) Buy 1 Pitcher of Lemonade"
124. PRINT "(2) Buy 1 Advertisement Sign"
125. PRINT "(3) Keep Selling"
126. PRINT "(4) End Game"
127. PRINT "Type a number here and press enter:";
128. INPUT num
129. IF num = 1 THEN GOTO buylemonade:
130. IF num = 2 THEN GOTO buyad:
131. IF num = 3 THEN GOTO go:
132. IF num = 4 THEN GOTO done:
133. GOTO check:
134. buylemonade:
135. RANDOMIZE TIMER
136. le = INT(RND * 3) + 1
137. PRINT "Currently, a pitcher of lemonade costs ";
138. PRINT le;
139. IF le < 1 THEN PRINT " dollars."
140. IF le = 1 THEN PRINT " dollar."
141. IF le > 1 THEN PRINT " dollars."
142. IF le > m THEN
143.     PRINT "Sorry, but you don't have enough money to buy any more."
144.     GOTO done:
145. END IF
146. PRINT "You buy 1 pitcher of lemonade."
147. PRINT "One pitcher equals 20 glasses."
148. m = INT(m - le)
149. PRINT "Now you have ";
150. PRINT m;
151. PRINT " dollars."
152. PRINT
153. l = l + 20
154. PRINT "You have ";
155. PRINT l;
156. PRINT " amounts of glasses to sell now."
157. PRINT "Press enter to go back to main screen.";
158. INPUT gb$
159. GOTO go:
160. buyad:
161. CLS
162. IF aa = 4 THEN
163.     PRINT "Sorry but due to the enormous amount of garbage on the street,"
164.     PRINT "the city says you have the limit number of advertisements."
165.     PRINT "Press enter to continue.";
166.     INPUT ag$
167.     GOTO go:
168. END IF
169. PRINT "Advertisements costs $4 each."
170. PRINT "They add your profit because you get more customer attention."
171. IF m < 4 THEN
172.     PRINT "Sorry, currently you have less than $4."
173.     PRINT "Press enter to go back to main menu.";
174.     INPUT bs$
175.     GOTO go:
176. END IF
177. m = m - 4
178. aa = aa + 1
179. PRINT "You just bought 1 advertisement."
180. PRINT
181. PRINT "You now have: ";
182. PRINT m;
183. PRINT " dollars left."
184. PRINT "Press enter to go back to main screen.";
185. INPUT gg$
186. s = s + 1
187. GOTO go:
188. done:
189. CLS
190. PRINT "                Lemonade Stand"
191. PRINT
192. PRINT "Your total money: ";
193. PRINT m;
194. PRINT " dollars."
195. PRINT "You started with 20 dollars."
196. ppr = m - 20
197. IF ppr < 1 THEN
198.     PRINT "You didn't make any money."
199.     PRINT "Good luck next game!"
200.     GOTO ddone:
201. END IF
202. PRINT "Your total profit is ";
203. PRINT ppr;
204. PRINT " dollars!"
205. PRINT
206. ddone:
207. PRINT "Come back soon!"
208. PRINT
209. PRINT "Press enter to quit program.";
210. INPUT qp$
211. END
212.  

[OldMoses]

I made $3622...it wouldn't let me sell it for $20/glass

Finally, a game I'm good at! ;)

[SierraKen]

LOL awesome Old Moses! Yeah the limit is $10 a glass and the least you can sell is $1.

[Pete]

Well, like they all say, "When life hands you lemons, make lemonade." Life handed me a sack of crap once, but it turned out juicy it didn't improve the situation in the least.

I quit at $500. I had 6 glasses of lemonade left. I'll sell them to anyone on the forum for 12,000 a glass, glass included! Don't all line up at once, it pretty freakin' windy out today!

Pete

[SierraKen]

Dang you guys been playing a lot of this game. The most I've ever gotten was probably $100. lol :))

[bplus]

I got tired of selling lemonade at $2000+ and sold the business (and secret to my success) to my assistant for $1M he is thinking of changing the product to coffee and calling it Starbucks.

[Ashish]

Nice game. I usually don't like ASCII type game, but I enjoyed this. :)

[bplus]

I started AI program for this particular coding:

Code: [Select]

OPTION _EXPLICIT
_TITLE "The Secret to My Success in the Lemonade Business by bplus" '2019-07-21
'1. Always sell at $6
'2. If you don't have to buy lemonade buy max amount of ads
'3. Always keep 30 glasses of lemonade on hand (if you can!)


Following these and changing:

Code: QB64: [Select]

1. ' Input "Price of glass of lemonade ";ch
2. ch = 6

I made over $16K in 5 minutes or so. $6 is highest you can charge without being penalized by drop in customers. Selling just 1 more lemonade because you have ad justifies expense with first customer who basically pays for ad AND cost of a pitcher of lemonade, the next 19 glasses are profit.

[SierraKen]

LOL awesome B+. Yep just like a real company, you are in the red for awhile first. Did your A.I. encounter any huge gusts of wind? lol

[SierraKen]

Thanks Ashish, yeah I normally don't make text games, but this is a classic. :)

[bplus]

LOL awesome B+. Yep just like a real company, you are in the red for awhile first. Did your A.I. encounter any huge gusts of wind? lol

Several ads lost but I was too busy trying to keep up with having enough lemonade to sell. All businesses should have such problems!

[OldMoses]

That's how it was for me, I couldn't keep the signs or the lemonade for long, but the customers were mobbing me. I started out by selling for $1 for a long time. It must have built a good base.

[TempodiBasic]

Gasp I have tried to sell lemonade but as soon as I'm starting  I must pay 2000$ for taxes! No startup! No wellfare for new business, only burocracy and taxes before to start! :-(