[Sion]

This should work:

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

sub EVENT_ENTER {
if(plugin::check_hasitem($client, 1531)) {
 quest::emote("You pass beyond the barrier");
 }
else{
 quest::movepc(189,0,0,0);
 }
}

It looks like you used elseif instead of else and used quest::movechar when its supposed to be quest::movepc.