#tr {* asks: "services?"} {say I provide Shield, Holy Armour, Shining Cloak. My Fa.Sp.De.Ta is 1038. I also give Bless and Enchant with Fa.S.M.T of 1035. To receive Eliatha's gifts, say 'services' without the question mark.} {priestbot}
#tr {* says, "services %1"} {petitioner = %1;#if (%ismember(@petitioner,@banned)) {t @petitioner It appears you did something in the past to disqualify you from my services. May Eliatha forgive you, for I do not.} {#raise services;#t- services1;#t+ services2;#t+ services3}} {services1}
#tr {%1 says, “services”} {say Please %1, one at a time. I’m currently dealing with @petitioner.} {services2}
#tr {%w says, "%w"} {#if (%1 = @petitioner) {service = %2}} {services3}
#tr {%1 is %2.} {#if (%1 = @petitioner) {align = %2}} {services3}
#var alignment {Epitome of Goodness|Divine|Angelic|Saintly|Heroic|Virtuous|Valorous|Upright|Honorable|Righteous|Beneficent|Benevolent|Worthy|Unsullied|Neutral|Tainted|Corrupt|Twisted|Malicious|Pernicious|Nefarious|Villainous|Fiendish|Malevolent|Black Hearted|Diabolic|Demonic|Infernal|Evil Incarnate} {priestbot}
#event lookupalign {#switch (%ismember(@petitioner,@good)) {#raise services} (%ismember(@petitioner,@notbad)) {t @petitioner Welcome back. I hope you have continued along the path of good since we last met.;#raise confirmalign} (%ismember(@petitioner,@bad)) {t @petitioner When we last met you were treading down a dark path, have you repented?;#raise confirmalign} {t @petitioner This appears to be your first time here. Let me see how I can help you. Please hold still, this won't hurt.;#raise confirmalign}} {priestbot}
#event confirmalign {cast detect alignment @petitioner;#waitfor {%w is %w.} 5000 {#raise filebyalign}} {priestbot}
#event filebyalign {#switch (%ismember(@align,@alignment) <= 11) {t @petitioner Your Alignment allows for all Spells to be cast, please wait a moment.;#raise services;#additem good @petitioner;#delitem notbad @petitioner;#delitem bad @petitioner} (10 <= %ismember(@align,@alignment) <= 15) {t @petitioner Unless you are at least Beneficient will not provide Bless.;#raise services;#additem notbad @petitioner;#delitem good @petitioner;#delitem bad @petitioner} (%ismember(@align,@Alignment) > 15) {t @petitioner, my services are not available to someone of your alignment.;#additem bad %1;#delitem good %1;#delitem notbad %1;#raise end}} {priestbot}
#event services {t @petitioner Please tell me what I can do for you: "berries", "buffs", "enchant", "end";#waitfor {%w says, "%w"} 10000 {#raise @service} {#raise timeout}} {priestbot}
#event buffs {t @petitioner Now would be a good time to dispel any older buffs so that you get a fresh batch. When you are ready to proceed, just nod.;#waitfor {%w nods.} 10000 {defs @petitioner} {t @petitioner I'm going to proceed eitherway.};defs @petitioner;#raise services} {priestbot}
#event enchant {t @petitioner Place the weapon you want enchanted on the ground. Nod when ready;#waitfor {%w nods.} 10000 {cast enchant weapon;#raise services} {#raise timeout}} {priestbot}
#event berries {t @petitioner Say many Goodberries do you need (100 max);#waitfor {%w says, "%n"} 10000 {cast goodberrry @berry;#raise services} {#raise timout}} {priestbot}
#event timeout {t @petitioner Well if that is all, I'll be back to my reading. Feel free to inquire again.;say Next customer please.;#t- services2;#t+ services1} {priestbot}
#event end {t @petitioner If that is all, I have other customers to see to.;say Next!;#t- services2;#t- services3;#t+ services1} {priestbot}
EoG = 1
Beneficient = 11
Neutral = 15
EI = 29
#event bless {cast bless %1;#waitfor {You begin casting bless} 1000 {‘Something has gone wrong, either you are already blessed (use “dispel bless” if you want a refresh) or your alignment has dropped below Beneficent since last you came here.;#AB};#waitfor {Finish Casting Bless};#raise holyarmour @petitioner}
#event holyarmour {cast holy armour %1; #waitfor {You start Casting} 1000 {‘Seems you already have Holy Armour, use “dispel holy armour” if you want a refresh.;#AB};#waitfor {You finish casting};#raise shimcloak @petitioner}
#event shimcloak {cast shimmering cloak %1;#waitfor {You start Casting} 1000 {‘Seems you already have Shimmering Cloak, use “dispel shimmering cloak” if you want a refresh.;#AB};#raise holyshield @petitioner}
#event holyshield {cast holy shield %1;#waitfor {You start Casting} 1000 {‘Seems you already have a Shield spell, you will have to dispel it if you want it refreshed;#AB}