gnode
11-16-2008, 11:04 PM
I can't figure out what is broken here. My captain nalot will not reply to hails. I made some changes for a custom quest but even when I restored a backup, he would not talk so I think something was wrong before I meddled.
#Zone: Iceclad Ocean
#Short Name: iceclad
#Zone ID: 110
#
#NPC Name: Captain Nalot
#NPC ID: 110069
#Quest Status: finished
#
sub EVENT_SAY {
if ($text=~/hail/i) {
quest::emote("squints at you through one eye, the other covered by a metallic eyepatch.");
quest::say("Garrr. What `ave we here? Another beller yellied land blubber, eh? By the looks of ye someones mudder didn't know when ta throw a bad fish back. HAR HAR!");
}
if ($text=~/bad fish/i) {
quest::say("That means I'm callin ya ugly as a piece o' whale blubber but twice as bad smellin, ya son of a water treadin $race. Yer about as smart as the slime we use ta patch our boat hull, aren't ya?");
}
if ($text=~/boat/i) {
quest::say("'Arrrr. So we ain't got a boat right now. What's that got ta do with anythin'? Just cause we ain't got a boat, or a way to sail the waters, or even know how ta sail, don't mean we aren't crusty and dangerous. Just watch yerself cause we're mean.");
}
if ($text=~/mean/i) {
quest::say("Thats right! We're mean, nasty, devious 'n cruel. We'll knock ya down, bite yer knees, and steal yer money. Arrr. We won't always say please and thank you either! Just remember that and don't be tryin' anyhin' funny.");
}
if ($text=~/funny/i) {
quest::say("Uh, I dunno what funny stuff. No one's ever asked that one. You know, just be nice ta everyone I guess. Think ya can do that? How is this? Either you smell funny or yer armor came off a dead and rotting corpse!");
}
if ($text=~/map/i) {
quest::say("The map? What map? Oh wait, that thing I made ol' what's-his-name do ta get los... uh adventure. Uh, sure. If yer wantin' we've got a job for ya. If ya do it ya get ta be a real member o' me crew.");
}
if ($text=~/real member of your crew/i) {
quest::say("That means ya get ta take orders from me and ya get ta use fancy words like bilge hoistin' land blubbing beller yellied, and more. Anyways, we needed a map so me lads would stop gettin' lost, but the lad I sent out ain't come back with it. I even sent out a search party but I ain't heard from them either. If ya find 'im get the map and get back 'ere.");
}
if ($text=~/armor/i) {
quest::say("No really, yer armor smells like somethin' Madan Eflik cooked last night. If ya bring me yer armor from Kunark, the planes, and some treasure I can fashion together something better that won't smell like Madan's pot roast! But I don't have time to bother with junk pieces, only breastplates and greaves. Cry to Sojan for the rest. He don't sleep anyway HA!");
}
if ($text=~/treasure/i) {
quest::say("I be a pirate. I need treasure. Rumor is this land is full of it. I hear the broad that lives in the tower here has some nice treasure. Maybe even some Wurms or genies that are about do to. All I am asking is that ya act like a good pirate, sneak in, slit their throats, or bash their skulls, or whatever you prefer, and rob them blind!");
}
if ($text=~/need/i) {
quest::say("It twinkles.");
}
}
sub EVENT_ITEM {
if (plugin::check_handin(\%itemcount, 30047 => 1)) {
quest::emote("squints and then knocks hard on the metal half of his face to get his eye back in adjustment. 'Arrr. This is perfect. Har! Now we can be plannin' our pillagin' and plunderin' all proper like. Good work, $name!'");
quest::emote("slaps you on the back and accidentally drops his eyepatch. Being a proper pirate now you conveniently forget to mention it to him.");
quest::exp(50000);
quest::summonitem(30008);
}
else {
plugin::return_items(\%itemcount);
}
}
#END of FILE Zone: iceclad ID:110069 -- Captain_Nalot
#Zone: Iceclad Ocean
#Short Name: iceclad
#Zone ID: 110
#
#NPC Name: Captain Nalot
#NPC ID: 110069
#Quest Status: finished
#
sub EVENT_SAY {
if ($text=~/hail/i) {
quest::emote("squints at you through one eye, the other covered by a metallic eyepatch.");
quest::say("Garrr. What `ave we here? Another beller yellied land blubber, eh? By the looks of ye someones mudder didn't know when ta throw a bad fish back. HAR HAR!");
}
if ($text=~/bad fish/i) {
quest::say("That means I'm callin ya ugly as a piece o' whale blubber but twice as bad smellin, ya son of a water treadin $race. Yer about as smart as the slime we use ta patch our boat hull, aren't ya?");
}
if ($text=~/boat/i) {
quest::say("'Arrrr. So we ain't got a boat right now. What's that got ta do with anythin'? Just cause we ain't got a boat, or a way to sail the waters, or even know how ta sail, don't mean we aren't crusty and dangerous. Just watch yerself cause we're mean.");
}
if ($text=~/mean/i) {
quest::say("Thats right! We're mean, nasty, devious 'n cruel. We'll knock ya down, bite yer knees, and steal yer money. Arrr. We won't always say please and thank you either! Just remember that and don't be tryin' anyhin' funny.");
}
if ($text=~/funny/i) {
quest::say("Uh, I dunno what funny stuff. No one's ever asked that one. You know, just be nice ta everyone I guess. Think ya can do that? How is this? Either you smell funny or yer armor came off a dead and rotting corpse!");
}
if ($text=~/map/i) {
quest::say("The map? What map? Oh wait, that thing I made ol' what's-his-name do ta get los... uh adventure. Uh, sure. If yer wantin' we've got a job for ya. If ya do it ya get ta be a real member o' me crew.");
}
if ($text=~/real member of your crew/i) {
quest::say("That means ya get ta take orders from me and ya get ta use fancy words like bilge hoistin' land blubbing beller yellied, and more. Anyways, we needed a map so me lads would stop gettin' lost, but the lad I sent out ain't come back with it. I even sent out a search party but I ain't heard from them either. If ya find 'im get the map and get back 'ere.");
}
if ($text=~/armor/i) {
quest::say("No really, yer armor smells like somethin' Madan Eflik cooked last night. If ya bring me yer armor from Kunark, the planes, and some treasure I can fashion together something better that won't smell like Madan's pot roast! But I don't have time to bother with junk pieces, only breastplates and greaves. Cry to Sojan for the rest. He don't sleep anyway HA!");
}
if ($text=~/treasure/i) {
quest::say("I be a pirate. I need treasure. Rumor is this land is full of it. I hear the broad that lives in the tower here has some nice treasure. Maybe even some Wurms or genies that are about do to. All I am asking is that ya act like a good pirate, sneak in, slit their throats, or bash their skulls, or whatever you prefer, and rob them blind!");
}
if ($text=~/need/i) {
quest::say("It twinkles.");
}
}
sub EVENT_ITEM {
if (plugin::check_handin(\%itemcount, 30047 => 1)) {
quest::emote("squints and then knocks hard on the metal half of his face to get his eye back in adjustment. 'Arrr. This is perfect. Har! Now we can be plannin' our pillagin' and plunderin' all proper like. Good work, $name!'");
quest::emote("slaps you on the back and accidentally drops his eyepatch. Being a proper pirate now you conveniently forget to mention it to him.");
quest::exp(50000);
quest::summonitem(30008);
}
else {
plugin::return_items(\%itemcount);
}
}
#END of FILE Zone: iceclad ID:110069 -- Captain_Nalot