Quillmane Spawn in South Karana

[Angelox]

This should make Quillmane, the Pegasus horse from South Karana, a lot more closer to live than he is - Quillmane is another spawn that should be rare and hard to pinpoint. You still need to set up grids, and probably make some of the NPC's or change the npcid's in all the scripts I'm posting. Also make sure the npcs you choose for triggers, are unique, and do not spawn anywhere else in the zone.
I placed two trigger-spawns in the zone that should path through split-paw (north-south and south-north, as per EQ live). The Quillmane spawns should path all over the zone, from one end to the other.
The scripts are also posted at http://www.nahunta.org/~angelox/

The two triggers have a 15% chance to spawn 1 of three locations for Quilmane (each chance is 5%)- Also when Quilmane is out, a flag is raised , so they can't spawn another Quilmane while the first one is still around.

#Quillmane spawn
#npc - #a_lioness - randomly spawns 1 of 3 Quilmane locs around the zone)
#zone - SouthKarana
#Angelox

sub EVENT_DEATH{
 my $random_result = int(rand(100));
 my $a=14139; #npc - Quillmane
 if(($random_result<5) && ($quill==2)){
   #quest::say("Spawning Quillmane1");
   quest::spawn2($a,101,0,3210,-6821.6,38.3,193.3);
   quest::delglobal("quill");
   quest::setglobal("quill","3","7","Y1");
   $quill=undef;
  }elsif(($random_result>=5) && ($random_result<10)&& ($quill==2)){
     #quest::say("Spawning Quillmane2");
     quest::spawn2($a,102,0,-2761.8,-6076,0.7,4.0);
     quest::delglobal("quill");
     quest::setglobal("quill","3","7","Y1");
     $quill=undef;
  }elsif(($random_result>=10) && ($random_result<15)&& ($quill==2)){
     #quest::say("Spawning Quillmane3");
     quest::spawn2($a,103,0,-2333.8,1296.5,38.7,247.3);
     quest::delglobal("quill");
     quest::setglobal("quill","3","7","Y1");
     $quill=undef;
  }else{
    #quest::say("No spawn");
  };
};

#Quillmane spawn
#npc - #an_elephant_calf - randomly spawns 1 of 3 Quilmane locs around the zone)
#zone - SouthKarana
#Angelox

sub EVENT_DEATH{
 my $random_result = int(rand(100));
 my $a=14139; #npc - Quillmane
 if(($random_result<5) && ($quill==2)){
   #quest::say("Spawning Quillmane1");
   quest::spawn2($a,101,0,3210,-6821.6,38.3,193.3);
   quest::delglobal("quill");
   quest::setglobal("quill","3","7","Y1");
   $quill=undef;
  }elsif(($random_result>=5) && ($random_result<10)&& ($quill==2)){
     #quest::say("Spawning Quillmane2");
     quest::spawn2($a,102,0,-2761.8,-6076,0.7,4.0);
     quest::delglobal("quill");
     quest::setglobal("quill","3","7","Y1");
     $quill=undef;
  }elsif(($random_result>=10) && ($random_result<15)&& ($quill==2)){
     #quest::say("Spawning Quillmane3");
     quest::spawn2($a,103,0,-2333.8,1296.5,38.7,247.3);
     quest::delglobal("quill");
     quest::setglobal("quill","3","7","Y1");
     $quill=undef;
  }else{
    #quest::say("No spawn");
  };
};

#Quillmane spawn
#npc - #Quillmane
#zone - SouthKarana
#Angelox

sub EVENT_DEATH{
 #quest::say("I'm dead");
 quest::delglobal("quill");
 quest::setglobal("quill","2","7","Y1");
 $quill=undef;
  };