Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|612|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-

The Candy Factory

by kooku4kokopuffs for Workshop #061

Create the ultimate chocolate bar.

Keyboard

AppTitle "The Candy Factory"
Graphics 800,600
SeedRnd MilliSecs()
SetBuffer BackBuffer()
dafont=LoadFont("Arial",18,True, False, False)
SetFont dafont
Color 255,255,0
.verystart
money=1000

.start
Color 255,255,0
Delay(1000)
reputation=0
Locate 5,0
Print"Welcome to the Candy Factory, the amaing text-based candy machine!."
continue1=Input("Would you like to make some candy (Y/N) You have "+money+" dollar(s).")
If continue1="N" Or continue1="n" Then End
Color 255,0,0
candyname$=Input("What should we call our candy?")
Print candyname$+"? That is a great name for a candy."
Color 255,255,0
sugaramount=Input("How many table spoons of sugar should we put into one batch?")
If sugaramount>5 Then Print"That is a load of sugar!"
Delay(100)
Print"In it goes! That will cost you "+(sugaramount/2)+"  dollar(s)."
money=money-(sugaramount/2)
If money<0 Then Print"You've spent too much!" : Goto verystart
Print"Now you have "+money+"  dollars."
 Color 255,0,0
nutamount=Input("How many nuts should go into each bar?")
Print"In it goes! That will cost you "+nutamount+"  dollar(s)."
money=money-nutamount
If money<0 Then Print "You've spent too much!" : Goto verystart
Color 255,255,0
mmamount=Input("How many M&M's per bar?")
If mmamount<3 Then Print"That isn't very many M&m's!"
Print"In it goes! That will cost you "+mmamount+"  dollar(s)"
money=money=mmamount
If money<0 Then Print "You've spent too much!" : Goto verystart
Color 255,0,0
mysteryingredient$=Input("Can you think of anything you want to add? I won't charge you!")
If Not mysteryingredient$="No" Then Print"Ok Then, in goes "+mysteryingredient$+"  !"
Color 0,0,255
Print" I think it is finally time to sell our product!"
Delay(1000)
If sugaramount>1 And sugaramount<7 Then reputation=reputation+1
If sugaramount>20 Then reputation=reputation-1
If nutamount>4 And nutamount<10 Then reputation=reputation+1
If nutamount>20 Then reputation=reputation-1
If mmamount>4 And mmamount<10 Then reputation=reputation+1
If mmamount>20 Then reputation=reputation-1
If mysteryingredient$="poop" Or mysteryingredient$="worms" Or mysteryingredient$="pee" Or mysteryingredient$="urine" Or mysteryingredient$="dung" Then reputation=reputation-2

 

Print "You made "+(reputation*100)+"  dollar(s)!"
If money<0 Then Print "You've spent too much!" : Goto verystart
money=money+reputation*100

Delay(1000)
Cls 
Goto start


If money<0 Then Print "You've spent too much!" : Goto verystart