Erudin: Cures

[realityincarnate]

This is the script for the Cleric in Erudin who heals and cures disease/poison for a "donation."

Cipse_Tospyr.pl zone:erudnext

#############
#Erudin Cures
#Author: RealityIncarnate
#NPC: Cipse Tospyr
#Zone: erudnext
#############

sub EVENT_SAY {
  if ($text=~/Hail/i) {
    quest::say("Hello, $name. I welcome you to the Temple of Divine Light. I am the resident healer. If you should ever require the power of Quellious to [bind wounds], [cure disease] or [cure poison], speak with me and I shall help you.");
  }

  if($text=~/bind wounds/i) {
    quest::say("I shall be pleased to help you with your wounds. The Temple of Divine Light requires a tribute of four gold before I may perform the service.");
  }

  if($text=~/cure disease/i) {
    quest::say("Your malady will be nothing more than a memory, but before that can be, we ask that a donation of two gold coins be offered.");
  }

  if($text=~/cure poison/i) {
    quest::say("You must pay the tribute of three gold before I cast the toxin from your body.");
  }
}

sub EVENT_ITEM {
  if ($gold == 3) {
    $npc->CastSpell(203,$userid);
  }

  elsif ($gold == 2) {
    $npc->CastSpell(213,$userid);
  }

  elsif ($gold == 4) {
    $npc->CastSpell(12,$userid);
  }

  else {
    quest::say("We don't offer any services at that price");
    quest::givecash($copper,$silver,$gold,$platinum);
  }
}
  
#END of FILE Zone:erudnext

On a dimly related note, I also noticed an npc, Elmion Hendrys, in Dagnor's Cauldron who is suppsed to cast a heal spell on you but does not. If you alter the script from

quest::castspell($userid,200);

to

$npc->CastSpell(200,$userid);

he then heals as expected.

[cavedude]

Submitted, thank you!