Re^2: Of Dreams, Spirits, and Scripts..

Mostly because I couldn't figure out a short way of doing it, but I aim to please, so...

use strict;use warnings;

$|=1,$.=23,$"='[*][*]=[=|=]=(=|=|=)<|:|>|<|',$"=~s:\||\[|\]|\(|\)::g;{
$:=' 'x$.,$^=' 'x(23-2*$.),($.<9)?($~=~s:\w=\s: =O:):($~='O= '),($.>0)
?($.--):($.=23),($"=~s:><:>-:)?():($"=~s:>-:><:),$_="\r".$^.$".$:.$~,
select $,,$,,$,,0.1;print&&redo}

#**=======<:><       =O
[download]

I must admit, I like the effect better.

Comment on Re^2: Of Dreams, Spirits, and Scripts.. Download Code

Replies are listed 'Best First'.
Re^3: Of Dreams, Spirits, and Scripts.. by CountZero (Bishop) on Mar 11, 2005 at 20:12 UTC
Wonderful! Thanks ++ CountZero "If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law	[reply]
Re^3: Of Dreams, Spirits, and Scripts.. by starbolin (Hermit) on Mar 15, 2005 at 18:44 UTC
Brother ktross; Greetings in the way of the monks of the kloster. I pondered long on the dwellings of $^ before inspiration visited my humble cell. Good job! I humbly ask your pardon as I edit, fold, spindle and mutilate your excellent code. $.=23,$\|=1,s,,s//`[][]=[=\|=]=(=\|=\|=)<\|:\|>\|<\|,,s:s//\|/ \|\\|\|\[\|\]\|$\|$::g;{$:=' 'x$.,$^=' 'x(23-2*$.),$.<9?$~=~ s:\w=\s: =O::($~='O= '),$.=$.?$.-1:23,s:><:>~:?1:s:>~:><:,print"\r", $^.$_.$:.$~;select$,,$,,$,,2e-1;redo} [download] Your humble servant; starbolin s//----->\t/;$~="JAPH";s//\r<$~~/;{s\|~$~-\|-~$~\|\|\|s \|-$~~\|$~~-\|\|\|s,<$~~,<~$~,,s,~$~>,$~~>,,$\|=1,select$,,$,,$,,1e-1;print;redo}	[reply] [d/l]