YASSE Recite(script)
Jump to navigation
Jump to search
YASSE Recite(script) | |
---|---|
Category | Utility,Cleric |
Front-end | YASSE |
Author | Ithrios |
Description
Recites an eight line prayer to the gods. Will randomly choose eight gods, including at least two neutral aspects (so that clerics can gain devotion if done on holy ground). If you have a god global variable defined or enter a gods name in the command line it will favor all three aspects of your chosen god (but not guarantee they are chosen). You can select to focus on light, dark or neutral deities.
Syntax
Syntax | Effect |
---|---|
.recite | will recite a prayer to eight randomly selected gods, including at least two neutral aspects |
.recite neutral | will recite a prayer to eight randomly selected neutral aspects |
.recite light | will recite a prayer to eight randomly selected gods, including two neutral aspects and 6 light aspects |
.recite dark | will recite a prayer to eight randomly selected gods, including two neutral aspects and 6 dark aspects |
.recite god | will recite a prayer to eight randomly selected gods, including at least two neutral aspects. Will favour aspects of the named god (but not guarantee they will appear). |
You can use more than one gods name and one type of aspect (light, dark, neutral) together in any order. For example:
".recite meraud light tamsine" would recite a prayer to eight randomly selected gods, including two neutral aspects and 6 light aspects and favor aspects of meraud and tamsine.
Updates
Last Updated: 02 May 2013 - Script Posted
Script
setvariable gods-l "Alam Albr Bere Divy Eylh Firu Kuni Lemi Murr Peri Phel Ruti Saem " setvariable gods-n "Chad Dama Elun Ever Faen Glyt Havr Hodi Kert Mera Tams Truf Urre " setvariable gods-d "Alda Aske Beor Boto Derg Drog Hara Huld Idon Kere Trot Ushn Zach " setvariable gods-c 0 setvariable gods-cl 0 setvariable gods-cn 0 setvariable gods-cd 0 setvariable gods-nl 13 setvariable gods-nn 13 setvariable gods-nd 13 setvariable random 0 setvariable dark yes setvariable light yes setvariable gods-g "" setvariable line-check "$1$ $2$ $3$ $4$ $5$ $6$ $7$ $8$ $9$ $god$" if line-check contains neutral begin setvariable mode calculate-neutral goto setup-1 end if line-check contains dark begin if line-check excludes light begin setvariable mode calculate-dark goto setup-1 end end if line-check contains light begin if line-check excludes dark begin setvariable mode calculate-light goto setup-1 end end setvariable mode calculate goto setup-1 setup-1: if line-check excludes "" begin setvariable gods-gn "" setvariable gods-gl "" setvariable gods-gd "" counter set 0 if line-check contains Alam begin if gods-gn excludes truf begin setvariable gods-gn "$gods-gn$Truf " setvariable gods-gl "$gods-gl$Alam " setvariable gods-gd "$gods-gd$Huld " counter add 1 end end if line-check contains Albr begin if gods-gn excludes tams begin setvariable gods-gn "$gods-gn$Tams " setvariable gods-gl "$gods-gl$Albr " setvariable gods-gd "$gods-gd$Hara " counter add 1 end end if line-check contains Alda begin if gods-gn excludes urre begin setvariable gods-gn "$gods-gn$Urre " setvariable gods-gl "$gods-gl$Eylh " setvariable gods-gd "$gods-gd$Alda " counter add 1 end end if line-check contains Aske begin if gods-gn excludes hodi begin setvariable gods-gn "$gods-gn$Hodi " setvariable gods-gl "$gods-gl$Bere " setvariable gods-gd "$gods-gd$Aske " counter add 1 end end if line-check contains Beor begin if gods-gn excludes glyth begin setvariable gods-gn "$gods-gn$Glyt " setvariable gods-gl "$gods-gl$Saem " setvariable gods-gd "$gods-gd$Beor " counter add 1 end end if line-check contains Bere begin if gods-gn excludes hodi begin setvariable gods-gn "$gods-gn$Hodi " setvariable gods-gl "$gods-gl$Bere " setvariable gods-gd "$gods-gd$Aske " counter add 1 end end if line-check contains Boto begin if gods-gn excludes chad begin setvariable gods-gn "$gods-gn$Chad " setvariable gods-gl "$gods-gl$Ruti " setvariable gods-gd "$gods-gd$Boto " counter add 1 end end if line-check contains Chad begin if gods-gn excludes chad begin setvariable gods-gn "$gods-gn$Chad " setvariable gods-gl "$gods-gl$Ruti " setvariable gods-gd "$gods-gd$Boto " counter add 1 end end if line-check contains Dama begin if gods-gn excludes Dama begin setvariable gods-gn "$gods-gn$Dama " setvariable gods-gl "$gods-gl$Phel " setvariable gods-gd "$gods-gd$Derg " counter add 1 end end if line-check contains Derg begin if gods-gn excludes Dama begin setvariable gods-gn "$gods-gn$Dama " setvariable gods-gl "$gods-gl$Phel " setvariable gods-gd "$gods-gd$Derg " counter add 1 end end if line-check contains Divy begin if gods-gn excludes kert begin setvariable gods-gn "$gods-gn$Kert " setvariable gods-gl "$gods-gl$Divy " setvariable gods-gd "$gods-gd$Zach " counter add 1 end end if line-check contains Drog begin if gods-gn excludes elun begin setvariable gods-gn "$gods-gn$Elun " setvariable gods-gl "$gods-gl$Lemi " setvariable gods-gd "$gods-gd$Drog " counter add 1 end end if line-check contains Elun begin if gods-gn excludes elun begin setvariable gods-gn "$gods-gn$Elun " setvariable gods-gl "$gods-gl$Lemi " setvariable gods-gd "$gods-gd$Drog " counter add 1 end end if line-check contains Ever begin if gods-gn excludes ever begin setvariable gods-gn "$gods-gn$Ever " setvariable gods-gl "$gods-gl$Kuni " setvariable gods-gd "$gods-gd$Trot " counter add 1 end end if line-check contains Eyhl begin if gods-gn excludes urr begin setvariable gods-gn "$gods-gn$Urre " setvariable gods-gl "$gods-gl$Eylh " setvariable gods-gd "$gods-gd$Alda " counter add 1 end end if line-check contains Faen begin if gods-gn excludes faen begin setvariable gods-gn "$gods-gn$Faen " setvariable gods-gl "$gods-gl$Murr " setvariable gods-gd "$gods-gd$Idon " counter add 1 end end if line-check contains Firu begin if gods-gn excludes mera begin setvariable gods-gn "$gods-gn$Mera " setvariable gods-gl "$gods-gl$Firu " setvariable gods-gd "$gods-gd$Kere " counter add 1 end end if line-check contains Glyt begin if gods-gn excludes glyth begin setvariable gods-gn "$gods-gn$Glyt " setvariable gods-gl "$gods-gl$Saem " setvariable gods-gd "$gods-gd$Beor " counter add 1 end end if line-check contains Hara begin if gods-gn excludes tams begin setvariable gods-gn "$gods-gn$Tams " setvariable gods-gl "$gods-gl$Albr " setvariable gods-gd "$gods-gd$Hara " counter add 1 end end if line-check contains Havr begin if gods-gn excludes havr begin setvariable gods-gn "$gods-gn$Havr " setvariable gods-gl "$gods-gl$Peri " setvariable gods-gd "$gods-gd$Ushn " counter add 1 end end if line-check contains Hodi begin if gods-gn excludes hodi begin setvariable gods-gn "$gods-gn$Hodi " setvariable gods-gl "$gods-gl$Bere " setvariable gods-gd "$gods-gd$Aske " counter add 1 end end if line-check contains Huld begin if gods-gn excludes truf begin setvariable gods-gn "$gods-gn$Truf " setvariable gods-gl "$gods-gl$Alam " setvariable gods-gd "$gods-gd$Huld " counter add 1 end end if line-check contains Idon begin if gods-gn excludes faen begin setvariable gods-gn "$gods-gn$Faen " setvariable gods-gl "$gods-gl$Murr " setvariable gods-gd "$gods-gd$Idon " counter add 1 end end if line-check contains Kere begin if gods-gn excludes mera begin setvariable gods-gn "$gods-gn$Mera " setvariable gods-gl "$gods-gl$Firu " setvariable gods-gd "$gods-gd$Kere " counter add 1 end end if line-check contains Kert begin if gods-gn excludes kert begin setvariable gods-gn "$gods-gn$Kert " setvariable gods-gl "$gods-gl$Divy " setvariable gods-gd "$gods-gd$Zach " counter add 1 end end if line-check contains Kuni begin if gods-gn excludes ever begin setvariable gods-gn "$gods-gn$Ever " setvariable gods-gl "$gods-gl$Kuni " setvariable gods-gd "$gods-gd$Trot " counter add 1 end end if line-check contains Lemi begin if gods-gn excludes elun begin setvariable gods-gn "$gods-gn$Elun " setvariable gods-gl "$gods-gl$Lemi " setvariable gods-gd "$gods-gd$Drog " counter add 1 end end if line-check contains Mera begin if gods-gn excludes mera begin setvariable gods-gn "$gods-gn$Mera " setvariable gods-gl "$gods-gl$Firu " setvariable gods-gd "$gods-gd$Kere " counter add 1 end end if line-check contains Murr begin if gods-gn excludes faen begin setvariable gods-gn "$gods-gn$Faen " setvariable gods-gl "$gods-gl$Murr " setvariable gods-gd "$gods-gd$Idon " counter add 1 end end if line-check contains Peri begin if gods-gn excludes havr begin setvariable gods-gn "$gods-gn$Havr " setvariable gods-gl "$gods-gl$Peri " setvariable gods-gd "$gods-gd$Ushn " counter add 1 end end if line-check contains Phel begin if gods-gn excludes Dama begin setvariable gods-gn "$gods-gn$Dama " setvariable gods-gl "$gods-gl$Phel " setvariable gods-gd "$gods-gd$Derg " counter add 1 end end if line-check contains Ruti begin if gods-gn excludes chad begin setvariable gods-gn "$gods-gn$Chad " setvariable gods-gl "$gods-gl$Ruti " setvariable gods-gd "$gods-gd$Boto " counter add 1 end end if line-check contains Saem begin if gods-gn excludes glyth begin setvariable gods-gn "$gods-gn$Glyt " setvariable gods-gl "$gods-gl$Saem " setvariable gods-gd "$gods-gd$Beor " counter add 1 end end if line-check contains Tams begin if gods-gn excludes tams begin setvariable gods-gn "$gods-gn$Tams " setvariable gods-gl "$gods-gl$Albr " setvariable gods-gd "$gods-gd$Hara " counter add 1 end end if line-check contains Trot begin if gods-gn excludes ever begin setvariable gods-gn "$gods-gn$Ever " setvariable gods-gl "$gods-gl$Kuni " setvariable gods-gd "$gods-gd$Trot " counter add 1 end end if line-check contains Truf begin if gods-gn excludes truf begin setvariable gods-gn "$gods-gn$Truf " setvariable gods-gl "$gods-gl$Alam " setvariable gods-gd "$gods-gd$Huld " counter add 1 end end if line-check contains Urre begin if gods-gn excludes urr begin setvariable gods-gn "$gods-gn$Urre " setvariable gods-gl "$gods-gl$Eylh " setvariable gods-gd "$gods-gd$Alda " counter add 1 end end if line-check contains Ushn begin if gods-gn excludes havr begin setvariable gods-gn "$gods-gn$Havr " setvariable gods-gl "$gods-gl$Peri " setvariable gods-gd "$gods-gd$Ushn " counter add 1 end end if line-check contains Zach begin if gods-gn excludes kert begin setvariable gods-gn "$gods-gn$Kert " setvariable gods-gl "$gods-gl$Divy " setvariable gods-gd "$gods-gd$Zach " counter add 1 end end setvariable gods-gc $c$ calculate gods-gc mul 5 calculate gods-nl add $gods-gc$ calculate gods-nn add $gods-gc$ calculate gods-nd add $gods-gc$ setvariable gods-l "$gods-l$$gods-gl$$gods-gl$$gods-gl$$gods-gl$$gods-gl$" setvariable gods-n "$gods-n$$gods-gn$$gods-gn$$gods-gn$$gods-gn$$gods-gn$" setvariable gods-d "$gods-d$$gods-gd$$gods-gd$$gods-gd$$gods-gd$$gods-gd$" end goto $mode$ calculate: counter set $gods-c$ counter add 1 if $c$ > 8 goto recite setvariable gods-c $c$ if $gods-c$ >= 5 begin if $gods-cn$ < 2 goto gods-neutral end calculate random rnd 3 if random == 2 goto gods-light if random == 3 goto gods-dark goto gods-neutral calculate-neutral: counter set $gods-c$ counter add 1 if $c$ > 8 goto recite setvariable gods-c $c$ goto gods-neutral calculate-light: counter set $gods-c$ counter add 1 if $c$ > 8 goto recite setvariable gods-c $c$ if $gods-cn$ >= 2 goto gods-light if $gods-c$ >= 5 goto gods-neutral calculate random rnd 2 if random == 2 goto gods-light goto gods-neutral calculate-dark: counter set $gods-c$ counter add 1 if $c$ > 8 goto recite setvariable gods-c $c$ if $gods-cn$ >= 2 goto gods-dark if $gods-c$ >= 5 goto gods-neutral calculate random rnd 2 if random == 2 goto gods-dark goto gods-neutral gods-neutral: begin setvariable gods-t $gods-n$ calculate random rnd $gods-nn$ calculate random sub 1 calculate random mul 5 calculate gods-t right $random$ calculate gods-t left 4 calculate gods-n count "$gods-t$ " calculate gods-n remove "$gods-t$ " counter set $gods-nn$ counter sub $result$ setvariable gods-nn $c$ goto $gods-t$ end gods-light: begin setvariable gods-t $gods-l$ calculate random rnd $gods-nl$ calculate random sub 1 calculate random mul 5 calculate gods-t right $random$ calculate gods-t left 4 calculate gods-l count "$gods-t$ " calculate gods-l remove "$gods-t$ " counter set $gods-nl$ counter sub $result$ setvariable gods-nl $c$ goto $gods-t$ end gods-dark: begin setvariable gods-t $gods-d$ calculate random rnd $gods-nd$ calculate random sub 1 calculate random mul 5 calculate gods-t right $random$ calculate gods-t left 4 calculate gods-d count "$gods-t$ " calculate gods-d remove "$gods-t$ " counter set $gods-nd$ counter sub $result$ setvariable gods-nd $c$ goto $gods-t$ end Alam: counter set $gods-cl$ counter add 1 setvariable gods-cl $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Alamhif, Benevolent Kind Father, guide me in my quest for knowledge" end if $random$ contains 2 begin setvariable god$gods-c$ "Alamhif, Benevolent Kind Father, grant me your protection and guidance" end goto $mode$ Albr: counter set $gods-cl$ counter add 1 setvariable gods-cl $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Albreda, Blessed Bringer of Peace, grant me long life and prosperity" end if $random$ contains 2 begin setvariable god$gods-c$ "Albreda, Goddess of Peace and Prosperity, let your healing flow freely upon me" end goto $mode$ Alda: counter set $gods-cd$ counter add 1 setvariable gods-cd $c$ calculate random rnd 3 if $random$ contains 1 begin setvariable god$gods-c$ "Aldauth, God of Torment, strengthen me against the pains of life and death" end if $random$ contains 2 begin setvariable god$gods-c$ "Aldauth, God of Agony and Torment, spare me the anguish of your embrace" end if $random$ contains 3 begin setvariable god$gods-c$ "Aldauth, God of Agony, sate yourself on the blood and anguish of my foes" end goto $mode$ Aske: counter set $gods-cd$ counter add 1 setvariable gods-cd $c$ calculate random rnd 3 if $random$ contains 1 begin setvariable god$gods-c$ "Asketi, Mistress of the North Wind, grant me the power to defeat my foes" end if $random$ contains 2 begin setvariable god$gods-c$ "Asketi, Mistress of the North Wind, spare me from your divine fury" end if $random$ contains 3 begin setvariable god$gods-c$ "Asketi, Mistress of the Midnight Hunt, unleash you fury upon enemies" end goto $mode$ Beor: counter set $gods-cd$ counter add 1 setvariable gods-cd $c$ calculate random rnd 3 if $random$ contains 1 begin setvariable god$gods-c$ "Be'ort, God of Melancholy, steel me against the distractions of this life" end if $random$ contains 2 begin setvariable god$gods-c$ "Be'ort, God of Anguish, turn your gaze away from that which I love" end if $random$ contains 3 begin setvariable god$gods-c$ "Be'ort, God of Anguish, let your malevolent hand fall on my foes" end goto $mode$ Bere: counter set $gods-cl$ counter add 1 setvariable gods-cl $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Berengaria, Benevolent Bringer of the Dawn, light my way through the darkness" end if $random$ contains 2 begin setvariable god$gods-c$ "Berengaria, Goddess of First Light, let your blessed warmth fall upon me" end goto $mode$ Boto: counter set $gods-cd$ counter add 1 setvariable gods-cd $c$ calculate random rnd 3 if $random$ contains 1 begin setvariable god$gods-c$ "Botolf, Master of Guile, lend me your cunning that I may escape my shackles" end if $random$ contains 2 begin setvariable god$gods-c$ "Botolf, Master of Guile, spare me from the attentions of your servants" end if $random$ contains 3 begin setvariable god$gods-c$ "Botolf, Master of Guile, forsake my enemies for they are unworthy of your blessing" end goto $mode$ Chad: counter set $gods-cn$ counter add 1 setvariable gods-cn $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Chadatru, Lord of Justice, grant me a noble heart so I might stay true to myself" end if $random$ contains 2 begin setvariable god$gods-c$ "Chadatru, Defender of Truth, shield me those who are unjust and dishonest" end goto $mode$ Dama: counter set $gods-cn$ counter add 1 setvariable gods-cn $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Damaris, Elusive God of the Night, cloak me in your protective shadows" end if $random$ contains 2 begin setvariable god$gods-c$ "Damaris, God of Shadows, lead the children of the night away from my path" end goto $mode$ Derg: counter set $gods-cd$ counter add 1 setvariable gods-cd $c$ calculate random rnd 3 if $random$ contains 1 begin setvariable god$gods-c$ "Dergati, Goddess of Nightmares, teach me to be merciless in my quest for knowledge" end if $random$ contains 2 begin setvariable god$gods-c$ "Dergati, Unraveller of Souls, spare me from oblivion at your hand" end if $random$ contains 3 begin setvariable god$gods-c$ "Dergati, Unraveller of Souls, let your wrath fall on those who oppose me" end goto $mode$ Divy: counter set $gods-cl$ counter add 1 setvariable gods-cl $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Divyaush, Lord of Prosperity, be generous with your favor and guide me to success" end if $random$ contains 2 begin setvariable god$gods-c$ "Divyaush, Kind Father, lend me your wisdom that I might master my art" end goto $mode$ Drog: counter set $gods-cd$ counter add 1 setvariable gods-cd $c$ calculate random rnd 3 if $random$ contains 1 begin setvariable god$gods-c$ "Drogor, Destroyer of Libraries, grant me freedom from bondage to knowledge" end if $random$ contains 2 begin setvariable god$gods-c$ "Drogor, Insatiable Destroyer of Knowledge, turn your anger from that which I seek" end if $random$ contains 3 begin setvariable god$gods-c$ "Drogor, God of Angry Oceans, let the blood of my enemies feed the lightless depths" end goto $mode$ Elun: counter set $gods-cn$ counter add 1 setvariable gods-cn $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Eluned, Esteemed Mistress of Learning, grant me your wisdom and knowledge" end if $random$ contains 2 begin setvariable god$gods-c$ "Eluned, Goddess of the Oceans, let me find smooth waters and safe harbours" end goto $mode$ Ever: counter set $gods-cn$ counter add 1 setvariable gods-cn $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Everild, Mighty Lord of Battle, grant me the strength to defeat my enemies" end if $random$ contains 2 begin setvariable god$gods-c$ "Everild, God of Battle and Strength, lead me to victory over my enemies" end goto $mode$ Eylh: counter set $gods-cl$ counter add 1 setvariable gods-cl $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Eylhaar, oh Merciful Beckoner, when my time comes steal me from Aldauth's grasp" end if $random$ contains 2 begin setvariable god$gods-c$ "Eylhaar, Merciful Goddess of Death, spare me from Aldauth and Urrem'tier" end goto $mode$ Faen: counter set $gods-cn$ counter add 1 setvariable gods-cn $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Faenella, Oh Fair Bard, fill my heart with passion to become master of my art" end if $random$ contains 2 begin setvariable god$gods-c$ "Faenella, Goddess of Music, inspire me with your sweet melodies and eloquence" end goto $mode$ Firu: counter set $gods-cl$ counter add 1 setvariable gods-cl $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Firulf, Renowned Master of foresight, bless me with your unerring insight" end if $random$ contains 2 begin setvariable god$gods-c$ "Firulf, Master of Magic, stand beside me in my quest for arcane knowledge" end goto $mode$ Glyt: counter set $gods-cn$ counter add 1 setvariable gods-cn $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Glythide, Joyful God of Festivities, grant me happiness and joy in this life" end if $random$ contains 2 begin setvariable god$gods-c$ "Glythide, God of Mirth and Merriment, protect me from melancholy and despair" end goto $mode$ Hara: counter set $gods-cd$ counter add 1 setvariable gods-cd $c$ calculate random rnd 3 if $random$ contains 1 begin setvariable god$gods-c$ "Harawep, Goddess of Deception, grant me your cunning to entrap my foes" end if $random$ contains 2 begin setvariable god$gods-c$ "Harawep, Oh Cunning Windowmaker, let my path be free from your devious webs" end if $random$ contains 3 begin setvariable god$gods-c$ "Harawep, Oh Cunning Windowmaker, entangle my foes in your devious webs" end goto $mode$ Havr: counter set $gods-cn$ counter add 1 setvariable gods-cn $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Hav'roth, God of Earth and Stone, make me as steadfast as the stones beneath my feet" end if $random$ contains 2 begin setvariable god$gods-c$ "Hav'roth, God of Stones and Gems, show me the path to the riches hidden within your realm" end goto $mode$ Hodi: counter set $gods-cn$ counter add 1 setvariable gods-cn $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Hodierna, Merciful Goddess of Light and Life, grant me healing in my time of need" end if $random$ contains 2 begin setvariable god$gods-c$ "Hodierna, Goddess of the Morning, let your light and endless bounties shine into my life" end goto $mode$ Huld: counter set $gods-cd$ counter add 1 setvariable gods-cd $c$ calculate random rnd 3 if $random$ contains 1 begin setvariable god$gods-c$ "Huldah, God of Trickery, lend me your cunning to overcome my mortal foes" end if $random$ contains 2 begin setvariable god$gods-c$ "Huldah, Clever Trickster of the Gods, spare me from your devious schemes" end if $random$ contains 3 begin setvariable god$gods-c$ "Huldah, Clever Trickster of the Gods, entrap my enemies in your schemes" end goto $mode$ Idon: counter set $gods-cd$ counter add 1 setvariable gods-cd $c$ calculate random rnd 3 if $random$ contains 1 begin setvariable god$gods-c$ "Idon, Master of Charm and Wit, bless me with your silver tongue" end if $random$ contains 2 begin setvariable god$gods-c$ "Idon, Master of Charm and Wit, turn your servants away from my path" end if $random$ contains 3 begin setvariable god$gods-c$ "Idon, Master of Charm and Wit, may my enemies forever cross your path" end goto $mode$ Kere: counter set $gods-cd$ counter add 1 setvariable gods-cd $c$ calculate random rnd 3 if $random$ contains 1 begin setvariable god$gods-c$ "Kerenhappuch, Goddess of Desire, grant me ruthlessness in my search for knowledge" end if $random$ contains 2 begin setvariable god$gods-c$ "Kerenhappuch, Goddess of Seduction, spare me from your irresistable charms" end if $random$ contains 3 begin setvariable god$gods-c$ "Kerenhappuch, Ruler of Men's Hearts, turn your wiles upon my enemies" end goto $mode$ Kert: counter set $gods-cn$ counter add 1 setvariable gods-cn $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Kertigen, Great Master of all Craftsmen, guide my hand that I master my art" end if $random$ contains 2 begin setvariable god$gods-c$ "Kertigen, God of Merchants and Craftsmen, let my endeavors be rewarded handsomely" end goto $mode$ Kuni: counter set $gods-cl$ counter add 1 setvariable gods-cl $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Kuniyo, Master of the Wilds, strengthen me in battle and grant me wisdom in my travels" end if $random$ contains 2 begin setvariable god$gods-c$ "Kuniyo, God of the Wilderness, grant me courage and ferocity in the face of adversity" end goto $mode$ Lemi: counter set $gods-cl$ counter add 1 setvariable gods-cl $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Lemicus, Goddess of the Elves, bless me with wisdom, serenity and grace" end if $random$ contains 2 begin setvariable god$gods-c$ "Lemicus, Goddess of Peaceful Waters, let your laughter bring me favorable winds" end goto $mode$ Mera: counter set $gods-cn$ counter add 1 setvariable gods-cn $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Meraud, Lord of the Arcane, empower my magic so that it will never fail me" end if $random$ contains 2 begin setvariable god$gods-c$ "Meraud, Mighty God of Magic, grant me the passion to master the arcane arts" end goto $mode$ Murr: counter set $gods-cl$ counter add 1 setvariable gods-cl $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Murrula, Resplendent Goddess of Beauty, bless me with your grace and charm" end if $random$ contains 2 begin setvariable god$gods-c$ "Murrula, Mistress of Travellers, let your voice soothe me in my travels" end goto $mode$ Peri: counter set $gods-cl$ counter add 1 setvariable gods-cl $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Periel, Lady of the Inner Earth, grant me the fortitude to calmly meet my fate" end if $random$ contains 2 begin setvariable god$gods-c$ "Periel, Lady of the Inner Earth, protect me from the furies held within the earth" end goto $mode$ Phel: counter set $gods-cl$ counter add 1 setvariable gods-cl $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Phelim, Master of the Night Sky, guide me with your sweet dreams" end if $random$ contains 2 begin setvariable god$gods-c$ "Phelim, God of Sweet Dreams, protect me from Dergati's terrible wrath" end goto $mode$ Ruti: counter set $gods-cl$ counter add 1 setvariable gods-cl $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Rutilor, Mighty Defender of the Gods, grant me courage in the face of my enemies" end if $random$ contains 2 begin setvariable god$gods-c$ "Rutilor, Stalwart Patron of Paladins, defend me from the injustices before me" end goto $mode$ Saem: counter set $gods-cl$ counter add 1 setvariable gods-cl $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Saemus, God of Romance, bless me with happiness, joy and laughter" end if $random$ contains 2 begin setvariable god$gods-c$ "Saemus, God of Gentle Love, let your blessings fall upon that which I love" end goto $mode$ Tams: counter set $gods-cn$ counter add 1 setvariable gods-cn $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Tamsine, Goddess of Heart and Home, lend me your patience and serenity" end if $random$ contains 2 begin setvariable god$gods-c$ "Tamsine, Beloved Lady of the Hearth, soothe my troubled mind and weary body" end goto $mode$ Trot: counter set $gods-cd$ counter add 1 setvariable gods-cd $c$ calculate random rnd 3 if $random$ contains 1 begin setvariable god$gods-c$ "Trothfang, God of Bloodlust, lend me your fury in my time of need" end if $random$ contains 2 begin setvariable god$gods-c$ "Trothfang, God of Fury, spare me the pain of death at your hand" en3 if $random$ contains 3 begin setvariable god$gods-c$ "Trothfang, God of Carnage, let your fury fall upon my foes" end goto $mode$ Truf: counter set $gods-cn$ counter add 1 setvariable gods-cn $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Truffenyi, Lord of Mortal Man, bless me with strength, stamina and power" end if $random$ contains 2 begin setvariable god$gods-c$ "Truffenyi, Lord of Mortal Man, grant me mercy and fill my life with your blessings" end goto $mode$ Urre: counter set $gods-cn$ counter add 1 setvariable gods-cn $c$ calculate random rnd 2 if $random$ contains 1 begin setvariable god$gods-c$ "Urrem'tier, Master of the Afterlife, stay your fetid hands for another day" end if $random$ contains 2 begin setvariable god$gods-c$ "Urrem'tier, Mighty Consumer of Life, let my life be long and death be short" end goto $mode$ Ushn: counter set $gods-cd$ counter add 1 setvariable gods-cd $c$ calculate random rnd 3 if $random$ contains 1 begin setvariable god$gods-c$ "Ushnish, Great Serpent of Discord, lend me your power that I can see my enemies fail" end if $random$ contains 2 begin setvariable god$gods-c$ "Ushnish, God of Disease and Decay, spare me from famine, disaster, disease and frailty" end if $random$ contains 3 begin setvariable god$gods-c$ "Ushnish, Great Serpent of Discord, let your disasters fall upon those who stand against me" end goto $mode$ Zach: counter set $gods-cd$ counter add 1 setvariable gods-cd $c$ calculate random rnd 3 if $random$ contains 1 begin setvariable god$gods-c$ "Zachriedek, Lord of Misfortune, steel my heart against mercy toward my foes" end if $random$ contains 2 begin setvariable god$gods-c$ "Zachriedek, Lord of Misfortune, let your curses pass me by and fall on my enemies" end if $random$ contains 3 begin setvariable god$gods-c$ "Zachriedek, Lord of Misfortune, let my enemies luck shatter and crumble" end goto $mode$ recite: put recite $god1$;$god2$;$god3$;$god4$;$god5$;$god6$;$god7$;$god8$ end: