I may not be cultured, but what is the marinara? Here's me re-write, it's untested, so use at your own discretion:
Code:
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");
}
}