[Derision]

OK, using Rev1202 code, do it like this. In your NPC quest:

sub EVENT_SPAWN
{
        my $x = $npc->GetX();
        my $y = $npc->GetY();
        my $range = 12;
        quest::set_proximity($x - $range, $x + $range, $y - $range, $y + $range);

}

sub EVENT_ENTER {

    quest::popup("Test Popup", "Test popup with ID 10", 10);
}

And in player.pl, add

sub EVENT_POPUPRESPONSE
{
        if($popupid eq "10")
        {
                quest::movepc(176,1900.0,-474.8,24.75);
        }

}