Wednesday Workshop

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

Swansea Fireworks

by HoboBen for Workshop #021

"Trust me, if you value your own time, don't bother running it."

No Interaction

AppTitle "A realistic simulation of Swansea Fireworks"
Graphics 320,240,0,2

font=LoadFont("arial",12,0,0,0)
SetFont font

Type part
Field xpos#
Field ypos#
Field xdir#
Field ydir#
End Type

For a=0 To 100
	Createpart(160,120,Rnd(-2,2),Rnd(4,-4))
Next






Repeat

SetBuffer BackBuffer()
Cls


Color(200,200,0)



totalparts=0
For p.part = Each part

	Oval p\xpos#-3,p\ypos#-3,6,6,1
	p\xpos#=p\xpos#+p\xdir#
	p\ypos#=p\ypos#+p\ydir#
	If p\ydir#=0 Then p\ydir#=-1
	p\ydir#=p\ydir#+0.02
;	p\ypos#=p\ypos#+0.1
	totalparts=totalparts+1
	If p\ypos#>240 Then Delete p

Next

Text(0,0,totalparts)
Flip


Until totalparts=0


Delay 20
FlushKeys()
Text (160,30,"That's all.",1,1)
Text (160,100,"Swansea Fireworks are half hearted and lame.",1,1)
Text (160,120,"Do not bother, move to cardiff.",1,1)
Text (160,140,"Either way, give me tea now!",1,1)
FreeFont font
Flip
WaitKey()



End






Function Createpart(x#,y#,xd#,yd#)
p.part=New part

p\xpos#=x#
p\ypos#=y#
p\xdir#=xd#
p\ydir#=yd#

End Function