Fireworks

sub'r{$==rand pop}$|=print"\e[2J";r$l=`tput lines`-2,s/^$/"\e[$=;".r($
+c
=`tput cols`-2).f.' Oo*... '=~s!\S\K!\e[B\b !gr/e/s/\d++\B/($a=$&-1)+(
+$
==!$a+r$a%$c?3:2)/e/s/(?<=(.)...B.)./$1/g/s/f\K./chr 32>>$=/e/s/\d+/($
+&
||$l)-1/e,select$,,$,,$,,.009*print$&?$_:"\e[f"."\e[K\n"x6while*_=r.r+
+9
[download]

EDIT: golfed it down a bit, also fixed some literal edge cases (the sprites where behaving strangely when they hit the edges of the screen).

sub'v{$==!$-+rand pop}[s/\d+/$|--?($-=$&-1)+v$-%$c?3:2:$&-print||`stty
+ size`-
print$&?"\e[?25l\e[2J":y!Oo*.! !r/ge?s/(?<=f|(.))...B.\K./$1||chr 32>>
+$=/ge..
4E4:s/|/o*... //s//\e[B\b /g/s//\e[1;${\v$c=`tput cols`-2}fO/]while*_=
+_.v-42#
[download]

The number at the beginning of the last line determines the speed (smaller = faster). The number at the end of the last line is the maximum number of sprites that can be on screen simultaneously.

Comment on Fireworks Select or Download Code

Replies are listed 'Best First'.
Re: Fireworks by ambrus (Abbot) on Aug 24, 2015 at 19:29 UTC
Nice, works well! Though it doesn't look like fireworks for me, but more like water droplets crawling upwards on the windscreen or something. Example output: Read more... (3 kB)	[reply] [d/l]
Re^2: Fireworks by Grimy (Pilgrim) on Sep 07, 2015 at 11:56 UTC
Yep, that’s the intended output. The “water droplets” interpretation is interesting; to me, it looks like either fireworks or spermatozoa.	[reply]
Re: Fireworks by choroba (Cardinal) on Sep 07, 2015 at 15:15 UTC
`??` without `m` was removed in 5.22 :-( لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l] [select]
Re^2: Fireworks by Grimy (Pilgrim) on Sep 08, 2015 at 07:30 UTC
I replaced `??` with `$&`. This leads to a fair bit of flickering at the beginning, but works fine on v5.22.	[reply] [d/l] [select]
Re: Fireworks by davido (Cardinal) on Aug 25, 2015 at 05:11 UTC
Cool. I only wish I didn't have to switch fonts away from Inconsolada to make it look right. But that's not the script's fault. Well done. I wish we saw more of these little gizmos nowadays. Dave	[reply]


Don't ask to ask, just ask
	PerlMonks