Plane of Mischief Sphynx Dancers

[Kingly_Krab]

I may not be cultured, but what is the marinara? Here's me re-write, it's untested, so use at your own discretion:

sub EVENT_SAY {
    if ($text=~/hail/i) {
        quest::say("Well hello! We are great dancers. Would you like to see us dance? Or maybe you would like us to teach you to dance?");
        quest::settimer("do_the_marinara", 3);
    } elsif($text=~/see you dance/i) {
        quest::say("Hey! Yeah! Do the Marinara!");
        quest::doanim(33)
    } elsif($text=~/teach me dance/i) {
        quest::say("Look at you! You can dance! Go, go, go! That's the spirit, you got it! Keep up the good work! Don't get too tired now, you are looking a little pale!");
        quest::selfcast(1246)
    }    
}

sub EVENT_TIMER{
    if($timer eq "do_the_marinara"){
        my @nlist = $entity_list->GetNPCList();
        foreach my $n (@nlist){
            if($n->GetEnt()->GetCleanName()=~/Roxxanne/i){
                $n->GetEnt()->Say("Hey! Yeah! Do the Marinara!");
                $n->GetEnt()->DoAnim(33);
            }
            
            if($n->GetEnt()->GetCleanName()=~/Ashley/i){
                $n->GetEnt()->Say("Hey! Yeah! Do the Marinara!");
                $n->GetEnt()->DoAnim(33);
            }
            
            if($n->GetEnt()->GetCleanName()=~/Brittina/i){
                $n->GetEnt()->Say("Hey! Yeah! Do the Marinara!");
                $n->GetEnt()->DoAnim(33);
            }
            
            if($n->GetEnt()->GetCleanName()=~/Diana/i){
                $n->GetEnt()->Say("Hey! Yeah! Do the Marinara!");
                $n->GetEnt()->DoAnim(33);
            }
        }
        quest::stoptimer("do_the_marinara");
    }
}