include move.cmd





		delay
		gosub stow right
		gosub stow left
		delay
		if "$zoneid" != "66" then
                {
                    put .travel1 steelclaw
                    waitforre ^YOU ARRIVED
                }
		gosub move 108
		delay 0.0001
		gosub put kneel;kiss altar
		delay 0.0001
		gosub orbcheck
		gosub stand
		put recite Bless my sword Kertigen so it may never break.\; Hodierna bless and watch over me.\; Praise be to Meraud the ever knowledgeable.\; May Damaris never turn is empty gaze unto me.\; May Faenella bless me with her wit and wisdom.\; Chadatru grant me strength in my pursuit of justice.\; Praise Eluned and pray she keeps the seas calm whilst I am upon them.\; Everild watch over and bless me as I go into battle.\; Truffenyi help me show mercy to those who deserve it.\;
		matchwait 2
		gosub put dance
		delay 0.0001
		gosub put dance
		delay 0.0001
		gosub put dance
		delay 0.0001
		gosub orbcheck
		gosub get my water from jar
		delay 0.0001
		if "$righthand" != "holy water" then gosub bless
		gosub put clean altar with my water
		delay 0.0001
		gosub put put my water in my jar
		delay 0.0001
		gosub orbcheck
		delay 0.0001
		gosub put get my badge
		delay 0.0001
		gosub put pray my badge
		delay 0.0001
		gosub stow badge
		delay 0.0001
		gosub get bead from watersilk bag
		delay 0.0001
		gosub put commune truff
		delay 0.0001
		if $righthandnoun = orb then gosub empty_right
		if $lefthandnoun = orb then gosub empty_left
		gosub stand
		delay 0.0001
		if "$zoneid" != "69" then
        {
            put .travel1 maci
            waitforre ^YOU ARRIVED
        }
		delay 0.0001
		put .carve
		waitforre ^CARVE DONE
		delay 0.0001
		put #parse DEVO DONE
		exit


bless:

		delay 0.0001
		gosub prepare bless 1
		delay
		gosub spell_cast_target water
		wait
		delay 0.0001
		if $mana < 60 then delay 15
		return

includes:

		include utility.inc