Instance aware in zone port

iceclad/#Translocator_Kurione.pl

@@ -1,10 +1,12 @@
 # items: 60333
+$instanceid = quest::GetInstanceID();
+
 sub EVENT_SAY {
   if ($text=~/hail/i) {
     quest::say("Hello there. There seems to be some strange problems with the boats in this area. The Academy of Arcane Sciences has sent a small team of us to investigate them. If you need to [" . quest::saylink("travel to North Ro") . "] in the meantime, I can transport you to my companion there. We also just recently discovered that Joshel has been stranded over in the middle of the ocean since the problems with the boats started. If you'd be willing to go see if he's ok, I may be able to [" . quest::saylink("teleport you near there") . "]. Keep in mind though that it will be a one way trip. There is no one on the island able to send you back.");
   }
   if ($text=~/teleport near there/i) {
-    $client->MovePC(110, -20288, 3886, -7, 396); # Near Joshel
+    quest::MovePCInstance(110, $instanceid, -20288, 3886, -7); # Instance aware to Joshel
   }
   if ($text=~/travel to north ro/i) {
     $client->MovePC(34, 304, 2664, -25, 241); # Old Nro