#!/usr/bin/perl
# this program really kicks ass, please take care of me,
# because i cant pay my bills. ya feel me? much love.
# money sucks anyway. paypal: slf@dreamscape.org
# i accept thankyous, chocolate, medals, and crusades.
# and hugs. and whatever else you think somebody needs.
# i allways do the right anyway.
# promises are promises. trust your instincts.
# see http://dreamscape.org/swim/
# if somethings really worth something...
# laughter is the best medicine ;)
# --+ steven fountain +-- w/love
# oh this also explains why atmosphere tracks are
# pinball machines. SERIOUSLY. i'll make yo arrow key
# jukebox. no sweat. dj abilities in a script!
# nerdcore kicks ass. i'm proud of all ya'll!
# SOMEBODY POISONED THE WATERHOLE hahaha
# cant rob mother nature;)
# plant some seeds and stop letting people lie to you
# can we have a department of peace now please?
#
# all people would make the same masonic calibur judgements
# if they wielded the same information.
# its a good start.
# you've all profited off the sublime secret a little
# too long.... ya know? both sides. there is
# an edge to this coin too..... spin it. ;)
# IM TURNING US IN FOR CARING TOO MUCH, AND FOR BEING CURIOUS;)
# simple truth, literally, in more ways than one, and in every
# possible way. and in the ways we're all least expecting. :)
# History and the Neverending story.
runes();
$usage = "
($0) slf\@dreamscape.org - signal && gaps && runes
--switch--description---------------------------------
-A 0/1 show signal widths (enabled by default)
-B 0/1 show branching (not enabled by default)
-C 0/1 show every single breadcrumb (curious?)
-D 0/1 show some behind the scenes action
-G 0/1 show signals or gaps (signals default)
-H 0/1 show charter at the beginning (enabled)
-N 0/1 show symbols w and c for width and count
-S 0/1 show spoon (in the branching) (probably)
-P 0/1 show perspective (see examples below)
-Y 0/1 show shortcuts (USEFUL!)
-Z 0/1 save copy to $0.output (disabled)
-m STR show runic stacking for individual letters
-s STR show runic stacking for subliminal combos
-X 0/1 show explanations w/subliminal combos (1=on)
------------------------------------------------------
SIGNALS
eat files: $0 file1,file2,file3
smoke files: cat file1 | $0 -P
GAPS
imagine files: $0 -G file1,file2,file3
plumbing files: cat file1 | $0 -P -G
SUBLIMINAL COMBOS
$0 -s 'why did the chicken cross the road'
$0 -s 'why did the chicken cross the road' -X
$0 -s 'intentions are nothing short of pure'
$0 -s 'intentions are nothing short of pure' -X
$0 -s 'pieces of eight'
$0 -s 'pieces of eight' -X
$0 -s 'the united states' -X
------------------------------------------------------\n
";
use Term::ANSIColor;
use Getopt::Std;
getopts('ABCDEFGHIJKLMNOPQRSTUVWXYZ:a:b:c:d:e:f:g:h:i:j:k:l:m:n:o:p:q:
+r:s:t:u:v:w:x:y:z', \%switches);
$A = 1; # show signal widths (this is the default setting)
$L = 1; # show labels (this is the default setting)
$H = 1; # show charter (this is the default setting)
# add anymore ya want to, they're pretty much just letters.
foreach(sort keys %switches) {
${$_}= "$switches{$_}";
print " * \$$_ is switched \"$switches{$_}\"" if $D;
if ($switches{$_} eq '1') { print " (ON)" if $D; }
if ($switches{$_} eq '0') { print " (OFF)" if $D; }
print "\n" if $D;
}
$shifted = shift;
print "Shifted but not switched input eaten: $shifted\n" if $D && !($P
+);
unless ($G)
{
if (!($P) && $shifted =~ /\w/)
{
@files = split /,/, $shifted;
foreach (@files)
{
warn "You asked me to eat \"$_\" and I\'m going to taste it and s
+ee if its real.\n" if $D;
die "You fed me \"$_\" and I couldnt find it or couldnt touch it
+because...\n $!\n (...because of this error, i'm going to stop)\n
+" unless -e $_;
die "You fed me \"$_\" and I couldnt find it or couldnt touch it
+because...\n It\'s a directory, not a file.\n (try this):\n\nls $
+_ | perl -pe \'s/^/$0 $_\\//;' > shx && sh -x shx\n\n" if -d $_;
warn "Yep, tastes like a file.\n" if $D;
eat($_);
}
}
elsif ($P)
{
smoke();
}
elsif ($s)
{
subliminal_meaning($s);
}
elsif ($m)
{
individual_meaning($m);
}
else
{
die "$usage";
}
}
else
{
if (!($P) && $shifted =~ /\w/)
{
@files = split /,/, $shifted;
foreach (@files)
{
warn "You asked me to eat \"$_\" and I\'m going to taste it and s
+ee if its real.\n" if $D;
die "You fed me \"$_\" and I couldnt find it or couldnt touch it
+because...\n $!\n (...because of this error, i'm going to stop)\n
+" unless -e $_;
die "You fed me \"$_\" and I couldnt find it or couldnt touch it
+because...\n It\'s a directory, not a file.\n (try this):\n\nls $
+_ | perl -pe \'s/^/$0 $_\\//;' > shx && sh -x shx\n\n" if -d $_;
warn "Yep, tastes like a file.\n" if $D;
imagine($_);
}
}
elsif ($P)
{
plumbing();
}
elsif ($s)
{
subliminal_meaning($s);
}
elsif ($m)
{
individual_meaning($m);
}
else
{
die "$usage";
}
}
sub eat
{
$file = shift;
open FILE, "< $file";
while(<FILE>)
{
chomp;
$spoon = $_;
@bigspoon = split /\s+/, $spoon;
foreach $spoon (@bigspoon)
{
@littlespoon = split /\s+/, $spoon;
foreach $spoon (@littlespoon)
{
$width = length $spoon;
$seen{$width}{count}++;
$seen{$width}{spoon}="$spoon";
$S ?
( push @perspective, "$width $seen{$width}{count} $seen{$
+width}{spoon}" )
:
( push @perspective, "$width $seen{$width}{count}" )
}
}
}
close FILE;
digest();
}
sub smoke
{
while(<>)
{
chomp;
$spoon = $_;
@bigspoon = split /\s+/, $spoon;
foreach $spoon (@bigspoon)
{
@littlespoon = split /\s+/, $spoon;
foreach $spoon (@littlespoon)
{
$width = length $spoon;
$seen{$width}{count}++;
$seen{$width}{spoon}="$spoon";
push @perspective, "$width $seen{$width}{count} $seen{$widt
+h}{spoon}";
push @shortcuts, "$width:$seen{$width}{count}";
}
}
}
digest();
}
sub digest
{
if ($A)
{
$G ?
( $extra = " ***GAPS***" )
:
( $extra = " >>>SIGNALS<<<" );
$S ?
( $H ? print "WIDTH\tCOUNT\tSPOON$extra\n" : 0 )
:
( $H ? print "WIDTH\tCOUNT$extra\n" : 0 );
foreach (sort { $b <=> $a } keys %seen)
{
$S ? "$_\t$seen{$_}{count}\t$seen{$_}{spoon}\n" : print "$_\t$seen
+{$_}{count}\n";
}
}
if ($B)
{
foreach (@perspective)
{
$pathpoint++;
$L ? print "PATHPOINT$extra $pathpoint - $_\n" : print "$pathpoint
+ - $_\n";
}
}
}
# these are more for the abscence of signals (which is actually signal
+ too.)
sub imagine
{
$file = shift;
open FILE, "< $file";
while(<FILE>)
{
chomp;
$spoon = $_;
@bigspoon = split /\S+/, $spoon;
foreach $spoon (@bigspoon)
{
@littlespoon = split /\S+/, $spoon;
foreach $spoon (@littlespoon)
{
$width = length $spoon;
$seen{$width}{count}++;
$seen{$width}{spoon}="$spoon";
$S ?
( push @perspective, "$width $seen{$width}{count} $seen{$
+width}{spoon}" )
:
( push @perspective, "$width $seen{$width}{count}" )
}
}
}
close FILE;
digest();
}
sub plumbing
{
while(<>)
{
chomp;
$spoon = $_;
@bigspoon = split /\B+/, $spoon;
foreach $spoon (@bigspoon)
{
@littlespoon = split /\B+/, $spoon;
foreach $spoon (@littlespoon)
{
$width = length $spoon;
$seen{$width}{count}++;
$seen{$width}{spoon}="$spoon";
push @perspective, "$width $seen{$width}{count} $seen{$widt
+h}{spoon}";
}
}
}
digest();
}
sub runes
{
print "at the runes.\n";
$rA = "
OS=A
In one context, OS refers to the Divine, Primarily to (the) God(s)
+of creation and specifically to the Father Deity.
It is also a rune of communication, poetry and music.
OS can represent the link between the Gods and humanity.
Other symbolism for this rune includes: Pine trees, Good fortune, I
+mmortality, Inspiration and Personal power.
";
$rB = "
BOERC = B
Relates to birth, healing, forgiveness and atonement for misdeeds.
+ It refers to the birch tree and symbolizes shelter, concealment and
+(passive) protection [concealment].
";
$rC = "
KEN (can be used as C, K or Q)
Relates to light and the controlled power of fire It is the rune
+of knowledge and technological advance. The knowledge of Ken is that
+of the student, the scientist etc. and does not necessarily indicate
+wisdom.
";
$rK = $rB;
$rQ = $rB;
$rD = "
DOERG=D
In general, it represents the wheels of a chariot and thus can r
+efer to travel. In specific application, it represents the \"SUN CHAR
+IOT\" and indicates the light of day and the diurnal cycle.
It is symbolic of personal growth, the gaining of wisdom and lea
+ving the past behind.
";
$rE = "
EHWIS =E
Is symbolic of the horse and also of two specific gods- twin br
+others who roamed the world to help people in trouble. As such it can
+ indicate divine aid in a time of need.
It is also representative of partnership- (platonic, not romant
+ic).
";
$rF = "
FEOH =F
Is symbolic of cattle, one of the main measures of wealth amon
+g early peoples. As such, it is indicative of wealth, money and mater
+ial possessions.
It can be a sign of fertility, and it may also be indicative o
+f psychic power or spirituality.
FEOH is the direct root of the word FEE, and therefore may ind
+icate a payment due or other debt.
";
$rG = "
GYFU =G
The word gift is a direct root of gyfu; Therefore it indicate
+s sharing, hospitality or sacrifice. It can also have a meaning of pa
+rtnership; Unlike EHWIS, this is directed more at matrimonial matters
+ or sexuality, rather than just comradeship.
";
$rH = "
HAEGL =H
Is the rune of winter. It symbolizes snow ice, the cold nort
+h wind, and frost. The modern word HAIL is directly derived from this
+ rune. It is also a rune symbolic of \"The Trickster\" (Loki, Coyote
+etc.)
Haegl is indicative of bondage, frustration and unpleasantne
+ss. In its best connotation, it means overcoming all of these negativ
+es and achieving greatness.
";
$rI = "
ISA =I
Is a rune of strength and masculinity. It is symbolic of th
+e spear, the staff and the Shepard's crook.
In one aspect it is confrontational, aggressive and indicat
+es strife, stress and struggle. However in its other aspect it is pro
+tective, it signifies leadership and overcoming difficulties.
It is also symbolic of the Norse god Odin and the Celtic go
+d Lugh (Llew) who are known for their magical spears.
";
$rJ = "
GER (used for J and Y)
Is a rune of growth; symbolic of agriculture, gardening an
+d harvest. It is the root of the word YEAR and indicates the annular
+cycle and living and working with nature.
";
$rY = $rJ;
$rL = "
LAGU =L
Is a rune of water, especially the sea and lakes, in fact
+, the word LAKE comes directly from this rune.
It can mean transition, hope and honor. It can also symbo
+lize community, friendship and romance.
";
$rM = "
MANU = M
Indicates humanity- either as the self (the individual)
+or mankind in general.
In a negative context it indicates selfishness and greed
+, but in its positive aspect, it is a symbol of generosity and servic
+e to the community.
";
$rN = "
NYD = N
Is a rune of impossibility- Not necessarily in a negati
+ve sense; it can mean overcoming the odds and achieving the impossibl
+e.
It is also a symbol of personal power, somewhat akin to
+ the Japanese concept of the Hara or the Chinese concept of Chi.
It is the direct root of NOT and NEED and therefore may
+ represent either or both concepts.
";
$rO = "
ODEL =O Is the rune for family matters: Marriage, gene
+tics, inheritances, ancestors etc. and it can possibly
indicate Royalty or dynastic lineage.
";
$rP = "
POERDH =P
Is the gamblers rune: the shape of the rune represent
+s the dice cup. It can indicate the coming of major change- opportuni
+ty on one hand, disaster or failure on the other.
In another context, it is a symbol of the feminine- \
+"womanly traits\" as well as sexuality.
";
$rR = "
RAD
Is a travelers rune. It can indicate change, a physi
+cal journey or a mental one. A mental journey can be a dream, astral
+travel, channeling or just learning something new and exciting.
It can also symbolize death- after all, death is als
+o a journey.
";
$rS = "
SIGHEL =S
Is the rune of the Sun; yet it also represents ligh
+tning. It symbolizes natural power.
It can be indicative of spirituality, redemption an
+d protection from evil and chaos.
";
$rT = "
TYR =T
Is the rune of the Warrior. It represents the spea
+r (like ISA) the sword and the axe. It is the symbol of the Norse god
+ Tiwaz and brings his protection and attributes to those who bear his
+ symbol. It is for courage, strength, endurance and agility.
";
$rU = "
UR =U
Is the symbol of wild cattle (musk ox, buffalo et
+c.). Like FEOH, (the symbol of domesticated cattle) UR can represent
+wealth, but this is the kind of wealth that is rarely won--that of th
+e prospector, the wildcat oil driller and the treasure hunter--- poss
+ible great wealth, but only at great risk.
UR can indicate great opportunity, hope and excit
+ement.
";
$rV = "
VIK =V
VIK IS NOT ONE OF THE STANDARD HISTORICAL RUNES-
+ IT IS (almost) UNIQUE TO MERLIN'S SYSTEM.
It is the rune of winning- the root of the moder
+n word victory and Viking. Somewhat in the vein of TYR and UR, it ind
+icates winning through courage, audacity and great risk.
It also indicates artistic talent (especially in
+ the visual arts) and creativity.
";
$rW = "
WYNN =W
Is the rune of wisdom and divination. It can be
+ used as the symbol of the Runemaster, the Loremaster, the Scholar, t
+he Wizard or the Oracle.
It can indicate Divine power, Fate and Destiny.
";
$rX = "
KEST =X
KEST IS ANOTHER SYMBOL THAT IS GENERALLY UNKNO
+WN IN HISTORICAL RUNE STUDY.
This symbol probably predates most of the rune
+s, and has been seen in a wider variety of ancient cultures than the
+runes.
Not to be confused with the swastika which has
+ the \"arms\" pointing in the opposite direction.
KEST is the rune of good luck. Not \"winning t
+he lottery\" good luck, but the luck of being just beyond the reach o
+f disaster. It can be seen as the \"luck of the fool\". Being born at
+tractive, talented or into a very loving family is an example of KEST
+ luck.
It also indicates a happy, carefree state with
+ little stress, strife and worry.
Can also be used as a symbol of humanity's pla
+ce in nature, and a reminder that eventually, natural law will prevai
+l over all man made laws.
";
$rZ = "
EOLH =Z
The rune of protection, both from physical, m
+undane danger and protection from evil and magickal attack.
It symbolizes the antlers of a deer or an elk
+.
";
$rTh = "
THORN =Th
Is the symbol of the demon Thorn- who rules
+the icy wastelands. Like HAEGL, it evokes the image of snow, ice, hai
+l, and wind.
It is a symbol of testing: Man against Natur
+e, Courage against Fear. Generally an indication of danger, but it ca
+n also be used as a talisman or sigil of defense (Must face outwards-
+toward your enemy in this use).
";
$ring = "
ING =ing
Somewhat like MANU, ING is a symbol of huma
+nity, but it generally refers to it in terms of the community, the tr
+ibe or the clan.
In a modern context, it can also indicate a
+ corporation, organization, club etc. or even close friends or \"comr
+ades in arms\".
";
$rEOH = "
EOH
symbolizes the yew tree, which is one of t
+he most powerful \"magickal\" woods. The meanings of the symbol can b
+e quite confusing as it can indicate immortality or long life; it can
+ also mean death or illness, poison or pollution. The context in whic
+h the rune is found should help clarify which meaning it indicates.
";
$combos{OS}=$rA;
$combos{BOERC}=$rB;
$combos{KEN}=$rC;
$combos{DOERG}=$rD;
$combos{EHWIS}=$rE;
$combos{FEOH}=$rF;
$combos{GYFU}=$rG;
$combos{HAEGL}=$rH;
$combos{ISA}=$rI;
$combos{GER}=$rJ;
$combos{LAGU}=$rL;
$combos{MANU}=$rM;
$combos{NYD}=$rN;
$combos{ODEL}=$rO;
$combos{POERDH}=$rP;
$combos{RAD}=$rR;
$combos{SIGHEL}=$rS;
$combos{TYR}=$rT;
$combos{UR}=$rU;
$combos{VIK}=$rV;
$combos{WYNN}=$rW;
$combos{KEST}=$rX;
$combos{EOLH}=$rZ;
$combos{THORN}=$rTh;
$combos{ING}=$ring;
$combos{EOH}=$rEOH;
}
sub individual_meaning
{
my $input = shift or die "individual_meaning(): was not fed anythi
+ng\n";
$spoon = "";
foreach (split //, $input)
{
s/(?<!\{)([A-DF-GI-NP-SU-Z])(?!\})/\{\$$1\}/gi;
s/(?<!\{)(T(?!h))(?!\})/\{\$$1\}/gi;
s/(?<!\{)(E(?!OH))(?!\})/\{\$$1\}/gi;
s/(?<!\{)((?<!E)O(?!H))(?!\})/\{\$$1\}/gi;
s/(?<!\{)((?<!EO)H)(?!\})/\{\$$1\}/gi;
s/(?<!\{)(EOH)(?!\})/\{\$$1\}/gi;
s/(?<!\{)(Th)(?!\})/\{\$$1\}/gi;
s/(?<!\{)(O)(?!\})/\{\$$1\}/gi;
s/(?<!\{)(H)(?!\})/\{\$$1\}/gi;
s/(?<!\{)(ing)(?!\})/\{\$$1\}/gi;
s/\{//gi;
s/\}//gi;
s/\$(.)/\$\{rXXXXX\}/g;
$LETTER = uc($1);
s/XXXXX/$LETTER/g;
$spoon .= eval "$_";
}
print "$spoon\n";
}
sub subliminal_meaning
{
my $input = shift or die "subliminal_input(): Didnt get fed anything
+.\n";
@letters = split (//, $input);
foreach my $emphasis (sort keys %combos)
{
###print "Testing against $emphasis ..";
$$regex = "";
$$regex .= "(?:.*?|)";
foreach (split //, $emphasis)
{
$$regex .= "$_(?:.*?|)";
}
# print "$emphasis -> $$regex\n";
if ($input =~ /$$regex/i)
{
print "$emphasis -> Yes!\n";
if ($X)
{
print "$combos{$emphasis}\n";
}
###print "YES!\n";
}
else
{
# print "$emphasis No!\n";
### print "no.\n";
}
}
## Sounds funny now, but it was the shit at the time ##
}
__DATA__
OS=A
BOERC = B
KEN (can be used as C, K or Q)
DOERG=D
EHWIS =E
FEOH =F
GYFU =G
HAEGL =H
ISA =I
GER (used for J and Y)
LAGU =L
MANU = M
NYD = N
ODEL =O Is the rune for family matters: Marriage, gene
+tics, inh$
POERDH =P
RAD
SIGHEL =S
TYR =T
UR =U
VIK =V
WYNN =W
KEST =X
EOLH =Z
THORN =Th
ING =ing
EOH