MQEmulator.net • -

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