gatorman
02-10-2008, 05:37 AM
Here is an updated Sir Morgan script. Also, Sir Morgans pathing seemed a bit incorrect, so I fixed that as well. I'm not sure how to remove the grid entry by sql statements, but here are the inserts: (this is using the same grid id that he used before, just needs a refresh..)
#Sir Morgan's pathing to the base of high hold pass
#"gridid","zoneid","number","x","y","z","heading","pause"
INSERT into `grid_entries` VALUES (115,15,1,202,-14,4,1,45);
INSERT into `grid_entries` VALUES (115,15,2,-26,13,3,193,0);
INSERT into `grid_entries` VALUES (115,15,3,-22,-300,3,127,0);
INSERT into `grid_entries` VALUES (115,15,4,-434,-622,28,165,0);
INSERT into `grid_entries` VALUES (115,15,5,-1532,-656,23,191,0);
INSERT into `grid_entries` VALUES (115,15,6,-1899,-299,3,223,0);
INSERT into `grid_entries` VALUES (115,15,7,-2465,-311,3,191,30);
Here is his script pl:
#############
#Quest Name: Sir Morgan's Armor
#Author: Blaz
#NPCs Involved: 1
#Items Involved: 5 Gold for a random reward
#################
sub EVENT_SAY {
if($text=~/Hail/i)
{
quest::say("Hail. traveler! Might I escort you through to Highpass? The path ahead is filled with giants and many other hungry beasts. I assure you. you will be safe with me. I must admit. I am quite experienced in the ways of the warrior. Do you [wish an escort] or will you [travel alone]?");
}
if($text=~/wish an escort/i)
{
quest::say("I shall be honored to escort you to Highpass, but you shall have to wait for a spell. I make trips every few hours. I also would be grateful to any who wish to donate gold coins to the upkeep of my armor. The rains in the plains cause much rusting.");
}
if($text=~/travel alone/i)
{
quest::say("Then, good luck to you! May your faith protect you. Or at the very least, guide you to a grand afterlife.");
}
}
sub EVENT_ITEM
{
#Give Sir Morgan 5 gold
if ($gold == 5){
quest::say("What a grand donation!! You must be a rich noble to be making such a donation. Here. I am but a simple warrior, but I found this lying on the highway to Highpass Hold. The lifeless corpse next to it had no more need of it.");
#random reward: Patchwork cloak, Patchwork boots, Rusty Weapons, Silver Earring, Bloodstone, Halfling knife, Bronze Dagger, Belt pouch, Damask cap, Mountain Lion Cape, Highkeep Flask, Snakeskin Mask, Drom's Champagne.
$random = quest::ChooseRandom(2106,2112,2041,13944,2307,3829 ,1331,17002,7012,8306,10006,10019,5013,5019,5021,5 022,6011,5023,7007,7008);
# Guards of Qeynos
quest::faction("135","3");
# Karana Residents
quest::faction("167","3");
# Priests of Life
quest::faction("257","3");
# Knights of Thunder
quest::faction("183","3");
}
else{
#do all other handins first with plugin
plugin::return_items(\%itemcount);
quest::say("Thank you $name, but I do not need this, you can have it back.");
}
}
#END of FILE Zone:eastkarana ID:15048 -- Sir_Morgan
-Blaz
#Sir Morgan's pathing to the base of high hold pass
#"gridid","zoneid","number","x","y","z","heading","pause"
INSERT into `grid_entries` VALUES (115,15,1,202,-14,4,1,45);
INSERT into `grid_entries` VALUES (115,15,2,-26,13,3,193,0);
INSERT into `grid_entries` VALUES (115,15,3,-22,-300,3,127,0);
INSERT into `grid_entries` VALUES (115,15,4,-434,-622,28,165,0);
INSERT into `grid_entries` VALUES (115,15,5,-1532,-656,23,191,0);
INSERT into `grid_entries` VALUES (115,15,6,-1899,-299,3,223,0);
INSERT into `grid_entries` VALUES (115,15,7,-2465,-311,3,191,30);
Here is his script pl:
#############
#Quest Name: Sir Morgan's Armor
#Author: Blaz
#NPCs Involved: 1
#Items Involved: 5 Gold for a random reward
#################
sub EVENT_SAY {
if($text=~/Hail/i)
{
quest::say("Hail. traveler! Might I escort you through to Highpass? The path ahead is filled with giants and many other hungry beasts. I assure you. you will be safe with me. I must admit. I am quite experienced in the ways of the warrior. Do you [wish an escort] or will you [travel alone]?");
}
if($text=~/wish an escort/i)
{
quest::say("I shall be honored to escort you to Highpass, but you shall have to wait for a spell. I make trips every few hours. I also would be grateful to any who wish to donate gold coins to the upkeep of my armor. The rains in the plains cause much rusting.");
}
if($text=~/travel alone/i)
{
quest::say("Then, good luck to you! May your faith protect you. Or at the very least, guide you to a grand afterlife.");
}
}
sub EVENT_ITEM
{
#Give Sir Morgan 5 gold
if ($gold == 5){
quest::say("What a grand donation!! You must be a rich noble to be making such a donation. Here. I am but a simple warrior, but I found this lying on the highway to Highpass Hold. The lifeless corpse next to it had no more need of it.");
#random reward: Patchwork cloak, Patchwork boots, Rusty Weapons, Silver Earring, Bloodstone, Halfling knife, Bronze Dagger, Belt pouch, Damask cap, Mountain Lion Cape, Highkeep Flask, Snakeskin Mask, Drom's Champagne.
$random = quest::ChooseRandom(2106,2112,2041,13944,2307,3829 ,1331,17002,7012,8306,10006,10019,5013,5019,5021,5 022,6011,5023,7007,7008);
# Guards of Qeynos
quest::faction("135","3");
# Karana Residents
quest::faction("167","3");
# Priests of Life
quest::faction("257","3");
# Knights of Thunder
quest::faction("183","3");
}
else{
#do all other handins first with plugin
plugin::return_items(\%itemcount);
quest::say("Thank you $name, but I do not need this, you can have it back.");
}
}
#END of FILE Zone:eastkarana ID:15048 -- Sir_Morgan
-Blaz