View Single Post
  #5  
Old 06-06-2015, 11:25 PM
jpyou127's Avatar
jpyou127
Discordant
 
Join Date: Nov 2005
Posts: 270
Default

Ok I got it to work as it seems to have been scripted on live.

One issue I still have is the teach to dance spell is supposed to bbe Magi Curse that stuns and spins, but on the UF client it just stuns, no spin. But it is the correct spell.

Here is the code: Roxxanne.pl

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?");
    } 
	
	elsif($text=~/see you dance/i) {
        quest::settimer("do_the_marinara", 1);     
    } 
	
	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->GetCleanName()=~/Roxxanne/i){
                $n->DoAnim(33);
            }
			
			if($n->GetCleanName()=~/Ashley/i){
                $n->Say("Hey! Yeah! Do the Marinara!");
                $n->DoAnim(33);
            }
            
            if($n->GetCleanName()=~/Brittina/i){
                $n->Say("Hey! Yeah! Do the Marinara!");
                $n->DoAnim(33);
            }
            
            if($n->GetCleanName()=~/Diana/i){
                $n->Say("Hey! Yeah! Do the Marinara!");
                $n->DoAnim(33);
            }
        }
        quest::stoptimer("do_the_marinara");
    }
}
Thanks for your help King!


Peyton
Reply With Quote