Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|82|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

Block Blaster

by kooku4kokopuffs for Workshop #062

No jitters, different colors, (slightly) better collisions and three powerups!

Cursors and Space

Graphics 800,600,32,2
AppTitle "BlockBlaster"
SeedRnd MilliSecs()
HidePointer()
AutoMidHandle True
Flip False

Type bubble 
	Field x
	Field y
	Field xm
	Field ym
	Field radius
	Field stucktimer#
End Type	

Type laser
	Field x
	Field y
	Field yend
	Field xend
	Field timer#
End Type 

Type p
	Field x
	Field y
	Field shottime#
End Type

p.p=New p
p\x=50
p\y=575
p\shottime#=0

score=0
hitornot=False
barial=LoadFont("Arial",24,True, False, False)
bbarial=LoadFont("Arial",30,True,False,False)
SetFont barial

.hit
SetBuffer FrontBuffer()

If hitornot=True
	SetFont bbarial
	Cls
	Color 255,0,0
	Text 300,50,"You were hit!"
	WaitKey 
	Delay (2000)
End If 

SetBuffer BackBuffer()
speed=3
.start
score=0
For bubble.bubble=Each bubble
Delete bubble
Next

hitornot=False



arial=LoadFont("Arial",18,True, False, False)
sarial=LoadFont("Arial",14,True,False,False)
SetFont arial
Repeat
SetFont arial
Cls
Color 255,0,0
Text 380,60,"Block Blaster"
Color 255,255,0
 
Text 340,90,"Press SPACE key to begin"
Color 0,0,255
SetFont sarial
Text 50,110,"Press SPACE to fire a laser at the middle of a floating block. Be sure not to be hit by one of them! Get a high-score to unlock bonuses."
Text 399,150,"score : "+score



Flip
Until KeyDown(57)





timerbonus=5

For a=1 To 3
bubble.bubble=New bubble
bubble\x=Rnd(20,780)
bubble\y=Rnd(30,570)
bubble\xm=Rnd(-1,1)
bubble\ym=Rnd(-1,1)
bubble\radius=50
bubble\stucktimer#=0
Next

While Not KeyDown(01)
Cls
Color 255,255,255
Rect p\x,p\y,20,20,0

For bubble.bubble=Each bubble 

If funky=False
Color 255,0,0
Rect bubble\x,bubble\y,bubble\radius,bubble\radius,0
End If 


If funky=True 
funkycolored=Rnd(3)
If funkycolored=1 Then Color 155,255,153
If funkycolored=2 Then Color 255,0,255
If funkycolored=3 Then Color 255,255,102
Rect bubble\x,bubble\y,bubble\radius,bubble\radius,1
End If 


Rect bubble\x,bubble\y,bubble\radius,bubble\radius,0
bubble\x=bubble\x+bubble\xm
bubble\y=bubble\y+bubble\ym
If bubble\x<=10 Or bubble\x>=700 Or bubble\xm=0
	Repeat
 		bubble\xm=Rnd(-1,1)
		bubble\ym=Rnd(-1,1)
		bubble\stucktimer#=bubble\stucktimer#+.1
	Until Not bubble\x<=10 And  bubble\x>=700
End If 

If bubble\y<=10 Or bubble\y>=550
	Repeat
		bubble\ym=Rnd(-1,1)
		bubble\xm=Rnd(-1,1)
		bubble\stucktimer#=bubble\stucktimer#+.1
	Until Not bubble\y<=10 And bubble\y>=550
End If 

If p\x>bubble\x And p\x<(bubble\x+bubble\radius) And p\y>bubble\y And p\y<(bubble\y+bubble\radius)
hitornot=True
Goto hit
End If 


If Not bubble\x<=10 Or bubble\x>=700 Or bubble\xm=10 Or bubble\y<=0 Or bubble\y>=550
bubble\stucktimer#=bubble\stucktimer#-.1
End If

If bubble\stucktimer#=10 
bubble\x=Rnd(20,780)
bubble\y=Rnd(30,570)
End If 

For laser.laser=Each laser
If laser\x>bubble\x And laser\x<bubble\x+bubble\radius Then score=score+100 : bubble\radius=bubble\radius-5
Next
Next

For laser.laser=Each laser
If chaingun=False
laser\timer#=laser\timer#-.1
End If
If chaingun=True
laser\timer#=laser\timer#-.03
End If 
If Not laser\timer#=0
Color 0,255,0
Line laser\x,laser\y,laser\xend,laser\yend
End If
If laser\timer<=0 Then Delete laser


Next

p\shottime#=p\shottime#-.1
If p\shottime#<0 Then p\shottime#=0


If KeyDown(205) Then p\x=p\x+speed
If KeyDown(203) Then p\x=p\x-speed
If KeyDown(57) And p\shottime#<=0
Color 0,255,0
laser.laser=New laser
laser\x=p\x
laser\y=p\y+1
laser\yend=p\y-600
laser\xend=p\x
laser\timer#=timerbonus

If freload=False
p\shottime#=10
End If

If freload=True
p\shottime#=5
End If 
End If 

Color 255,0,0
createabubble=Rnd(1,115)
If createabubble=3
bubble.bubble=New bubble
bubble\x=Rnd(20,780)
bubble\y=Rnd(30,570)
bubble\xm=Rnd(-1,1)
bubble\ym=Rnd(-1,1)
bubble\radius=30
End If 

Color 255,255,0
Text 5,470,info$
Text 5,500, "time until next shot "+p\shottime#
Text 5,530, "score "+score


If score>10000 Then info$="ChainGun Unlocked! (Laser lasts longer)" : chaingun=True

If score=20000 Then info$="FastReaload Unlocked! (Less timer to reload)" : freload=True

If score>40000 Then info$="FunkyColors Unlocked! (Funky colors!)" : funky=True

Flip
Wend