| realityincarnate |
04-04-2008 10:53 AM |
Erudin: Cures
This is the script for the Cleric in Erudin who heals and cures disease/poison for a "donation."
Cipse_Tospyr.pl zone:erudnext
Code:
#############
#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
Code:
quest::castspell($userid,200);
to
Code:
$npc->CastSpell(200,$userid);
he then heals as expected. |