Log In
Sign Up
Go Gold
Home
Forum
Mail
Downloads
Game Search
Macro Editor
Notes
Membership
Tomer_Instogle.pl - Quest File
General Info
Quest File
########################################## # ZONE: North Qeynos (qeynos2) # DATABASE: PEQ-YKESHA-beta1 # LAST EDIT DATE: September 30, 2007 # VERSION: 1.1 # DEVELOPER: Congdar # # *** NPC INFORMATION *** # # NAME: Tomer Instogle # ID: 2030 # TYPE: Monk # RACE: Human # LEVEL: 1 # # *** ITEMS GIVEN OR TAKEN *** # # Bag of Provisions ID-20456 # # *** QUESTS INVOLVED IN *** # # Tomer's Rescue # # *** QUESTS AVAILABLE TO *** # # Anyone flagged by Seta_Bakindo # ############################################ # items: 20459 sub EVENT_SAY { # You must be flagged by Seta_Bakindo for this quest if($FindTomer == 1) { if($text=~/Hail/i) { quest::say("Ahhhgggg.. Those mangy [dogs] put up a tough fight.. If I don't make it back to the [Clan House] soon, it'll all be over for me."); } if($text=~/dogs/i or $text=~/mutts/i) { quest::say("It's those Darkpaws.. They've beat me pretty badly.. but they'll get theirs soon enough!"); } if($text=~/clan house/i) { quest::say("I am a new member of the Silent Fist Clan.. I need someone from my guild to help me find my way back."); } if($text=~/Seta sent me to find you/i) { quest::say("Oh.. Thank goodness you found me.. I'm lost and weak, those [mutts] are a vicious lot.. an you carry my [backpack] for me?"); } if($text=~/backpack/i) { # This flag is set by Seta_Bakindo quest::say("Thank you, friend.. Now, can you [lead me back to Master Seta] of the Silent Fist Clan? "); # Bag of Provisions ID-20456 quest::summonitem("20459"); } if($text=~/lead you back to master seta/i) { quest::say("Lead the way, and I shall follow. When we make it back, please inform Seta that you have rescued me."); # Initialize flag to Seta_Bakindo for this player quest::targlobal("SetaTomer", 1, "M30", 2086, $charid, $zoneid); # Have Tomer follow this player quest::follow($userid); } } # You must have the updated flag from Seta_Bakindo for this part quest elsif($FindTomer == 2) { if($text=~/Hail/i) { quest::say("Yes, he saved my life.. I owe him much thanks. Please return my pack to me now, good friend."); } } } sub EVENT_ITEM { # You must have the updated flag by Seta_Bakindo and have Tomer's Bag of Provisious ID-20459 to complete this quest if($FindTomer == 2 && plugin::check_handin(\%itemcount, 20459 => 1)) { quest::ding(); quest::say("Oh, you have the makings of a true hero.. The Silent Fist Clan is proud to have you as ally. May your soul guide and protect you through these chaotic times."); quest::exp("100"); quest::faction(309,35); # Silent Fist Clan faction quest::faction(262,5); # Guards of Qeynos quest::faction(361,1); # Ashen Order faction # We are finished with this flag set by Seta_Bakindo quest::delglobal("FindTomer"); $FindTomer=undef; # Release Tomer from following the player... he will walk back to his spawn point quest::sfollow(); } } # END of FILE Zone:qeynos2 ID:2030 -- Tomer_Instogle
Source: 17 Jan 2022
Quest Source: 28 May 2022