Wednesday Workshop

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

Light the Bricks

by Jayenkai for Workshop #033

Light the bricks. Lightning can switch them off again, mind..

Mouse

Global SCRX=160
Global SCRY=120
scrx=scrx-1:scry=scry-1
bricks=100

Graphics 800,600,32,2
Graphics scrx+1,scry+1,32,3
SetBuffer BackBuffer()

HidePointer

Dim mtrx(scrx+1,scry+1,3)

Type in
Field x
Field y
End Type


Type dge
Field x#
Field y#
Field r,g,b
Field ang,cnt
End Type


Type ick
Field x
Field y
Field on
End Type

score=0

Repeat
Cls
CPUTick=CPUTick+1

LockBuffer BackBuffer()
For x=0 To scrx
For y=0 To scry
For n=1 To 3
If mtrx(x,y,n)>0 Then mtrx(x,y,n)=mtrx(x,y,n)*.95:If mtrx(x,y,n)<10 Then mtrx(x,y,n)=0
If x>0 Then mtrx(x-1,y,n)=mtrx(x,y,n)
Next
argb=(255 Shl 24)+(mtrx(x,y,1) Shl 16)+(mtrx(x,y,2) Shl 8)+mtrx(x,y,3)
WritePixelFast x,y,argb,BackBuffer()
Next
Next


If Rand(1,5)=1
ra.in=New in
ra\x=Rand(0,scrx)
ra\y=0
EndIf

Color Rand(150,200),Rand(150,200),Rand(220,255)
If Rand(1,50)=1
flash
	splo.dge=New dge
	splo\x=Rand(scrx/4,scrx)
	splo\y=Rand(0,scry/2)
	splo\ang=Rand(160,200)
	splo\cnt=Rand(2,4)
	splo\r=ColorRed():splo\b=ColorBlue():splo\g=ColorGreen()
EndIf


For splo.dge=Each dge
kill=0
	If splo\x<0 Or splo\x>scrx Or splo\y<0 Or splo\y>scry Then kill=1
	If kill=0
	splo\x=splo\x+Sin(splo\ang)
	splo\y=splo\y-Cos(splo\ang)
splo\x=splo\x-1
For br.ick=Each ick
If Abs(br\x-splo\x)<4 And Abs(br\y-splo\y)<4 Then br\on=0
Next

	For n=1 To 4
	Plot(splo\x,splo\y,splo\r,splo\g,splo\b)
	If splo\y<scry Then splo\y=splo\y-Cos(splo\ang)

	Next
	Plot(splo\x,splo\y,splo\r,splo\g,splo\b)
	
	If Rand(1,25)=1 And splo\cnt>0
	spl.dge=New dge
	spl\x=splo\x
	spl\y=splo\y
	spl\ang=splo\ang+Rand(-25,25)
	spl\r=splo\r*2:spl\g=splo\g*2:spl\b=splo\b*2
	spl\cnt=splo\cnt-1
	If spl\r>255 Then spl\r=255
	If spl\g>255 Then spl\g=255
	If spl\b>255 Then spl\b=255
	EndIf
	
	t=0
	splo\r=splo\r*0.95:t=t+splo\r
	splo\g=splo\g*0.95:t=t+splo\g
	splo\b=splo\b*0.95:t=t+splo\b
EndIf
	If t<15 Then kill=1
	If kill=1 Then Delete splo.dge
Next


For ra.in=Each in
Plot ra\x,ra\y,0,50,Rand(80,120)
ra\y=ra\y+2
ra\x=ra\x-1
If ra\y>scry Then Delete ra.in
Next

cbrk=0
For br.ick=Each ick
cbrk=cbrk+1
Color 0,70,0
If br\on=1 Then Color 100,255,100
For x=0 To 7
For y=0 To 3
Plot br\x+x,br\y+y
If MouseX()=br\x+x And MouseY()=br\y+y Then br\on=1
Next
Next
br\x=br\x-1
If br\x<-8 Then score=score+br\on:Delete br.ick
Next

If cbrk=0 And bricks=0 Then endofgame=1


For x=0 To scrx
For y=scry-4 To scry
Plot x,y,0,80-((((CPUTick+x) Mod 8)=1)*8),0
Next
Next
If ((CPUTick+x) Mod 8)=0
For y=1 To 4
If Rand(0,10)=1 And bricks>0
br.ick=New ick
br\x=x:br\y=scry-((y+1)*4)
br\on=0
bricks=bricks-1
EndIf
Next
EndIf



Color 255,255,255
Plot MouseX(),MouseY()


UnlockBuffer BackBuffer()
If MouseDown(1)=0 Then mudown=0
Color 0,100,0
Text scrx/2,6,score,1,1
Flip
If KeyDown(1) Then endofgame=99
Until endofgame<>0


Flip
Delay 2500

End


Function Plot(x,y,r=-1,g=-1,b=-1)
If x=>0 And x<=scrx And y=>0 And scry<=scry
If r=-1
mtrx(x,y,1)=ColorRed()+(Float(mtrx(x,y,1))*0.35):If mtrx(x,y,1)>255 Then mtrx(x,y,1)=255
mtrx(x,y,2)=ColorGreen()+(Float(mtrx(x,y,2)*0.35)):If mtrx(x,y,2)>255 Then mtrx(x,y,2)=255
mtrx(x,y,3)=ColorBlue()+(Float(mtrx(x,y,3)*0.35)):If mtrx(x,y,3)>255 Then mtrx(x,y,3)=255
EndIf
If r>-1
mtrx(x,y,1)=R+(Float(mtrx(x,y,1))*0.35):If mtrx(x,y,1)>255 Then mtrx(x,y,1)=255
mtrx(x,y,2)=G+(Float(mtrx(x,y,2)*0.35)):If mtrx(x,y,2)>255 Then mtrx(x,y,2)=255
mtrx(x,y,3)=B+(Float(mtrx(x,y,3)*0.35)):If mtrx(x,y,3)>255 Then mtrx(x,y,3)=255
EndIf
EndIf
End Function

Function flash()
For x=0 To scrx
For y=0 To scry
For n=1 To 3
mtrx(x,y,n)=mtrx(x,y,n)+40
Next
Next
Next
End Function