Handicap-I-Must-Be(merchant help)

[Producer_BMW]

Okay yet again I have dumb questions because im lazy and cant find it where to read it ,


So say im in POK and I want to make a MERCHANT HOLD TONS OF GOODIES

#spawn Noob_Gear <-- that being the name of the MERCHANT I would like for the first one ... and also do I have to #permaspawn ??


Riiiiight ....


So how do I turn this Regular S/O/B into a merchant where my MERCHANT EDITOR will recognize him and pick it up as a ID#

or for better yet can anyone explain to me a GOOD way of doing it

ALSO if you have time to answer this question MAYBE you can help me set up a (*SPELL SCRIBER*) as well and help walk me through it

[So_1337]

Make sure that their race is set to 41. I remember that confusing me for awhile.

[Producer_BMW]

So can you type it out how it SHOULD be like

# _____ __ ____ ___ ??

please ...

[So_1337]

INSERT INTO npc_types VALUES (202373,'Recruiter_Lauren','Spell Scriber',70,1,41,1,800000,1,1,0,6,500,500,0,999999,0,0,200,1000,'ABH',50,0,0,0,0,0,0,0,96,0,2,150,150,150,150,150,1,1,0,1600,0,0,-33,0,150,150,150,150,150,150,150,1,0,1,0,1,0,0);
INSERT INTO spawngroup VALUES(99999,'Recruiter_Lauren1',0,0,0,0,0,0,0);
INSERT INTO spawn2 VALUES(99999,99999,'poknowledge',-19.9,61.9,-157.2,157,0,0,0,0,0,1);
INSERT INTO spawnentry VALUES(99999,202373,100);

This is a set of queries I use to add a custom vendor to PoK. (She also functions as a spell-scriber and a few other things.) She's currently set to use merchantlist 999999 (so I don't have to change the IDs every time PEQ releases a new database).

If there's a way to create a merchant via #spawn, I've never tried it. However, if you're looking for a permanent one, you're free to use the queries above to add this one. Customize it as you'd like.

[Producer_BMW]

Im confused which is the merchant and which is the Spel Scriber and how do I make the scriber work

Sorry if im taking up your time I just wanna do it right

[So_1337]

Forgive me for adding confusion to it. Her first name is Recruiter Lauren and her last name (the that displays in <> tags) is Spell Scriber, so I wanted to explain that she was being used for that on our server is why she was named as such. She won't scribe spells unless you have a quest file in place for her.

The query I gave will put her in as a simple merchant NPC in PoK, very near to where #zone takes you for that zone. It's next to a nearby tree. You can put any items you'd like on her so long as they're in merchantlist #99999:

INSERT INTO merchantlist VALUES (999999,1,17403);
INSERT INTO merchantlist VALUES (999999,2,75844);
INSERT INTO merchantlist VALUES (999999,3,29066);

The third column is the item ID, and you can change it to whatever you like. Just use these as a template if that's what you're looking to do.

Hopefully that helps clear up the confusion. Sorry for not explaining it clearly the first time!

[So_1337]

As for the spell scribing script, figured I'd share. This is the script I use on our server. Some of it pertains to only us, but I commented a few of the lines and you're welcome to use whatever you'd like.

Two things that might need explained -- I use custom hails for certain characters to get a personal response. So the hail check checks for character names and gives a special response if the character name matches =)

The second thing is that every class (except mages) can have their spells scribed up through 51. Mages are the exception because I didn't want them getting a free epic. As you can see in the script, she points mages to Progression Status when they hit 45. He's a custom NPC I use so players can check what landmarks for progression to the next expansion have been unlocked and which remain. In addition, he's been flagged as a vendor with mage spells on him from 45-51. If you don't mind mages having a free epic, you can take out the exceptions that I put in place.

Hopefully you find some use for either parts or all of this =)

sub EVENT_SAY {
 if($text =~ /hail/i && $name =~ /Greenmist/) {
  quest::say("I love you! <3");
 }
 elsif($text =~ /hail/i && $name =~ /Tissirja/) {
  quest::say("My favorite cleric! <3");
 }
 elsif($text =~ /hail/i && $name =~ /Chinc/) {
  quest::say("Haha. You're hung like a five year old. Go back to playing Starcraft, we all hate you.");
 }
 elsif($text =~ /hail/i && $name =~ /Arcite/) {
  quest::say("Fall to the ground and stay there forever. Please. What, you gonna cry about it? Go worsen your wounds, emo monk.");
 }
 elsif($text =~ /hail/i) {
  quest::say("Welcome to the Order of Hasson server, how can I help you today? Would you like me to help you [scribe] your spells? Or maybe [heal] your wounds? Or maybe you'd like me to [bind] your soul?");
 }
 elsif ($text =~ /scribe/i && $ulevel <= 51 && $class ne Magician) {
  quest::say("Very well, here you are $name!");
  quest::scribespells();
 }
 elsif($text =~ /scribe/i && $ulevel <= 44 && $class == Magician) {
  quest::say("Very well, here you are $name!");
  quest::scribespells();
 }
 elsif($text =~ /scribe/i && $ulevel >= 45 && $class == Magician) {
  quest::say("Sorry, $name.  You are too high to have any spells scribed! Progression Status over there should have your spells from 45-51, though!");
  quest::emote("waves at Progression Status.");
 }
 elsif ($text =~ /scribe/i && $ulevel >= 52) {
  quest::say("Sorry, $name.  You are too high to have any spells scribed!");
 }
 elsif($text =~ /heal/i) { #Fully heals mana and health
  quest::say("Let me fix that for you!");
  quest::selfcast(13);
  quest::selfcast(999);
 }
 elsif($text =~ /bind/i) { #Binds players
  quest::say("Binding your soul!");
  quest::selfcast(35);
 }
 elsif($text =~ /retard/i) { #Fixes common tongue for lizards
  quest::say("Yes, I'm sure you're tired of being a retard who can't speak proper English. Have a lesson!");
  quest::setlanguage(0,100);
 }
}

sub EVENT_ITEM { #This portion allows her to cast GM haste on players who give her 1 platinum, 3 gold, 3 silver, and 7 copper. However, she has a 10% chance to DT players who do so and shout their name across all zones.
 if(($platinum==1) && ($gold==3) && ($silver==3) && ($copper==7)) {
 my $Chance = quest::ChooseRandom(1,2,3,4,5,6,7,8,9,10);
 if ($Chance == '1') {
  $client->Damage($npc, 1000000, SPELL_UNKNOWN, 2);
  quest::shout2("$name!");
 }
  quest::selfcast(6593);
  quest::say("Hehe, enjoy!");
 }
else{
  quest::say("What the hell am I supposed to do with that? Take it back. And get away from me, freak!");
  plugin::return_items(\%itemcount);
 }
}

#Submitted by Jim Mills