API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Feb 1st, 2013
134
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 56.31 KB | None | 0 0
raw download clone embed print report
  1. -- Perl2Grim AUTO CONVERT FROM 01.08.2013 23:58:04
  2.  
  3. -- Perl2Grim AUTO CONVERT BEGIN felwithea\Arrias_Arcanum.pl
  4. function Arrias_Arcanum_EVENT_ON_SAY (npc,e)
  5.     if (e:HasMessage("hail")) then  
  6.         npc:Say("I am sorry, young one, but I am too burdened by my own [troubles] to help you now. Please seek another of the faith to ease your soul.")
  7.     end
  8.     if (e:HasMessage("troubles")) then  
  9.         npc:Say("My son Ariam, a paladin of this fair city, has been missing for many years. Now, after remaining hopeful for so long, I have given up and it has broken my heart and soul. If I could but hear news to know of his fate, then I could find comfort again. Until then, I am no good to others. I am sorry.")
  10.     end
  11. end
  12.  
  13. eventManager:AddListener("Arrias Arcanum","felwithea",EVENT_ON_SAY,Arrias_Arcanum_EVENT_ON_SAY)
  14.  
  15. function Arrias_Arcanum_EVENT_ON_ITEMS_RECEIVED (npc,e)
  16.     if (npc:ConsumeItems({[31493]=1})) then  
  17.         npc:Say("This! This is the gift my daughter gave Ariam to aid his cause. This too is the piece of my soul that was missing. Your news of his fate is troubling, yet his heroism even beyond this life is cause for celebration. Here, keep this token. My heart is mended and I have no need of it. Once such as yourself who will continue to fight for the things in which my son believes ought to bear this. I am sure my daughter would agree.")
  18.         npc:RewardItem(e:GetClient(),31495)
  19.         e:GetClient():AddExperience(300)
  20.         npc:RewardMoney(e:GetClient(), 0, 5, 0, 0 )
  21.         --e:GetClient():ModifyFaction( 8,   3 )
  22.         --e:GetClient():ModifyFaction( 43,  3 )
  23.         --e:GetClient():ModifyFaction( 178, 3 )
  24.    
  25.     else
  26.         npc:Say("This will not help me.")
  27.         --plugin::return_items( \itemcount )
  28.     end
  29. end
  30.  
  31. eventManager:AddListener("Arrias Arcanum","felwithea",EVENT_ON_ITEMS_RECEIVED,Arrias_Arcanum_EVENT_ON_ITEMS_RECEIVED)
  32.  
  33. -- Perl2Grim AUTO CONVERT END felwithea\Arrias_Arcanum.pl
  34.  
  35. -- Perl2Grim AUTO CONVERT BEGIN felwithea\Challice.pl
  36. function Challice_EVENT_ON_SAY (npc,e)
  37.     if (e:HasMessage("Hail")) then  
  38.         npc:Say("You!  Remove yourself from my presence!  Do you not know to whom you speak?  My husband is a very powerful noble and if you do not do as I say. he will have your head!")
  39.     end
  40. end
  41.  
  42. eventManager:AddListener("Challice","felwithea",EVENT_ON_SAY,Challice_EVENT_ON_SAY)
  43.  
  44. function Challice_EVENT_ON_ITEMS_RECEIVED (npc,e)
  45.  
  46.     -- Note handin:
  47.     if (npc:ConsumeItems({[14334]=1})) then  
  48.         npc:Say("Oh yes? Arantir? What a fool he was! the man gave me everything, but for all his intelligence, he could never understand why I was truly with him. It was for his power; he could do anything. But when he mysteriously lost it, he became just another toy. I never loved him. Return this ring to him. He will understand that I have no desire to see him again.")
  49.         --e:GetClient():ModifyFaction( 342, 30 ) -- Truespirit
  50.         e:GetClient():AddExperience(100000)
  51.         npc:RewardItem(e:GetClient(),14335)
  52.     end
  53. end
  54.  
  55. eventManager:AddListener("Challice","felwithea",EVENT_ON_ITEMS_RECEIVED,Challice_EVENT_ON_ITEMS_RECEIVED)
  56.  
  57. -- END of FILE Zone:felwithea  ID:61006 -- Challice
  58. -- Perl2Grim AUTO CONVERT END felwithea\Challice.pl
  59.  
  60. -- Perl2Grim AUTO CONVERT BEGIN felwithea\Chenori_Berinal.pl
  61. -- BeginFile: felwithea\Chenori_Berinal.pl
  62. -- Quest for Northern Felwithe - Chenori Berinal: LoY Cultural Robes
  63. function Chenori_Berinal_EVENT_ON_SAY (npc,e)
  64.     local TrueRace = 0 --e:GetClient():GetBaseRace()
  65.  
  66.     if (e:HasMessage("hail")) then  
  67.         npc:Say("Hello, " .. e:GetClient():GetName() .. ". Feel free to browse my wares. Unless you are looking to make a special Feir`Dal robe. If so, just let me know that you want a [robe pattern].") -- Still need real text
  68.     end
  69.     if (e:HasMessage("robe pattern")) then  
  70.         if (TrueRace == 5) then   -- High Elf
  71.             npc:Say("Very well. Take this pattern, and good luck to you High Elf.") -- Still need real text
  72.             npc:RewardItem(e:GetClient(),65212) -- Feir`Dal Robe Pattern
  73.        
  74.         else
  75.             npc:Say("You are not a High Elf! Who are you trying to fool?") -- Still need real text
  76.         end
  77.     end
  78. end
  79.  
  80. eventManager:AddListener("Chenori Berinal","felwithea",EVENT_ON_SAY,Chenori_Berinal_EVENT_ON_SAY)
  81.  
  82. function Chenori_Berinal_EVENT_ON_ITEMS_RECEIVED (npc,e)
  83.     npc:Say("I have no use for this, " .. e:GetClient():GetName() .. ".")
  84.     --plugin::return_items( \itemcount )
  85. end
  86.  
  87. eventManager:AddListener("Chenori Berinal","felwithea",EVENT_ON_ITEMS_RECEIVED,Chenori_Berinal_EVENT_ON_ITEMS_RECEIVED)
  88.  
  89. -- END of FILE Zone:felwithea  ID:61068 -- Chenori_Berinal
  90. -- Perl2Grim AUTO CONVERT END felwithea\Chenori_Berinal.pl
  91.  
  92. -- Perl2Grim AUTO CONVERT BEGIN felwithea\Elia_the_Pure.pl
  93. --  Paladin Epic 1.0
  94. --  NPCID: 61013
  95. --  Zone: felwithea
  96. function Elia_the_Pure_EVENT_ON_SAY (npc,e)
  97.     if (e:HasMessage("Hail")) then  
  98.         npc:Say("Hail to you, friend. If you require assistance, please ask, if not I must return to my tasks.")
  99.     end
  100.     if (e:HasMessage("tasks")) then  
  101.         npc:Say("It is here that the light shines brightest in our fair city. Here I sit, transcribing scrolls of luminescence. Spells to light the dark, to blind the evil with purity, or to heal those in pain. I find it so much easier to work with such spells if I am in the light itself.")
  102.     end
  103.     if (e:HasMessage("purity")) then  
  104.         npc:Say("Cleansing and such. Often our temple will cleanse evil. If you have need of such a thing, I can help. Merely let me examine the item.")
  105.     end
  106. end
  107.  
  108. eventManager:AddListener("Elia the Pure","felwithea",EVENT_ON_SAY,Elia_the_Pure_EVENT_ON_SAY)
  109.  
  110. function Elia_the_Pure_EVENT_ON_ITEMS_RECEIVED (npc,e)
  111.     if (npc:ConsumeItems({[29002]=1})) then   -- tainted darksteel shield
  112.         npc:Emote("squints and turns her head. 'By the gods, such a twisted aura this has! To see it hurts my eyes. I will help you if for no other reason than to remove such a twisted thing from existence.' She unrolls a scroll from her pack and softly chants over the dark metal shield. She hands it back to you with an exhausted smile on her face. 'Your heart seems pure. If I was able to help at all, I am honored. May the light shine warmly upon you.'")
  113.         npc:RewardItem(e:GetClient(),29005) -- gleaming crested shield
  114.    
  115.     else
  116.         npc:Say("I do not need this.")
  117.         --plugin::return_items( \itemcount )
  118.     end
  119. end
  120.  
  121. eventManager:AddListener("Elia the Pure","felwithea",EVENT_ON_ITEMS_RECEIVED,Elia_the_Pure_EVENT_ON_ITEMS_RECEIVED)
  122.  
  123. -- END of FILE Zone:felwithea  ID:61013 -- Elia_the_Pure
  124. -- Perl2Grim AUTO CONVERT END felwithea\Elia_the_Pure.pl
  125.  
  126. -- Perl2Grim AUTO CONVERT BEGIN felwithea\Exterminator_Valern.pl
  127. function Exterminator_Valern_EVENT_ON_SAY (npc,e)
  128.     if (e:HasMessage("hail")) then  
  129.         npc:Say("Hello. Nice day, isn't it? It would be nicer if I didnt have to spend it killing these disgusting rodents that have infested town. Hey, I have an idea! How about you go kill some of them for me and collect four of their whiskers? I will reward you, of course.")
  130.     end
  131. end
  132.  
  133. eventManager:AddListener("Exterminator Valern","felwithea",EVENT_ON_SAY,Exterminator_Valern_EVENT_ON_SAY)
  134.  
  135. function Exterminator_Valern_EVENT_ON_ITEMS_RECEIVED (npc,e)
  136.     if (npc:ConsumeItems({[13071]=4})) then  
  137.         npc:Say("Here are you coins as promised. Have a nice day. I wish I could.")
  138.         --e:GetClient():ModifyFaction( 212, 5 )
  139.         --e:GetClient():ModifyFaction( 8,   5 )
  140.         npc:RewardMoney(e:GetClient(), 1, 1, 1, 0 )
  141.    
  142.     else
  143.         --plugin::return_items( \itemcount )
  144.     end
  145. end
  146.  
  147. eventManager:AddListener("Exterminator Valern","felwithea",EVENT_ON_ITEMS_RECEIVED,Exterminator_Valern_EVENT_ON_ITEMS_RECEIVED)
  148.  
  149. -- Submitted by Senzo : PEQ Quest Team
  150. -- Perl2Grim AUTO CONVERT END felwithea\Exterminator_Valern.pl
  151.  
  152. -- Perl2Grim AUTO CONVERT BEGIN felwithea\General_Jyleel.pl
  153. --  Orc Runner
  154. --  Illegible scroll
  155. --  The Falchion
  156. --  Paladin Guildmaster
  157. function General_Jyleel_EVENT_ON_SAY (npc,e)
  158.     if (e:HasMessage("Hail")) then  
  159.         npc:Say("Stand at attention!!  I am General Jyleel. of the Koada'Vie. defenders of Felwithe.  Do you [follow Tunare]. the Mother of All. or do you still [seek your enlightenment]?")
  160.     end
  161.     if (e:HasMessage("follow Tunare")) then  
  162.         npc:Say("Then you are wise indeed.  Would you like to [assist the defenders] in our conflicts or have you other business to attend to?")
  163.     end
  164.     if (e:HasMessage("seek my enlightenment")) then  
  165.         npc:Say("Then seek it within these walls.  We welcome all fine upstanding Koada'Dal.")
  166.     end
  167.     if (e:HasMessage("assist the defenders")) then  
  168.         npc:Say("Seek out the Crushbone orcs of the Faydarks.  We must have their oracle scrolls.  They are illegible to you, but we will study them here in Felwithe.  Only the orc oracles will carry them, so be very careful.  There is also the problem with the [Crushbone runners].")
  169.     end
  170.     if (e:HasMessage("what crushbone runners")) then  
  171.         npc:Say("The Crushbone orcs are sending messages across the Ocean of Tears to Antonica.  Why. we do not know.  The runner is usually spotted on the open pathways of Butcherblock. running toward the docks.  Find him. kill him. and return his note pouch.")
  172.     end
  173.     if (e:HasMessage("faithful paladin of this court")) then  
  174.         npc:Say("I command you to seek out this Ambassor DVinn and rip his heart from his lifeless body. Next, find the supreme caster of the orcs and, finally, find the spot where supplies are dropped by the Teir`Dal for the orcs. There you should find the supply crate. Return all 3 items and you shall wield the falchion.")
  175.     end
  176. end
  177.  
  178. eventManager:AddListener("General Jyleel","felwithea",EVENT_ON_SAY,General_Jyleel_EVENT_ON_SAY)
  179.  
  180. function General_Jyleel_EVENT_ON_ITEMS_RECEIVED (npc,e)
  181.     if (npc:ConsumeItems({[13225]=1})) then  
  182.         npc:Say("Very fine work. A pity you are not Koada'Vie. Here is a small reward for you. Anytime you come upon an oracle. remember to return its scroll to me. Go and find your fate on the field of battle.")
  183.         npc:RewardItem(e:GetClient(), grim.random({15200,15042,15226,13360,15246,15276}) ) -- low level spell or Rotted Illegible Scroll
  184.         npc:RewardMoney(e:GetClient(), 1, 2, 0, 0 )
  185.         --e:GetClient():ModifyFaction( 178, 1 ) --  King Tearis Thex
  186.         --e:GetClient():ModifyFaction( 8,   1 ) --  Anti Mage
  187.         --e:GetClient():ModifyFaction( 43,  1 ) --  Clerics of Tunare
  188.    
  189.     elseif (npc:ConsumeItems({[13226]=1})) then  
  190.         npc:Say("So, the Teir'Dal are behind the recent advances of the orcs?!! Your news has shed light on their union. It is time to step forth and prove yourself a [faithful paladin of this court].")
  191.         npc:RewardMoney(e:GetClient(), 1, 2, 0, 0 )
  192.         --e:GetClient():ModifyFaction( 178, 1 ) --  King Tearis Thex
  193.         --e:GetClient():ModifyFaction( 8,   1 ) --  Anti Mage
  194.         --e:GetClient():ModifyFaction( 43,  1 ) --  Clerics of Tunare
  195.    
  196.     elseif (npc:ConsumeItems({[12330]=1,[12329]=1,[13227]=1})) then   --  A Large Locked Crate, Blue Orc Head, Black Heart
  197.         npc:Say("Very fine work. A pity you are not Koada'Vie. Here is a small reward for you. Anytime you come upon an oracle. remember to return its scroll to me. Go and find your fate on the field of battle.")
  198.         npc:RewardItem(e:GetClient(),5379) --  Falchion of the Koada'Vie
  199.     end
  200.  
  201.     -- do all other handins first with plugin, then let it do disciplines
  202.     --plugin::try_tome_handins( \itemcount,  )
  203.     --plugin::return_items( \itemcount )
  204. end
  205.  
  206. eventManager:AddListener("General Jyleel","felwithea",EVENT_ON_ITEMS_RECEIVED,General_Jyleel_EVENT_ON_ITEMS_RECEIVED)
  207.  
  208. -- END of FILE Zone:felwithea  ID:61026 -- General_Jyleel.pl
  209. -- Perl2Grim AUTO CONVERT END felwithea\General_Jyleel.pl
  210.  
  211. -- Perl2Grim AUTO CONVERT BEGIN felwithea\Inkeeper_Freegraze.pl
  212. function Inkeeper_Freegraze_EVENT_ON_SAY (npc,e)
  213.     if (e:HasMessage("tolon nurbyte")) then  
  214.         npc:Say("So you are inquiring about Mister Tolon Nurbyte, eh? He is on the second floor, last door on the right. You two had best not be up to any mischief. The pair of you look a little shifty for the kingdom of Felwithe.")        
  215.         zoneManager:SpawnNPC({  SPAWN_TYPE_ID=61095,
  216.                                 SPAWN_LOC={-343, 155, 17, 8},                              
  217.                                 SPAWN_UNIQUE=1})
  218.     end
  219. end
  220.  
  221. eventManager:AddListener("Inkeeper Freegraze","felwithea",EVENT_ON_SAY,Inkeeper_Freegraze_EVENT_ON_SAY)
  222.  
  223. -- Perl2Grim AUTO CONVERT END felwithea\Inkeeper_Freegraze.pl
  224.  
  225. -- Perl2Grim AUTO CONVERT BEGIN felwithea\Lieutenant_Rosaed.pl
  226. function Lieutenant_Rosaed_EVENT_ON_SAY (npc,e)
  227.     if (e:HasMessage("Hail")) then  
  228.         npc:Say("What are you doing up here?  This area is for the Koada'Vie only!  If you are not a [defender of Felwithe]. leave at once!!")
  229.     end
  230.     if (e:HasMessage("what defender of felwithe")) then  
  231.         npc:Say("All paladins who have been charged with the defense of Felwithe are called Defenders.")
  232.     end
  233.     if (e:HasMessage("i am a defender of felwithe")) then  
  234.         npc:Say("Hmmph!!  You are a little short to be a guard.  Let us get to work then.  There is much to do.  I have news of a [frightening development] of late.")
  235.     end
  236.     if (e:HasMessage("what frightening development")) then  
  237.         npc:Say("Felwithe weeps!! Our beautiful flower. Princess Lenya Thex. has been reported missing! Lord Tynkale says he is looking into the matter. but I fear he is taking far too long.  I have heard that a man named Tolon Nurbyte has been seen in the city lately.  He looks like a shady one.  I would seek him out for answers to her disappearance.")
  238.     end
  239. end
  240.  
  241. eventManager:AddListener("Lieutenant Rosaed","felwithea",EVENT_ON_SAY,Lieutenant_Rosaed_EVENT_ON_SAY)
  242.  
  243. -- END of FILE Zone:felwithea  ID:61029 -- Lieutenant_Rosaed
  244. -- Perl2Grim AUTO CONVERT END felwithea\Lieutenant_Rosaed.pl
  245.  
  246. -- Perl2Grim AUTO CONVERT BEGIN felwithea\Lord_Nethryn.pl
  247. function Lord_Nethryn_EVENT_ON_SAY (npc,e)
  248.     if (e:HasMessage("i am well")) then  
  249.         npc:Say("Excellent! It is quite a pleasant day. indeed. However. I am curious. and I do not mean [to pry]. but by what grace of Tunare have I the pleasure of your company? Perhaps you merely [travel]. or is it [me] you truly seek?")
  250.     end
  251.     if (e:HasMessage("i travel")) then  
  252.         npc:Say("A traveler then? Perhaps for adventure and fame. Indeed. I do remember those days. It has been. . . quite some time. so much that I can hardly remember. In any case. my reminiscence must be of no consequence to you. and I do not wish to keep you. Please. do be well and may Tunare's grace kindly guide you through your path.")
  253.     end
  254.     if (e:HasMessage("what realm")) then  
  255.         npc:Say("I am Lord Nethryn the Arbitrator. once a devout priest of Tunare. and now a most loyal servant. I once resided within the Realm of Heroes. but she has called upon me to [serve] again as I once did within my mortal form.")
  256.     end
  257.     if (e:HasMessage("what serve")) then  
  258.         npc:Say("There are five coins. five very specific coins. each of which contains a divine light and essence. Even the hand and eye of the most crafted rogue or artist cannot forge Honor. Insight. Gallantry. Tranquility. or Faith.")
  259.     end
  260.     if (e:HasMessage("what faith")) then  
  261.         npc:Say("There are five coins. five very specific coins. each of which contains a divine light and essence. Even the hand and eye of the most crafted rogue or artist cannot forge Honor. Insight. Gallantry. Tranquility. or Faith.")
  262.     end
  263. end
  264.  
  265. eventManager:AddListener("Lord Nethryn","felwithea",EVENT_ON_SAY,Lord_Nethryn_EVENT_ON_SAY)
  266.  
  267. -- END of FILE Zone:felwithea  ID:61066 -- Lord_Nethryn
  268. -- Perl2Grim AUTO CONVERT END felwithea\Lord_Nethryn.pl
  269.  
  270. -- Perl2Grim AUTO CONVERT BEGIN felwithea\Merchant_Irontree.pl
  271. function Merchant_Irontree_EVENT_ON_SAY (npc,e)
  272.     if (e:HasMessage("Hail")) then  
  273.         npc:Say("Well met. " .. e:GetClient():GetName() .. "! I am a master craftsman of both steel and [mithril plate] armors. I am also the creator of the [woodlanders shields]. light shields perfect for those who spend much time under the canopy of the All Mothers forests.")
  274.     end
  275.     if (e:HasMessage("what mithril plate")) then  
  276.         npc:Say("Mithril plate armor is an enduring light weight armor that can only be crafted in our unique Koada'Dal Forge. It is perfect for those who wish to battle the enemies of the All Mother in protection and comfort. It is the most silent of all plate armors. a definite advantage for gaining the upper hand on those who would dare invade our forests. All pieces of mithril plate will require the appropriate Plate section Mold, some Moonlight Temper, an Elven Smithy Hammer, Mithril Chain Jointing and Leather Padding. Visors, Collars, Bracers and Boots require one Folded Sheet of Mithril. Helms, Pauldrons, Girdles, Vambraces and Gauntlets require two Folded Sheets of Mithril. Breastplates, Cloaks and Greaves require three Folded Sheets of Mithril.")
  277.     end
  278.     if (e:HasMessage("what woodlanders shields")) then  
  279.         npc:Say("Woodlanders shields can only be crafted in our unique Koada'Dal Forge. In order to successfully craft such a shield you will require a Kite Shield Mold, two Sheets of Mithril, an Elven Smithy Hammer and some Moonlight Temper. If you are a faithful subject of the All Mother than you may attempt to craft a magical woodlanders shield by forging an emerald that has been imbued by a cleric into the shield at the time of its creation.")
  280.     end
  281. end
  282.  
  283. eventManager:AddListener("Merchant Irontree","felwithea",EVENT_ON_SAY,Merchant_Irontree_EVENT_ON_SAY)
  284.  
  285. -- END of FILE Zone:felwithea  ID:61057 -- Merchant_Irontree
  286. -- Perl2Grim AUTO CONVERT END felwithea\Merchant_Irontree.pl
  287.  
  288. -- Perl2Grim AUTO CONVERT BEGIN felwithea\Merchant_Nora.pl
  289. --  ancient pattern subquest -- ranger epic
  290. --
  291. function Merchant_Nora_EVENT_ON_ITEMS_RECEIVED (npc,e)
  292.     if (npc:ConsumeItems({[20458]=1})) then  
  293.         npc:Say("You hardly look like the type of errand runner Farios usually sends out to fetch his groceries but here they are. I hope he chokes on them. Oh, and tell him he still owes me five gold for his last order!")
  294.         npc:RewardItem(e:GetClient(),20459)
  295.    
  296.     else
  297.         npc:Emote("will not take this item.")
  298.         --plugin::return_items( \itemcount )
  299.     end
  300. end
  301.  
  302. eventManager:AddListener("Merchant Nora","felwithea",EVENT_ON_ITEMS_RECEIVED,Merchant_Nora_EVENT_ON_ITEMS_RECEIVED)
  303.  
  304. --  EOF zone: felwithea ID: 61034 NPC: Merchant_Nora
  305. -- Perl2Grim AUTO CONVERT END felwithea\Merchant_Nora.pl
  306.  
  307. -- Perl2Grim AUTO CONVERT BEGIN felwithea\Opal_Leganyn.pl
  308. function Opal_Leganyn_EVENT_ON_SAY (npc,e)
  309.     if (e:HasMessage("what koada dal falchion")) then  
  310.         npc:Say("Koada'Dal Falchions are highly specialized weapons crafted of the finest mithril. The weapon must be forged in the unique Koada'Dal Forge and you will need a curved blade mold. a hilt and a pommel Mold. some morning dew. and a folded sheet of mithril. If you are a faithful follower of the All Mother then you may craft a magical falchion using moonlight temper instead of the morning dew and forging an emerald imbued by a cleric into the weapon at the time of its creation.")
  311.     end
  312. end
  313.  
  314. eventManager:AddListener("Opal Leganyn","felwithea",EVENT_ON_SAY,Opal_Leganyn_EVENT_ON_SAY)
  315.  
  316. -- END of FILE Zone:felwithea  ID:61048 -- Opal_Leganyn
  317. -- Perl2Grim AUTO CONVERT END felwithea\Opal_Leganyn.pl
  318.  
  319. -- Perl2Grim AUTO CONVERT BEGIN felwithea\Seria_Woodwind.pl
  320. function Seria_Woodwind_EVENT_ON_SAY (npc,e)
  321.     if (grimutil.hasString(e:GetClient():GetClassStr(),"paladin") and ( grimutil.hasString(e:GetClient():GetRace(),"froglok") or grimutil.hasString(e:GetClient():GetRace(),"high elf") or grimutil.hasString(e:GetClient():GetRace(),"half elf") )) then  
  322.         if (e:HasMessage("Hail")) then  
  323.             npc:Say("Hail friend. I am Seria Woodwind of the Royal Order of the Koada'Vie, the defenders of Felwithe. I assist young Koada'Dal that are called into Tunare's service as a paladin in learning the ways of the Koada'Vie so that one day they too may bear that noble title. Do you [wish to become a member] of the Koada'Vie?")
  324.         end
  325.         if (e:HasMessage("wish to become a member")) then  
  326.             npc:Say("As a defender of Felwithe you will be required to face much of the evil that inhabits the lands of Norrath. We do not sit idle and wait for the enemy to arrive at our gates before taking action towards the safety of our citizens. Every Koada'Vie initiate should acquire a [suit of armor] to aid in protecting themselves from the weapons of our [enemies].")
  327.         end
  328.         if (e:HasMessage("enemies")) then  
  329.             npc:Say("There are sinister creatures in Norrath that threaten the safety and prosperity of the Koada'Dal. The Crushbone Clan of Orcs often emerge from their citadel to the North to murder and pillage the Fier'Dal and Koada'Dal. hoping to expand their territory into the Faydarks. The Arboreans. a species of destructive sentient weeds has returned from ages of slumbering beneath the soil of the Faydarks. Despite these evil forces that are close to our home the greatest threat to both the Koada'Dal and the Fier'Dal are the twisted and wicked Teir'Dal. the dark elf children of Innoruuk.")
  330.         end
  331.         if (e:HasMessage("suit of armor")) then  
  332.             npc:Say("You require this special Mail Assembly Kit in order to fashion your Felwithe Defender's Armor. The materials necessary for the armor's construction vary according to the piece you are attempting to craft. Once you have been properly outfitted return to me and I will provide you with [further instruction]. Do you plan on crafting [Felwithe Defender Gauntlets], [Felwithe Defender Boots], an [Felwithe Defender Bracer]. an [Felwithe Defender Helm], [Felwithe Defender Greaves], [Felwithe Defender Vambraces], or an [Felwithe Defender Breastplate]?")
  333.             npc:RewardItem(e:GetClient(),17124)
  334.         end
  335.         if (e:HasMessage("felwithe defender gauntlets")) then  
  336.             npc:Say("To assemble felwithe defender gauntlets you will need to obtain two bricks of crude bronze and smelt them in a forge with a Water Flask and this crude Gauntlet Mold.  Once that is done combine the Crude Bronze Gauntlets with a Large Sylvan Bat Fur and two Giant Wasp Worker Tarsi in the Mail Assembly Kit.")
  337.             npc:RewardItem(e:GetClient(),19633)
  338.         end
  339.         if (e:HasMessage("felwithe defender boots")) then  
  340.             npc:Say("To assemble felwithe defender boots you will need to obtain two bricks of crude bronze and smelt them in a forge with a Water Flask and this crude Boot Mold. Once that is done combine the Crude Bronze Boots with two Large Sylvan Bat Fur and two Giant Wasp Worker Tarsi in the Mail Assembly Kit.")
  341.             npc:RewardItem(e:GetClient(),19634)
  342.         end
  343.         if (e:HasMessage("felwithe defender bracer")) then  
  344.             npc:Say("To assemble a felwithe defender bracer you will need to obtain a brick of crude bronze and smelt it in a forge with a Water Flask and this Crude Bracer Mold. Once that is done, combine the Crude Bronze Bracer with a Large Sylvan Bat Fur and a Giant Wasp Drone Sternite in the Mail Assembly Kit.")
  345.             npc:RewardItem(e:GetClient(),19632)
  346.         end
  347.         if (e:HasMessage("felwithe defender helm")) then  
  348.             npc:Say("To assemble a felwithe defender helm you will need to obtain two bricks of crude bronze and smelt them in a forge with a Water Flask and this Crude Helm Mold. Once that is done combine the Crude Bronze Helm with a Large Sylvan Bat Fur and a Giant Wasp Worker Tergite in the Mail Assembly Kit.")
  349.             npc:RewardItem(e:GetClient(),19631)
  350.         end
  351.         if (e:HasMessage("felwithe defender greaves")) then  
  352.             npc:Say("To assemble felwithe defender greaves you will need to obtain two bricks of crude bronze and smelt them in a forge with a Water Flask and this Crude Greaves Mold. Once that is done combine the Crude Bronze Greaves with two Giant Sylvan Bat Furs and two Giant Wasp Warrior Sternites in the Mail Assembly Kit.")
  353.             npc:RewardItem(e:GetClient(),19636)
  354.         end
  355.         if (e:HasMessage("felwithe defender vambraces")) then  
  356.             npc:Say("To assemble felwithe defender vambraces you will need to obtain two bricks of crude bronze and smelt them in a forge with a Water Flask and this Crude Vambrace mold. Once that is done combine the Crude Bronze Vambraces with a Giant Sylvan Bat Fur and two Giant Wasp Warrior Tergites in the Mail Assembly Kit.")
  357.             npc:RewardItem(e:GetClient(),19635)
  358.         end
  359.         if (e:HasMessage("felwithe defender breastplate")) then  
  360.             npc:Say("To assemble a felwithe defender breastplate you will need to obtain four bricks of crude bronze and smelt them in a forge with a Water Flask and this Crude Breastplate Mold. Once that is done combine the Crude Bronze Breastplate with a Giant Sylvan Bat Fur, and a Giant Wasp Warrior Thorax in the Mail Assembly Kit.")
  361.             npc:RewardItem(e:GetClient(),19637)
  362.         end
  363.         if (e:HasMessage("further instruction")) then  
  364.             npc:Say("Our diviner in the Keepers of the Art have discovered that a Teir`Dal agent of the Ebon Mask, the spies and assassins of the Teir`Dal has been lurking around the Faydarks and communicating intelligence to the orcs of Clan Crushbone. We believe the spy can be lured out of hiding if his primary orc contact, a crushbone centurion by the name of Relgle. is eliminated on route to their rendezvous location. Find this Centurion Relgle, slay him for his crimes against the Koada`Dal, then do the same to his Teir`Dal ally. Bring me both their heads when the deed is done.")
  365.         end
  366.    
  367.     else
  368.         if (e:HasMessage("Hail")) then  
  369.             npc:Say("Hail friend. I am Seria Woodwind of the Royal Order of the Koada'Vie, the defenders of Felwithe. I assist young Koada'Dal that are called into Tunare's service as a paladin in learning the ways of the Koada'Vie so that one day they too may bear that noble title.")
  370.         end
  371.     end
  372. end
  373.  
  374. eventManager:AddListener("Seria Woodwind","felwithea",EVENT_ON_SAY,Seria_Woodwind_EVENT_ON_SAY)
  375.  
  376. function Seria_Woodwind_EVENT_ON_ITEMS_RECEIVED (npc,e)
  377.     if (npc:ConsumeItems({[20288]=1,[20289]=1})) then  
  378.         npc:Say("Good work " .. e:GetClient():GetName() .. ".  King Tearis Thex and the Royal Order of the Koada'Vie shall be pleased.  Take the Dull Felwithe Defenders Sword to a forge and sharpen it with a sharpening stone.  It may take you several attempts if you are unfamiliar with the process.  Once that is accomplished bring me the Sharp Felwithe Defenders Sword, a Pristine Forest Drakeling Scale, and an Arborean Amber and I will put the finishing touches on the weapon.")
  379.         npc:RewardItem(e:GetClient(),20295)
  380.    
  381.     elseif (npc:ConsumeItems({[20299]=1,[20271]=1,[20274]=1})) then  
  382.         npc:Emote("fashions a grip from the pristine forest drakeling scales, fastens the arborean amber to the pommel of the hilt and polishes the blade of the sword with a luminescent substance.")
  383.         npc:Say("Here is your new weapon young defender. May it serve you well in your service to the Koada'Vie.")
  384.         npc:RewardItem(e:GetClient(),20329)
  385.         --e:GetClient():ModifyFaction( 43,  10 ) -- Clerics of Tunare
  386.         --e:GetClient():ModifyFaction( 178, 9 ) -- King Tearis Thex
  387.         --e:GetClient():ModifyFaction( 8,   8 ) -- Anti-Mage
  388.         e:GetClient():AddExperience(75000) -- Give ~2 bubbles of exp at level 10
  389.     end
  390.     --plugin::return_items( \itemcount )
  391. end
  392.  
  393. eventManager:AddListener("Seria Woodwind","felwithea",EVENT_ON_ITEMS_RECEIVED,Seria_Woodwind_EVENT_ON_ITEMS_RECEIVED)
  394.  
  395. -- Perl2Grim AUTO CONVERT END felwithea\Seria_Woodwind.pl
  396.  
  397. -- Perl2Grim AUTO CONVERT BEGIN felwithea\Soulbinder_Elendalira.pl
  398. -- generic soulbinder quest
  399. function Soulbinder_Elendalira_EVENT_ON_SAY (npc,e)
  400.     --plugin::soulbinder_say()
  401. end
  402.  
  403. eventManager:AddListener("Soulbinder Elendalira","felwithea",EVENT_ON_SAY,Soulbinder_Elendalira_EVENT_ON_SAY)
  404.  
  405. -- Perl2Grim AUTO CONVERT END felwithea\Soulbinder_Elendalira.pl
  406.  
  407. -- Perl2Grim AUTO CONVERT BEGIN felwithea\Tacar_Tissleplay.pl
  408. -- ############
  409. -- Quest Name: Bard Mail Quest
  410. -- Author: RealityIncarnate
  411. -- NPCs Involved: Tralyn Marsinger, Eve Marsinger, Lislia Goldtune, Felisity Starbright, Jakum Webdancer, Ton Twostring, Idia, Sivina Lutewhisper, Ticar Lorestring, Marton Stringsinger, Drizda Tunesinger, Travis Two Tone, Silna Songsmith, Siltria Marwind, Tacar Tissleplay, Kilam Oresinger, Lyra Lyrestringer
  412. -- Items Involved: Bardic letters: 18150-18167
  413. -- ################
  414. function Tacar_Tissleplay_EVENT_ON_SAY (npc,e)
  415.  
  416.     if (e:HasMessage("Hail")) then  
  417.         npc:Say("Hail. " .. e:GetClient():GetName() .. " - Are you [interested] in helping the League of Antonican Bards by delivering some [mail]?")
  418.     end
  419.  
  420.     if (e:HasMessage("what mail")) then  
  421.         npc:Say("The League of Antonican Bards has a courier system made up of travelers and adventurers.  We pay good gold to anyone who will take messages from bards such as myself to one of our more central offices.  Are you [interested]?")
  422.     end
  423.     if (e:HasMessage("i am interested")) then  
  424.         npc:Say("I have messages that need to go to - well, right now I have one that needs to go to Kelethin.  Will you [deliver] mail to [Kelethin] for me?")
  425.     end
  426.  
  427.     if (e:HasMessage("deliver to kelethin")) then  
  428.         npc:Say("Take this letter to Jakum Webdancer in Kelethin.  You can find him at the bard guild hall.  I am sure he will compensate you for your troubles.")
  429.         npc:RewardItem(e:GetClient(),18161)
  430.     end
  431.  
  432. end
  433.  
  434. eventManager:AddListener("Tacar Tissleplay","felwithea",EVENT_ON_SAY,Tacar_Tissleplay_EVENT_ON_SAY)
  435.  
  436. -- END of FILE Zone:felwithea
  437. -- Perl2Grim AUTO CONVERT END felwithea\Tacar_Tissleplay.pl
  438.  
  439. -- Perl2Grim AUTO CONVERT BEGIN felwithea\Tanalin_Silverkale.pl
  440. function Tanalin_Silverkale_EVENT_ON_SAY (npc,e)
  441.     if (e:HasMessage("Hail")) then  
  442.         npc:Say("Well met. " .. e:GetClient():GetName() .. "! I am Tanalin Silverkale, provider of the finest [mithril ore] and master craftsman of [mithril chainmail]!")
  443.     end
  444.     if (e:HasMessage("what mithril ore")) then  
  445.         npc:Say("Mithril ore is a special variation of silver. We Koada'Dal have developed specialized techniques in working the ore to produce the finest quality armors and weapons in all of Norrath. Mithril can only be worked in our unique Koada'Dal Forge. It is worked in the same manner as standard ores but must be tempered with Morning Dew instead of Water. and Folded Mithril Sheets must be hammered with our Elven Smithy Hammers instead of the crude standard Smithy Hammer. Powerful enchanters have also successfully developed the means to enchant small bricks of mithril ore that can be worked in our Koada'Dal Forge.")
  446.     end
  447.     if (e:HasMessage("what mithril chainmail")) then  
  448.         npc:Say("Mithril Chainmail is a beautiful chain armor that is light enough to be worn comfortably even by those who practice the mystical arts. Mithril Chain may only be crafted in our unique Koada'Dal Forge. All pieces of the chainmail require an Elven Smithy Hammer, the appropriate Chain Pattern for the desired piece, a Silk Swatch and Moonlight Temper. Veils, Neckguards and Bracelets require one set of Mithril Rings. Coifs, Mantles, Skirts, Sleeves and Gloves require two sets of Mithril Rings. Tunics, Capes, and Leggings require three sets of Mithril Rings. If ever you master the technique of crafting mithril chain you may desire to pursue crafting some [enchanted mithril] chainmail.")
  449.     end
  450.     if (e:HasMessage("what enchanted mithril")) then  
  451.         npc:Say("Enchanted mithril chainmail is highly prized by the royalty of Felwithe and invaluable to all masters of the mystical arts. Like standard mithril chain it can only be crafted in our unique Koada'Dal Forge. but the rings must be crafted from enchanted mithril.")
  452.     end
  453. end
  454.  
  455. eventManager:AddListener("Tanalin Silverkale","felwithea",EVENT_ON_SAY,Tanalin_Silverkale_EVENT_ON_SAY)
  456.  
  457. -- END of FILE Zone:felwithea  ID:61027 -- Tanalin_Silverkale
  458. -- Perl2Grim AUTO CONVERT END felwithea\Tanalin_Silverkale.pl
  459.  
  460. -- Perl2Grim AUTO CONVERT BEGIN felwithea\Terren_Starwatcher.pl
  461. function Terren_Starwatcher_EVENT_ON_SAY (npc,e)
  462.     if (e:HasMessage("Hail")) then  
  463.         npc:Say("Welcome friend! Have you come to the Temple of Tunare to give praise or are you a young Cleric seeking [guidance] from your elders?")
  464.     end
  465.     if (e:HasMessage("guidance")) then  
  466.         npc:Say("Tunare shall be pleased to have a new disciple amongst her Koada`Dal children. We Clerics of Tunare offer spiritual guidance to the citizens of Felwithe and when needed aid the Paladins of Tunare and the Keepers of the Art in the defense of our people and forest from those [creatures] that seek to cause us harm. Every young cleric should pursue acquiring a [suit of armor] to protect themselves when aiding those in need outside of the safety of Felwithes walls.")
  467.     end
  468.     if (e:HasMessage("creatures")) then  
  469.         npc:Say("There are many evil creatures in Norrath. Some are evil by nature. others have chosen evil by their devotion to evil deities. Even the Faydarks are not safe for young Koada`Dal. The orcs of Clan Crushbone seek to expand their territory from their citadel to the north. The brownies viciously guard their hidden communities. pixies play mischievous and sometimes deadly pranks on travelers. and the arboreans have returned to the Faydarks after centuries of slumber.")
  470.     end
  471.     if (e:HasMessage("suit of armor")) then  
  472.         npc:Say("You will need this Mail Assembly Kit to craft your Sylvan Initiate Armor. The materials required for the armor vary according to which piece you desire to craft. Once you have been suitably outfitted return to me and I will offer [further guidance]. Do you desire to craft [Sylvan Initiate Gauntlets]. [Sylvan Initiate Boots]. a [Sylvan Initiate Bracer]. a [Sylvan Initiate Helm]. [Sylvan Initiate Greaves]. [Sylvan Initiate Vambraces]. or a [Sylvan Initiate Breastplate]?")
  473.         npc:RewardItem(e:GetClient(),17124)
  474.     end
  475.     if (e:HasMessage("gauntlets")) then  
  476.         npc:Say("To assemble sylvan initiate gauntlets you will need to obtain two bricks of crude bronze and smelt them in a forge with a Water Flask and this crude Gauntlet Mold. Once that is done combine the Crude Bronze Gauntlets with a Large Sylvan Bat Fur and two Arborean Sprout Twigs in the Mail Assembly Kit.")
  477.         npc:RewardItem(e:GetClient(),19633)
  478.     end
  479.     if (e:HasMessage("boots")) then  
  480.         npc:Say("To assemble sylvan initiate boots you will need to obtain two bricks of crude bronze and smelt them in a forge with a Water Flask and this crude Boot Mold. Once that is done combine the Crude Bronze Boots with two Large Sylvan Bat Fur. and two Arborean Sprout Roots in the Mail Assembly Kit.")
  481.         npc:RewardItem(e:GetClient(),19634)
  482.     end
  483.     if (e:HasMessage("bracer")) then  
  484.         npc:Say("To assemble a sylvan initiate bracer you will need to obtain a brick of crude bronze and smelt it in a forge with a Water Flask and this Crude Bracer Mold. Once that is done. combine the Crude Bronze Bracer with a Large Sylvan Bat Fur and an Arborean Sprout Bark in the Mail Assembly Kit.")
  485.         npc:RewardItem(e:GetClient(),19632)
  486.     end
  487.     if (e:HasMessage("helm")) then  
  488.         npc:Say("To assemble a sylvan initiate helm you will need to obtain two bricks of crude bronze and smelt them in a forge with a Water Flask and this Crude Helm Mold. Once that is done combine the Crude Bronze Helm with a Large Sylvan Bat Fur and an Arborean Sapling Bark in the Mail Assembly Kit.")
  489.         npc:RewardItem(e:GetClient(),19631)
  490.     end
  491.     if (e:HasMessage("greaves")) then  
  492.         npc:Say("To assemble sylvan initiate greaves you will need to obtain two bricks of crude bronze and smelt them in a forge with a Water Flask and this Crude Greaves Mold. Once that is done combine the Crude Bronze Greaves with two Giant Sylvan Bat Furs and two Arborean Sapling Barks in the Mail Assembly Kit.")
  493.         npc:RewardItem(e:GetClient(),19636)
  494.     end
  495.     if (e:HasMessage("vambraces")) then  
  496.         npc:Say("To assemble sylvan initiate vambraces you will need to obtain two bricks of crude bronze and smelt them in a forge with a Water Flask and this Crude Vambrace Mold. Once that is done combine the Crude Bronze Vambraces with a Giant Sylvan Bat Fur and two Arborean Sapling Barks in the Mail Assembly Kit.")
  497.         npc:RewardItem(e:GetClient(),19635)
  498.     end
  499.     if (e:HasMessage("breastplate")) then  
  500.         npc:Say("To assemble a sylvan initiate breastplate you will need to obtain four bricks of crude bronze and smelt them in a forge with a Water Flask and this Crude Breastplate Mold. Once that is done combine the Crude Bronze Breastplate with a Giant Sylvan Bat Fur. and two Mature Arborean Barks in the Mail Assembly Kit.")
  501.         npc:RewardItem(e:GetClient(),19637)
  502.     end
  503.     if (e:HasMessage("further guidance")) then  
  504.         npc:Say("If you are ready to put your life on the line for the citizens of our homeland than hear my words. The Crushbone Clan of Orcs are evil and strong adversaries of we Koada`Dal. Recently an orc scout assaulted a merchant from our city carrying a valuable amulet from the Fier`Dal city of Kelethin. Our seers have divined the name of the orc that is in possession of the amulet. Gurleg Bribgok. Find this despicable creature and return the amulet to me so that I may return it to its proper owner.")
  505.  
  506.     end
  507. end
  508.  
  509. eventManager:AddListener("Terren Starwatcher","felwithea",EVENT_ON_SAY,Terren_Starwatcher_EVENT_ON_SAY)
  510.  
  511. function Terren_Starwatcher_EVENT_ON_ITEMS_RECEIVED (npc,e)
  512.     if (npc:ConsumeItems({[20280]=1})) then  
  513.         npc:Say("You have done well young " .. e:GetClient():GetName() .. ". If you continue to show such devotion to your people and your faith then perhaps one day you will serve in the chambers of King Tearis Thex himself. Take this Rusty Sylvan Morning Star and scrape the rust from it in a forge with a sharpening stone. It may take several attempts if you are unfamiliar with the process. Once that is done bring me the Refined Sylvan Morning Star, a Pristine Drakeling Scales, and an Arborean Amber.")
  514.         npc:RewardItem(e:GetClient(),20297)
  515.         --e:GetClient():ModifyFaction( 43,  10 )
  516.         --e:GetClient():ModifyFaction( 178, 10 )
  517.         --e:GetClient():ModifyFaction( 8,   10 )
  518.         e:GetClient():AddExperience(36450)
  519.         --e:GetClient():PlaySound()
  520.  
  521.     end
  522.  
  523.     if (npc:ConsumeItems({[20300]=1,[20271]=1,[20274]=1})) then  
  524.         npc:Emote("Terren Starwatcher fashions a grip out of the pristine forest drakeling scales, fastens the arborean amber to the pommel, and polishes the head of the morning star with a luminescent substance. 'I grant you a Sylvan Initiate Morning Star. May it serve you well in your service to The All Mother.")
  525.         npc:RewardItem(e:GetClient(),20330)
  526.         --e:GetClient():ModifyFaction( 43,  10 )
  527.         --e:GetClient():ModifyFaction( 178, 10 )
  528.         --e:GetClient():ModifyFaction( 8,   10 )
  529.         e:GetClient():AddExperience(36450)
  530.         --e:GetClient():PlaySound()
  531.  
  532.    
  533.  
  534.     else
  535.         -- do all other handins first with plugin, then let it do disciplines
  536.         --plugin::try_tome_handins( \itemcount,  )
  537.         --plugin::return_items( \itemcount )
  538.     end
  539. end
  540.  
  541. eventManager:AddListener("Terren Starwatcher","felwithea",EVENT_ON_ITEMS_RECEIVED,Terren_Starwatcher_EVENT_ON_ITEMS_RECEIVED)
  542.  
  543. -- END of FILE Zone:felwithea  ID:61010 -- Terren_Starwatcher
  544. -- Perl2Grim AUTO CONVERT END felwithea\Terren_Starwatcher.pl
  545.  
  546. -- Perl2Grim AUTO CONVERT BEGIN felwithea\Tolkar_Parlone.pl
  547. function Tolkar_Parlone_EVENT_ON_SAY (npc,e)
  548.     if (e:HasMessage("Hail")) then  
  549.         npc:Say("Hail. good adventurer!  I am afraid that my services are not available at the moment.  I am too worried about my [daughter].")
  550.     end
  551.     if (e:HasMessage("who is your daughter")) then  
  552.         npc:Say("My daughter's name is Lenara.  I have not seen her in several months. and I fear the worst.  She went off adventuring. even though I told her how dangerous it was.")
  553.     end
  554. end
  555.  
  556. eventManager:AddListener("Tolkar Parlone","felwithea",EVENT_ON_SAY,Tolkar_Parlone_EVENT_ON_SAY)
  557.  
  558. function Tolkar_Parlone_EVENT_ON_ITEMS_RECEIVED (npc,e)
  559.     if (npc:ConsumeItems({[5573]=1})) then   -- folded note
  560.         npc:Say("What's this? Oh my goodness! I was so worried I had lost my little girl. Thank you so much " .. e:GetClient():GetName() .. ". Here please take this, it was once a magical cloak but its powers have diminished over time. If you take it to my wife in erudin I'm sure she can restore it.")
  561.         npc:RewardItem(e:GetClient(),1056) -- Faded cloak
  562.    
  563.     else
  564.         npc:Say("I have no need for this, " .. e:GetClient():GetName() .. ".")
  565.         --plugin::return_items( \itemcount )
  566.     end
  567. end
  568.  
  569. eventManager:AddListener("Tolkar Parlone","felwithea",EVENT_ON_ITEMS_RECEIVED,Tolkar_Parlone_EVENT_ON_ITEMS_RECEIVED)
  570.  
  571. -- END of FILE Zone:felwithea  ID:61017 -- Tolkar_Parlone
  572. -- Perl2Grim AUTO CONVERT END felwithea\Tolkar_Parlone.pl
  573.  
  574. -- Perl2Grim AUTO CONVERT BEGIN felwithea\Tolon_Nurbyte.pl
  575. --[[ Ignoring Non-Supported Event EVENT_SPAWN
  576. function Tolon_Nurbyte_EVENT_ON_SPAWN (npc,e)
  577.     --quest::settimer( visit, 150 )
  578. end
  579.  
  580. eventManager:AddListener("Tolon Nurbyte","felwithea",EVENT_ON_SPAWN,Tolon_Nurbyte_EVENT_ON_SPAWN)
  581.  
  582.  --]]
  583. --[[ Ignoring Non-Supported Event EVENT_TIMER
  584. function Tolon_Nurbyte_EVENT_ON_TIMER (npc,e)
  585.     if (timer == visit) then  
  586.         --npc:Depop()
  587.     end
  588. end
  589.  
  590. eventManager:AddListener("Tolon Nurbyte","felwithea",EVENT_ON_TIMER,Tolon_Nurbyte_EVENT_ON_TIMER)
  591.  
  592.  --]]
  593. function Tolon_Nurbyte_EVENT_ON_AGGRO (npc,e)
  594.     npc:Say("Let no evil beings stand in the way of the righteousness of the Paladins of Tunare!")
  595. end
  596.  
  597. eventManager:AddListener("Tolon Nurbyte","felwithea",EVENT_ON_AGGRO,Tolon_Nurbyte_EVENT_ON_AGGRO)
  598.  
  599. function Tolon_Nurbyte_EVENT_ON_SAY (npc,e)
  600.     if (e:HasMessage("hail")) then  
  601.         npc:Say("Didn't your mother teach you not to walk in other people's rooms without knocking?! You didn't even have the courtesy to close the door behind you!!")
  602.     end
  603.     if (e:HasMessage("princess lenya thex")) then  
  604.         npc:Say("What?!!  You have word of the Princess?  She has been missing for quite a while.  I sent Tearon to Tunaria to search for her, but he has not reported back.  If you wish to help, you'd better prove yourself worthy first. I believe you should talk to Tynkale.")
  605.     end
  606.     if ( ( ( e:HasMessage("the glory of the mother shines bright") ) or ( e:HasMessage("wish to leave") ) ) and ( e:GetClient():GetConLevel(npc) > 4 )) then  
  607.         npc:Say("When you have furthered your service to the Paladins of Tunare. we shall make conversation.")
  608.     end
  609.     if ( ( e:HasMessage("the glory of the mother shines bright") ) and ( e:GetClient():GetConLevel(npc) < 5 )) then  
  610.         npc:Say("So you're the slayer of Jojongua. Funny, I thought you would be taller. I guess you will have to do. I am Tolon Nurbyte of the Silent Watch. We do all the dirty work of King Tearis Thex. No one knows of us. So I hope you accept this mission or I will have to kill you. Do you [accept the mission] or do you [wish to leave]?")
  611.     end
  612.     if ( ( e:HasMessage("wish to leave") ) and ( e:GetClient():GetConLevel(npc) < 5 )) then  
  613.         npc:Say("There is only insufferable labor and merciless torment here, stranger. Kaya Rishareth has condemned her eternal self to servitude in the War Forge -- her selfless act malignantly repaid by the gods with this existence. Her spirit died here long ago and her life's [effort and struggles] were ultimately for naught.")
  614.         --quest::attack(name)
  615.     end
  616.     if ( ( e:HasMessage("accept the mission") ) and ( e:GetClient():GetConLevel(npc) < 4 )) then  
  617.         npc:Say("In her mortal life, Kaya Rishareth was a keeper of tranquility and served her beloved child-like goddess with every fiber of her being. A native to the free city of Freeport, Kaya found herself traveling on her own as soon as her master would allow. Erudin was the destination she chose and it was the temples dedicated to The Tranquil where she sought to learn more about her goddess and perhaps share philosophies and knowledge with the High Men. Erudin received her graciously and for nearly a year, she studied the High Men's way of worship and reverence to their shared deity. However, tranquility is easily disrupted and those who seek it, must also [defend it].")
  618.     end
  619.     if ( ( e:HasMessage("silent watcher") ) and ( e:GetClient():GetConLevel(npc) < 4 )) then  
  620.         npc:Say("The Silent Watch was established in the early years of Felwithe. King Tearis Thex had many cruel deeds to do. The regular Koad'Vie were too righteous to carry out any of the necessary missions and we dare not bring in the Fier'Dal. After all, some of the operations were against Kelethin.  King Tearis formed our group from Koada'Dal not of such prim and proper breeding. Now we act as his secret guard and report only to him.")
  621.     end
  622.     if ( ( ( e:HasMessage("accept the mission") ) or ( e:HasMessage("silent watcher") ) ) and ( e:GetClient():GetConLevel(npc) > 3 )) then  
  623.         npc:Say("When you have furthered your service to the Paladins of Tunare. we shall make conversation.")
  624.     end
  625. end
  626.  
  627. eventManager:AddListener("Tolon Nurbyte","felwithea",EVENT_ON_SAY,Tolon_Nurbyte_EVENT_ON_SAY)
  628.  
  629. -- further dialogue is unknown at this time.-- Perl2Grim AUTO CONVERT END felwithea\Tolon_Nurbyte.pl
  630.  
  631. -- Perl2Grim AUTO CONVERT BEGIN felwithea\Tynkale.pl
  632. function Tynkale_EVENT_ON_SAY (npc,e)
  633.     if (e:HasMessage("Hail")) then  
  634.         npc:Say("Hail noble, " .. e:GetClient():GetName() .. "!  Can you be of [service to the Clerics of Tunare] or are you not from our order?")
  635.     end
  636.     if ( ( ( e:HasMessage("service to the clerics of tunare") ) or ( e:HasMessage("new to felwithe") ) or ( e:HasMessage("i am a veteran of the good fight") ) ) and ( e:GetClient():GetConLevel(npc) > 4 )) then  
  637.         npc:Say("When you have furthered your service to the Paladins of Tunare. we shall make conversation.")
  638.     end
  639.     if ( ( e:HasMessage("service to the clerics of tunare") ) and ( e:GetClient():GetConLevel(npc) < 5 )) then  
  640.         npc:Say("That is good. Prove yourself, then.  Are you [new to Felwithe] or have I been conversing with a [veteran of the good fight]?")
  641.     end
  642.     if ( ( e:HasMessage("new to felwithe") ) and ( e:GetClient():GetConLevel(npc) < 5 )) then  
  643.         npc:Say("Then stand at attention when I speak.  I want you to venture to Kelethin and seek out Tandan Nybright.  He is an old member of ours.  He had some hardships and he fell from Tunare's grace, yet he is still a member of our family.  He will be the one who reeks of elven wine.  Greet him by name.  We are worried for him.")
  644.     end
  645.     if ( ( e:HasMessage("veteran of the good fight") ) and ( e:GetClient():GetConLevel(npc) < 5 )) then  
  646.         npc:Say("I command you to venture to Innothule and seek a beast called Jojongua, a name penned by the trolls.  It is said to be ten feet tall and nothing but fury.  Some say it resembles a kobold, but how can that be?  You bring this beast's hide to me and then I will believe you to be a veteran.  Beware!  Innothule is a very dangerous place even for a noble veteran.")
  647.     end
  648.     if (e:HasMessage("trades")) then  
  649.         npc:Say("I thought you might be one who was interested in the various different trades, but which one would suit you? Ahh, alas, it would be better to let you decide for yourself, perhaps you would even like to master them all! That would be quite a feat. Well, lets not get ahead of ourselves, here, take this book. When you have finished reading it, ask me for the [second book], and I shall give it to you. Inside them you will find the most basic recipes for each trade. These recipes are typically used as a base for more advanced crafting, for instance, if you wished to be a smith, one would need to find some ore and smelt it into something usable. Good luck!")
  650.         npc:RewardItem(e:GetClient(),51121)
  651.     end
  652.     if (e:HasMessage("second book")) then  
  653.         npc:Say("Here is the second volume of the book you requested, may it serve you well!")
  654.         npc:RewardItem(e:GetClient(),51122)
  655.     end
  656. end
  657.  
  658. eventManager:AddListener("Tynkale","felwithea",EVENT_ON_SAY,Tynkale_EVENT_ON_SAY)
  659.  
  660. function Tynkale_EVENT_ON_ITEMS_RECEIVED (npc,e)
  661.     if (npc:ConsumeItems({[18781]=1})) then  
  662.         npc:Say("Greetings. young paladin!  I am Master Tynkale of the Clerics of Tunare.  Here. we shall teach and train you in the skills needed to defeat our evil and diseased enemies.  Take this, our guild tunic - it will help protect you.  Once you are ready to begin your training please make sure that you see Seria Woodwind, she can assist you in experienced in our art, I will be able to further instruct you on how to progress through your early ranks, as well as in some of the various [trades] you will have available to you.")
  663.         npc:RewardItem(e:GetClient(),13591)
  664.         --e:GetClient():PlaySound()
  665.         --e:GetClient():ModifyFaction( 8,   10 )
  666.         --e:GetClient():ModifyFaction( 43,  10 )
  667.         --e:GetClient():ModifyFaction( 178, 10 )
  668.         e:GetClient():AddExperience(150)
  669.     end
  670.     if (e:GetClient():GetConLevel(npc) < 5) then  
  671.         if (npc:ConsumeItems({[13351]=1})) then  
  672.             npc:Say("So you have proven yourself to be a great slayer of beasts.Now it is time to prove yourself to be an asset to the Crown. You are to meet a man named Tolon Nurbyte.He will be at the local inn. Go to him and repeat the phrase, 'The glory of the Mother shines bright.' I can say no more. Oh.. and here. This may help you on your upcoming adventure.")
  673.             --e:GetClient():PlaySound()
  674.             --e:GetClient():ModifyFaction( 8,   10 )
  675.             --e:GetClient():ModifyFaction( 43,  10 )
  676.             --e:GetClient():ModifyFaction( 178, 10 )
  677.             e:GetClient():AddExperience(150)
  678.        
  679.         else
  680.             -- do all other handins first with plugin, then let it do disciplines
  681.             --plugin::try_tome_handins( \itemcount,  )
  682.             --plugin::return_items( \itemcount )
  683.         end
  684.    
  685.     else
  686.         -- do all other handins first with plugin, then let it do disciplines
  687.         --plugin::try_tome_handins( \itemcount,  )
  688.         --plugin::return_items( \itemcount )
  689.     end
  690. end
  691.  
  692. eventManager:AddListener("Tynkale","felwithea",EVENT_ON_ITEMS_RECEIVED,Tynkale_EVENT_ON_ITEMS_RECEIVED)
  693.  
  694. -- END of FILE Zone:felwithea  ID:61018 -- Tynkale
  695. -- Perl2Grim AUTO CONVERT END felwithea\Tynkale.pl
  696.  
  697. -- Perl2Grim AUTO CONVERT BEGIN felwithea\Yeolarn_Bronzeleaf.pl
  698. function Yeolarn_Bronzeleaf_EVENT_ON_SAY (npc,e)
  699.     if (e:HasMessage("hail")) then  
  700.         npc:Say("Hail, " .. e:GetClient():GetName() .. "! We of Tunare are charged with protecting the Great Mother from the forces of Innoruuk. Even now, the evil minions of this foul deity are despoiling our great forest. Will you help us [protect the Mother]?")
  701.     end
  702.     if (e:HasMessage("protect")) then  
  703.         npc:Say("Just outside the gates of Felwithe, the forces of Innoruuk gather in the guise of decaying skeletons. Bring me four sets of bone chips as proof of your vigilance. I assure you, your faith shall not go unrewarded.")
  704.     end
  705.     if (e:HasMessage("initiate of tunare")) then  
  706.         npc:Say("The Teir'Dal behind the undead plague in our forest have discovered a means of creating a terrible undead called a Ghast. These Ghasts have been sighted in the Lesser Faydark and must be destroyed. Bring me four of the vile creatures hearts.")
  707.     end
  708.     if (e:HasMessage("slay the necromancer")) then  
  709.         npc:Say("The Fier'Dal rangers that inhabit the Lesser Faydark have spotted a courier making deliveries to the Teir'Dal camp near Castle Mistmoore and to a necromancer that lingers near the ancient obelisk. We believe that the crates he carries are supplies needed for the creation of more Ghasts. Another shipment should be arriving soon. Seek out the necromancer at the obelisk and take his head then take the head of the courier and return them to me with the crate that the courier carries and your Initiate Symbol of Tunare.")
  710.     end
  711.     if (e:HasMessage("warden of tunare")) then  
  712.         npc:Say("The crate that the you recovered from the Courier contained this black candlestick that radiates an aura of great magical power. I request that you deliver the candlestick to Lady Trilani who is studying with the High Men in Erudin. Perhaps she can divine the nature of the candlestick and offer aid in defeating its power. The remaining contents of the crate have been given to Crusader Swiftmoon to be delivered to a gnome in steamfont that is purchasing them on behalf of the Eldrich Collective. When you return be sure to present your Disciple Symbol to me with anything that Trilani may ask you to deliver.")
  713.         npc:RewardItem(e:GetClient(),1598) --  Black Stone Candlestick
  714.     end
  715. end
  716.  
  717. eventManager:AddListener("Yeolarn Bronzeleaf","felwithea",EVENT_ON_SAY,Yeolarn_Bronzeleaf_EVENT_ON_SAY)
  718.  
  719. function Yeolarn_Bronzeleaf_EVENT_ON_ITEMS_RECEIVED (npc,e)
  720.     if (npc:ConsumeItems({[13073]=4})) then   -- Bone Chips x 4
  721.         npc:Say("Praise Tunare! I knew you would be victorious. I reward you with this spell, and pray that it will help you in your fight against the unholy forces of Innoruk. When you are ready you will make a fine [Initiate of Tunare].")
  722.         npc:RewardItem(e:GetClient(),15014) -- Spell: Strike
  723.         e:GetClient():AddExperience(2500)
  724.         --e:GetClient():ModifyFaction( 43,  15 ) -- Clerics of Tunare
  725.         --e:GetClient():ModifyFaction( 178, 15 ) -- King Tearis Thex
  726.         --e:GetClient():ModifyFaction( 8,   15 ) -- Anti-mage
  727.    
  728.     elseif (npc:ConsumeItems({[10199]=4})) then   -- Putrescent Heart x 4
  729.         npc:Say("Praise Tunare!! You have done well young Initiate. Here the symbol of your station within our faith. Return to me when you are ready to [slay the necromancer] that has been creating the undead.")
  730.         npc:RewardItem(e:GetClient(),1570) -- Initiate Symbol of Tunare
  731.         e:GetClient():AddExperience(3250)
  732.         --e:GetClient():ModifyFaction( 43,  15 ) -- Clerics of Tunare
  733.         --e:GetClient():ModifyFaction( 178, 15 ) -- King Tearis Thex
  734.         --e:GetClient():ModifyFaction( 8,   15 ) -- Anti-mage
  735.    
  736.     elseif (npc:ConsumeItems({[1570]=1,[12514]=1,[19065]=1,[12513]=1})) then   -- Initiate Symbol of Tunare, Larik Z`Vole's Head, Teir`Dal Couriers Head, Teir`Dal Crate
  737.         npc:Say("Praise Tunare! The Mother smiles on you this day Disciple Angelsyn! I present you with the symbol of your new station among the Priests of Tunare. Return to me when you are ready to become a [Warden of Tunare]?")
  738.         npc:RewardItem(e:GetClient(),1571) --  Disciple Symbol of Tunare
  739.         e:GetClient():AddExperience(4000)
  740.         --e:GetClient():ModifyFaction( 43,  15 ) -- Clerics of Tunare
  741.         --e:GetClient():ModifyFaction( 178, 15 ) -- King Tearis Thex
  742.         --e:GetClient():ModifyFaction( 8,   15 ) -- Anti-mage
  743.    
  744.     elseif (npc:ConsumeItems({[1571]=1,[1599]=1})) then   -- Disciple Symbol of Tunare, Powder of Unanimation
  745.         npc:Say("Praise Tunare!! I will have our sorcerers examine this power immediately to see if we can reproduce it in quantities enough to eliminate the undead plague. I award you the rank of Warden of Tunare, the All Mother smiles upon you, " .. e:GetClient():GetName() .. "!")
  746.         npc:RewardItem(e:GetClient(),1572) --  Warden Symbol of Tunare
  747.         e:GetClient():AddExperience(5000)
  748.         --e:GetClient():ModifyFaction( 43,  15 ) -- Clerics of Tunare
  749.         --e:GetClient():ModifyFaction( 178, 15 ) -- King Tearis Thex
  750.         --e:GetClient():ModifyFaction( 8,   15 ) -- Anti-mage
  751.    
  752.     elseif (npc:ConsumeItems({[18780]=1})) then   -- Tattered Note
  753.         npc:Say("Welcome, friend, to the Clerics of Tunare. I am Yeolarn Bronzeleaf, head of the guild and devout follower of Tunare. Here is your guild tunic - it will help to protect you against this world's evils.")
  754.         npc:RewardItem(e:GetClient(),13590) -- Faded Gold Training Tunic*
  755.         e:GetClient():AddExperience(1000)
  756.    
  757.     else
  758.         npc:Say("I have no need for this.")
  759.         --plugin::return_items( \itemcount )
  760.     end
  761. end
  762.  
  763. eventManager:AddListener("Yeolarn Bronzeleaf","felwithea",EVENT_ON_ITEMS_RECEIVED,Yeolarn_Bronzeleaf_EVENT_ON_ITEMS_RECEIVED)
  764.  
  765. -- END of FILE Zone:felwithea  ID:61025 -- Yeolarn_Bronzeleaf.pl
  766. -- Perl2Grim AUTO CONVERT END felwithea\Yeolarn_Bronzeleaf.pl
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!