Taskselector seems to not work on NPC Perl Script

djeryv · #1 01-16-2010, 03:37 PM

A few versions ago was when I last knew this worked. Now, the NPC does not respond to the "serve" phrase with the TASKSELECTOR. The NPC does respond to "bind" and will bind you. When I remove TASKSELECTOR and put in a simple QUEST:SAY...then they resond. Has anything changed with dealing with PERL and TASKS?

Code:

sub EVENT_SAY {

if($text=~/hail/i){
	quest::say("Greetings, $name. Have you come to [serve] the Velvet Order? Maybe you wish for me to [bind] you here?");
}

if($text=~/bind/i){
	quest::say("Binding your soul. You will return here when you die.");
	quest::selfcast(2049);
}

if($text=~/serve/i){
quest::taskselector(7985, 7986, 7991, 7994, 7998, 7999, 8000, 8001, 8002, 8003, 8004, 8005, 8006, 8007, 8008, 8009, 8010, 8011);
}

}

sub EVENT_ITEM {
if ($itemcount{16769} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(68245);} #202
if ($itemcount{68245} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(89167);} #202
if ($itemcount{89167} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(16769);} #202
if ($itemcount{16755} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(82700);} #202
if ($itemcount{82700} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(89175);} #202
if ($itemcount{89175} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(16755);} #202
if ($itemcount{6204} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(16761);} #202
if ($itemcount{16761} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(31187);} #202
if ($itemcount{31187} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(6204);} #202
if ($itemcount{29296} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(55068);} #202
if ($itemcount{55068} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(85573);} #202
if ($itemcount{85573} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(29296);} #202
if ($itemcount{16795} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(89159);} #202
if ($itemcount{89159} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(16795);} #202
if ($itemcount{25438} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(67625);} #202
if ($itemcount{67625} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(25438);} #202
if ($itemcount{16691} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(31237);} #202
if ($itemcount{31237} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(16691);} #202
if ($itemcount{31462} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(89238);} #202
if ($itemcount{89238} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(31462);} #202
if ($itemcount{7386} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(15773);} #202
if ($itemcount{15773} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(7386);} #202
if ($itemcount{29558} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(31085);} #202
if ($itemcount{31085} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(29558);} #202
if ($itemcount{15764} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(51865);} #202
if ($itemcount{51865} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(15764);} #202
if ($itemcount{15474} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(29559);} #202
if ($itemcount{29559} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(15474);} #202
if ($itemcount{31183} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(31358);} #202
if ($itemcount{31358} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(31183);} #202
if ($itemcount{15758} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(15770);} #202
if ($itemcount{15770} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(15758);} #202
if ($itemcount{15119} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(25434);} #202
if ($itemcount{25434} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(15119);} #202
if ($itemcount{15751} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(15761);} #202
if ($itemcount{15761} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(15751);} #202
if ($itemcount{8358} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(11001);} #202
if ($itemcount{11001} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(8358);} #202
if ($itemcount{29551} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(82703);} #202
if ($itemcount{82703} == 1 ){quest::say("This item does not please you?  How about this one?"); quest::summonitem(29551);} #202
}