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.

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]
      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]
      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]

Back to Obfuscated Code