[BWStripes]

A series of 4 quests from Qeynos. This was one of the best starters I ever found to balance out faction with the dark side(TM) of Qeynos. Except the time I walked into the Bloodsabers' guild with my ToL Paladin. D'oh.

The quest line runs thusly:
1) Give Farens tacklebox back to him, get a dress.
2) Give the dress to Ton Firepride who wanted Hurrieta (The Ironprides, N Qeynos) dead. Receive a Bloody Dress
3) Go to Garuc (SK GM) in the Qeynos Catacombs. Give him the dress, receive random armour or rat-shaped ring.
Optional: 4) Hand in the rat-shaped ring to Suuspa Clanim, Temple of Life in N Qeynos.

First we have to patch the database to spawn Faren's tacklebox in the water off the pier in South Qeynos.

insert into ground_spawns (zoneid,max_x,max_y,max_z,min_x,min_y,heading,name,item,max_allowed,comment,respawn_timer) values('1','155.0','-144.7','-36.9','155.0','-144.7','0','IT63_ACTORDEF','13702','1','Wooden Fishing Tackle','9600');

File: qeynos/Faren.pl - WILL OVERWRITE PEQ Quest

#############
#Quest Name: Faren's Tacklebox
#Author: ?? (Update by BWStripes)
#NPC's Involved: 1
#Items involved: 1
#############
###NPC 1
#Name: Faren
#Race 1 (Human), Texture of 1, Size 0, gender of 0
#Location XYZ: 89.2, -161.0, 3.8 in South Qeynos
#Level: 3
#Type: Quest NPC
#Reward: itemid 13129: Hurrieta's Tunic
#############
###Item 1
#Name: Wooden Fishing Tackle
#ID: 13702
#Ground Spawn
###

sub EVENT_SAY {
  if($text=~/Hail/i){
    quest::say("Oh.. Hiya, I'm just out here fishing, since I can't find a job. I hope this [bait] I just bought catches me a big ol' fish.");
  }
  if($text=~/what bait/i){
    quest::say("I use Captain Rohand's Secret Recipe Super Magic Catch-A-Lot brand bait. I bought my pole from Sneed's up by the north pond.");
  }
  if($text=~/tacklebox/i){
    quest::say("Oh. That mean [dwarf], Trumpy, just knocked my tacklebox into the water. Could you please get it for me? I can't swim.");
  }
  if($text=~/fishboy/i){
    quest::say("Hey! My [tacklebox]! You rotten dwarf!");
  }
  if($text=~/dwarf/i){
    quest::say("Yes, that Trumpy is a dwarf, and a mean one too. I think he got kicked out of Kaladim and came here. Avoid him if you can."); #Improvised text
  }
}

sub EVENT_ITEM {
  if($itemcount{13702} == 1){
    my $faren_randomcash = int(rand(20));
    quest::say("Thank you so much!  If you want some free advice, steer clear of those [Irontoes]! They are nothing but trouble. Here, It's not much but I must thank you somehow.");
    quest::summonitem("13129"); #Hurrieta's Tunic
    quest::givecash("$faren_randomcash","0","0","0");# Random from 20cp
    quest::faction("135","2"); #Guards of Qeynos
    quest::faction("9","2"); #Antonius Bayle
    quest::faction("53","-1"); #Corrupt Qeynos Guards
    quest::faction("33","-1"); #Circle Of Unseen Hands
    quest::faction("217","2"); #Merchants of Qeynos
    quest::exp("200");
  }
}

#END of FILE Zone:qeynos  ID:1091 -- Faren

More follows....