Sub AgentIntro()
    On Error Resume Next
    Call InitAgentCommands
' a changer	
    Merlin.MoveTo 358, 124
    Merlin.Show
	Merlin.Speak "Office des Vêpres de la commémoration de tous les fidèles défunts"
    Merlin.Hide
' fin de changement

End Sub

Sub ballon()
    On Error Resume Next
    Call InitAgentCommands
	Merlin.Balloon.Style = &H220000E
end sub


Sub officecomplet()

    On Error Resume Next
    Call InitAgentCommands
    Merlin.MoveTo 358, 124
    Merlin.Show
	Merlin.Speak "Office du soir : les Vêpres"
	Merlin.Speak "Dieu, viens à mon aide, Seigneur, à notre secours"
	call doxo2
' a changer en Carême
	Merlin.Speak "Alléluia."
' a changer en Carême

	Call hymne
	Merlin.Speak "\pau=3000\"
	Call psaume1
	Merlin.Speak "\pau=3000\"
	Call psaume2
	Merlin.Speak "\pau=3000\"	
	Call psaume3
	Merlin.Speak "Parole de Dieu\pau=1000\"
	call paroledeDieu
	Merlin.Speak "\pau=3000\"	
	call evangelique
	Merlin.Speak "\pau=3000\"
	call intentions
	Merlin.Speak "\pau=3000\"	
	call notrepere
	Merlin.Speak "\pau=3000\"	
' à supprimer
	call oraison
' fin sup
	Merlin.Speak "\pau=3000\"
	call benediction
	
End Sub

Sub doxo1()
    On Error Resume Next
    Call InitAgentCommands
	call ballon

    Merlin.MoveTo MerlinLeftX, MerlinTopY
    Merlin.Show

    Merlin.Speak "Gloire au Père, et au Fils et au Saint-Esprit, pour les siècles des siècles. Amen"
end sub

Sub doxo2()
    On Error Resume Next
    Call InitAgentCommands
	call ballon

    Merlin.MoveTo MerlinLeftX, MerlinTopY
    Merlin.Show

    Merlin.Speak "Gloire au Père, et au Fils, et au Saint-Esprit, au Dieu qui est, qui était, et qui vient, pour les siècles des siècles. Amen"
end sub

Sub doxo3()
    On Error Resume Next
    Call InitAgentCommands
	call ballon
	
    Merlin.MoveTo MerlinLeftX, MerlinTopY
    Merlin.Show

    Merlin.Speak "Rendons gloire au Père Tout-Puissant, à son Fils Jésus-Christ , le Seigneur, à l'Esprit qui habite en nos coeurs, pour les siècles des siècles. Amen."
end sub

Sub notrepere()
    On Error Resume Next
    Call InitAgentCommands
	call ballon

    Merlin.MoveTo MerlinLeftX, MerlinTopY
    Merlin.Show

    Merlin.Speak "Notre Père qui es aux cieux, que ton Nom soit sanctifié, que ton règne vienne, que ta Volonté soit faite sur la terre comme au Ciel. Donne-nous aujourd'hui notre pain de ce jour. Pardonne-nous nos offenses, comme nous pardonnons aussi à ceux qui nous ont offensés. Et ne nous soumets pas à la tentation, mais délivre-nous du mal. Amen."

End Sub

Sub benediction()
    On Error Resume Next
    Call InitAgentCommands
	call ballon

    Merlin.MoveTo MerlinLeftX, MerlinTopY
    Merlin.Show

    Merlin.Speak "Que le Seigneur nous bénisse, qu'Il nous garde de tout mal, et nous conduise à la vie éternelle. Amen."

    Merlin.Hide
End Sub

' ////////////// a changer

Sub evangelique()
    On Error Resume Next
    Call InitAgentCommands
	call ballon

    Merlin.MoveTo MerlinLeftX, MerlinTopY
    Merlin.Show
Merlin.Speak "Cantique de Marie\pau=1000\"
' Antienne
	Merlin.Speak "\pau=1000\"

' a changer
Merlin.Speak "Tous ceux que m'a donnés le Père viendront à moi, je les garderai près de moi à jamais.\pau=1000\"
' fin de changement

Merlin.Speak "Mon âme exalte Le Seigneur"
Merlin.Speak "Exulte mon esprit en Dieu mon Sauveur !"
Merlin.Speak "Il s'est penché sur son humble servante"
Merlin.Speak "désormais tous les âges me diront bienheureuse"
Merlin.Speak "Le Puissant fit pour moi des merveilles"
Merlin.Speak "Saint est son Nom !"
Merlin.Speak "Son Amour s'étend d'âge en âge "
Merlin.Speak "sur ceux qui Le craignent"
Merlin.Speak "Déployant la Force de Son bras"
Merlin.Speak "Il disperse les superbes"
Merlin.Speak "Renverse les puissants de leurs trônes"
Merlin.Speak "et élève les humbles"
Merlin.Speak "Comble de biens l'affamé"
Merlin.Speak "renvoie les riches les mains vides"
Merlin.Speak "Relève Israël Son serviteur"
Merlin.Speak "et se souvient de Son Amour"
Merlin.Speak "De la Promesse faite à nos pères"
Merlin.Speak "en faveur d'Abraham et de sa race à jamais"

call doxo1	

' Antienne
Merlin.Speak "Tous ceux que m'a donnés le Père viendront à moi, je les garderai près de moi à jamais.\pau=1000\"
' fin de changement

End Sub

Sub hymne()
    On Error Resume Next
    Call InitAgentCommands
	call ballon

    Merlin.MoveTo MerlinLeftX, MerlinTopY
    Merlin.Show
	Merlin.Speak "\pau=500\Hymne\pau=500\"

Merlin.Speak "Dieu, tu révèles ta lumière"
Merlin.Speak "à ceux qui passent par la nuit :"
Merlin.Speak "béni sois-tu"
Merlin.Speak "pour les yeux qui s'ouvrent aujourd'hui"
Merlin.Speak "dans la terre nouvelle :"
Merlin.Speak "Ils te rencontrent, Dieu vivant !"
Merlin.Speak "Gloire à toi, Seigneur,"
Merlin.Speak "lumière du Royaume !"
Merlin.Speak "Tu leur dévoiles ton visage"
Merlin.Speak "après l'exode et la nuée ;"
Merlin.Speak "béni sois-tu"
Merlin.Speak "pour les yeux où danse un reflet"
Merlin.Speak "de l'aurore pascale :"
Merlin.Speak "Ils te contemplent, Dieu vivant !"
Merlin.Speak "Tu leur découvres ta présence"
Merlin.Speak "et l'allégresse des sauvés ;"
Merlin.Speak "béni sois-tu"
Merlin.Speak "pour les morts qui trouvent la paix"
Merlin.Speak "dans la joie des Noces :"
Merlin.Speak "Ils sont ta gloire, Dieu vivant !"
Merlin.Speak "Tu les attires en ton Mystère"
Merlin.Speak "avec la force de l'Esprit ;"
Merlin.Speak "béni sois-tu"
Merlin.Speak "pour les corps où monte la vie"
Merlin.Speak "jusqu'à l'aube éternelle :"
Merlin.Speak "Ils ressuscitent, Dieu vivant !"


End Sub

Sub psaume1()
    On Error Resume Next
    Call InitAgentCommands
	call ballon

    Merlin.MoveTo MerlinLeftX, MerlinTopY
    Merlin.Show
	Merlin.Speak "Psaume 120\pau=500\"

	Merlin.Speak "\pau=500\"

Merlin.Speak "Le Seigneur te gardera de tout mal, il gardera ta vie.\pau=1000\"


Merlin.Speak "Je lève les yeux vers les montagnes"
Merlin.Speak "d'où le secours me viendra-t-il ?"
Merlin.Speak "Le secours me viendra du Seigneur"
Merlin.Speak "qui a fait le ciel et la terre !"
Merlin.Speak "Qu'Il empêche ton pied de glisser"
Merlin.Speak "qu'Il ne dorme pas ton gardien"
Merlin.Speak "Non, il ne dort pas, ne sommeille pas"
Merlin.Speak "Le Gardien d'Israël !"
Merlin.Speak "Le Seigneur, ton gardien, Le Seigneur, ton ombrage"
Merlin.Speak "Se tient près de toi"
Merlin.Speak "le soleil pendant le jour ne pourra te frapper"
Merlin.Speak "ni la lune durant la nuit"
Merlin.Speak "Le Seigneur te gardera de tout mal"
Merlin.Speak "Il gardera ta vie"
Merlin.Speak "Le Seigneur te gardera au départ et au retour"
Merlin.Speak "maintenant et à  jamais"


Merlin.Speak "\PAU=1000\"

call doxo2

Merlin.Speak "\pau=1000\Le Seigneur te gardera de tout mal, il gardera ta vie."

End Sub



Sub psaume2()
    On Error Resume Next
    Call InitAgentCommands
	call ballon

    Merlin.MoveTo MerlinLeftX, MerlinTopY
    Merlin.Show
	Merlin.Speak "Psaume 129"

	Merlin.Speak "\pau=500\"

Merlin.Speak "Si tu retiens les fautes, Seigneur, Seigneur, qui subisteras ?"

Merlin.Speak "\PAU=1000\"

Merlin.Speak "Des profondeurs je crie vers Toi, Seigneur "
Merlin.Speak "Seigneur, écoute mon appel !"
Merlin.Speak "Que Ton oreille se fasse attentive "
Merlin.Speak "au cri de ma prière !"
Merlin.Speak "Si Tu retiens les fautes, Seigneur"
Merlin.Speak "Seigneur, qui subsistera ?"
Merlin.Speak "Mais près de Toi ,se trouve le pardon"
Merlin.Speak "pour que l'homme Te craigne !"
Merlin.Speak "J'espère Le Seigneur de toute mon âme"
Merlin.Speak "Je l'espère et j'attends sa Parole"
Merlin.Speak "Mon âme attend Le Seigneur"
Merlin.Speak "plus qu'un veilleur ne guette l'aurore"
Merlin.Speak "Plus qu'un veilleur ne guette l'aurore"
Merlin.Speak "attends Le Seigneur , Israël !"
Merlin.Speak "Oui, près du Seigneur est l'Amour !"
Merlin.Speak "Oui, près de Lui abonde le Rachat"
Merlin.Speak "C'est Lui qui rachètera Israël"
Merlin.Speak "de toutes ses fautes !"


Merlin.Speak "\PAU=1000\"
call doxo2

Merlin.Speak "Si tu retiens les fautes, Seigneur, Seigneur, qui subisteras ?"

End Sub

Sub psaume3()

    On Error Resume Next
    Call InitAgentCommands
	call ballon

    Merlin.MoveTo MerlinLeftX, MerlinTopY
    Merlin.Show

Merlin.Speak "Cantique"
Merlin.Speak "Philippiens 2"
Merlin.Speak "\pau=500\"

Merlin.Speak "Comme le Père éveille les morts, ainsi le Fils donne la vie."

Merlin.Speak "\PAU=1000\"

	Merlin.Speak "Le Christ Jésus,"
	Merlin.Speak "ayant la condition de Dieu,"
	Merlin.Speak "ne retint pas jalousement"
	Merlin.Speak "le rang qui l’égalait à Dieu."
	Merlin.Speak "Mais il s’est anéantit,"
	Merlin.Speak "prenant la condition de serviteur."
	Merlin.Speak "Devenu semblable aux hommes,"
	Merlin.Speak "Reconnu homme à son aspect,"
	Merlin.Speak "Il s’est abaissé,"
	Merlin.Speak "Devenant obéissant jusqu’à la mort,"
	Merlin.Speak "Et la mort de la croix."
	Merlin.Speak "C’est pourquoi Dieu l’a exalté :"
	Merlin.Speak "Il l’a doté du Nom"
	Merlin.Speak "Qui est au-dessus de tout nom,"
	Merlin.Speak "Afin qu’au nom de jésus"
	Merlin.Speak "Tout genou fléchisse"
	Merlin.Speak "Au ciel, sur terre et aux enfers,"
	Merlin.Speak "Et que toute langue proclame :"
	Merlin.Speak "«Jésus-Christ est Seigneur »"
	Merlin.Speak "à la gloire de Dieu le Père."


call doxo1
Merlin.Speak "\pau=1000\"

Merlin.Speak "Comme le Père éveille les morts, ainsi le Fils donne la vie."


End Sub


Sub paroledeDieu()
    On Error Resume Next
    Call InitAgentCommands
	call ballon

    Merlin.MoveTo MerlinLeftX, MerlinTopY
    Merlin.Show	

Merlin.Speak "Parole de Dieu \pau=1000\"	

Merlin.Speak "Ô Mort, où est ta victoire ? O mort, où est ton dard vénimeux ? Le dard de la mort, c'est le péché ; ce qui renforce le péché, c'est la Loi. Rendons grâce à Dieu qui nous donne la victoire par Jésus Christ, notre Seigneur. "
Merlin.Speak "Seigneur, mon Dieu, mon espérance."
Merlin.Speak "Fais-moi vivre car je compte sur toi."
Merlin.Speak "Ton amour fait pour moi des merveilles."
Merlin.Speak "Fais-moi vivre car je compte sur toi."
Merlin.Speak "Gloire au Père, et au Fils, et au Saint-Esprit, comme il était au commencement, maintenant, et toujours, pour les siècles des siècles. Amen. "
Merlin.Speak "Seigneur, mon Dieu, mon espérance."


End Sub

Sub intentions()
    On Error Resume Next
    Call InitAgentCommands
	call ballon

    Merlin.MoveTo MerlinLeftX, MerlinTopY
    Merlin.Show

Merlin.Speak "Intercession."
Merlin.Speak "\pau=1000\"





Merlin.Speak "Intentions libres.\PAU=15000\"

End Sub

Sub oraison()
    On Error Resume Next
    Call InitAgentCommands
	call ballon

    Merlin.MoveTo MerlinLeftX, MerlinTopY
    Merlin.Show
	Merlin.Speak "Oraison : \pau=1000\"

	Merlin.Speak "Écoute nos prières avec bonté, Seigneur : fais grandir notre foi en ton Fils ressuscité des morts,"
	Merlin.Speak "pour que soit plus vive aussi notre espérance en la résurrection de tous nos frères défunts. "

End Sub



Sub benediction()
    On Error Resume Next
    Call InitAgentCommands
	call ballon

    Merlin.MoveTo 358, 124
    Merlin.Show

    Merlin.Speak "Que le Seigneur nous bénisse, qu'Il nous garde de tout mal, et nous conduise à la vie éternelle. Amen."

    Merlin.Hide
End Sub