I was haing a similar problem and I can verify that movepc 
does have the x and y coordinates swapped. Here's my OOT translocater perl (that works):
	Quote:
	
	
		| sub EVENT_SAY{ 
 if($text=~/Hail/i)
 {
 quest::say("Greetings $name. Where do you want to go: [freeport] or [butcherblock]?");
 }
 if ($text=~/freeport/i)
 {
 quest::say("PULL!!!");
 quest::movepc(10,-1031,-16,-45);
 quest::say("Booyah.");
 }
 if ($text=~/butcherblock/i)
 {
 quest::say("PULL!!!");
 quest::movepc(68,3248,1354,18);
 quest::say("Booyah.");
 }
 
 }
 |