NWScript:

void main()

{

    /*

     * Full-Edge Area Transition

     * -------------------------

     * Based on The Mighty Teleport Script from Richard Conner

     * Jonathan Warrington

     *

     * Usage

     * -----

     * This is attached to the OnClick event of a GenericTrigger

     * Two properties need to be modified to your areas.  First,

     * the GetObjectByTag line, fill in the tag of your trigger,

     * that's in the destination area.  Second, make sure the

     * appropriate vDest is uncommented.

     */

    //Get the PC that just clicked on the transition

    object oClicker = GetClickingObject();

    //Get the location of the PC

    location lLoc = GetLocation( oClicker );

    //Get the PC's postion

    vector vEnter = GetPositionFromLocation( lLoc );

    //The Trigger that's in the destination area

    object oTran = GetObjectByTag( "Area2Tran" );

    //Get the destination area

    object oDestArea = GetArea( oTran );

    //Get the postition of the trigger

    vector lTranVec = GetPositionFromLocation( GetLocation( oTran ) );

    //Calculates the destination postition (Uncomment either

    //the east / west or the north / south one.

    /*East / West Transition*/

    //vector vDest=Vector( lTranVec.x, vEnter.y );

    /*North / South Transition*/

    vector vDest=Vector( vEnter.x, lTranVec.y );



    //Get the PC's facing

    float fFacing = GetFacingFromLocation( lLoc );

    //Create a new Location to place the PC in

    location locNew = Location( oDestArea, vDest, fFacing );

    //Clear all PC actions, (Stop walking) and then jump

    //to the new location.

    AssignCommand( oClicker, ClearAllActions() );

    AssignCommand( oClicker, JumpToLocation( locNew ) );

}