: tr ( -- d ) trigger @ ; : say ( s -- ) me @ swap notify ; : announce ( s -- ) loc @ #-1 rot notify_except ; : explode_pop ( x1 .. xN N -- ) begin dup while swap pop 1 - loop pop ; : vero_say ( s -- ) .quote tr ".teller" getpropstr dup not if pop "Madame Vero" then " says, " strcat swap strcat tr location swap pronoun_sub announce ; : vero_pose ( s -- ) tr ".teller" getpropstr dup not if pop "Madame Vero" then swap "';:>,." over 1 strcut pop instr not if " " swap strcat then strcat tr location swap pronoun_sub announce ; : inscribe_card strcat strcat prog rot rot 0 addprop ; : l+ ( s i -- ) prog swap intostr ".view" swap strcat rot 0 addprop ; : install_template ( -- ) " ____________" 1 l+ " |22 |" 2 l+ " | 21 |" 3 l+ " |__________22|" 4 l+ " ______ " 5 l+ "R ____________ ____________ |11 | ____________" 6 l+ "E |55 | |00 | | | |33 | Y" 7 l+ "A | 54 | | -1 | | 10 | | 32 | O" 8 l+ "D |__________55| |__________00| | | |__________33| U" 9 l+ "E |____11|" 10 l+ "R ____________" 11 l+ " |44 |" 12 l+ " | 43 |" 13 l+ " |__________44|" 14 l+ " ____________ ____________ ____________ ____________" 15 l+ "|66 | |77 | |88 | |99 |" 16 l+ "| 65 | | 76 | | 87 | | 98 |" 17 l+ "|__________66| |__________77| |__________88| |__________99|" 18 l+ ; : install_major_arcana ( -- ) prog ".major.total" getpropstr if "## Re-I" else "## I" then "nstalling the major arcana." strcat say prog ".card1" "The Chariot" 0 addprop prog ".card2" "The Fool" 0 addprop prog ".card3" "The Magician" 0 addprop prog ".card4" "The High Priestess" 0 addprop prog ".card5" "The Empress" 0 addprop prog ".card6" "The Hierophant" 0 addprop prog ".card7" "The Lovers" 0 addprop prog ".card8" "Strength" 0 addprop prog ".card9" "The Hermit" 0 addprop prog ".card10" "The Wheel of Fortune" 0 addprop prog ".card11" "Justice" 0 addprop prog ".card12" "The Hanged Man" 0 addprop prog ".card13" "Death" 0 addprop prog ".card14" "The Devil" 0 addprop prog ".card15" "The Tower" 0 addprop prog ".card16" "The Star" 0 addprop prog ".card17" "The Moon" 0 addprop prog ".card18" "The Sun" 0 addprop prog ".card19" "Judgement" 0 addprop prog ".card20" "The World" 0 addprop prog ".card21" "The Emperor" 0 addprop prog ".card22" "Temperance" 0 addprop ".The Chariot1" "success; " "victory through hard work; " "the well-balanced life.==8**CT" inscribe_card ".The Chariot0" "unbalanced life; " "uncontrolled passion leading to downfall; " "an unethical victory.==-6**CT" inscribe_card ".The Fool1" "the beginning of all creativity; " "the desire to accomplish impossibly beautiful goals; " "a fresh choice.==4**FL" inscribe_card ".The Fool0" "a choice likely to end in folly and " "thoughtless action; fear holding one back from " "accepting a new challenge.==-4**FL" inscribe_card ".The Magician1" "opporunities for creative power; " "organizational skill." "==6**MG" inscribe_card ".The Magician0" "the use of power for destructive ends; " "ineptitute; a failing project; " "poorly constructed plans.==-8**MG" inscribe_card ".The High Priestess1" "an unrevealed future; " "the mysteries buried in the subconcious; " "keeping necessary secrets.==2**HP" inscribe_card ".The High Priestess0" "a selfish and ruthless woman; " "a life of indulgence and hedonism; " "conceit.==-5**HP" inscribe_card ".The Empress1" "marriage and fertility; " "balance, stability and wealth; " "contentment.==6**ES" inscribe_card ".The Empress0" "infidelity and poverty; " "psychological problems causing instability; " "war and destruction.==-6**ES" inscribe_card ".The Emperor1" "authority and paternity; " "leadership in government; " "self-mastery and reason.==0**ER" inscribe_card ".The Emperor0" "loss of self-control; " "a weak character; " "emotional immaturity.==-2**ER" inscribe_card ".The Hierophant1" "conformity and social approval; " "bondage to the ways of " "society.==0**HT" inscribe_card ".The Hierophant0" "unconventionality; " "unorthodoxy; the card of the non-conformist " "and inventive youth.==0**HT" inscribe_card ".The Lovers1" "a choice between vice and virtue; " "temptation; harmony of the inner and outer life; " "uncontaminated love.==4**LV" inscribe_card ".The Lovers0" "infidelity; interference by in-laws; " "quarrels over children; the need to stabilize " "emotions; a wrong choice.==-4**LV" inscribe_card ".Strength1" "triumph of one's higher nature of materialism; " "learning; " "the release of fear.==5**ST" inscribe_card ".Strength0" "dominating materialism in life; " "overwhelming fear destroying passions " "within or without.==-5**ST" inscribe_card ".The Hermit1" "silent counsel; a meeting with one who will lead " "the seeker towards his goals; courage and maturity " "to do right.==5**HM" inscribe_card ".The Hermit0" "the wisdom of others is spurned; " "foolish vices flourish; " "refusal to learn.==-7**HM" inscribe_card ".The Wheel of Fortune1" "that fate will bring success; " "the unexpected arrival of good fortune; " "chance in your favor.==10**WF" inscribe_card ".The Wheel of Fortune0" "luck deserting the seeker; " "courage to meet new conditions; " "the present is dim.==-2**WF" inscribe_card ".Justice1" "justice will be done; " "lawsuits will be won; " "a new beginning.==10**JU" inscribe_card ".Justice0" "injustice; " "inequality; legal complications; " "avoid severity.==-8**JU" inscribe_card ".The Hanged Man1" "spiritual growth; surrender to a higher wisdom; " "a complete reversal of the norm; " "the ability to prophesy.==3**HA" inscribe_card ".The Hanged Man0" "preoccupation with ones own concerns; " "resistance to spiritual teachings; " "false prophecy.==-4**HA" inscribe_card ".Death1" "renewal; transformation; " "birth of new idea and new possibilities." "==5**DE" inscribe_card ".Death0" "temporary stagnation; " "tendency to inertia; disaster." "==-4**DE" inscribe_card ".Temperance1" "adaptaion; self-control; " "working in harmony with others; " "good outlook on life.==4**TE" inscribe_card ".Temperance0" "bad management; " "unfortunate combinations; lack of good " "judgement.==-6**TE" inscribe_card ".The Devil1" "domination of matter over spirit; " "temptation; illness; a perverse sexual life; " "ignoring human dignity.==-6**DV" inscribe_card ".The Devil0" "removing the chains of bondage; " "overcoming pride and selfishness; release from" " evil.==0**DV" inscribe_card ".The Tower1" "the overthrow of selfish ambition; conflict; " "change; unforseen catastrophe; destruction will " "bring enlightenment.==0**TW" inscribe_card ".The Tower0" "the gain of freedom and mind, " "but at very great cost." "==0**TW" inscribe_card ".The Star1" "courage; hope; inspiration; " "health will improve; great love will be given and " "received.==4**ST" inscribe_card ".The Star0" "doubt; pessimism; stubborness; " "lack of perception; loss of friendship or love; " "illness.==-2**ST" inscribe_card ".The Moon1" "unforseen perils; deception; change." "May mean bad luck for an acquaintance. Intuition; " "dreams; latent power.==-5**MN" inscribe_card ".The Moon0" "the imagination is harnessed by practical concerns; " "change will not be disruptive; deception; take no " "risks.==0**MN" inscribe_card ".The Sun1" "success; attainment; a good marriage; " "studies completed; happines; health; " "the good, simple life.==10**SU" inscribe_card ".The Sun0" "future plans cloudy; troubles in marriage; " "a broken engagement. Failure is met at every turn." " Treasures lost.==-6**SU" inscribe_card ".Judgement1" "awakening; renewal; a life well lived; work well " "done; spiritual awakening; renewed energy; better " "health; a quick mind.==8**JG" inscribe_card ".Judgement0" "fear of death; failure to find happiness; no " "interest in the spiritual side of life; ill health." "==-2**JG" inscribe_card ".The World1" "fulfillment of all desires; reward; assured success; " "the ability to make others happy; livelihood; travel; " "liberation.==10**WD" inscribe_card ".The World0" "success yet to be won; fear of change in one's home " "or profession; lack of vision." "==0**WD" inscribe_card prog ".major.total" "22" 0 addprop "## Completed." say ; : install_minor_arcana ( -- ) prog ".minor.total" getpropstr if "## Re-I" else "## I" then "nstalling the minor arcana." strcat say prog ".minor.total" "56" 0 addprop prog ".card23" "The 2 of Wands" 0 addprop prog ".card24" "The 2 of Cups" 0 addprop prog ".card25" "The 2 of Swords" 0 addprop prog ".card26" "The 2 of Pentacles" 0 addprop prog ".card27" "The 3 of Wands" 0 addprop prog ".card28" "The 3 of Cups" 0 addprop prog ".card29" "The 3 of Swords" 0 addprop prog ".card30" "The 3 of Pentacles" 0 addprop prog ".card31" "The 4 of Wands" 0 addprop prog ".card32" "The 4 of Cups" 0 addprop prog ".card33" "The 4 of Swords" 0 addprop prog ".card34" "The 4 of Pentacles" 0 addprop prog ".card35" "The 5 of Wands" 0 addprop prog ".card36" "The 5 of Cups" 0 addprop prog ".card37" "The 5 of Swords" 0 addprop prog ".card38" "The 5 of Pentacles" 0 addprop prog ".card39" "The 6 of Wands" 0 addprop prog ".card40" "The 6 of Cups" 0 addprop prog ".card41" "The 6 of Swords" 0 addprop prog ".card42" "The 6 of Pentacles" 0 addprop prog ".card43" "The 7 of Wands" 0 addprop prog ".card44" "The 7 of Cups" 0 addprop prog ".card45" "The 7 of Swords" 0 addprop prog ".card46" "The 7 of Pentacles" 0 addprop prog ".card47" "The 8 of Wands" 0 addprop prog ".card48" "The 8 of Cups" 0 addprop prog ".card49" "The 8 of Swords" 0 addprop prog ".card50" "The 8 of Pentacles" 0 addprop prog ".card51" "The 9 of Wands" 0 addprop prog ".card52" "The 9 of Cups" 0 addprop prog ".card53" "The 9 of Swords" 0 addprop prog ".card54" "The 9 of Pentacles" 0 addprop prog ".card55" "The 10 of Wands" 0 addprop prog ".card56" "The 10 of Cups" 0 addprop prog ".card57" "The 10 of Swords" 0 addprop prog ".card58" "The 10 of Pentacles" 0 addprop prog ".card59" "The Page of Wands" 0 addprop prog ".card60" "The Page of Cups" 0 addprop prog ".card61" "The Page of Swords" 0 addprop prog ".card62" "The Page of Pentacles" 0 addprop prog ".card63" "The Knight of Wands" 0 addprop prog ".card64" "The Knight of Cups" 0 addprop prog ".card65" "The Knight of Swords" 0 addprop prog ".card66" "The Knight of Pentacles" 0 addprop prog ".card67" "The Queen of Wands" 0 addprop prog ".card68" "The Queen of Cups" 0 addprop prog ".card69" "The Queen of Swords" 0 addprop prog ".card70" "The Queen of Pentacles" 0 addprop prog ".card71" "The King of Wands" 0 addprop prog ".card72" "The King of Cups" 0 addprop prog ".card73" "The King of Swords" 0 addprop prog ".card74" "The King of Pentacles" 0 addprop prog ".card75" "The Ace of Wands" 0 addprop prog ".card76" "The Ace of Cups" 0 addprop prog ".card77" "The Ace of Swords" 0 addprop prog ".card78" "The Ace of Pentacles" 0 addprop ".The 2 of Wands0" "a person both kind and generous who waits to see " "his endeavors bear fruit; creative ability; courage; " "an interest in science.==1**2w" inscribe_card ".The 2 of Wands1" "a good beginning may not bear fruit; " "a caution against impatience; others may dominate " "over the seeker.==-1**2w" inscribe_card ".The 2 of Cups1" "the beginning of a new romance " "or a well-balanced friendship." "==5**2c" inscribe_card ".The 2 of Cups0" "Loss of balance in a relationship." "A misunderstanding with someone the seeker values." "==-6**2c" inscribe_card ".The 2 of Swords1" "having a well-developed sense of balance and rhythm; " "need of direction; possible trouble ahead; " "indecision.==-1**2s" inscribe_card ".The 2 of Swords0" "movement in one's affairs, " "but sometimes in the wrong direction." "==0**2s" inscribe_card ".The 2 of Pentacles1" "ablity to maintain harmony in the midst of change; " "a helpful message can be expected." "==3**2p" inscribe_card ".The 2 of Pentacles0" "troubles handling too many situations; " "plans may go awry." "==-3**2p" inscribe_card ".The 3 of Wands1" "trade and commerce flourishing; " "partnership brings success." "==5**3w" inscribe_card ".The 3 of Wands0" "mistakes may be made through carelessness; " "caution against pride and arrogance." "==-3**3w" inscribe_card ".The 3 of Cups1" "good fortune in love; happy conclusion of an " "undertaking, perhaps in the arts." "==8**3c" inscribe_card ".The 3 of Cups0" "pleasure turning to pain; " "overindulgence in food and drink." "==-7**3c" inscribe_card ".The 3 of Swords1" "lovers are separated by war or misfortune; " "possibility of civil war or strife." "==-5**3s" inscribe_card ".The 3 of Swords0" "disorder; confusion; " "loss." "==-4**3s" inscribe_card ".The 3 of Pentacles1" "skill and ability are rewarded; " "material gain; success through effort." "==9**3p" inscribe_card ".The 3 of Pentacles0" "mediocrity in workmanship; " "commonplace ideal and ambitions." "==0**3p" inscribe_card ".The 4 of Wands1" "perfected work; prosperity; peace." "A romance may end in marriage. Happy holidays " "to come.==7**4w" inscribe_card ".The 4 of Wands0" "learning to appreciate the little things " "in life; good things to come." "==6**4w" inscribe_card ".The 4 of Cups1" "a time of re-evaluation; " "emotions turned inwards." "==0**4c" inscribe_card ".The 4 of Cups0" "new relations are now possible; " "new goals and new ambitions." "==4**4c" inscribe_card ".The 4 of Swords1" "a time of retreat; " "a time of repose." "==0**4s" inscribe_card ".The 4 of Swords0" "renewed activity; " "social unrest; labor strikes." "==-1**4s" inscribe_card ".The 4 of Pentacles1" "love of earthly power and money; " "indications of a miserly, ungenerous character." "==-4**4p" inscribe_card ".The 4 of Pentacles0" "chance of loss of " "some earthly possessions." "==-2**4p" inscribe_card ".The 5 of Wands1" "competition; possibility of a lawsuit; " "obstacles in one's way." "==-2**5w" inscribe_card ".The 5 of Wands0" "harmony in one's affairs; " "new opportunities; generosity." "==3**5w" inscribe_card ".The 5 of Cups1" "sorrow; loss of a loved one; " "disillusionment; vain regret; something remains." "==-3**5c" inscribe_card ".The 5 of Cups0" "return of hope; " "return of an old friend or loved one." "==6**5c" inscribe_card ".The 5 of Swords1" "failure; defeat; degradation; " "cowardliness; cruelty; malice." "==-9**5s" inscribe_card ".The 5 of Swords0" "an empty victory; " "unfairness and slyness in dealing with others." "==-3**5s" inscribe_card ".The 5 of Pentacles1" "destitution; loneliness; loss of home and " "possessions; dark night of the soul." "==-10**5p" inscribe_card ".The 5 of Pentacles0" "a lesson in charity is to be learned; " "new employment, perhaps not permanent." "==4**5p" inscribe_card ".The 6 of Wands1" "good news; " "victory will be achieved." "==8**6w" inscribe_card ".The 6 of Wands0" "rewards are delayed; " "a trip postponed." "==0**6w" inscribe_card ".The 6 of Cups1" "happiness and enjoyment that come from the past; " "possibility of an inheritance." "==1**6c" inscribe_card ".The 6 of Cups0" "clinging to outworn morals and manners; " "living in the past." "==-1**6c" inscribe_card ".The 6 of Swords1" "journey by water; " "harmony will again prevail." "==1**6s" inscribe_card ".The 6 of Swords0" "no immediate way out of " "current difficulties." "==0**6s" inscribe_card ".The 6 of Pentacles1" "present prosperity shared with others; " "the seeker will receive what is rightfully his." "==5**6p" inscribe_card ".The 6 of Pentacles0" "gifts given, but as a bribe; " "jealousy; miserliness." "==-3**6p" inscribe_card ".The Page of Wands1" "brilliance; courage; beauty; " "he might be a messenger or a postman." "==2**Pw" inscribe_card ".The Page of Wands0" "superficial; theatrical; unstable; " "there may be bad news." "==-1**Pw" inscribe_card ".The Page of Cups1" "gentleness; sweetness; kindness; " "news, perhaps the birth of a child." "==2**Pc" inscribe_card ".The Page of Cups0" "selfishness; love of luxury; " "little desire to create." "==-1**Pc" inscribe_card ".The Page of Swords1" "qualities of grace and dexterity; " "spying, perhaps an upsetting message." "==-1**Ps" inscribe_card ".The Page of Swords0" "a tendency to frivolity and cunning; " "an imposter is likely to be exposed; the unexpected." "==0**Ps" inscribe_card ".The Page of Pentacles1" "a perservering scholar." "" "==7**Pp" inscribe_card ".The Page of Pentacles0" "wastefulness; love of luxury; " "unfavorable news." "==-7**Pp" inscribe_card ".The Knight of Wands1" "the coming or going of a matter of " "much conern to the seeker." "==0**Nw" inscribe_card ".The Knight of Wands0" "discord; work interrupted; " "a friend or lover becomes jealous, even brutal." "==-8**Nw" inscribe_card ".The Knight of Cups1" "the coming or going of a matter " "involving the emotions." "==0**Nc" inscribe_card ".The Knight of Cups0" "beware of trickery or fraud." "" "==-2**Nc" inscribe_card ".The Knight of Swords1" "one who is going to rush headlong into the life of " "the seeker; a strong man, brave but domineering." "==-1**Ns" inscribe_card ".The Knight of Swords0" "a troublemaker and one who is crafty " "and secretive about his plans." "==-1**Ns" inscribe_card ".The Knight of Pentacles1" "the coming or going of a matter " "concerning money or land." "==0**Np" inscribe_card ".The Knight of Pentacles0" "irresponsibility; impatience; " "money affairs seem to be at a standstil." "==-2**Np" inscribe_card ".The Queen of Wands1" "a woman who usally lives in the country " "and is fond of nature and home." "==0**Qw" inscribe_card ".The Queen of Wands0" "deceit and infidelity." "" "==-5**Qw" inscribe_card ".The Queen of Cups1" "happiness; pleasure of " "a gentle, good-natured sort." "==5**Qc" inscribe_card ".The Queen of Cups0" "pleasure and happiness turn bitter." "" "==-3**Qc" inscribe_card ".The Queen of Swords1" "the sword of spirit penetrates matter " "and informs it." "==0**Qs" inscribe_card ".The Queen of Swords0" "narrowmindedness; " "a tendency to gossip." "==-1**Qs" inscribe_card ".The Queen of Pentacles1" "an intelligent and thoughtful woman " "who can create in numerous ways, sometimes melancholy " "and moody.==2**Qp" inscribe_card ".The Queen of Pentacles0" "too much dependence on others; " "duties neglected; fear of failure." "==-2**Qp" inscribe_card ".The King of Wands1" "a man that is a good leader and agile " "in both mind and body." "==5**Kw" inscribe_card ".The King of Wands0" "a severe, unyielding man, " "strict in his judgements." "==-3**Kw" inscribe_card ".The King of Cups1" "a man of business, law or divinity, kind and generous;" " he covers his emotional nature with a calm exterior " "and enjoys quiet power.==6**Kc" inscribe_card ".The King of Cups0" "a powerful man, but likely to be doubledealing; " "perhaps some scandal is connected with him." "==-2**Kc" inscribe_card ".The King of Swords1" "a man with the power to command; " "the power of life and death." "==10**Ks" inscribe_card ".The King of Swords0" "a man with evil intentions; judgements and decisions " "by those in authority do not seem fair." "==-5**Ks" inscribe_card ".The King of Pentacles1" "a chief of industry; a banker or an owner of large " "estates. He can be of help to the seeker." "==8**Kp" inscribe_card ".The King of Pentacles0" "perverse use of talents; " "a person easy to bribe." "==-6**Kp" inscribe_card ".The 7 of Wands1" "the ability to hold one's own against adversity; " "a stiff competition in business." "==2**7w" inscribe_card ".The 7 of Wands0" "don't let others take advantage of you; " "caution against indecision." "==0**7w" inscribe_card ".The 7 of Cups1" "selfish indulgence in dreams instead of actions; " "dissipated forces." "==-1**7c" inscribe_card ".The 7 of Cups0" "good use of determination and will; " "a definite project will be selected." "==1**7c" inscribe_card ".The 7 of Swords1" "an unwise attempt to take what is not one's own; " "betrayal of confidence." "==-3**7s" inscribe_card ".The 7 of Swords0" "good advice and counsel are given; " "a thief returns what it has stolen." "==6**7s" inscribe_card ".The 7 of Pentacles1" "growth through effort and hard work." "" "==8**7p" inscribe_card ".The 7 of Pentacles0" "little gain after much work; " "unprofitable investments." "==-2**7p" inscribe_card ".The 8 of Wands1" "approach to a goal; " "arrows of love find their mark." "==3**8w" inscribe_card ".The 8 of Wands0" "arrows of jealousy and violence; " "quarrels; domestic disputes." "==-3**8w" inscribe_card ".The 8 of Cups1" "rejection of the material life; " "disappointment in love." "==-1**8c" inscribe_card ".The 8 of Cups0" "search for pleasure; " "a new love interest appears on the horizon." "==1**8c" inscribe_card ".The 8 of Swords1" "the seeker is fearful of moving out of a " "situation of bondage; restricted action through " "indecision.==-2**8s" inscribe_card ".The 8 of Swords0" "relaxation from fear; " "new beginnings are now possible." "==2**8s" inscribe_card ".The 8 of Pentacles1" "learning a trade or profession; " "employment or commission to come." "==4**8p" inscribe_card ".The 8 of Pentacles0" "wrong use of skills; " "intrigue and sharp dealing." "==-4**8p" inscribe_card ".The 9 of Wands1" "eventual victory, but more fighting must be done; " "strength in reserve." "==0**9w" inscribe_card ".The 9 of Wands0" "unpreparedness; bending under adversity; " "" "ill health.==-5**9w" inscribe_card ".The 9 of Cups1" "material success; assured future." ".The seeker will get his wish." "==10**9c" inscribe_card ".The 9 of Cups0" "lack of material goods and money; " "overindulgence in food and drink; the seeker's wish " "will not be fulfilled.==-10**9c" inscribe_card ".The 9 of Swords1" "suffering; desolation; doubt; suspicion; " "may mean illness, injury or death of a loved one." "==-10**9s" inscribe_card ".The 9 of Swords0" "time brings healing; " "good news regarding a loved one." "==9**9s" inscribe_card ".The 9 of Pentacles1" "material well-being; " "solitary enjoyment of the good things in life." "==7**9p" inscribe_card ".The 9 of Pentacles0" "possible loss, perhaps of a friendship or a home; " "danger from thieves. Move with caution." "==-2**9p" inscribe_card ".The 10 of Wands1" "ruin of all plans and projects; " "complete disruption and failure." "==-10**Tw" inscribe_card ".The 10 of Wands0" "strength and energy applied to selfish ends; " "a desire to ruin the happiness of others." "==-5**Tw" inscribe_card ".The 10 of Cups1" "happy family life; " "true friendships." "==0**Tc" inscribe_card ".The 10 of Cups0" "a family quarrel; loss of friendships; " "a chance for betrayal." "==-1**Tc" inscribe_card ".The 10 of Swords1" "sudden misfortune; ruin of plans; defeat in war; " "a legal battle lost; failure; pain; tears." "==-8**Ts" inscribe_card ".The 10 of Swords0" "overthrow of evil forces; " "courage to rise again." "==6**Ts" inscribe_card ".The 10 of Pentacles1" "gain in wealth and prestige; " "property is acquired." "==5**Tp" inscribe_card ".The 10 of Pentacles0" "chance of family misfortune " "or loss of honor." "==-3**Tp" inscribe_card ".The Ace of Wands1" "a creative venture; a new business undertaking; " "a profitable journey; a new career; a birth." "==7**Aw" inscribe_card ".The Ace of Wands0" "selfishness may spoil a venture; " "a new enterprise will have setbacks; a journey may " "be put off.==-2**Aw" inscribe_card ".The Ace of Cups1" "the beginning of all good things, whether it be " "love, joy beauty or health; a new breakthrough in " "spiritual understanding.==3**Ac" inscribe_card ".The Ace of Cups0" "hesitancy to accept things of the heart; " "a materialistic and selfish view of love; " "egotism.==-2**Ac" inscribe_card ".The Ace of Swords1" "the beginning of a conquest or victory; " "the birth of a child who will be a valiant leader; " "victory.==9**As" inscribe_card ".The Ace of Swords0" "the two-edged sword can have a destructive effect; " "it is difficult to separate the good from the bad; " "beware power.==-4**As" inscribe_card ".The Ace of Pentacles1" "the beginning of some endeavor; the beginning of " "prosperity or a business venture; a possible " "inheritance.==2**Ap" inscribe_card ".The Ace of Pentacles0" "the love of wealth may turn to greed or miserliness; " "great plans may come to naught; material conditions " "are a disadvantage.==-2**Ap" inscribe_card prog ".minor.total" "56" 0 addprop "## Completed." say ; : do_install ( -- ) prog ".teller.only" getpropstr if pop "## Reader is set teller installation only." say tr location name tr ".teller" rot 0 addprop "## The tarot reader's name has been installed as " tr location name strcat "." strcat say "## In order to change this, set the .teller" " property on the trigger action." strcat say "## Remember to set the sex of the teller" " object for it to give proper readings." strcat say exit then "## Installing miscellaneous properties." say prog ".cat1" "the general atmosphere of" 0 addprop prog ".cat2" "the opposing forces in" 0 addprop prog ".cat3" "the distant past in relation to" 0 addprop prog ".cat4" "the recent past in relation to" 0 addprop prog ".cat5" "the possible future of" 0 addprop prog ".cat6" "the definite future of" 0 addprop prog ".cat7" "your personal fears in" 0 addprop prog ".cat8" "the influences of others in" 0 addprop prog ".cat9" "your personal ideals in" 0 addprop prog ".cat10" "the final outcome of" 0 addprop prog ".placevalue1" "2" 0 addprop prog ".placevalue2" "-2" 0 addprop prog ".placevalue3" "0" 0 addprop prog ".placevalue4" "0" 0 addprop prog ".placevalue5" "1" 0 addprop prog ".placevalue6" "2" 0 addprop prog ".placevalue7" "0" 0 addprop prog ".placevalue8" "0" 0 addprop prog ".placevalue9" "1" 0 addprop prog ".placevalue10" "10" 0 addprop prog ".ord1" "first" 0 addprop prog ".ord2" "second" 0 addprop prog ".ord3" "third" 0 addprop prog ".ord4" "fourth" 0 addprop prog ".ord5" "fifth" 0 addprop prog ".ord6" "sixth" 0 addprop prog ".ord7" "seventh" 0 addprop prog ".ord8" "eighth" 0 addprop prog ".ord9" "ninth" 0 addprop prog ".ord10" "tenth" 0 addprop prog ".degree1" " a close call, but still" 0 addprop prog ".degree2" " a distinct" 0 addprop prog ".degree3" " a strong" 0 addprop prog ".degree4" " an emphatic" 0 addprop prog ".degree5" " an unequivocal" 0 addprop "## Installing view template." say install_template tr location name tr ".teller" rot 0 addprop "## The tarot reader's name has been installed as " tr location name strcat "." strcat say "## In order to change this, set the .teller" " property on the trigger action." strcat say dup " " explode dup 1 = if pop pop pop install_major_arcana install_minor_arcana prog ".total.cards" "78" 0 addprop exit then dup 2 > if explode_pop pop "## Syntax error in installation command." say exit then pop pop swap pop dup dup "mi" 2 strncmp swap "ma" 2 strncmp and if pop "## You must specify major or minor." say exit then "mi" 2 strncmp not if install_minor_arcana else install_major_arcana then prog ".minor.total" getpropstr atoi prog ".major.total" getpropstr atoi + prog ".total.cards" rot intostr 0 addprop ; : get_card ( -- i ) prog ".total.cards" getpropstr atoi random over % swap 56 = if 23 + else 1 + then dup intostr "/" swap strcat "/" strcat tr ".cards.used" getpropstr over instr if pop pop get_card else tr ".cards.used" getpropstr swap strcat tr ".cards.used" rot 0 addprop then ; : reset_view ( -- ) 1 begin dup 19 < while prog ".view" 3 pick intostr strcat getpropstr tr ".view" 4 pick intostr strcat rot 0 addprop 1 + loop pop ; : card_subst ( s -- ) tr ".view1" getpropstr not if "## The cards have not been laid out yet." say exit then 1 begin dup 19 < while tr ".view" 3 pick intostr strcat getpropstr 8 pick 1 - intostr dup strcat 4 pick swap subst 8 pick 1 - intostr dup strcat atoi 1 - intostr 7 pick not if "--" else "++" then swap subst tr ".view" 4 pick intostr strcat rot 0 addprop 1 + loop pop pop ; : do_read ( -- ) tr ".in.progress" "yes" 0 addprop tr ".totalvalue" remove_prop tr ".cards.used" remove_prop 1 19 1 for tr ".view" rot intostr strcat remove_prop loop "closes %p eyes for a moment and fingers the tarot deck." vero_pose 10 sleep "You will have one minute to " "concentrate on a yes/no question while I shuffle." strcat vero_say 10 sleep "shuffles the cards reverently while you concentrate." vero_pose 60 sleep "lays out ten cards in proper reading fashion." vero_pose reset_view 10 sleep 1 10 1 for prog ".cat" 3 pick intostr strcat getpropstr "The %ord card represents the aspect of " swap strcat " the question that is in your thoughts." strcat prog ".ord" 4 pick intostr strcat getpropstr "%ord" subst vero_say 15 sleep "waves %p hands mystically and turns over the " "%ord card." strcat prog ".ord" 4 pick intostr strcat getpropstr "%ord" subst vero_pose 5 sleep get_card random 2 % 3 pick 2 = if pop 1 then prog ".card" 4 pick intostr strcat getpropstr "Your card is " over strcat 3 pick not if " (Reversed)" strcat then "." strcat vero_say 5 sleep prog over 4 pick intostr strcat "." swap strcat getpropstr "**" explode pop swap card_subst "==" explode pop swap atoi 6 pick ".placevalue" swap intostr strcat prog swap getpropstr atoi * tr ".totalvalue" getpropstr atoi over + tr ".totalvalue" rot intostr 0 addprop swap "It is interpreted as meaning " swap strcat vero_say 10 sleep dup not if "'s face is unreadable." vero_pose then dup 0 < if "frowns slightly." vero_pose then dup 0 > if "smiles slightly." vero_pose then 5 sleep pop pop pop pop pop loop "ponders the cards and their configuration a few moments." vero_pose 10 sleep tr ".in.progress" remove_prop 0 1 10 1 for prog ".placevalue" rot intostr strcat getpropstr atoi dup 0 < if 0 swap - then 10 * + loop 5 / "The answer to your question is%degree %answer." tr ".totalvalue" getpropstr atoi dup 0 < if swap "no" "%answer" subst else swap "yes" "%answer" subst then swap dup not if pop 1 then dup 0 < if 0 swap - then rot / 1 + dup 5 > if pop 5 then prog ".degree" rot intostr strcat getpropstr "%degree" subst vero_say "Thank you, and please come again." vero_say ; : help ( -- ) "+--------------------------------------------+" say "| The Definitive MUF Tarot Reader (by Sjade) |" say "+--------------------------------------------+" say "| -install | install all props/cards |" say "| -install major | install props/major cds |" say "| -install minor | install props/minor cds |" say "| -help | this help screen |" say "| -view | display current reading |" say "| (noarg) | begin a reading |" say "+--------------------------------------------+" say "| For additional help, please contact Sjade. |" say "+--------------------------------------------+" say ; : show_view ( -- ) tr ".view1" getpropstr not if "## The cards have not yet been laid out." say exit then 1 begin dup 19 < while tr ".view" 3 pick intostr strcat getpropstr 0 begin dup 10 < while swap over intostr dup strcat "|" swap strcat "| " swap subst over intostr dup strcat "_" swap strcat "|" strcat "___|" swap subst over intostr dup strcat atoi 1 - intostr "#" 4 pick 1 + intostr strcat dup "#10" stringcmp not if 1 strcut swap pop then swap subst -2 rotate 1 + loop pop say 1 + loop pop ; : main ( s -- ) dup not if me @ pennies 50 < if "Readings are $50 in the current market." vero_say exit then tr ".in.progress" getpropstr if pop "A reading is already in progress." say "If you think that is faulty, please contact " prog owner name strcat "." strcat say exit else pop me @ -50 addpennies "takes your monetary offering with a smile." vero_pose do_read exit then then dup "-h" 2 strncmp not if pop help exit then dup "-v" 2 strncmp not if pop show_view exit then dup "-ins" 4 strncmp not if prog owner me @ dbcmp not prog ".all.install" getpropstr not prog "." me @ name strcat ".install" strcat getpropstr not and and if pop "## You are disallowed from -install." say exit else do_install exit then then pop "## Command not understood." say exit ;