Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|441\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #061 (09 Aug 2006) The Candy Challenge Pick a Candy, or many Candies.. They can be chocolate bars, sugary things, snacky things, or pretty much anything things.. So long as they're candies. Then do some kind of game with them.

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 "+(reputation100)+" dollar(s)!" If money<0 Then Print "You've spent too much!" : Goto verystart money=money+reputation100 Delay(1000) Cls Goto start If money<0 Then Print "You've spent too much!" : Goto verystart

Wednesday Workshop #061

The Candy Challenge

The Candy Factory