Week 61/Wed. Workshop (SoCoder)

<- Previous Workshop | Next Workshop ->

061 : The Candy Challenge

Date : 09 Aug 2006

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 Entries in order of submission
The Candy Factory

kooku4kokopuffs | Comments (0) | No Votes

Create the ultimate chocolate bar.

Keyboard

Show Sourcecode for this entry

Hide Sourcecode

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

<- Previous Workshop | Next Workshop ->

Latest Items

News : Newsletter #176

Jayenkai Sat 04:49

News : Newsletter #175

Dabz Tue 09:38

Blog : Snow: More Material Junk

Cower Sat 23:17

Dev-Diary : Mutant Monty: Amstrad CPC to Windows conversion

rockford Fri 13:14

Techy : AppleTV

Jayenkai Thu 09:40

Blog : Graphviz

steve_ancell Sat 14:17

Pets : Top-Down Shadow Hack

Jayenkai Tue 05:52

Snippet : JNKrunch v1.0

Jayenkai Sat 07:20

News : Newsletter #173

waroffice Fri 04:47

Blog : Material Loading

Cower Fri 02:08

Pets : I Done Won A Thing

shroom_monk Sun 11:31

Pets : Repurposing A Lexer

Cower Mon 22:06

Bah : Feeling a Little Angry

spinal Mon 11:26

News : Newsletter #170

Dabz Sat 00:34

Showcase : sbfgen

Cower Sat 16:57

Who's Online
spinal
Fri, at 01:03
Mog
Fri, at 00:37
Dabz
Thu, at 23:11
Jayenkai
Thu, at 19:46
HoboBen
Thu, at 18:50
CodersRule
Thu, at 18:29
Cower
Thu, at 18:21
Evil Roy Ferguson
Thu, at 17:34
dna
Thu, at 17:30
9572AD
Thu, at 17:28

Link to this page
Site : Jayenkai 2006-Infinity |
MudChat's origins, BBCode's former life, Image Scaler.