YASSE Recite(script)

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: