You had about 5 or 7 closing curly brackets too many, and npcs generally cannot cast beneficial spells on players.
Therefore, use quest::selfcast(spellid);
Code:
#Quest made by John Von Draugr 10-25-04
sub EVENT_SAY
{
if($text =~ /Hail/i)
{
quest::say("Greetings $name. I am the Qeynos Gate Healer and can offer you various services currently free of charge. As a member of the Order of Eternity it is my duty to [bind your soul] to this location if that is your wish, or to offer [healing], cure [disease], cure [poison].");
}
#Binding to Point
if($text =~ /bind my soul/i)
{
quest::say("Binding your soul. You will return here when you die.");
quest::castspell($userid,2049);
}
#Binding to Point (Alt)
if($text =~ /bind/i)
{
quest::say("Binding your soul. You will return here when you die.");
quest::castspell($userid,2049);
}
#Full Healing
if($text =~ /healing/i)
{
quest::say("Your wounds are washed away. Be well my child.");
quest::selfcast(13);
}
#Cure Disease
if($text =~ /cure disease/i)
{
quest::say("I am removing the vile diseases from thy system. Be well my child.");
quest::selfcast(213);
}
#Cure Disease (Alt)
if($text =~ /disease/i)
{
quest::say("I am removing the vile diseases from thy system. Be well my child.");
quest::selfcast(,213);
}
#Cure Poison
if($text =~ /cure poison/i)
{
quest::say("I am cleansing thy system of the noxious posions within. Be well my child.");
quest::selfcast(203);
}
#Cure Poison (Alt)
if($text =~ /poison/i)
{
quest::say("I am cleansing thy system of the noxious posions within. Be well my child.");
quest::selfcast(203);
}
}
The_Horrid